| 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 |