89 |
C and off. |
C and off. |
90 |
C implicitFreeSurface - Set to true to use implcit free surface |
C implicitFreeSurface - Set to true to use implcit free surface |
91 |
C rigidLid - Set to true to use rigid lid |
C rigidLid - Set to true to use rigid lid |
92 |
|
C momStepping - Turns momentum equation time-stepping off |
93 |
|
C momStepping - Turns temperature equation time-stepping off |
94 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
95 |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
96 |
& tempDiffusion, tempAdvection, tempForcing, |
& tempDiffusion, tempAdvection, tempForcing, |
97 |
& saltDiffusion, saltAdvection, saltForcing, |
& saltDiffusion, saltAdvection, saltForcing, |
98 |
& implicitFreeSurface, rigidLid |
& implicitFreeSurface, rigidLid, momStepping, tempStepping |
99 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
100 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
101 |
LOGICAL momViscosity |
LOGICAL momViscosity |
111 |
LOGICAL saltForcing |
LOGICAL saltForcing |
112 |
LOGICAL implicitFreeSurface |
LOGICAL implicitFreeSurface |
113 |
LOGICAL rigidLid |
LOGICAL rigidLid |
114 |
|
LOGICAL momStepping |
115 |
|
LOGICAL tempStepping |
116 |
|
|
117 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
118 |
C cg2dTargetResidual |
C cg2dTargetResidual |