** Warning **

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.

Last-Modified: Sat, 24 Oct 2025 05:15:18 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/thsice/THSICE_SIZE.h
Back to home page

MITgcm
 
 

    

File indexing completed on 2022-04-19 05:09:21 UTC

view on githubraw file Latest commit a85293d0 on 2022-04-18 21:18:22 UTC
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: ***
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!