151 |
C select_rStar :: option related to r* vertical coordinate |
C select_rStar :: option related to r* vertical coordinate |
152 |
C =0 (default) use r coord. ; > 0 use r* |
C =0 (default) use r coord. ; > 0 use r* |
153 |
C tempAdvScheme :: Temp. Horiz.Advection scheme selector |
C tempAdvScheme :: Temp. Horiz.Advection scheme selector |
154 |
C tempVertAdvScheme :: Temp. Vert. Advection scheme selector |
C tempVertAdvScheme :: Temp. Vert. Advection scheme selector |
155 |
C saltAdvScheme :: Salt. Horiz.advection scheme selector |
C saltAdvScheme :: Salt. Horiz.advection scheme selector |
156 |
C saltVertAdvScheme :: Salt. Vert. Advection scheme selector |
C saltVertAdvScheme :: Salt. Vert. Advection scheme selector |
157 |
|
C selectKEscheme :: Kinetic Energy scheme selector (Vector Inv.) |
158 |
C debugLevel :: debug level selector: higher -> more writing |
C debugLevel :: debug level selector: higher -> more writing |
159 |
|
|
160 |
COMMON /PARM_I/ |
COMMON /PARM_I/ |
169 |
& nonlinFreeSurf, select_rStar, |
& nonlinFreeSurf, select_rStar, |
170 |
& tempAdvScheme, tempVertAdvScheme, |
& tempAdvScheme, tempVertAdvScheme, |
171 |
& saltAdvScheme, saltVertAdvScheme, |
& saltAdvScheme, saltVertAdvScheme, |
172 |
|
& selectKEscheme, |
173 |
& debugLevel |
& debugLevel |
174 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
175 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
188 |
INTEGER select_rStar |
INTEGER select_rStar |
189 |
INTEGER tempAdvScheme, tempVertAdvScheme |
INTEGER tempAdvScheme, tempVertAdvScheme |
190 |
INTEGER saltAdvScheme, saltVertAdvScheme |
INTEGER saltAdvScheme, saltVertAdvScheme |
191 |
|
INTEGER selectKEscheme |
192 |
INTEGER debugLevel |
INTEGER debugLevel |
193 |
|
|
194 |
C |
C |
229 |
C useRealFreshWaterFlux :: if True (=Natural BCS), treats P+R-E flux |
C useRealFreshWaterFlux :: if True (=Natural BCS), treats P+R-E flux |
230 |
C as a real Fresh Water (=> changes the Sea Level) |
C as a real Fresh Water (=> changes the Sea Level) |
231 |
C if F, converts P+R-E to salt flux (no SL effect) |
C if F, converts P+R-E to salt flux (no SL effect) |
232 |
C useFullLeith :: Set to true to use full Leith viscosity (may be unstable |
C useFullLeith :: Set to true to use full Leith viscosity(may be unstable |
233 |
C on irregular grids) |
C on irregular grids) |
234 |
C useAnisotropicViscAGridMax :: Set to true to use Alistair's latest |
C useAreaViscLength :: Set to true to use old scaling for viscous |
235 |
C anisotropic length scale. It is used only for maximum viscosity |
C lengths, e.g., L2=Raz. May be preferable for cube sphere. |
|
C calculations. Alistair recommends a value of viscA*GridMax=.25 |
|
236 |
C useStrainTensionVisc:: Set to true to use Strain-Tension viscous terms |
C useStrainTensionVisc:: Set to true to use Strain-Tension viscous terms |
237 |
C rigidLid :: Set to true to use rigid lid |
C rigidLid :: Set to true to use rigid lid |
238 |
C implicitFreeSurface :: Set to true to use implcit free surface |
C implicitFreeSurface :: Set to true to use implcit free surface |
309 |
& tempAdvection, tempForcing, |
& tempAdvection, tempForcing, |
310 |
& saltAdvection, saltForcing, |
& saltAdvection, saltForcing, |
311 |
& useRealFreshWaterFlux, |
& useRealFreshWaterFlux, |
312 |
& useFullLeith, useAnisotropicViscAGridMax, useStrainTensionVisc, |
& useFullLeith, useStrainTensionVisc, |
313 |
|
& useAreaViscLength, |
314 |
& rigidLid, implicitFreeSurface, exactConserv, uniformLin_PhiSurf, |
& rigidLid, implicitFreeSurface, exactConserv, uniformLin_PhiSurf, |
315 |
& momStepping, tempStepping, saltStepping, |
& momStepping, tempStepping, saltStepping, |
316 |
& metricTerms, usingSphericalPolarMTerms, useNHMTerms, |
& metricTerms, usingSphericalPolarMTerms, useNHMTerms, |
356 |
LOGICAL saltForcing |
LOGICAL saltForcing |
357 |
LOGICAL useRealFreshWaterFlux |
LOGICAL useRealFreshWaterFlux |
358 |
LOGICAL useFullLeith |
LOGICAL useFullLeith |
|
LOGICAL useAnisotropicViscAGridMax |
|
359 |
LOGICAL useStrainTensionVisc |
LOGICAL useStrainTensionVisc |
360 |
|
LOGICAL useAreaViscLength |
361 |
LOGICAL rigidLid |
LOGICAL rigidLid |
362 |
LOGICAL implicitFreeSurface |
LOGICAL implicitFreeSurface |
363 |
LOGICAL exactConserv |
LOGICAL exactConserv |