PARAMETER (NSOIL=4,LM1=50)
      PARAMETER (NSTP=49,  NSTAT=1790)
      PARAMETER (INCR=1, LENGTH=48, NFCST=LENGTH/INCR+1)