pkg/seaice/SEAICE_TRACER.h

C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.5 2011/06/24 01:30:25 jmc 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     SItrAREA   - history of AREA evolution during seaice_growth
C
C \ev
CEOP

#ifdef ALLOW_SITRACER
      COMMON /SEAICE_TRACER_R/
     &        SItracer, SItrBucket, SItrHEFF, SItrAREA
      _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)
      _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3)

C     SItrFile        - File containing initial sea ice tracer
C     SItrName        - tracer name ('salinity', 'age', 'one', etc.)
C     SItrNameLong    - tracer long name
C     SItrUnit        - tracer unit ('psu','s','kg/kg', etc.)
C     SItrMate        - variable to which the tracer is associated ('HEFF','AREA',etc.)
      CHARACTER*(MAX_LEN_FNAM) SItrFile(SItrMaxNum)
      CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
      CHARACTER*(MAX_LEN_FNAM) SItrNameLong(SItrMaxNum)
      CHARACTER*(MAX_LEN_FNAM) SItrUnit(SItrMaxNum)
      CHARACTER*(4) SItrMate(SItrMaxNum)
      COMMON /SEAICE_SITR_C/ SItrFile, SItrName, SItrMate,
     &  SItrNameLong, SItrUnit
#endif

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	gforget	1.6	C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.5 2011/06/24 01:30:25 jmc Exp $
2	heimbach	1.1	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	gforget	1.2	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	gforget	1.3	C SItrAREA - history of AREA evolution during seaice_growth
17	gforget	1.2	C
18	heimbach	1.1	C \ev
19			CEOP
20
21	gforget	1.2	#ifdef ALLOW_SITRACER
22			COMMON /SEAICE_TRACER_R/
23	gforget	1.3	& SItracer, SItrBucket, SItrHEFF, SItrAREA
24	gforget	1.2	_RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
25			_RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
26			_RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5)
27	gforget	1.3	_RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3)
28	gforget	1.2
29	gforget	1.6	C SItrFile - File containing initial sea ice tracer
30	gforget	1.2	C SItrName - tracer name ('salinity', 'age', 'one', etc.)
31	gforget	1.4	C SItrNameLong - tracer long name
32			C SItrUnit - tracer unit ('psu','s','kg/kg', etc.)
33	gforget	1.3	C SItrMate - variable to which the tracer is associated ('HEFF','AREA',etc.)
34	gforget	1.6	CHARACTER*(MAX_LEN_FNAM) SItrFile(SItrMaxNum)
35	gforget	1.2	CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
36	gforget	1.4	CHARACTER*(MAX_LEN_FNAM) SItrNameLong(SItrMaxNum)
37			CHARACTER*(MAX_LEN_FNAM) SItrUnit(SItrMaxNum)
38			CHARACTER*(4) SItrMate(SItrMaxNum)
39	gforget	1.6	COMMON /SEAICE_SITR_C/ SItrFile, SItrName, SItrMate,
40	gforget	1.4	& SItrNameLong, SItrUnit
41	heimbach	1.1	#endif
42
43			CEH3 ;;; Local Variables: ***
44			CEH3 ;;; mode:fortran ***
45			CEH3 ;;; End: ***