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, pSurfInitFile |
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 |
|
CHARACTER*(MAX_LEN_FNAM) pSurfInitFile |
82 |
|
|
83 |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
84 |
C cg2dMaxIters - Maximum number of iterations in the |
C cg2dMaxIters - Maximum number of iterations in the |
109 |
& cg2dChkResFreq, |
& cg2dChkResFreq, |
110 |
& cg3dMaxIters, |
& cg3dMaxIters, |
111 |
& cg3dChkResFreq, |
& cg3dChkResFreq, |
112 |
& nIter0, nTimeSteps, |
& nIter0, nTimeSteps, nEndIter, |
113 |
& numStepsPerPickup, |
& numStepsPerPickup, |
114 |
& writeStatePrec, nCheckLev, |
& writeStatePrec, nCheckLev, |
115 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
120 |
INTEGER cg3dChkResFreq |
INTEGER cg3dChkResFreq |
121 |
INTEGER nIter0 |
INTEGER nIter0 |
122 |
INTEGER nTimeSteps |
INTEGER nTimeSteps |
123 |
|
INTEGER nEndIter |
124 |
INTEGER numStepsPerPickup |
INTEGER numStepsPerPickup |
125 |
INTEGER writeStatePrec |
INTEGER writeStatePrec |
126 |
INTEGER writeBinaryPrec |
INTEGER writeBinaryPrec |
165 |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
166 |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
167 |
C implicitDiffusion - Turns implicit vertical diffusion on |
C implicitDiffusion - Turns implicit vertical diffusion on |
168 |
|
C implicitViscosity - Turns implicit vertical viscosity on |
169 |
C doThetaClimRelax - Set true if relaxation to temperature |
C doThetaClimRelax - Set true if relaxation to temperature |
170 |
C climatology is required. |
C climatology is required. |
171 |
C doSaltClimRelax - Set true if relaxation to salinity |
C doSaltClimRelax - Set true if relaxation to salinity |
188 |
& momStepping, tempStepping, saltStepping, |
& momStepping, tempStepping, saltStepping, |
189 |
& metricTerms, usingSphericalPolarMTerms, |
& metricTerms, usingSphericalPolarMTerms, |
190 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, |
191 |
& implicitDiffusion, doThetaClimRelax, doSaltClimRelax, |
& implicitDiffusion, implicitViscosity, |
192 |
|
& doThetaClimRelax, doSaltClimRelax, |
193 |
& periodicExternalForcing, usingPCoords, usingZCoords, |
& periodicExternalForcing, usingPCoords, usingZCoords, |
194 |
& openBoundaries, nonHydrostatic, globalFiles, |
& openBoundaries, nonHydrostatic, globalFiles, |
195 |
& allowFreezing |
& allowFreezing |
219 |
LOGICAL useBetaPlaneF |
LOGICAL useBetaPlaneF |
220 |
LOGICAL useSphereF |
LOGICAL useSphereF |
221 |
LOGICAL implicitDiffusion |
LOGICAL implicitDiffusion |
222 |
|
LOGICAL implicitViscosity |
223 |
LOGICAL doThetaClimRelax |
LOGICAL doThetaClimRelax |
224 |
LOGICAL doSaltClimRelax |
LOGICAL doSaltClimRelax |
225 |
LOGICAL periodicExternalForcing |
LOGICAL periodicExternalForcing |
374 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
375 |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
376 |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
377 |
& latFFTFiltLo |
& latFFTFiltLo, ivdc_kappa |
378 |
|
|
379 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
380 |
_RL cg3dTargetResidual |
_RL cg3dTargetResidual |
460 |
_RL horiVertRatio |
_RL horiVertRatio |
461 |
_RL recip_horiVertRatio |
_RL recip_horiVertRatio |
462 |
_RL latFFTFiltLo |
_RL latFFTFiltLo |
463 |
|
_RL ivdc_kappa |
464 |
|
|
465 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
466 |
& Lamba_theta |
& Lamba_theta |