MODULE params IMPLICIT REAL (KIND=4) (A-H,O-Z) IMPLICIT INTEGER (KIND=4) (I-N) ! PARAMETER (MXLYR=5,MXNZ=2000,MXSEC=20,MXSOL=MXSEC+1, ! C MXN=MXSOL*MXNZ,MXSVP=102,MXTRK=3000) INTEGER (KIND=4), PARAMETER :: MXLYR=5,MXNZ=2000,MXSEC=74,MXSOL=MXSEC+1, & MXN=MXSOL*MXNZ,MXSVP=102,MXTRK=10000 END MODULE params