parameter (N_=600,ND_=1000)
      COMMON /SUBDCE/ ZSUBCE,JSUB,JSUB1,ZSUB(N_)
      COMMON /LAKE/   JLDTMG,LDTMG(N_)
      COMMON /LDRY/   NODRY,IDRY(ND_),JDRY(ND_)