seaice_itd/code/SEAICE_SIZE.h

C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_SIZE.h,v 1.10 2014/06/25 10:48:26 mlosch 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 nITD       :: number of seaice categories to allocate
CEOP

C-    Maximum Number of categories
      INTEGER nITD
C--
#ifdef SEAICE_ITD
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)
#else
      PARAMETER (nITD = 7)
#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 )
      INTEGER MPSEUDOTIMESTEPS
      PARAMETER (MPSEUDOTIMESTEPS=2)
#endif /* ALLOW_AUTODIFF_TAMC */

#endif /* ALLOW_SEAICE */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_SIZE.h,v 1.10 2014/06/25 10:48:26 mlosch Exp $
2	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	C nITD :: number of seaice categories to allocate
16	CEOP
17
18	C- Maximum Number of categories
19	INTEGER nITD
20	C--
21	#ifdef SEAICE_ITD
22	C nITD defines number of ice thickness categories,
23	C i.e. size of additional dimension to AREA, HEFF, HSNOW, etc.
24	C Bitz et al. (2001, JGR) suggest a minimum of nITD = 5
25	PARAMETER (nITD = 7)
26	#else
27	PARAMETER (nITD = 7)
28	#endif
29
30	C- Maximum Number of tracers
31	INTEGER SItrMaxNum
32	PARAMETER(SItrMaxNum = 3 )
33
34	#ifdef ALLOW_AUTODIFF_TAMC
35	INTEGER iicekey
36	INTEGER nEVPstepMax
37	PARAMETER ( nEVPstepMax=180 )
38	INTEGER NMAX_TICE
39	PARAMETER ( NMAX_TICE=10 )
40	INTEGER SOLV_MAX_FIXED
41	PARAMETER ( SOLV_MAX_FIXED=500 )
42	INTEGER MPSEUDOTIMESTEPS
43	PARAMETER (MPSEUDOTIMESTEPS=2)
44	#endif /* ALLOW_AUTODIFF_TAMC */
45
46	#endif /* ALLOW_SEAICE */
47
48	CEH3 ;;; Local Variables: ***
49	CEH3 ;;; mode:fortran ***
50	CEH3 ;;; End: ***