83 |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
& uVelInitFile, vVelInitFile, pSurfInitFile, |
84 |
& dQdTfile, ploadFile, |
& dQdTfile, ploadFile, |
85 |
& eosType, pickupSuff, |
& eosType, pickupSuff, |
86 |
& mdsioLocalDir |
& mdsioLocalDir, tCyl |
87 |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
88 |
CHARACTER*(MAX_LEN_FNAM) bathyFile, topoFile |
CHARACTER*(MAX_LEN_FNAM) bathyFile, topoFile |
89 |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
104 |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
105 |
CHARACTER*(6) eosType |
CHARACTER*(6) eosType |
106 |
CHARACTER*(10) pickupSuff |
CHARACTER*(10) pickupSuff |
107 |
|
_RL tCyl |
108 |
|
|
109 |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
110 |
C cg2dMaxIters :: Maximum number of iterations in the |
C cg2dMaxIters :: Maximum number of iterations in the |
172 |
C coordinate frame. |
C coordinate frame. |
173 |
C usingSphericalPolarGrid :: If TRUE grid generation will be in a |
C usingSphericalPolarGrid :: If TRUE grid generation will be in a |
174 |
C spherical polar frame. |
C spherical polar frame. |
175 |
|
C usingCylindricalGrid :: If TRUE grid generation will be Cylindrical |
176 |
C no_slip_sides :: Impose "no-slip" at lateral boundaries. |
C no_slip_sides :: Impose "no-slip" at lateral boundaries. |
177 |
C no_slip_bottom :: Impose "no-slip" at bottom boundary. |
C no_slip_bottom :: Impose "no-slip" at bottom boundary. |
178 |
C staggerTimeStep :: enable a Stagger time stepping T,S Rho then U,V |
C staggerTimeStep :: enable a Stagger time stepping T,S Rho then U,V |
215 |
C useSphereF :: Coriolis parameter set to 2.omega.sin(phi) |
C useSphereF :: Coriolis parameter set to 2.omega.sin(phi) |
216 |
C useCDscheme :: use CD-scheme to calculate Coriolis terms. |
C useCDscheme :: use CD-scheme to calculate Coriolis terms. |
217 |
C useJamartWetPoints :: Use wet-point method for Coriolis (Jamart and Ozer, 1986) |
C useJamartWetPoints :: Use wet-point method for Coriolis (Jamart and Ozer, 1986) |
218 |
|
C useJamartMomAdv :: Use wet-point method for V.I. non-linear term |
219 |
C SadournyCoriolis :: use the enstrophy conserving scheme by Sadourny |
C SadournyCoriolis :: use the enstrophy conserving scheme by Sadourny |
220 |
C upwindVorticity :: bias interpolation of vorticity in the Coriolis term |
C upwindVorticity :: bias interpolation of vorticity in the Coriolis term |
221 |
C highOrderVorticity :: use 3rd/4th order interp. of vorticity in Coriolis |
C highOrderVorticity :: use 3rd/4th order interp. of vorticity in Coriolis |
251 |
C useOldFreezing :: use the old version (before checkpoint52a_pre, 2003-11-12) |
C useOldFreezing :: use the old version (before checkpoint52a_pre, 2003-11-12) |
252 |
C groundAtK1 :: put the surface(k=1) at the Lower Boundary (=ground) |
C groundAtK1 :: put the surface(k=1) at the Lower Boundary (=ground) |
253 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
254 |
& usingCurvilinearGrid, |
& usingCurvilinearGrid, usingCylindricalGrid, |
255 |
& no_slip_sides,no_slip_bottom, |
& no_slip_sides,no_slip_bottom, |
256 |
& staggerTimeStep, |
& staggerTimeStep, |
257 |
& momViscosity, momAdvection, momForcing, useCoriolis, |
& momViscosity, momAdvection, momForcing, useCoriolis, |
264 |
& metricTerms, usingSphericalPolarMTerms, useNHMTerms, |
& metricTerms, usingSphericalPolarMTerms, useNHMTerms, |
265 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, |
266 |
& useCDscheme, |
& useCDscheme, |
267 |
& useEnergyConservingCoriolis, useJamartWetPoints, |
& useEnergyConservingCoriolis, useJamartWetPoints, useJamartMomAdv, |
268 |
& SadournyCoriolis, upwindVorticity, highOrderVorticity, |
& SadournyCoriolis, upwindVorticity, highOrderVorticity, |
269 |
& useAbsVorticity, |
& useAbsVorticity, |
270 |
& implicitDiffusion, implicitViscosity, |
& implicitDiffusion, implicitViscosity, |
279 |
& readPickupWithTracer, writePickupWithTracer |
& readPickupWithTracer, writePickupWithTracer |
280 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
281 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
282 |
|
LOGICAL usingCylindricalGrid |
283 |
LOGICAL usingCurvilinearGrid |
LOGICAL usingCurvilinearGrid |
284 |
LOGICAL usingSphericalPolarMTerms |
LOGICAL usingSphericalPolarMTerms |
285 |
LOGICAL useNHMTerms |
LOGICAL useNHMTerms |
314 |
LOGICAL useCDscheme |
LOGICAL useCDscheme |
315 |
LOGICAL useEnergyConservingCoriolis |
LOGICAL useEnergyConservingCoriolis |
316 |
LOGICAL useJamartWetPoints |
LOGICAL useJamartWetPoints |
317 |
|
LOGICAL useJamartMomAdv |
318 |
LOGICAL SadournyCoriolis |
LOGICAL SadournyCoriolis |
319 |
LOGICAL upwindVorticity |
LOGICAL upwindVorticity |
320 |
LOGICAL highOrderVorticity |
LOGICAL highOrderVorticity |
415 |
C salt vertically ( units of r^2/s ) |
C salt vertically ( units of r^2/s ) |
416 |
C diffK4S :: Biharmonic diffusion coeff. for mixing of |
C diffK4S :: Biharmonic diffusion coeff. for mixing of |
417 |
C salt laterally ( m^4/s ) |
C salt laterally ( m^4/s ) |
418 |
|
C diffKrBL79surf :: T/S surface diffusivity (m^2/s) Bryan and Lewis, 1979 |
419 |
|
C diffKrBL79deep :: T/S deep diffusivity (m^2/s) Bryan and Lewis, 1979 |
420 |
|
C diffKrBL79scl :: depth scale for arctan fn (m) Bryan and Lewis, 1979 |
421 |
|
C diffKrBL79Ho :: depth offset for arctan fn (m) Bryan and Lewis, 1979 |
422 |
C deltaT :: Default timestep ( s ) |
C deltaT :: Default timestep ( s ) |
423 |
C deltaTClock :: Timestep used as model "clock". This determines the |
C deltaTClock :: Timestep used as model "clock". This determines the |
424 |
C IO frequencies and is used in tagging output. It can |
C IO frequencies and is used in tagging output. It can |
503 |
& viscAr, viscAstrain, viscAtension, |
& viscAr, viscAstrain, viscAtension, |
504 |
& diffKhT, diffK4T, diffKrT, |
& diffKhT, diffK4T, diffKrT, |
505 |
& diffKhS, diffK4S, diffKrS, |
& diffKhS, diffK4S, diffKrS, |
506 |
|
& diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho, |
507 |
& delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow, |
& delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow, |
508 |
& hFacMin, hFacMinDz, hFacInf, hFacSup, |
& hFacMin, hFacMinDz, hFacInf, hFacSup, |
509 |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
569 |
_RL diffKhS |
_RL diffKhS |
570 |
_RL diffKrS |
_RL diffKrS |
571 |
_RL diffK4S |
_RL diffK4S |
572 |
|
_RL diffKrBL79surf |
573 |
|
_RL diffKrBL79deep |
574 |
|
_RL diffKrBL79scl |
575 |
|
_RL diffKrBL79Ho |
576 |
_RL delt |
_RL delt |
577 |
_RL tauCD |
_RL tauCD |
578 |
_RL rCD |
_RL rCD |