/[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.5 by jmc, Fri Jun 24 01:30:25 2011 UTC revision 1.6 by gforget, Fri Feb 3 13:34:31 2012 UTC
# Line 15  C     SItrBucket - collected SItracer to Line 15  C     SItrBucket - collected SItracer to
15  C     SItrHEFF   - history of HEFF evolution during seaice_growth  C     SItrHEFF   - history of HEFF evolution during seaice_growth
16  C     SItrAREA   - history of AREA evolution during seaice_growth  C     SItrAREA   - history of AREA evolution during seaice_growth
17  C  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)  
18  C \ev  C \ev
19  CEOP  CEOP
20    
# Line 36  CEOP Line 25  CEOP
25        _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)
26        _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)
27        _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)
 #endif  
   
 #ifdef SEAICE_AGE  
       COMMON/SEAICE_AGE_R/IceAgeTr  
       _RL IceAgeTr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SEAICE_num)  
 #endif  
28    
29  #if (defined SEAICE_AGE)||(defined ALLOW_SITRACER)  C     SItrFile        - File containing initial sea ice tracer
 C     IceAgeTrFile    - File containing initial sea ice age  
30  C     SItrName        - tracer name ('salinity', 'age', 'one', etc.)  C     SItrName        - tracer name ('salinity', 'age', 'one', etc.)
31  C     SItrNameLong    - tracer long name  C     SItrNameLong    - tracer long name
32  C     SItrUnit        - tracer unit ('psu','s','kg/kg', etc.)  C     SItrUnit        - tracer unit ('psu','s','kg/kg', etc.)
33  C     SItrMate        - variable to which the tracer is associated ('HEFF','AREA',etc.)  C     SItrMate        - variable to which the tracer is associated ('HEFF','AREA',etc.)
34        CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)        CHARACTER*(MAX_LEN_FNAM) SItrFile(SItrMaxNum)
35        CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)        CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
36        CHARACTER*(MAX_LEN_FNAM) SItrNameLong(SItrMaxNum)        CHARACTER*(MAX_LEN_FNAM) SItrNameLong(SItrMaxNum)
37        CHARACTER*(MAX_LEN_FNAM) SItrUnit(SItrMaxNum)        CHARACTER*(MAX_LEN_FNAM) SItrUnit(SItrMaxNum)
38        CHARACTER*(4) SItrMate(SItrMaxNum)        CHARACTER*(4) SItrMate(SItrMaxNum)
39        COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName, SItrMate,        COMMON /SEAICE_SITR_C/ SItrFile, SItrName, SItrMate,
40       &  SItrNameLong, SItrUnit       &  SItrNameLong, SItrUnit
41  #endif  #endif
42    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22