63 |
& bathyFile, hydrogThetaFile, hydrogSaltFile, |
& bathyFile, hydrogThetaFile, hydrogSaltFile, |
64 |
& zonalWindFile, meridWindFile, thetaClimFile, |
& zonalWindFile, meridWindFile, thetaClimFile, |
65 |
& saltClimFile, buoyancyRelation, |
& saltClimFile, buoyancyRelation, |
66 |
& EmPmRfile,surfQfile |
& EmPmRfile, surfQfile, |
67 |
|
& uVelInitFile, vVelInitFile |
68 |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
69 |
CHARACTER*(MAX_LEN_FNAM) bathyFile |
CHARACTER*(MAX_LEN_FNAM) bathyFile |
70 |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
76 |
CHARACTER*(MAX_LEN_FNAM) surfQfile |
CHARACTER*(MAX_LEN_FNAM) surfQfile |
77 |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
78 |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
79 |
|
CHARACTER*(MAX_LEN_FNAM) uVelInitFile |
80 |
|
CHARACTER*(MAX_LEN_FNAM) vVelInitFile |
81 |
|
|
82 |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
83 |
C cg2dMaxIters - Maximum number of iterations in the |
C cg2dMaxIters - Maximum number of iterations in the |
108 |
& cg2dChkResFreq, |
& cg2dChkResFreq, |
109 |
& cg3dMaxIters, |
& cg3dMaxIters, |
110 |
& cg3dChkResFreq, |
& cg3dChkResFreq, |
111 |
& nIter0, nTimeSteps, |
& nIter0, nTimeSteps, nEndIter, |
112 |
& numStepsPerPickup, |
& numStepsPerPickup, |
113 |
& writeStatePrec, nCheckLev, |
& writeStatePrec, nCheckLev, |
114 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
119 |
INTEGER cg3dChkResFreq |
INTEGER cg3dChkResFreq |
120 |
INTEGER nIter0 |
INTEGER nIter0 |
121 |
INTEGER nTimeSteps |
INTEGER nTimeSteps |
122 |
|
INTEGER nEndIter |
123 |
INTEGER numStepsPerPickup |
INTEGER numStepsPerPickup |
124 |
INTEGER writeStatePrec |
INTEGER writeStatePrec |
125 |
INTEGER writeBinaryPrec |
INTEGER writeBinaryPrec |
164 |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
165 |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
166 |
C implicitDiffusion - Turns implicit vertical diffusion on |
C implicitDiffusion - Turns implicit vertical diffusion on |
167 |
|
C implicitViscosity - Turns implicit vertical viscosity on |
168 |
C doThetaClimRelax - Set true if relaxation to temperature |
C doThetaClimRelax - Set true if relaxation to temperature |
169 |
C climatology is required. |
C climatology is required. |
170 |
C doSaltClimRelax - Set true if relaxation to salinity |
C doSaltClimRelax - Set true if relaxation to salinity |
187 |
& momStepping, tempStepping, saltStepping, |
& momStepping, tempStepping, saltStepping, |
188 |
& metricTerms, usingSphericalPolarMTerms, |
& metricTerms, usingSphericalPolarMTerms, |
189 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, |
190 |
& implicitDiffusion, doThetaClimRelax, doSaltClimRelax, |
& implicitDiffusion, implicitViscosity, |
191 |
|
& doThetaClimRelax, doSaltClimRelax, |
192 |
& periodicExternalForcing, usingPCoords, usingZCoords, |
& periodicExternalForcing, usingPCoords, usingZCoords, |
193 |
& openBoundaries, nonHydrostatic, globalFiles, |
& openBoundaries, nonHydrostatic, globalFiles, |
194 |
& allowFreezing |
& allowFreezing |
218 |
LOGICAL useBetaPlaneF |
LOGICAL useBetaPlaneF |
219 |
LOGICAL useSphereF |
LOGICAL useSphereF |
220 |
LOGICAL implicitDiffusion |
LOGICAL implicitDiffusion |
221 |
|
LOGICAL implicitViscosity |
222 |
LOGICAL doThetaClimRelax |
LOGICAL doThetaClimRelax |
223 |
LOGICAL doSaltClimRelax |
LOGICAL doSaltClimRelax |
224 |
LOGICAL periodicExternalForcing |
LOGICAL periodicExternalForcing |
373 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
374 |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
375 |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
376 |
& latFFTFiltLo |
& latFFTFiltLo, ivdc_kappa |
377 |
|
|
378 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
379 |
_RL cg3dTargetResidual |
_RL cg3dTargetResidual |
459 |
_RL horiVertRatio |
_RL horiVertRatio |
460 |
_RL recip_horiVertRatio |
_RL recip_horiVertRatio |
461 |
_RL latFFTFiltLo |
_RL latFFTFiltLo |
462 |
|
_RL ivdc_kappa |
463 |
|
|
464 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
465 |
& Lamba_theta |
& Lamba_theta |