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 |
585 |
C ( g*rho if horiz in m and vertical in Pa ). |
C ( g*rho if horiz in m and vertical in Pa ). |
586 |
C Ro_SeaLevel :: standard position of Sea-Level in "R" coordinate, used as |
C Ro_SeaLevel :: standard position of Sea-Level in "R" coordinate, used as |
587 |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
588 |
|
C sideDragFactor :: side-drag scaling factor (used only if no_slip_sides) |
589 |
|
C (default=2: full drag ; =1: gives half-slip BC) |
590 |
C bottomDragLinear :: Drag coefficient built in to core dynamics |
C bottomDragLinear :: Drag coefficient built in to core dynamics |
591 |
C --"-"-- Quadratic ( linear: 1/s, quadratic: 1/m ) |
C bottomDragQuadratic ( linear: 1/s, quadratic: 1/m ) |
592 |
|
C nh_Am2 :: scales the non-hydrostatic terms and changes internal scales |
593 |
|
C (i.e. allows convection at different Rayleigh numbers) |
594 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
595 |
& cg2dpcOffDFac, cg3dTargetResidual, |
& cg2dpcOffDFac, cg3dTargetResidual, |
596 |
& delR, delRc, delX, delY, |
& delR, delRc, delX, delY, |
627 |
& hFacMinDr, hFacMinDp, |
& hFacMinDr, hFacMinDp, |
628 |
& horiVertRatio, recip_horiVertRatio, |
& horiVertRatio, recip_horiVertRatio, |
629 |
& ivdc_kappa, Ro_SeaLevel, |
& ivdc_kappa, Ro_SeaLevel, |
630 |
& bottomDragLinear,bottomDragQuadratic,nh_Am2, |
& sideDragFactor, bottomDragLinear, bottomDragQuadratic, nh_Am2, |
631 |
& tCylIn, tCylOut |
& tCylIn, tCylOut |
632 |
|
|
|
_RL nh_Am2 |
|
633 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
634 |
_RL cg2dTargetResWunit |
_RL cg2dTargetResWunit |
635 |
_RL cg3dTargetResidual |
_RL cg3dTargetResidual |
742 |
_RL recip_horiVertRatio |
_RL recip_horiVertRatio |
743 |
_RL ivdc_kappa |
_RL ivdc_kappa |
744 |
_RL Ro_SeaLevel |
_RL Ro_SeaLevel |
745 |
|
_RL sideDragFactor |
746 |
_RL bottomDragLinear |
_RL bottomDragLinear |
747 |
_RL bottomDragQuadratic |
_RL bottomDragQuadratic |
748 |
|
_RL nh_Am2 |
749 |
_RL tCylIn |
_RL tCylIn |
750 |
_RL tCylOut |
_RL tCylOut |
751 |
|
|