PARAMETER (NSOIL=4,LM1=50)
      PARAMETER (NSTP=52,  NSTAT=2000)
      PARAMETER (INCR=1, LENGTH=51, NFCST=LENGTH/INCR+1)