32 |
C (not melting/freezing) def: F |
C (not melting/freezing) def: F |
33 |
C SHELFICEboundaryLayer :: turn on vertical merging of cells to for a |
C SHELFICEboundaryLayer :: turn on vertical merging of cells to for a |
34 |
C boundary layer of drF thickness, def: F |
C boundary layer of drF thickness, def: F |
|
C SHELFICEthickboundaryLayer |
|
|
C :: similar to boundary layer but allow for a thicker |
|
|
C layer, encompassing 3 cells in vertical, def: F |
|
35 |
C SHELFICErealFWflux :: ensure vert advective flux at bdry uses top cell |
C SHELFICErealFWflux :: ensure vert advective flux at bdry uses top cell |
36 |
C value rather than "boundary layer" value F |
C value rather than "boundary layer" value F |
37 |
C SHELFICEadvDiffHeatFlux :: use advective-diffusive heat flux into the |
C SHELFICEadvDiffHeatFlux :: use advective-diffusive heat flux into the |
81 |
C-- Fields |
C-- Fields |
82 |
C ktopC :: index of the top "wet cell" (2D) |
C ktopC :: index of the top "wet cell" (2D) |
83 |
C R_shelfIce :: shelfice topography [m] |
C R_shelfIce :: shelfice topography [m] |
|
C R_Grounding :: "grounded" ice topography [m] |
|
84 |
C shelficeMassInit :: ice-shelf mass (per unit area) (kg/m^2) |
C shelficeMassInit :: ice-shelf mass (per unit area) (kg/m^2) |
85 |
C shelficeMass :: ice-shelf mass (per unit area) (kg/m^2) |
C shelficeMass :: ice-shelf mass (per unit area) (kg/m^2) |
86 |
C shelfIceMassDynTendency :: other mass balance tendency (kg/m^2/s) |
C shelfIceMassDynTendency :: other mass balance tendency (kg/m^2/s) |
93 |
C units are r_unit.Kelvin/s (=Kelvin.m/s if r=z) |
C units are r_unit.Kelvin/s (=Kelvin.m/s if r=z) |
94 |
C shelficeForcingS :: analogue of surfaceForcingS |
C shelficeForcingS :: analogue of surfaceForcingS |
95 |
C units are r_unit.psu/s (=psu.m/s if r=z) |
C units are r_unit.psu/s (=psu.m/s if r=z) |
96 |
|
C conserve_ssh :: KS16. Use the obcs to conserve net open |
97 |
|
C ocean eta to 0m |
98 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
99 |
C \ev |
C \ev |
100 |
CEOP |
CEOP |
128 |
_RL rhoShelfice |
_RL rhoShelfice |
129 |
_RL SHELFICEkappa |
_RL SHELFICEkappa |
130 |
_RL SHELFICEDragLinear |
_RL SHELFICEDragLinear |
131 |
_RL SHELFICEDragQuadratic, SHELFICEMergeThreshold |
_RL SHELFICEDragQuadratic |
132 |
|
_RL SHELFICEMergeThreshold |
133 |
_RL SHELFICEthetaSurface, SHELFICESplitThreshold |
_RL SHELFICEthetaSurface, SHELFICESplitThreshold |
134 |
_RL shiCdrag, shiZetaN, shiRc, SHELFICERemeshFrequency |
_RL shiCdrag, shiZetaN, shiRc |
135 |
|
_RL SHELFICERemeshFrequency |
136 |
_RL shiPrandtl, shiSchmidt, shiKinVisc |
_RL shiPrandtl, shiSchmidt, shiKinVisc |
137 |
_RL SHELFICEGroundW, SHELFICEGroundC, shelficeEtaRelax |
_RL SHELFICEGroundW, SHELFICEGroundC, shelficeEtaRelax |
138 |
COMMON /SHELFICE_FIELDS_RL/ |
COMMON /SHELFICE_FIELDS_RL/ |
185 |
LOGICAL SHELFICEDynMassOnly |
LOGICAL SHELFICEDynMassOnly |
186 |
LOGICAL SHELFICEEtaSponge |
LOGICAL SHELFICEEtaSponge |
187 |
LOGICAL SHELFICE_dig_ice |
LOGICAL SHELFICE_dig_ice |
188 |
|
C KS16 put var here |
189 |
|
LOGICAL conserve_ssh |
190 |
COMMON /SHELFICE_PARMS_L/ |
COMMON /SHELFICE_PARMS_L/ |
191 |
& SHELFICEisOn, |
& SHELFICEisOn, |
192 |
& useISOMIPTD, |
& useISOMIPTD, |
205 |
& SHELFICEMassStepping, |
& SHELFICEMassStepping, |
206 |
& SHELFICEDynMassOnly, |
& SHELFICEDynMassOnly, |
207 |
& SHELFICEEtaSponge, |
& SHELFICEEtaSponge, |
208 |
& SHELFICE_dig_ice |
& SHELFICE_dig_ice, |
209 |
|
C KS16 and here; |
210 |
|
& conserve_ssh |
211 |
|
|
212 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile |
213 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEmassFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEmassFile |