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 bUseCylindricalGrid :: If TRUE grid generation will be Cylindrical |
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 |
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, bUseCylindricalGrid, |
& 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, |
279 |
& readPickupWithTracer, writePickupWithTracer |
& readPickupWithTracer, writePickupWithTracer |
280 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
281 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
282 |
LOGICAL bUseCylindricalGrid |
LOGICAL usingCylindricalGrid |
283 |
LOGICAL usingCurvilinearGrid |
LOGICAL usingCurvilinearGrid |
284 |
LOGICAL usingSphericalPolarMTerms |
LOGICAL usingSphericalPolarMTerms |
285 |
LOGICAL useNHMTerms |
LOGICAL useNHMTerms |