48 |
C SHELFICEuseGammaFrict :: use velocity dependent exchange coefficients, |
C SHELFICEuseGammaFrict :: use velocity dependent exchange coefficients, |
49 |
C see Holland and Jenkins (1999), eq.11-18, |
C see Holland and Jenkins (1999), eq.11-18, |
50 |
C with the following parameters (def: F): |
C with the following parameters (def: F): |
51 |
|
C SHELFICE_oldCalcUStar :: use old uStar averaging expression |
52 |
C shiCdrag :: quadratic drag coefficient to compute uStar |
C shiCdrag :: quadratic drag coefficient to compute uStar |
53 |
C (def: 0.0015) |
C (def: 0.0015) |
54 |
C shiZetaN :: ??? (def: 0.052) |
C shiZetaN :: ??? (def: 0.052) |
57 |
C numbers used to compute gammaTurb |
C numbers used to compute gammaTurb |
58 |
C shiKinVisc :: constant kinetic viscosity used to compute |
C shiKinVisc :: constant kinetic viscosity used to compute |
59 |
C gammaTurb (def: 1.95e-5) |
C gammaTurb (def: 1.95e-5) |
60 |
C SHELFICERemeshFrequency :: Frequency that size of etaN is checked to |
C SHELFICERemeshFrequency :: Frequency that size of etaN is checked to |
61 |
C trigger remesh |
C trigger remesh |
62 |
C SHELFICESplitThreshold :: Max size of etaN allowed before a remesh |
C SHELFICESplitThreshold :: Max size of etaN allowed before a remesh |
63 |
C SHELFICEMergeThreshold :: Min size of etaN allowed before a remesh |
C SHELFICEMergeThreshold :: Min size of etaN allowed before a remesh |
111 |
& SHELFICE_dumpFreq, SHELFICE_taveFreq, |
& SHELFICE_dumpFreq, SHELFICE_taveFreq, |
112 |
& SHELFICEheatTransCoeff, SHELFICEsaltTransCoeff, |
& SHELFICEheatTransCoeff, SHELFICEsaltTransCoeff, |
113 |
& rhoShelfice, SHELFICEkappa, |
& rhoShelfice, SHELFICEkappa, |
114 |
& SHELFICElatentHeat, |
& SHELFICElatentHeat, |
115 |
& SHELFICEheatCapacity_Cp, |
& SHELFICEheatCapacity_Cp, |
116 |
& SHELFICEthetaSurface, |
& SHELFICEthetaSurface, |
117 |
& SHELFICEDragLinear, SHELFICEDragQuadratic, |
& SHELFICEDragLinear, SHELFICEDragQuadratic, |
129 |
_RL rhoShelfice |
_RL rhoShelfice |
130 |
_RL SHELFICEkappa |
_RL SHELFICEkappa |
131 |
_RL SHELFICEDragLinear |
_RL SHELFICEDragLinear |
132 |
_RL SHELFICEDragQuadratic |
_RL SHELFICEDragQuadratic |
133 |
_RL SHELFICEMergeThreshold |
_RL SHELFICEMergeThreshold |
134 |
_RL SHELFICEthetaSurface, SHELFICESplitThreshold |
_RL SHELFICEthetaSurface, SHELFICESplitThreshold |
135 |
_RL shiCdrag, shiZetaN, shiRc |
_RL shiCdrag, shiZetaN, shiRc |
137 |
_RL shiPrandtl, shiSchmidt, shiKinVisc |
_RL shiPrandtl, shiSchmidt, shiKinVisc |
138 |
_RL SHELFICEGroundW, SHELFICEGroundC, shelficeEtaRelax |
_RL SHELFICEGroundW, SHELFICEGroundC, shelficeEtaRelax |
139 |
COMMON /SHELFICE_FIELDS_RL/ |
COMMON /SHELFICE_FIELDS_RL/ |
140 |
& shelficeMass, shelficeMassInit, |
& shelficeMass, shelficeMassInit, |
141 |
& shelficeLoadAnomaly, |
& shelficeLoadAnomaly, |
142 |
& shelficeForcingT, shelficeForcingS, |
& shelficeForcingT, shelficeForcingS, |
143 |
& shiTransCoeffT, shiTransCoeffS, EFFMASS |
& shiTransCoeffT, shiTransCoeffS, EFFMASS |
144 |
_RL shelficeMass (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL shelficeMass (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
145 |
_RL shelficeMassInit (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL shelficeMassInit (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
146 |
_RL shelficeLoadAnomaly (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL shelficeLoadAnomaly (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
182 |
LOGICAL SHELFICE_tave_mnc |
LOGICAL SHELFICE_tave_mnc |
183 |
LOGICAL SHELFICEadvDiffHeatFlux |
LOGICAL SHELFICEadvDiffHeatFlux |
184 |
LOGICAL SHELFICEuseGammaFrict |
LOGICAL SHELFICEuseGammaFrict |
185 |
|
LOGICAL SHELFICE_oldCalcUStar |
186 |
LOGICAL SHELFICEMassStepping |
LOGICAL SHELFICEMassStepping |
187 |
LOGICAL SHELFICEDynMassOnly |
LOGICAL SHELFICEDynMassOnly |
188 |
LOGICAL SHELFICEEtaSponge |
LOGICAL SHELFICEEtaSponge |
205 |
& SHELFICE_tave_mnc, |
& SHELFICE_tave_mnc, |
206 |
& SHELFICEadvDiffHeatFlux, |
& SHELFICEadvDiffHeatFlux, |
207 |
& SHELFICEuseGammaFrict, |
& SHELFICEuseGammaFrict, |
208 |
|
& SHELFICE_oldCalcUStar, |
209 |
& SHELFICEMassStepping, |
& SHELFICEMassStepping, |
210 |
& SHELFICEDynMassOnly, |
& SHELFICEDynMassOnly, |
211 |
& SHELFICEEtaSponge, |
& SHELFICEEtaSponge, |
220 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEtopoFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEtopoFile |
221 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEMassDynTendFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEMassDynTendFile |
222 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEGroundInitFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEGroundInitFile |
223 |
CHARACTER*(MAX_LEN_FNAM) SHELFICETransCoeffTFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICETransCoeffTFile |
|
|
|
224 |
|
|
225 |
COMMON /SHELFICE_PARM_C/ |
COMMON /SHELFICE_PARM_C/ |
226 |
& SHELFICEloadAnomalyFile, |
& SHELFICEloadAnomalyFile, |
229 |
& SHELFICEGroundTopoFile, |
& SHELFICEGroundTopoFile, |
230 |
& SHELFICEMassDynTendFile, |
& SHELFICEMassDynTendFile, |
231 |
& SHELFICEGroundInitFile, |
& SHELFICEGroundInitFile, |
232 |
& SHELFICETransCoeffTFile |
& SHELFICETransCoeffTFile |
233 |
|
|
234 |
#endif /* ALLOW_SHELFICE */ |
#endif /* ALLOW_SHELFICE */ |