225 |
C usingSphericalPolarGrid :: If TRUE grid generation will be in a |
C usingSphericalPolarGrid :: If TRUE grid generation will be in a |
226 |
C spherical polar frame. |
C spherical polar frame. |
227 |
C usingCylindricalGrid :: If TRUE grid generation will be Cylindrical |
C usingCylindricalGrid :: If TRUE grid generation will be Cylindrical |
228 |
|
C usingCurvilinearGrid :: If TRUE, use a curvilinear grid (to be provided) |
229 |
|
C deepAtmosphere :: deep model (drop the shallow-atmosphere approximation) |
230 |
C no_slip_sides :: Impose "no-slip" at lateral boundaries. |
C no_slip_sides :: Impose "no-slip" at lateral boundaries. |
231 |
C no_slip_bottom :: Impose "no-slip" at bottom boundary. |
C no_slip_bottom :: Impose "no-slip" at bottom boundary. |
232 |
C momViscosity :: Flag which turns momentum friction terms on and off. |
C momViscosity :: Flag which turns momentum friction terms on and off. |
329 |
|
|
330 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
331 |
& usingCurvilinearGrid, usingCylindricalGrid, |
& usingCurvilinearGrid, usingCylindricalGrid, |
332 |
& setInterFDr, setCenterDr, |
& deepAtmosphere, setInterFDr, setCenterDr, |
333 |
& no_slip_sides,no_slip_bottom, |
& no_slip_sides,no_slip_bottom, |
334 |
& momViscosity, momAdvection, momForcing, useCoriolis, |
& momViscosity, momAdvection, momForcing, useCoriolis, |
335 |
& momPressureForcing, vectorInvariantMomentum, |
& momPressureForcing, vectorInvariantMomentum, |
368 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
369 |
LOGICAL usingCylindricalGrid |
LOGICAL usingCylindricalGrid |
370 |
LOGICAL usingCurvilinearGrid |
LOGICAL usingCurvilinearGrid |
371 |
|
LOGICAL deepAtmosphere |
372 |
LOGICAL setInterFDr |
LOGICAL setInterFDr |
373 |
LOGICAL setCenterDr |
LOGICAL setCenterDr |
374 |
LOGICAL useNHMTerms |
LOGICAL useNHMTerms |