/[MITgcm]/MITgcm/pkg/seaice/SEAICE_TRACER.h
ViewVC logotype

Diff of /MITgcm/pkg/seaice/SEAICE_TRACER.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by gforget, Thu Jun 9 19:37:01 2011 UTC revision 1.7 by gforget, Thu Feb 16 01:22:02 2012 UTC
# Line 10  C     | SEAICE_TRACER.h Line 10  C     | SEAICE_TRACER.h
10  C     | o Begin header for sea ice tracers                       |  C     | o Begin header for sea ice tracers                       |
11  C     \==========================================================/  C     \==========================================================/
12  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     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)  
13  C \ev  C \ev
14  CEOP  CEOP
15    
16  #ifdef ALLOW_SITRACER  #ifdef ALLOW_SITRACER
17        COMMON /SEAICE_TRACER_R/  
18       &        SItracer, SItrBucket, SItrHEFF, SItrAREA  C     SItrNumInUse - Number of tracers that are in use (must be less that SItrMaxNum)
19          INTEGER SItrNumInUse
20          COMMON /SEAICE_TRACER_I/ SItrNumInUse
21    
22    C     SItracer   - generic ice tracer array
23    C     SItrBucket - collected SItracer to be later passed to the ocean
24    C     SItrHEFF   - history of HEFF evolution during seaice_growth
25    C     SItrAREA   - history of AREA evolution during seaice_growth
26        _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)        _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
27        _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)        _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
28        _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5)        _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5)
29        _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3)        _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3)
30  #endif        COMMON /SEAICE_TRACER_R/
31         &        SItracer, SItrBucket, SItrHEFF, SItrAREA
32    
33  #ifdef SEAICE_AGE  C     SItrFromOcean0    - for new ice from ocean freeze - constant tracer value
34        COMMON/SEAICE_AGE_R/IceAgeTr  C     SItrFromOceanFrac - for new ice from ocean freeze - fraction of ocean tracer
35        _RL IceAgeTr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SEAICE_num)  C     SItrFromFlood0    - for new ice from snow flood   - constant tracer value
36  #endif  C     SItrFromFloodFrac - for new ice from snow flood   - fraction of ocean tracer
37    C     SItrExpand0       - for ice cover thermo. exans.  - constant tracer value
38          _RL SItrFromOcean0(SItrMaxNum), SItrFromOceanFrac(SItrMaxNum),
39         &    SItrFromFlood0(SItrMaxNum), SItrFromFloodFrac(SItrMaxNum),
40         &    SItrExpand0(SItrMaxNum)
41          COMMON /SEAICE_TRACER_CONST_R/
42         &    SItrFromOcean0, SItrFromOceanFrac, SItrFromFlood0,
43         &    SItrFromFloodFrac, SItrExpand0
44    
45  #if (defined SEAICE_AGE)||(defined ALLOW_SITRACER)  C     SItrFile        - File containing initial sea ice tracer
 C     IceAgeTrFile    - File containing initial sea ice age  
46  C     SItrName        - tracer name ('salinity', 'age', 'one', etc.)  C     SItrName        - tracer name ('salinity', 'age', 'one', etc.)
47    C     SItrNameLong    - tracer long name
48    C     SItrUnit        - tracer unit ('psu','s','kg/kg', etc.)
49  C     SItrMate        - variable to which the tracer is associated ('HEFF','AREA',etc.)  C     SItrMate        - variable to which the tracer is associated ('HEFF','AREA',etc.)
50        CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)        CHARACTER*(MAX_LEN_FNAM) SItrFile(SItrMaxNum)
51        CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)        CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
52        CHARACTER*(MAX_LEN_FNAM) SItrMate(SItrMaxNum)        CHARACTER*(MAX_LEN_FNAM) SItrNameLong(SItrMaxNum)
53        COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName, SItrMate        CHARACTER*(MAX_LEN_FNAM) SItrUnit(SItrMaxNum)
54          CHARACTER*(4) SItrMate(SItrMaxNum)
55          COMMON /SEAICE_SITR_C/ SItrFile, SItrName, SItrMate,
56         &  SItrNameLong, SItrUnit
57  #endif  #endif
58    
59  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22