--- MITgcm/pkg/seaice/SEAICE_TRACER.h	2012/02/03 13:34:31	1.6
+++ MITgcm/pkg/seaice/SEAICE_TRACER.h	2012/02/16 01:22:02	1.7
@@ -1,4 +1,4 @@
-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 $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/SEAICE_TRACER.h,v 1.7 2012/02/16 01:22:02 gforget Exp $
 C $Name:  $
 
 CBOP
@@ -10,21 +10,37 @@
 C     | o Begin header for sea ice tracers                       |
 C     \==========================================================/
 C
-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
-C
 C \ev
 CEOP
 
 #ifdef ALLOW_SITRACER
-      COMMON /SEAICE_TRACER_R/
-     &        SItracer, SItrBucket, SItrHEFF, SItrAREA
+
+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.)