C $Header: /u/gcmpack/MITgcm/pkg/thsice/THSICE_SIZE.h,v 1.5 2010/12/17 04:00:14 gforget Exp $
C $Name:  $

#ifdef ALLOW_THSICE
C     *==========================================================*
C     | THSICE_SIZE.h Declare size of arrays for Therm_SeaIce pkg
C     *==========================================================*

C.. number layers of ice
C     nlyr   ::   maximum number of ice layers
      INTEGER nlyr
      PARAMETER (nlyr = 2)

C--   Energy distribution (lateral / thickening-thinning) using a power law:
C     power-law exponent is set to: 1+2^powerLawExp2
      INTEGER     powerLawExp2
      PARAMETER ( powerLawExp2 = 2 )

C--   identifiers for advected properties
      INTEGER GAD_SI_FRAC, GAD_SI_HSNOW
      INTEGER GAD_SI_HICE, GAD_SI_QICE1, GAD_SI_QICE2
      PARAMETER ( GAD_SI_FRAC  = -5,
     &            GAD_SI_HSNOW = -6,
     &            GAD_SI_HICE  = -7,
     &            GAD_SI_QICE1 = -8,
     &            GAD_SI_QICE2 = -9 )

#ifdef ALLOW_AUTODIFF_TAMC
      INTEGER ticekey
      INTEGER ikey_1, ikey_2, ikey_3, ikey_4
      INTEGER MaxTsf
      PARAMETER ( MaxTsf = 20 )
#endif

#endif /* ALLOW_THSICE */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***