/[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.2 by gforget, Tue Jun 7 03:58:23 2011 UTC revision 1.3 by gforget, Thu Jun 9 19:37:01 2011 UTC
# Line 13  C Line 13  C
13  C     SItracer   - generic ice tracer array  C     SItracer   - generic ice tracer array
14  C     SItrBucket - collected SItracer to be later passed to the ocean  C     SItrBucket - collected SItracer to be later passed to the ocean
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
17  C  C
18  C     IceAgeTr(1) - effective sea ice age  C     IceAgeTr(1) - effective sea ice age
19  C             at center of grid, i.e., tracer point  C             at center of grid, i.e., tracer point
# Line 30  CEOP Line 31  CEOP
31    
32  #ifdef ALLOW_SITRACER  #ifdef ALLOW_SITRACER
33        COMMON /SEAICE_TRACER_R/        COMMON /SEAICE_TRACER_R/
34       &        SItracer, SItrBucket, SItrHEFF       &        SItracer, SItrBucket, SItrHEFF, SItrAREA
35        _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)
36        _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)
37        _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)
38          _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3)
39  #endif  #endif
40    
41  #ifdef SEAICE_AGE  #ifdef SEAICE_AGE
# Line 44  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     SItrMate        - variable to which the tracer is associated ('HEFF','AREA',etc.)
50        CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)        CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)
51        CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)        CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
52        COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName        CHARACTER*(MAX_LEN_FNAM) SItrMate(SItrMaxNum)
53          COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName, SItrMate
54  #endif  #endif
55    
56  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22