12 |
C Contains seaice array-size definition (number of tracers,categories). |
C Contains seaice array-size definition (number of tracers,categories). |
13 |
|
|
14 |
C SItrMaxNum :: number of passive tracers to allocate |
C SItrMaxNum :: number of passive tracers to allocate |
15 |
C nITD :: number of seaice categories to allocate |
C MULTDIM :: number of seaice categories to allocate |
16 |
CEOP |
CEOP |
17 |
|
|
18 |
C- Maximum Number of categories |
C- Maximum Number of categories |
19 |
|
INTEGER MULTDIM |
20 |
INTEGER nITD |
INTEGER nITD |
21 |
C-- |
C-- |
22 |
#ifdef SEAICE_ITD |
#ifdef SEAICE_ITD |
24 |
C nITD defines number of ice thickness categories, |
C nITD defines number of ice thickness categories, |
25 |
C i.e. size of additional dimension to AREA, HEFF, HSNOW, etc. |
C i.e. size of additional dimension to AREA, HEFF, HSNOW, etc. |
26 |
C Bitz et al. (2001, JGR) suggest a minimum of nITD = 5 |
C Bitz et al. (2001, JGR) suggest a minimum of nITD = 5 |
27 |
PARAMETER (nITD = 5) |
PARAMETER(nITD = 7) |
28 |
|
PARAMETER (MULTDIM=nITD) |
29 |
C>>>ToM |
C>>>ToM |
30 |
#else |
#else |
31 |
PARAMETER (nITD = 7) |
c PARAMETER (MULTDIM=7) |
32 |
|
PARAMETER (MULTDIM=1) |
33 |
|
PARAMETER(nITD = MULTDIM) |
34 |
#endif |
#endif |
35 |
|
|
36 |
C- Maximum Number of tracers |
C- Maximum Number of tracers |