26 |
PARAMETER ( precFloat32 = 0 ) |
PARAMETER ( precFloat32 = 0 ) |
27 |
INTEGER precFloat64 |
INTEGER precFloat64 |
28 |
PARAMETER ( precFloat64 = 1 ) |
PARAMETER ( precFloat64 = 1 ) |
29 |
|
C UNSET_xxx - Used to indicate variables that have not been given a value |
30 |
|
Real*8 UNSET_FLOAT8 |
31 |
|
PARAMETER ( UNSET_FLOAT8 = 1.234567D5 ) |
32 |
|
Real*4 UNSET_FLOAT4 |
33 |
|
PARAMETER ( UNSET_FLOAT4 = 1.234567E5 ) |
34 |
|
_RL UNSET_RL |
35 |
|
PARAMETER ( UNSET_RL = 1.234567D5 ) |
36 |
|
_RS UNSET_RS |
37 |
|
PARAMETER ( UNSET_RS = 1.234567E5 ) |
38 |
|
INTEGER UNSET_I |
39 |
|
PARAMETER ( UNSET_I = 123456789 ) |
40 |
|
|
41 |
C Checkpoint data |
C Checkpoint data |
42 |
INTEGER maxNoChkptLev |
INTEGER maxNoChkptLev |
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 |
266 |
C freesurfac = 0. uses rigid lid |
C freesurfac = 0. uses rigid lid |
267 |
C hFacMin - Minimum fraction size of a cell (affects hFacC etc...) |
C hFacMin - Minimum fraction size of a cell (affects hFacC etc...) |
268 |
C hFacMinDz - Minimum dimesional size of a cell (affects hFacC etc..., m) |
C hFacMinDz - Minimum dimesional size of a cell (affects hFacC etc..., m) |
269 |
|
C hFacMinDp - Minimum dimesional size of a cell (affects hFacC etc..., Pa) |
270 |
C hFacMinDr - Minimum dimesional size of a cell (affects hFacC etc..., units of r) |
C hFacMinDr - Minimum dimesional size of a cell (affects hFacC etc..., units of r) |
271 |
C tauCD - CD scheme coupling timescale ( 1/s ) |
C tauCD - CD scheme coupling timescale ( 1/s ) |
272 |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
316 |
& cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax, |
& cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax, |
317 |
& tauSaltClimRelax, lambdaSaltClimRelax, |
& tauSaltClimRelax, lambdaSaltClimRelax, |
318 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
319 |
& viscAp, diffKpT, diffKpS, hFacMinDr, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
320 |
& theta_S, specVol_S |
& theta_S, specVol_S |
321 |
|
|
322 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
339 |
_RL freeSurfFac |
_RL freeSurfFac |
340 |
_RL hFacMin |
_RL hFacMin |
341 |
_RL hFacMinDz |
_RL hFacMinDz |
342 |
|
_RL hFacMinDp |
343 |
_RL hFacMinDr |
_RL hFacMinDr |
344 |
_RL beta |
_RL beta |
345 |
_RL viscAh |
_RL viscAh |