pkg/seaice/SEAICE_TRACER.h

C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.1 2011/03/05 18:06:49 heimbach Exp $
C $Name:  $

CBOP
C !ROUTINE: SEAICE_TRACER.h

C !DESCRIPTION: \bv
C     /==========================================================\
C     | SEAICE_TRACER.h                                          |
C     | o Begin header for sea ice tracers                       |
C     \==========================================================/
C
C     SItracer   - generic ice tracer array
C     SItrBucket - collected SItracer to be later passed to the ocean
C     SItrHEFF   - history of HEFF evolution during seaice_growth
C
C     IceAgeTr(1) - effective sea ice age
C             at center of grid, i.e., tracer point
C             ==> for non-zero AREA, units of ICEAGEAREA are seconds
C                 and actual ice age is ICEAGEAREA / AREA seconds
C     IceAgeTr(2) - effective sea ice age
C             at center of grid, i.e., tracer point
C             ==> for non-zero HEFF,
C                 units of ICEAGEVOL are seconds * meters
C                 and actual ice age is ICEAGEVOL / HEFF seconds
C     IceAgeTr(3), IceAgeTr(4) - effective sea ice age
C             t.b.d. (poor-man's multi-category)
C \ev
CEOP

#ifdef ALLOW_SITRACER
      COMMON /SEAICE_TRACER_R/
     &        SItracer, SItrBucket, SItrHEFF
      _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
      _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
      _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5)
#endif

#ifdef SEAICE_AGE
      COMMON/SEAICE_AGE_R/IceAgeTr
      _RL IceAgeTr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SEAICE_num)
#endif

#if (defined SEAICE_AGE)||(defined ALLOW_SITRACER)
C     IceAgeTrFile    - File containing initial sea ice age
C     SItrName        - tracer name ('salinity', 'age', 'one', etc.)
      CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)
      CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
      COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName
#endif

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.1 2011/03/05 18:06:49 heimbach Exp $
2	C $Name: $
3
4	CBOP
5	C !ROUTINE: SEAICE_TRACER.h
6
7	C !DESCRIPTION: \bv
8	C /==========================================================\
9	C \| SEAICE_TRACER.h \|
10	C \| o Begin header for sea ice tracers \|
11	C \==========================================================/
12	C
13	C SItracer - generic ice tracer array
14	C SItrBucket - collected SItracer to be later passed to the ocean
15	C SItrHEFF - history of HEFF evolution during seaice_growth
16	C
17	C IceAgeTr(1) - effective sea ice age
18	C at center of grid, i.e., tracer point
19	C ==> for non-zero AREA, units of ICEAGEAREA are seconds
20	C and actual ice age is ICEAGEAREA / AREA seconds
21	C IceAgeTr(2) - effective sea ice age
22	C at center of grid, i.e., tracer point
23	C ==> for non-zero HEFF,
24	C units of ICEAGEVOL are seconds * meters
25	C and actual ice age is ICEAGEVOL / HEFF seconds
26	C IceAgeTr(3), IceAgeTr(4) - effective sea ice age
27	C t.b.d. (poor-man's multi-category)
28	C \ev
29	CEOP
30
31	#ifdef ALLOW_SITRACER
32	COMMON /SEAICE_TRACER_R/
33	& SItracer, SItrBucket, SItrHEFF
34	_RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
35	_RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
36	_RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5)
37	#endif
38
39	#ifdef SEAICE_AGE
40	COMMON/SEAICE_AGE_R/IceAgeTr
41	_RL IceAgeTr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SEAICE_num)
42	#endif
43
44	#if (defined SEAICE_AGE)\|\|(defined ALLOW_SITRACER)
45	C IceAgeTrFile - File containing initial sea ice age
46	C SItrName - tracer name ('salinity', 'age', 'one', etc.)
47	CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)
48	CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
49	COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName
50	#endif
51
52	CEH3 ;;; Local Variables: ***
53	CEH3 ;;; mode:fortran ***
54	CEH3 ;;; End: ***