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 |
260 |
C freesurfac = 0. uses rigid lid |
C freesurfac = 0. uses rigid lid |
261 |
C hFacMin - Minimum fraction size of a cell (affects hFacC etc...) |
C hFacMin - Minimum fraction size of a cell (affects hFacC etc...) |
262 |
C hFacMinDz - Minimum dimesional size of a cell (affects hFacC etc..., m) |
C hFacMinDz - Minimum dimesional size of a cell (affects hFacC etc..., m) |
263 |
|
C hFacMinDp - Minimum dimesional size of a cell (affects hFacC etc..., Pa) |
264 |
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) |
265 |
C tauCD - CD scheme coupling timescale ( 1/s ) |
C tauCD - CD scheme coupling timescale ( 1/s ) |
266 |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
310 |
& cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax, |
& cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax, |
311 |
& tauSaltClimRelax, lambdaSaltClimRelax, |
& tauSaltClimRelax, lambdaSaltClimRelax, |
312 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
313 |
& viscAp, diffKpT, diffKpS, hFacMinDr, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
314 |
& theta_S, specVol_S |
& theta_S, specVol_S |
315 |
|
|
316 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
333 |
_RL freeSurfFac |
_RL freeSurfFac |
334 |
_RL hFacMin |
_RL hFacMin |
335 |
_RL hFacMinDz |
_RL hFacMinDz |
336 |
|
_RL hFacMinDp |
337 |
_RL hFacMinDr |
_RL hFacMinDr |
338 |
_RL beta |
_RL beta |
339 |
_RL viscAh |
_RL viscAh |