pkg/seaice/SEAICE_TRACER.h

ccaa3c61f4 Patr*0001 CBOP
                0002 C !ROUTINE: SEAICE_TRACER.h
                0003
                0004 C !DESCRIPTION: \bv
                0005 C     /==========================================================\
                0006 C     | SEAICE_TRACER.h                                          |
                0007 C     | o Begin header for sea ice tracers                       |
                0008 C     \==========================================================/
                0009 C
                0010 C \ev
                0011 CEOP
                0012
f50f58ec54 Gael*0013 #ifdef ALLOW_SITRACER
be02c52974 Gael*0014
                0015 C     SItrNumInUse - Number of tracers that are in use (must be less that SItrMaxNum)
                0016       INTEGER SItrNumInUse
                0017       COMMON /SEAICE_TRACER_I/ SItrNumInUse
                0018
                0019 C     SItracer   - generic ice tracer array
                0020 C     SItrBucket - collected SItracer to be later passed to the ocean
                0021 C     SItrHEFF   - history of HEFF evolution during seaice_growth
                0022 C     SItrAREA   - history of AREA evolution during seaice_growth
f50f58ec54 Gael*0023       _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
                0024       _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum)
                0025       _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5)
bb24b8a3e6 Gael*0026       _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3)
be02c52974 Gael*0027       COMMON /SEAICE_TRACER_R/
                0028      &        SItracer, SItrBucket, SItrHEFF, SItrAREA
                0029
                0030 C     SItrFromOcean0    - for new ice from ocean freeze - constant tracer value
ba0b047096 Mart*0031 C     SItrFromOceanFrac - for new ice from ocean freeze - fraction of ocean tracer
be02c52974 Gael*0032 C     SItrFromFlood0    - for new ice from snow flood   - constant tracer value
                0033 C     SItrFromFloodFrac - for new ice from snow flood   - fraction of ocean tracer
                0034 C     SItrExpand0       - for ice cover thermo. exans.  - constant tracer value
                0035       _RL SItrFromOcean0(SItrMaxNum), SItrFromOceanFrac(SItrMaxNum),
                0036      &    SItrFromFlood0(SItrMaxNum), SItrFromFloodFrac(SItrMaxNum),
                0037      &    SItrExpand0(SItrMaxNum)
                0038       COMMON /SEAICE_TRACER_CONST_R/
ba0b047096 Mart*0039      &    SItrFromOcean0, SItrFromOceanFrac, SItrFromFlood0,
be02c52974 Gael*0040      &    SItrFromFloodFrac, SItrExpand0
f50f58ec54 Gael*0041
e54fe3e1f9 Gael*0042 C     SItrFile        - File containing initial sea ice tracer
f50f58ec54 Gael*0043 C     SItrName        - tracer name ('salinity', 'age', 'one', etc.)
3721cfe5e4 Gael*0044 C     SItrNameLong    - tracer long name
ba0b047096 Mart*0045 C     SItrUnit        - tracer unit ('g/kg','s','kg/kg', etc.)
bb24b8a3e6 Gael*0046 C     SItrMate        - variable to which the tracer is associated ('HEFF','AREA',etc.)
e54fe3e1f9 Gael*0047       CHARACTER*(MAX_LEN_FNAM) SItrFile(SItrMaxNum)
f50f58ec54 Gael*0048       CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum)
3721cfe5e4 Gael*0049       CHARACTER*(MAX_LEN_FNAM) SItrNameLong(SItrMaxNum)
                0050       CHARACTER*(MAX_LEN_FNAM) SItrUnit(SItrMaxNum)
                0051       CHARACTER*(4) SItrMate(SItrMaxNum)
e54fe3e1f9 Gael*0052       COMMON /SEAICE_SITR_C/ SItrFile, SItrName, SItrMate,
3721cfe5e4 Gael*0053      &  SItrNameLong, SItrUnit
ccaa3c61f4 Patr*0054 #endif
                0055
                0056 CEH3 ;;; Local Variables: ***
                0057 CEH3 ;;; mode:fortran ***
                0058 CEH3 ;;; End: ***