/[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.1 by heimbach, Sat Mar 5 18:06:49 2011 UTC revision 1.2 by gforget, Tue Jun 7 03:58:23 2011 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
13    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    C
17  C     IceAgeTr(1) - effective sea ice age  C     IceAgeTr(1) - effective sea ice age
18  C             at center of grid, i.e., tracer point  C             at center of grid, i.e., tracer point
19  C             ==> for non-zero AREA, units of ICEAGEAREA are seconds  C             ==> for non-zero AREA, units of ICEAGEAREA are seconds
# Line 24  C             t.b.d. (poor-man's multi-c Line 28  C             t.b.d. (poor-man's multi-c
28  C \ev  C \ev
29  CEOP  CEOP
30    
31    #ifdef ALLOW_SITRACER
32          COMMON /SEAICE_TRACER_R/
33         &        SItracer, SItrBucket, SItrHEFF
34          _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
35          _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
36          _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5)
37    #endif
38    
39  #ifdef SEAICE_AGE  #ifdef SEAICE_AGE
40        COMMON/SEAICE_AGE_R/IceAgeTr        COMMON/SEAICE_AGE_R/IceAgeTr
41        _RL IceAgeTr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SEAICE_num)        _RL IceAgeTr   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SEAICE_num)
42  C--  #endif
43    
44    #if (defined SEAICE_AGE)||(defined ALLOW_SITRACER)
45  C     IceAgeTrFile    - File containing initial sea ice age  C     IceAgeTrFile    - File containing initial sea ice age
46    C     SItrName        - tracer name ('salinity', 'age', 'one', etc.)
47        CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)        CHARACTER*(MAX_LEN_FNAM) IceAgeTrFile(SEAICE_num)
48        COMMON /SEAICE_AGE_C/ IceAgeTrFile        CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
49          COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName
50  #endif  #endif
51    
52  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22