seaice_itd/code/SEAICE_SIZE.h

e67ff7e33f Torg*0001 #ifdef ALLOW_SEAICE
                0002
                0003 CBOP
                0004 C    !ROUTINE: SEAICE_SIZE.h
                0005 C    !INTERFACE:
                0006 C #include SEAICE_SIZE.h
                0007
                0008 C    !DESCRIPTION:
                0009 C Contains seaice array-size definition (number of tracers,categories).
                0010
                0011 C SItrMaxNum :: number of passive tracers to allocate
28aadc3d92 Mart*0012 C nITD       :: number of seaice categories to allocate
e67ff7e33f Torg*0013 CEOP
                0014
                0015 C-    Maximum Number of categories
f913c5a485 Mart*0016       INTEGER nITD
e67ff7e33f Torg*0017 C--
                0018 #ifdef SEAICE_ITD
                0019 C nITD defines number of ice thickness categories,
                0020 C i.e. size of additional dimension to AREA, HEFF, HSNOW, etc.
                0021 C Bitz et al. (2001, JGR) suggest a minimum of nITD = 5
28aadc3d92 Mart*0022       PARAMETER (nITD = 7)
e67ff7e33f Torg*0023 #else
28aadc3d92 Mart*0024       PARAMETER (nITD = 7)
e67ff7e33f Torg*0025 #endif
                0026
                0027 C-    Maximum Number of tracers
                0028       INTEGER SItrMaxNum
                0029       PARAMETER(SItrMaxNum = 3 )
                0030
                0031 #ifdef ALLOW_AUTODIFF_TAMC
                0032       INTEGER nEVPstepMax
                0033       PARAMETER ( nEVPstepMax=180 )
                0034       INTEGER NMAX_TICE
                0035       PARAMETER ( NMAX_TICE=10 )
                0036       INTEGER SOLV_MAX_FIXED
                0037       PARAMETER ( SOLV_MAX_FIXED=500 )
28aadc3d92 Mart*0038       INTEGER MPSEUDOTIMESTEPS
                0039       PARAMETER (MPSEUDOTIMESTEPS=2)
                0040 #endif /* ALLOW_AUTODIFF_TAMC */
e67ff7e33f Torg*0041
                0042 #endif /* ALLOW_SEAICE */
                0043
                0044 CEH3 ;;; Local Variables: ***
                0045 CEH3 ;;; mode:fortran ***
                0046 CEH3 ;;; End: ***