1 |
mlosch |
1.5 |
C $Header: /u/gcmpack/MITgcm/verification/offline_exf_seaice/code_ad/SEAICE_SIZE.h,v 1.4 2014/05/27 15:26:04 mlosch Exp $ |
2 |
jmc |
1.1 |
C $Name: $ |
3 |
|
|
|
4 |
|
|
#ifdef ALLOW_SEAICE |
5 |
|
|
|
6 |
|
|
CBOP |
7 |
|
|
C !ROUTINE: SEAICE_SIZE.h |
8 |
|
|
C !INTERFACE: |
9 |
|
|
C #include SEAICE_SIZE.h |
10 |
|
|
|
11 |
|
|
C !DESCRIPTION: |
12 |
|
|
C Contains seaice array-size definition (number of tracers,categories). |
13 |
|
|
|
14 |
|
|
C SItrMaxNum :: number of passive tracers to allocate |
15 |
mlosch |
1.4 |
C nITD :: number of seaice categories to allocate |
16 |
jmc |
1.1 |
CEOP |
17 |
|
|
|
18 |
|
|
C- Maximum Number of categories |
19 |
mlosch |
1.4 |
INTEGER nITD |
20 |
gforget |
1.3 |
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 |
mlosch |
1.4 |
PARAMETER (nITD = 7) |
27 |
gforget |
1.3 |
C>>>ToM |
28 |
|
|
#else |
29 |
mlosch |
1.4 |
PARAMETER (nITD = 1) |
30 |
gforget |
1.3 |
#endif |
31 |
jmc |
1.1 |
|
32 |
|
|
C- Maximum Number of tracers |
33 |
|
|
INTEGER SItrMaxNum |
34 |
|
|
PARAMETER(SItrMaxNum = 3 ) |
35 |
|
|
|
36 |
|
|
#ifdef ALLOW_AUTODIFF_TAMC |
37 |
|
|
INTEGER iicekey |
38 |
|
|
INTEGER nEVPstepMax |
39 |
|
|
PARAMETER ( nEVPstepMax=180 ) |
40 |
|
|
INTEGER NMAX_TICE |
41 |
|
|
PARAMETER ( NMAX_TICE=10 ) |
42 |
|
|
INTEGER SOLV_MAX_FIXED |
43 |
|
|
PARAMETER ( SOLV_MAX_FIXED=500 ) |
44 |
mlosch |
1.5 |
INTEGER MPSEUDOTIMESTEPS |
45 |
|
|
PARAMETER (MPSEUDOTIMESTEPS=2) |
46 |
jmc |
1.1 |
#endif |
47 |
|
|
|
48 |
|
|
#endif /* ALLOW_SEAICE */ |
49 |
|
|
|
50 |
|
|
CEH3 ;;; Local Variables: *** |
51 |
|
|
CEH3 ;;; mode:fortran *** |
52 |
|
|
CEH3 ;;; End: *** |