C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.7 2012/02/16 01:22:02 gforget Exp $ C $Name: $ CBOP C !ROUTINE: SEAICE_TRACER.h C !DESCRIPTION: \bv C /==========================================================\ C | SEAICE_TRACER.h | C | o Begin header for sea ice tracers | C \==========================================================/ C C \ev CEOP #ifdef ALLOW_SITRACER C SItrNumInUse - Number of tracers that are in use (must be less that SItrMaxNum) INTEGER SItrNumInUse COMMON /SEAICE_TRACER_I/ SItrNumInUse C SItracer - generic ice tracer array C SItrBucket - collected SItracer to be later passed to the ocean C SItrHEFF - history of HEFF evolution during seaice_growth C SItrAREA - history of AREA evolution during seaice_growth _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum) _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum) _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5) _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3) COMMON /SEAICE_TRACER_R/ & SItracer, SItrBucket, SItrHEFF, SItrAREA C SItrFromOcean0 - for new ice from ocean freeze - constant tracer value C SItrFromOceanFrac - for new ice from ocean freeze - fraction of ocean tracer C SItrFromFlood0 - for new ice from snow flood - constant tracer value C SItrFromFloodFrac - for new ice from snow flood - fraction of ocean tracer C SItrExpand0 - for ice cover thermo. exans. - constant tracer value _RL SItrFromOcean0(SItrMaxNum), SItrFromOceanFrac(SItrMaxNum), & SItrFromFlood0(SItrMaxNum), SItrFromFloodFrac(SItrMaxNum), & SItrExpand0(SItrMaxNum) COMMON /SEAICE_TRACER_CONST_R/ & SItrFromOcean0, SItrFromOceanFrac, SItrFromFlood0, & SItrFromFloodFrac, SItrExpand0 C SItrFile - File containing initial sea ice tracer C SItrName - tracer name ('salinity', 'age', 'one', etc.) C SItrNameLong - tracer long name C SItrUnit - tracer unit ('psu','s','kg/kg', etc.) C SItrMate - variable to which the tracer is associated ('HEFF','AREA',etc.) CHARACTER*(MAX_LEN_FNAM) SItrFile(SItrMaxNum) CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum) CHARACTER*(MAX_LEN_FNAM) SItrNameLong(SItrMaxNum) CHARACTER*(MAX_LEN_FNAM) SItrUnit(SItrMaxNum) CHARACTER*(4) SItrMate(SItrMaxNum) COMMON /SEAICE_SITR_C/ SItrFile, SItrName, SItrMate, & SItrNameLong, SItrUnit #endif CEH3 ;;; Local Variables: *** CEH3 ;;; mode:fortran *** CEH3 ;;; End: ***