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 |
177 |
C coords. |
C coords. |
178 |
C openBoundaries - Using open-boundaries |
C openBoundaries - Using open-boundaries |
179 |
C nonHydrostatic - Using non-hydrostatic terms |
C nonHydrostatic - Using non-hydrostatic terms |
180 |
|
C globalFiles - Selects between "global" and "tiled" files |
181 |
|
C allowFreezing - Allows water to freeze and form ice |
182 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
183 |
& no_slip_sides,no_slip_bottom, |
& no_slip_sides,no_slip_bottom, |
184 |
& momViscosity, momAdvection, momForcing, useCoriolis, |
& momViscosity, momAdvection, momForcing, useCoriolis, |
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 |
& openBoundaries, nonHydrostatic, globalFiles, |
195 |
|
& allowFreezing |
196 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
197 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
198 |
LOGICAL usingSphericalPolarMTerms |
LOGICAL usingSphericalPolarMTerms |
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 |
227 |
LOGICAL usingZCoords |
LOGICAL usingZCoords |
228 |
LOGICAL openBoundaries |
LOGICAL openBoundaries |
229 |
LOGICAL nonHydrostatic |
LOGICAL nonHydrostatic |
230 |
|
LOGICAL globalFiles |
231 |
|
LOGICAL allowFreezing |
232 |
|
|
233 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
234 |
C cg2dTargetResidual |
C cg2dTargetResidual |
336 |
C cfFacMom - Coriolis term tracer parameter |
C cfFacMom - Coriolis term tracer parameter |
337 |
C foFacMom - Momentum forcing tracer parameter |
C foFacMom - Momentum forcing tracer parameter |
338 |
C mtFacMom - Metric terms tracer parameter |
C mtFacMom - Metric terms tracer parameter |
339 |
|
C cosPower - Power of cosine of latitude to multiply viscosity |
340 |
C cAdjFreq - Frequency of convective adjustment |
C cAdjFreq - Frequency of convective adjustment |
341 |
C |
C |
342 |
C taveFreq - Frequency with which time-averaged model state is written to |
C taveFreq - Frequency with which time-averaged model state is written to |
368 |
& recip_rhoConst, rhoConst, tRef, sRef, |
& recip_rhoConst, rhoConst, tRef, sRef, |
369 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
370 |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
371 |
|
& cosPower, |
372 |
& cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax, |
& cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax, |
373 |
& tauSaltClimRelax, lambdaSaltClimRelax, |
& tauSaltClimRelax, lambdaSaltClimRelax, |
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 |
448 |
_RL cfFacMom |
_RL cfFacMom |
449 |
_RL foFacMom |
_RL foFacMom |
450 |
_RL mTFacMom |
_RL mTFacMom |
451 |
|
_RL cosPower |
452 |
_RL cAdjFreq |
_RL cAdjFreq |
453 |
_RL omega |
_RL omega |
454 |
_RL tauThetaClimRelax |
_RL tauThetaClimRelax |
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 |