105 |
& cg2dChkResFreq, |
& cg2dChkResFreq, |
106 |
& cg3dMaxIters, |
& cg3dMaxIters, |
107 |
& cg3dChkResFreq, |
& cg3dChkResFreq, |
108 |
& nIter0, nTimeSteps, |
& nIter0, nTimeSteps, nEndIter, |
109 |
& numStepsPerPickup, |
& numStepsPerPickup, |
110 |
& writeStatePrec, nCheckLev, |
& writeStatePrec, nCheckLev, |
111 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
116 |
INTEGER cg3dChkResFreq |
INTEGER cg3dChkResFreq |
117 |
INTEGER nIter0 |
INTEGER nIter0 |
118 |
INTEGER nTimeSteps |
INTEGER nTimeSteps |
119 |
|
INTEGER nEndIter |
120 |
INTEGER numStepsPerPickup |
INTEGER numStepsPerPickup |
121 |
INTEGER writeStatePrec |
INTEGER writeStatePrec |
122 |
INTEGER writeBinaryPrec |
INTEGER writeBinaryPrec |
161 |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
162 |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
163 |
C implicitDiffusion - Turns implicit vertical diffusion on |
C implicitDiffusion - Turns implicit vertical diffusion on |
164 |
|
C implicitViscosity - Turns implicit vertical viscosity on |
165 |
C doThetaClimRelax - Set true if relaxation to temperature |
C doThetaClimRelax - Set true if relaxation to temperature |
166 |
C climatology is required. |
C climatology is required. |
167 |
C doSaltClimRelax - Set true if relaxation to salinity |
C doSaltClimRelax - Set true if relaxation to salinity |
184 |
& momStepping, tempStepping, saltStepping, |
& momStepping, tempStepping, saltStepping, |
185 |
& metricTerms, usingSphericalPolarMTerms, |
& metricTerms, usingSphericalPolarMTerms, |
186 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, |
187 |
& implicitDiffusion, doThetaClimRelax, doSaltClimRelax, |
& implicitDiffusion, implicitViscosity, |
188 |
|
& doThetaClimRelax, doSaltClimRelax, |
189 |
& periodicExternalForcing, usingPCoords, usingZCoords, |
& periodicExternalForcing, usingPCoords, usingZCoords, |
190 |
& openBoundaries, nonHydrostatic, globalFiles, |
& openBoundaries, nonHydrostatic, globalFiles, |
191 |
& allowFreezing |
& allowFreezing |
215 |
LOGICAL useBetaPlaneF |
LOGICAL useBetaPlaneF |
216 |
LOGICAL useSphereF |
LOGICAL useSphereF |
217 |
LOGICAL implicitDiffusion |
LOGICAL implicitDiffusion |
218 |
|
LOGICAL implicitViscosity |
219 |
LOGICAL doThetaClimRelax |
LOGICAL doThetaClimRelax |
220 |
LOGICAL doSaltClimRelax |
LOGICAL doSaltClimRelax |
221 |
LOGICAL periodicExternalForcing |
LOGICAL periodicExternalForcing |
332 |
C cfFacMom - Coriolis term tracer parameter |
C cfFacMom - Coriolis term tracer parameter |
333 |
C foFacMom - Momentum forcing tracer parameter |
C foFacMom - Momentum forcing tracer parameter |
334 |
C mtFacMom - Metric terms tracer parameter |
C mtFacMom - Metric terms tracer parameter |
335 |
|
C cosPower - Power of cosine of latitude to multiply viscosity |
336 |
C cAdjFreq - Frequency of convective adjustment |
C cAdjFreq - Frequency of convective adjustment |
337 |
C |
C |
338 |
C taveFreq - Frequency with which time-averaged model state is written to |
C taveFreq - Frequency with which time-averaged model state is written to |
364 |
& recip_rhoConst, rhoConst, tRef, sRef, |
& recip_rhoConst, rhoConst, tRef, sRef, |
365 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
366 |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
367 |
|
& cosPower, |
368 |
& cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax, |
& cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax, |
369 |
& tauSaltClimRelax, lambdaSaltClimRelax, |
& tauSaltClimRelax, lambdaSaltClimRelax, |
370 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
371 |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
372 |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
373 |
& latFFTFiltLo |
& latFFTFiltLo, ivdc_kappa |
374 |
|
|
375 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
376 |
_RL cg3dTargetResidual |
_RL cg3dTargetResidual |
444 |
_RL cfFacMom |
_RL cfFacMom |
445 |
_RL foFacMom |
_RL foFacMom |
446 |
_RL mTFacMom |
_RL mTFacMom |
447 |
|
_RL cosPower |
448 |
_RL cAdjFreq |
_RL cAdjFreq |
449 |
_RL omega |
_RL omega |
450 |
_RL tauThetaClimRelax |
_RL tauThetaClimRelax |
456 |
_RL horiVertRatio |
_RL horiVertRatio |
457 |
_RL recip_horiVertRatio |
_RL recip_horiVertRatio |
458 |
_RL latFFTFiltLo |
_RL latFFTFiltLo |
459 |
|
_RL ivdc_kappa |
460 |
|
|
461 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
462 |
& Lamba_theta |
& Lamba_theta |