207 |
C usingCylindricalGrid :: If TRUE grid generation will be Cylindrical |
C usingCylindricalGrid :: If TRUE grid generation will be Cylindrical |
208 |
C no_slip_sides :: Impose "no-slip" at lateral boundaries. |
C no_slip_sides :: Impose "no-slip" at lateral boundaries. |
209 |
C no_slip_bottom :: Impose "no-slip" at bottom boundary. |
C no_slip_bottom :: Impose "no-slip" at bottom boundary. |
|
C staggerTimeStep :: enable a Stagger time stepping T,S Rho then U,V |
|
210 |
C momViscosity :: Flag which turns momentum friction terms on and off. |
C momViscosity :: Flag which turns momentum friction terms on and off. |
211 |
C momAdvection :: Flag which turns advection of momentum on and off. |
C momAdvection :: Flag which turns advection of momentum on and off. |
212 |
C momForcing :: Flag which turns external forcing of momentum on |
C momForcing :: Flag which turns external forcing of momentum on |
234 |
C lengths, e.g., L2=Raz. May be preferable for cube sphere. |
C lengths, e.g., L2=Raz. May be preferable for cube sphere. |
235 |
C useStrainTensionVisc:: Set to true to use Strain-Tension viscous terms |
C useStrainTensionVisc:: Set to true to use Strain-Tension viscous terms |
236 |
C rigidLid :: Set to true to use rigid lid |
C rigidLid :: Set to true to use rigid lid |
237 |
C implicitFreeSurface :: Set to true to use implcit free surface |
C implicitFreeSurface :: Set to true to use implicit free surface |
238 |
C exactConserv :: Set to true to conserve exactly the total Volume |
C exactConserv :: Set to true to conserve exactly the total Volume |
239 |
C uniformLin_PhiSurf :: Set to true to use a uniform Bo_surf in the |
C uniformLin_PhiSurf :: Set to true to use a uniform Bo_surf in the |
240 |
C linear relation Phi_surf = Bo_surf*eta |
C linear relation Phi_surf = Bo_surf*eta |
241 |
|
C implicitIntGravWave :: treat Internal Gravity Wave implicitly |
242 |
|
C staggerTimeStep :: enable a Stagger time stepping T,S Rho then U,V |
243 |
C momStepping :: Turns momentum equation time-stepping off |
C momStepping :: Turns momentum equation time-stepping off |
244 |
C tempStepping :: Turns temperature equation time-stepping off |
C tempStepping :: Turns temperature equation time-stepping off |
245 |
C saltStepping :: Turns salinity equation time-stepping off |
C saltStepping :: Turns salinity equation time-stepping off |
306 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
307 |
& usingCurvilinearGrid, usingCylindricalGrid, |
& usingCurvilinearGrid, usingCylindricalGrid, |
308 |
& no_slip_sides,no_slip_bottom, |
& no_slip_sides,no_slip_bottom, |
|
& staggerTimeStep, |
|
309 |
& momViscosity, momAdvection, momForcing, useCoriolis, |
& momViscosity, momAdvection, momForcing, useCoriolis, |
310 |
& momPressureForcing, vectorInvariantMomentum, |
& momPressureForcing, vectorInvariantMomentum, |
311 |
& tempAdvection, tempForcing, |
& tempAdvection, tempForcing, |
314 |
& useFullLeith, useStrainTensionVisc, |
& useFullLeith, useStrainTensionVisc, |
315 |
& useAreaViscLength, |
& useAreaViscLength, |
316 |
& rigidLid, implicitFreeSurface, exactConserv, uniformLin_PhiSurf, |
& rigidLid, implicitFreeSurface, exactConserv, uniformLin_PhiSurf, |
317 |
|
& implicitIntGravWave, staggerTimeStep, |
318 |
& momStepping, tempStepping, saltStepping, |
& momStepping, tempStepping, saltStepping, |
319 |
& metricTerms, usingSphericalPolarMTerms, useNHMTerms, |
& metricTerms, usingSphericalPolarMTerms, useNHMTerms, |
320 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, |
347 |
LOGICAL useNHMTerms |
LOGICAL useNHMTerms |
348 |
LOGICAL no_slip_sides |
LOGICAL no_slip_sides |
349 |
LOGICAL no_slip_bottom |
LOGICAL no_slip_bottom |
|
LOGICAL staggerTimeStep |
|
350 |
LOGICAL momViscosity |
LOGICAL momViscosity |
351 |
LOGICAL momAdvection |
LOGICAL momAdvection |
352 |
LOGICAL momForcing |
LOGICAL momForcing |
365 |
LOGICAL implicitFreeSurface |
LOGICAL implicitFreeSurface |
366 |
LOGICAL exactConserv |
LOGICAL exactConserv |
367 |
LOGICAL uniformLin_PhiSurf |
LOGICAL uniformLin_PhiSurf |
368 |
|
LOGICAL implicitIntGravWave |
369 |
|
LOGICAL staggerTimeStep |
370 |
LOGICAL momStepping |
LOGICAL momStepping |
371 |
LOGICAL tempStepping |
LOGICAL tempStepping |
372 |
LOGICAL saltStepping |
LOGICAL saltStepping |
454 |
C tRef :: reference vertical profile for potential temperature |
C tRef :: reference vertical profile for potential temperature |
455 |
C sRef :: reference vertical profile for salinity/specific humidity |
C sRef :: reference vertical profile for salinity/specific humidity |
456 |
C phiRef :: reference potential (pressure/rho, geopotential) profile |
C phiRef :: reference potential (pressure/rho, geopotential) profile |
457 |
|
C dBdrRef :: vertical gradient of reference boyancy [(m/s/r)^2)]: |
458 |
|
C :: z-coord: = N^2_ref = Brunt-Vaissala frequency [s^-2] |
459 |
|
C :: p-coord: = -(d.alpha/dp)_ref [(m^2.s/kg)^2] |
460 |
C phiMin :: Latitude of southern most cell face. |
C phiMin :: Latitude of southern most cell face. |
461 |
C thetaMin :: Longitude of western most cell face (this |
C thetaMin :: Longitude of western most cell face (this |
462 |
C is an "inert" parameter but it is included |
C is an "inert" parameter but it is included |
623 |
& hFacMin, hFacMinDz, hFacInf, hFacSup, |
& hFacMin, hFacMinDz, hFacInf, hFacSup, |
624 |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
625 |
& recip_rhoConst, rhoConst, |
& recip_rhoConst, rhoConst, |
626 |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, phiRef, |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, phiRef, dBdrRef, |
627 |
& baseTime, startTime, endTime, |
& baseTime, startTime, endTime, |
628 |
& chkPtFreq, pchkPtFreq, dumpFreq, adjDumpFreq, |
& chkPtFreq, pchkPtFreq, dumpFreq, adjDumpFreq, |
629 |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
717 |
_RL tRef(Nr) |
_RL tRef(Nr) |
718 |
_RL sRef(Nr) |
_RL sRef(Nr) |
719 |
_RL phiRef(2*Nr+1) |
_RL phiRef(2*Nr+1) |
720 |
|
_RL dBdrRef(Nr) |
721 |
_RL baseTime |
_RL baseTime |
722 |
_RL startTime |
_RL startTime |
723 |
_RL endTime |
_RL endTime |