pkg/seaice/SEAICE_SIZE.h

ccaa3c61f4 Patr*0001 #ifdef ALLOW_SEAICE
                0002
                0003 CBOP
                0004 C    !ROUTINE: SEAICE_SIZE.h
                0005 C    !INTERFACE:
                0006 C #include SEAICE_SIZE.h
35643f5b51 Jean*0007
ccaa3c61f4 Patr*0008 C    !DESCRIPTION:
35643f5b51 Jean*0009 C Contains seaice array-size definition (number of tracers,categories).
                0010
                0011 C SItrMaxNum :: number of passive tracers to allocate
f913c5a485 Mart*0012 C nITD       :: number of seaice categories to allocate
35643f5b51 Jean*0013 CEOP
ccaa3c61f4 Patr*0014
35643f5b51 Jean*0015 C-    Maximum Number of categories
f913c5a485 Mart*0016       INTEGER nITD
86b84a92fc Patr*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
f913c5a485 Mart*0022       PARAMETER (nITD = 5)
86b84a92fc Patr*0023 #else
f913c5a485 Mart*0024       PARAMETER (nITD = 7)
86b84a92fc Patr*0025 #endif
35643f5b51 Jean*0026
                0027 C-    Maximum Number of tracers
f50f58ec54 Gael*0028       INTEGER SItrMaxNum
                0029       PARAMETER(SItrMaxNum = 3 )
ccaa3c61f4 Patr*0030
772b2ed80e Gael*0031 #ifdef ALLOW_AUTODIFF
ccaa3c61f4 Patr*0032       INTEGER nEVPstepMax
984448ca93 Patr*0033       PARAMETER ( nEVPstepMax=180 )
ccaa3c61f4 Patr*0034       INTEGER NMAX_TICE
                0035       PARAMETER ( NMAX_TICE=10 )
984448ca93 Patr*0036       INTEGER SOLV_MAX_FIXED
                0037       PARAMETER ( SOLV_MAX_FIXED=500 )
32c347d75e Mart*0038       INTEGER MPSEUDOTIMESTEPS
                0039       PARAMETER (MPSEUDOTIMESTEPS=2)
772b2ed80e Gael*0040 #endif /* ALLOW_AUTODIFF */
ccaa3c61f4 Patr*0041
                0042 #endif /* ALLOW_SEAICE */
                0043
                0044 CEH3 ;;; Local Variables: ***
                0045 CEH3 ;;; mode:fortran ***
                0046 CEH3 ;;; End: ***