pkg/thsice/THSICE_SIZE.h

fc7306ba7d Jean*0001 #ifdef ALLOW_THSICE
                0002 C     *==========================================================*
                0003 C     | THSICE_SIZE.h Declare size of arrays for Therm_SeaIce pkg
                0004 C     *==========================================================*
                0005
a4eca6e929 Jean*0006 C.. number layers of ice
fc7306ba7d Jean*0007 C     nlyr   ::   maximum number of ice layers
                0008       INTEGER nlyr
                0009       PARAMETER (nlyr = 2)
                0010
4a5f035778 Jean*0011 C--   Energy distribution (lateral / thickening-thinning) using a power law:
                0012 C     power-law exponent is set to: 1+2^powerLawExp2
                0013       INTEGER     powerLawExp2
                0014       PARAMETER ( powerLawExp2 = 2 )
                0015
a4eca6e929 Jean*0016 C--   identifiers for advected properties
4a5f035778 Jean*0017       INTEGER GAD_SI_FRAC, GAD_SI_HSNOW
a4eca6e929 Jean*0018       INTEGER GAD_SI_HICE, GAD_SI_QICE1, GAD_SI_QICE2
                0019       PARAMETER ( GAD_SI_FRAC  = -5,
                0020      &            GAD_SI_HSNOW = -6,
                0021      &            GAD_SI_HICE  = -7,
                0022      &            GAD_SI_QICE1 = -8,
                0023      &            GAD_SI_QICE2 = -9 )
                0024
2c032d7179 Gael*0025 #ifdef ALLOW_AUTODIFF_TAMC
                0026       INTEGER MaxTsf
                0027       PARAMETER ( MaxTsf = 20 )
a85293d087 Mart*0028 C     The number of properties to be advected is needed to define static tapes.
                0029       INTEGER thSIce_nAdv
                0030 c     PARAMETER ( thSIce_nAdv = 1 + GAD_SI_FRAC - GAD_SI_QICE2 )
                0031       PARAMETER ( thSIce_nAdv = 5 )
2c032d7179 Gael*0032 #endif
                0033
fc7306ba7d Jean*0034 #endif /* ALLOW_THSICE */
                0035
df4e8f7bcf Ed H*0036 CEH3 ;;; Local Variables: ***
                0037 CEH3 ;;; mode:fortran ***
                0038 CEH3 ;;; End: ***