| 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.) |