/[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.4 by gforget, Mon Jun 13 23:21:18 2011 UTC
# Line 46  CEOP Line 46  CEOP
46  #if (defined SEAICE_AGE)||(defined ALLOW_SITRACER)  #if (defined SEAICE_AGE)||(defined ALLOW_SITRACER)
47  C     IceAgeTrFile    - File containing initial sea ice age  C     IceAgeTrFile    - File containing initial sea ice age
48  C     SItrName        - tracer name ('salinity', 'age', 'one', etc.)  C     SItrName        - tracer name ('salinity', 'age', 'one', etc.)
49    C     SItrNameLong    - tracer long name
50    C     SItrUnit        - tracer unit ('psu','s','kg/kg', etc.)
51  C     SItrMate        - variable to which the tracer is associated ('HEFF','AREA',etc.)  C     SItrMate        - variable to which the tracer is associated ('HEFF','AREA',etc.)
52        CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)        CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)
53        CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)        CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
54        CHARACTER*(MAX_LEN_FNAM) SItrMate(SItrMaxNum)        CHARACTER*(MAX_LEN_FNAM) SItrNameLong(SItrMaxNum)
55        COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName, SItrMate        CHARACTER*(MAX_LEN_FNAM) SItrUnit(SItrMaxNum)
56          CHARACTER*(4) SItrMate(SItrMaxNum)
57          COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName, SItrMate,
58         &  SItrNameLong, SItrUnit
59  #endif  #endif
60    
61  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22