| 10 | 
 C     | o Begin header for sea ice tracers                       | | 
 C     | o Begin header for sea ice tracers                       | | 
| 11 | 
 C     \==========================================================/ | 
 C     \==========================================================/ | 
| 12 | 
 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 | 
  | 
| 13 | 
 C \ev | 
 C \ev | 
| 14 | 
 CEOP | 
 CEOP | 
| 15 | 
  | 
  | 
| 16 | 
 #ifdef ALLOW_SITRACER | 
 #ifdef ALLOW_SITRACER | 
| 17 | 
       COMMON /SEAICE_TRACER_R/ | 
  | 
| 18 | 
      &        SItracer, SItrBucket, SItrHEFF, SItrAREA | 
 C     SItrNumInUse - Number of tracers that are in use (must be less that SItrMaxNum) | 
| 19 | 
  | 
       INTEGER SItrNumInUse | 
| 20 | 
  | 
       COMMON /SEAICE_TRACER_I/ SItrNumInUse | 
| 21 | 
  | 
  | 
| 22 | 
  | 
 C     SItracer   - generic ice tracer array | 
| 23 | 
  | 
 C     SItrBucket - collected SItracer to be later passed to the ocean | 
| 24 | 
  | 
 C     SItrHEFF   - history of HEFF evolution during seaice_growth | 
| 25 | 
  | 
 C     SItrAREA   - history of AREA evolution during seaice_growth | 
| 26 | 
       _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum) | 
       _RL SItracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum) | 
| 27 | 
       _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum) | 
       _RL SItrBucket (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,SItrMaxNum) | 
| 28 | 
       _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5) | 
       _RL SItrHEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,5) | 
| 29 | 
       _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3) | 
       _RL SItrAREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,3) | 
| 30 | 
  | 
       COMMON /SEAICE_TRACER_R/ | 
| 31 | 
  | 
      &        SItracer, SItrBucket, SItrHEFF, SItrAREA | 
| 32 | 
  | 
  | 
| 33 | 
  | 
 C     SItrFromOcean0    - for new ice from ocean freeze - constant tracer value | 
| 34 | 
  | 
 C     SItrFromOceanFrac - for new ice from ocean freeze - fraction of ocean tracer  | 
| 35 | 
  | 
 C     SItrFromFlood0    - for new ice from snow flood   - constant tracer value | 
| 36 | 
  | 
 C     SItrFromFloodFrac - for new ice from snow flood   - fraction of ocean tracer | 
| 37 | 
  | 
 C     SItrExpand0       - for ice cover thermo. exans.  - constant tracer value | 
| 38 | 
  | 
       _RL SItrFromOcean0(SItrMaxNum), SItrFromOceanFrac(SItrMaxNum), | 
| 39 | 
  | 
      &    SItrFromFlood0(SItrMaxNum), SItrFromFloodFrac(SItrMaxNum), | 
| 40 | 
  | 
      &    SItrExpand0(SItrMaxNum) | 
| 41 | 
  | 
       COMMON /SEAICE_TRACER_CONST_R/ | 
| 42 | 
  | 
      &    SItrFromOcean0, SItrFromOceanFrac, SItrFromFlood0,  | 
| 43 | 
  | 
      &    SItrFromFloodFrac, SItrExpand0 | 
| 44 | 
  | 
  | 
| 45 | 
 C     SItrFile        - File containing initial sea ice tracer | 
 C     SItrFile        - File containing initial sea ice tracer | 
| 46 | 
 C     SItrName        - tracer name ('salinity', 'age', 'one', etc.) | 
 C     SItrName        - tracer name ('salinity', 'age', 'one', etc.) |