150 |
LOGICAL thSIce_pickup_write_mnc |
LOGICAL thSIce_pickup_write_mnc |
151 |
|
|
152 |
C-- COMMON / THSICE_PAR_I / ice model (integer) parameters |
C-- COMMON / THSICE_PAR_I / ice model (integer) parameters |
153 |
C startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files |
C startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files |
154 |
C :: -1 : start from a small pickup (without Mix.Layer) |
C :: -1 : start from a small pickup (without Mix.Layer) |
155 |
C nitMaxTsf :: maximum Nb of iter to find Surface Temp (Trsf) |
C nitMaxTsf :: maximum Nb of iter to find Surface Temp (Trsf) |
156 |
|
C thSIceAdvScheme :: thSIce Advection scheme selector |
157 |
COMMON / THSICE_PAR_I / |
COMMON / THSICE_PAR_I / |
158 |
& startIceModel, nitMaxTsf |
& startIceModel, nitMaxTsf, thSIceAdvScheme |
159 |
|
|
160 |
INTEGER startIceModel |
INTEGER startIceModel |
161 |
INTEGER nitMaxTsf |
INTEGER nitMaxTsf |
162 |
|
INTEGER thSIceAdvScheme |
163 |
|
|
164 |
C-- COMMON / THSICE_PAR_R / ice model (real) parameters |
C-- COMMON / THSICE_PAR_R / ice model (real) parameters |
165 |
C thSIce_deltaT :: ice model time-step |
C thSIce_deltaT :: ice model time-step [s] |
166 |
C ocean_deltaT :: ocean mixed-layer time-step |
C ocean_deltaT :: ocean mixed-layer time-step [s] |
167 |
C tauRelax_MxL :: Relaxation time scale for MixLayer T & S [s] |
C tauRelax_MxL :: Relaxation time scale for MixLayer T & S [s] |
168 |
C hMxL_default :: default value for ocean MixLayer thickness [m] |
C hMxL_default :: default value for ocean MixLayer thickness [m] |
169 |
C sMxL_default :: default value for salinity in MixLayer [psu] |
C sMxL_default :: default value for salinity in MixLayer [psu] |
170 |
C vMxL_default :: default value for ocean current velocity in MxL [m/s] |
C vMxL_default :: default value for ocean current velocity in MxL [m/s] |
171 |
|
C thSIce_diffK :: thickness (horizontal) diffusivity [m^2/s] |
172 |
C stressReduction :: reduction factor for wind-stress under sea-ice [0-1] |
C stressReduction :: reduction factor for wind-stress under sea-ice [0-1] |
173 |
C thSIce_taveFreq :: Frequency^-1 for time-Aver. output [s] |
C thSIce_taveFreq :: Frequency^-1 for time-Aver. output [s] |
174 |
C thSIce_diagFreq :: Frequency^-1 for diagnostic output [s] |
C thSIce_diagFreq :: Frequency^-1 for diagnostic output [s] |
176 |
COMMON / THSICE_PAR_R / |
COMMON / THSICE_PAR_R / |
177 |
& thSIce_deltaT, ocean_deltaT, tauRelax_MxL, |
& thSIce_deltaT, ocean_deltaT, tauRelax_MxL, |
178 |
& hMxL_default, sMxL_default, vMxL_default, |
& hMxL_default, sMxL_default, vMxL_default, |
179 |
& stressReduction, |
& thSIce_diffK, stressReduction, |
180 |
& thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq |
& thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq |
181 |
|
|
182 |
_RL thSIce_deltaT, ocean_deltaT, tauRelax_MxL |
_RL thSIce_deltaT, ocean_deltaT, tauRelax_MxL |
183 |
_RL hMxL_default, sMxL_default, vMxL_default |
_RL hMxL_default, sMxL_default, vMxL_default |
184 |
_RL stressReduction |
_RL thSIce_diffK, stressReduction |
185 |
_RL thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq |
_RL thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq |
186 |
|
|
187 |
C-- COMMON / THSICE_PAR_C / ice model (character) parameters |
C-- COMMON / THSICE_PAR_C / ice model (character) parameters |