141 |
C doSaltClimRelax - Set true if relaxation to salinity |
C doSaltClimRelax - Set true if relaxation to salinity |
142 |
C climatology is required. |
C climatology is required. |
143 |
C periodicExternalForcing - Set true if forcing is time-dependant |
C periodicExternalForcing - Set true if forcing is time-dependant |
144 |
|
C usingPCoords - Set to indicate that we are working in pressure |
145 |
|
C coords. |
146 |
|
C usingZCoords - Set to indicate that we are working in height |
147 |
|
C coords. |
148 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
149 |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
150 |
& tempDiffusion, tempAdvection, tempForcing, |
& tempDiffusion, tempAdvection, tempForcing, |
154 |
& metricTerms, usingSphericalPolarMTerms, |
& metricTerms, usingSphericalPolarMTerms, |
155 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, |
156 |
& implicitDiffusion, doThetaClimRelax, doSaltClimRelax, |
& implicitDiffusion, doThetaClimRelax, doSaltClimRelax, |
157 |
& periodicExternalForcing |
& periodicExternalForcing, usingPCoords, usingZCoords |
158 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
159 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
160 |
LOGICAL usingSphericalPolarMTerms |
LOGICAL usingSphericalPolarMTerms |
182 |
LOGICAL doThetaClimRelax |
LOGICAL doThetaClimRelax |
183 |
LOGICAL doSaltClimRelax |
LOGICAL doSaltClimRelax |
184 |
LOGICAL periodicExternalForcing |
LOGICAL periodicExternalForcing |
185 |
|
LOGICAL usingPCoords |
186 |
|
LOGICAL usingZCoords |
187 |
|
|
188 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
189 |
C cg2dTargetResidual |
C cg2dTargetResidual |