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