C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/offline_exf_seaice/code_ad/SEAICE_SIZE.h,v 1.3 2013/03/25 02:39:33 gforget Exp $ C $Name: $ #ifdef ALLOW_SEAICE CBOP C !ROUTINE: SEAICE_SIZE.h C !INTERFACE: C #include SEAICE_SIZE.h C !DESCRIPTION: C Contains seaice array-size definition (number of tracers,categories). C SItrMaxNum :: number of passive tracers to allocate C MULTDIM :: number of seaice categories to allocate CEOP C- Maximum Number of categories INTEGER MULTDIM C-- #ifdef SEAICE_ITD CToM<<< C nITD defines number of ice thickness categories, C i.e. size of additional dimension to AREA, HEFF, HSNOW, etc. C Bitz et al. (2001, JGR) suggest a minimum of nITD = 5 INTEGER nITD PARAMETER(nITD = 7) PARAMETER (MULTDIM=nITD) C>>>ToM #else c PARAMETER (MULTDIM=7) PARAMETER (MULTDIM=1) #endif C- Maximum Number of tracers INTEGER SItrMaxNum PARAMETER(SItrMaxNum = 3 ) #ifdef ALLOW_AUTODIFF_TAMC INTEGER iicekey INTEGER nEVPstepMax PARAMETER ( nEVPstepMax=180 ) INTEGER NMAX_TICE PARAMETER ( NMAX_TICE=10 ) INTEGER SOLV_MAX_FIXED PARAMETER ( SOLV_MAX_FIXED=500 ) #endif #endif /* ALLOW_SEAICE */ CEH3 ;;; Local Variables: *** CEH3 ;;; mode:fortran *** CEH3 ;;; End: ***