offline_exf_seaice/code_ad/SEAICE_SIZE.h

770ad27905 Gael*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
f913c5a485 Mart*0012 C nITD       :: number of seaice categories to allocate
770ad27905 Gael*0013 CEOP
                0014
                0015 C-    Maximum Number of categories
f913c5a485 Mart*0016       INTEGER nITD
770ad27905 Gael*0017 C--
                0018 #ifdef SEAICE_ITD
                0019 CToM<<<
                0020 C nITD defines number of ice thickness categories,
                0021 C i.e. size of additional dimension to AREA, HEFF, HSNOW, etc.
                0022 C Bitz et al. (2001, JGR) suggest a minimum of nITD = 5
f913c5a485 Mart*0023       PARAMETER (nITD = 7)
770ad27905 Gael*0024 C>>>ToM
                0025 #else
f913c5a485 Mart*0026       PARAMETER (nITD = 1)
770ad27905 Gael*0027 #endif
                0028
                0029 C-    Maximum Number of tracers
                0030       INTEGER SItrMaxNum
                0031       PARAMETER(SItrMaxNum = 3 )
                0032
                0033 #ifdef ALLOW_AUTODIFF_TAMC
                0034       INTEGER nEVPstepMax
                0035       PARAMETER ( nEVPstepMax=180 )
                0036       INTEGER NMAX_TICE
                0037       PARAMETER ( NMAX_TICE=10 )
                0038       INTEGER SOLV_MAX_FIXED
                0039       PARAMETER ( SOLV_MAX_FIXED=500 )
28aadc3d92 Mart*0040       INTEGER MPSEUDOTIMESTEPS
                0041       PARAMETER (MPSEUDOTIMESTEPS=2)
770ad27905 Gael*0042 #endif
                0043
                0044 #endif /* ALLOW_SEAICE */
                0045
                0046 CEH3 ;;; Local Variables: ***
                0047 CEH3 ;;; mode:fortran ***
                0048 CEH3 ;;; End: ***