PARAMETER (NSOIL=4,LM1=40)
      PARAMETER (NSTP=88, LCL1SL1=58, NSTAT=1500)
      PARAMETER (INCR=1, LENGTH=48, NFCST=LENGTH/INCR+1)