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