--- MITgcm/pkg/seaice/SEAICE_TRACER.h 2011/06/09 19:37:01 1.3 +++ MITgcm/pkg/seaice/SEAICE_TRACER.h 2012/02/03 13:34:31 1.6 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.3 2011/06/09 19:37:01 gforget Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.6 2012/02/03 13:34:31 gforget Exp $ C $Name: $ CBOP @@ -15,17 +15,6 @@ C SItrHEFF - history of HEFF evolution during seaice_growth C SItrAREA - history of AREA evolution during seaice_growth C -C IceAgeTr(1) - effective sea ice age -C at center of grid, i.e., tracer point -C ==> for non-zero AREA, units of ICEAGEAREA are seconds -C and actual ice age is ICEAGEAREA / AREA seconds -C IceAgeTr(2) - effective sea ice age -C at center of grid, i.e., tracer point -C ==> for non-zero HEFF, -C units of ICEAGEVOL are seconds * meters -C and actual ice age is ICEAGEVOL / HEFF seconds -C IceAgeTr(3), IceAgeTr(4) - effective sea ice age -C t.b.d. (poor-man's multi-category) C \ev CEOP @@ -36,21 +25,19 @@ _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) -#endif - -#ifdef SEAICE_AGE - COMMON/SEAICE_AGE_R/IceAgeTr - _RL IceAgeTr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SEAICE_num) -#endif -#if (defined SEAICE_AGE)||(defined ALLOW_SITRACER) -C IceAgeTrFile - File containing initial sea ice age +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) IceAgeTrFile(SEAICE_num) + CHARACTER*(MAX_LEN_FNAM) SItrFile(SItrMaxNum) CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum) - CHARACTER*(MAX_LEN_FNAM) SItrMate(SItrMaxNum) - COMMON /SEAICE_AGE_C/ IceAgeTrFile, SItrName, SItrMate + 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: ***