-
Notifications
You must be signed in to change notification settings - Fork 237
/
SEAICE_SIZE.h
48 lines (40 loc) · 1.09 KB
/
SEAICE_SIZE.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#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 nITD :: number of seaice categories to allocate
CEOP
C- Maximum Number of categories
INTEGER nITD
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
PARAMETER (nITD = 7)
C>>>ToM
#else
PARAMETER (nITD = 1)
#endif
C- Maximum Number of tracers
INTEGER SItrMaxNum
PARAMETER(SItrMaxNum = 3 )
#ifdef ALLOW_AUTODIFF_TAMC
INTEGER nEVPstepMax
PARAMETER ( nEVPstepMax=180 )
INTEGER NMAX_TICE
PARAMETER ( NMAX_TICE=10 )
INTEGER SOLV_MAX_FIXED
PARAMETER ( SOLV_MAX_FIXED=500 )
INTEGER MPSEUDOTIMESTEPS
PARAMETER (MPSEUDOTIMESTEPS=2)
#endif
#endif /* ALLOW_SEAICE */
CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***