119 |
& writeStatePrec, nCheckLev, |
& writeStatePrec, nCheckLev, |
120 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
121 |
& nonlinFreeSurf, |
& nonlinFreeSurf, |
122 |
& zonal_filt_sinpow, zonal_filt_cospow |
& zonal_filt_sinpow, zonal_filt_cospow, |
123 |
|
& tempAdvScheme, saltAdvScheme, tracerAdvScheme |
124 |
INTEGER cg2dMaxIters |
INTEGER cg2dMaxIters |
125 |
INTEGER cg2dChkResFreq |
INTEGER cg2dChkResFreq |
126 |
INTEGER cg3dMaxIters |
INTEGER cg3dMaxIters |
136 |
INTEGER nonlinFreeSurf |
INTEGER nonlinFreeSurf |
137 |
INTEGER zonal_filt_sinpow |
INTEGER zonal_filt_sinpow |
138 |
INTEGER zonal_filt_cospow |
INTEGER zonal_filt_cospow |
139 |
|
INTEGER tempAdvScheme |
140 |
|
INTEGER saltAdvScheme |
141 |
|
INTEGER tracerAdvScheme |
142 |
|
|
143 |
C-- COMMON /PARM_L/ Logical valued parameters used by the model. |
C-- COMMON /PARM_L/ Logical valued parameters used by the model. |
144 |
C usingCartesianGrid - If TRUE grid generation will be in a cartesian |
C usingCartesianGrid - If TRUE grid generation will be in a cartesian |
177 |
C momStepping - Turns momentum equation time-stepping off |
C momStepping - Turns momentum equation time-stepping off |
178 |
C tempStepping - Turns temperature equation time-stepping off |
C tempStepping - Turns temperature equation time-stepping off |
179 |
C saltStepping - Turns salinity equation time-stepping off |
C saltStepping - Turns salinity equation time-stepping off |
180 |
|
C tr1Stepping - Turns passive tracer 1 time-stepping on/off |
181 |
C useConstantF - Coriolis parameter set to f0 |
C useConstantF - Coriolis parameter set to f0 |
182 |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
183 |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
201 |
& no_slip_sides,no_slip_bottom, |
& no_slip_sides,no_slip_bottom, |
202 |
& staggerTimeStep, |
& staggerTimeStep, |
203 |
& momViscosity, momAdvection, momForcing, useCoriolis, |
& momViscosity, momAdvection, momForcing, useCoriolis, |
204 |
& momPressureForcing,tempDiffusion, tempAdvection, tempForcing, |
& momPressureForcing, vectorInvariantMomentum, |
205 |
|
& tempDiffusion, tempAdvection, tempForcing, |
206 |
& saltDiffusion, saltAdvection, saltForcing, |
& saltDiffusion, saltAdvection, saltForcing, |
207 |
& rigidLid, implicitFreeSurface, exactConserv, uniformLin_PhiSurf, |
& rigidLid, implicitFreeSurface, exactConserv, uniformLin_PhiSurf, |
208 |
& momStepping, tempStepping, saltStepping, |
& momStepping, tempStepping, saltStepping, tr1Stepping, |
209 |
& metricTerms, usingSphericalPolarMTerms, |
& metricTerms, usingSphericalPolarMTerms, |
210 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, |
211 |
& implicitDiffusion, implicitViscosity, |
& implicitDiffusion, implicitViscosity, |
212 |
& doThetaClimRelax, doSaltClimRelax, |
& doThetaClimRelax, doSaltClimRelax, doTr1ClimRelax, |
213 |
& periodicExternalForcing, usingPCoords, usingZCoords, |
& periodicExternalForcing, usingPCoords, usingZCoords, |
214 |
& nonHydrostatic, globalFiles, |
& nonHydrostatic, globalFiles, |
215 |
& allowFreezing, groundAtK1, |
& allowFreezing, groundAtK1, |
216 |
& usePickupBeforeC35, debugMode |
& usePickupBeforeC35, debugMode, |
217 |
|
& readPickupWithTracer, writePickupWithTracer |
218 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
219 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
220 |
LOGICAL usingCurvilinearGrid |
LOGICAL usingCurvilinearGrid |
227 |
LOGICAL momForcing |
LOGICAL momForcing |
228 |
LOGICAL momPressureForcing |
LOGICAL momPressureForcing |
229 |
LOGICAL useCoriolis |
LOGICAL useCoriolis |
230 |
|
LOGICAL vectorInvariantMomentum |
231 |
LOGICAL tempDiffusion |
LOGICAL tempDiffusion |
232 |
LOGICAL tempAdvection |
LOGICAL tempAdvection |
233 |
LOGICAL tempForcing |
LOGICAL tempForcing |
241 |
LOGICAL momStepping |
LOGICAL momStepping |
242 |
LOGICAL tempStepping |
LOGICAL tempStepping |
243 |
LOGICAL saltStepping |
LOGICAL saltStepping |
244 |
|
LOGICAL tr1Stepping |
245 |
LOGICAL metricTerms |
LOGICAL metricTerms |
246 |
LOGICAL useConstantF |
LOGICAL useConstantF |
247 |
LOGICAL useBetaPlaneF |
LOGICAL useBetaPlaneF |
250 |
LOGICAL implicitViscosity |
LOGICAL implicitViscosity |
251 |
LOGICAL doThetaClimRelax |
LOGICAL doThetaClimRelax |
252 |
LOGICAL doSaltClimRelax |
LOGICAL doSaltClimRelax |
253 |
|
LOGICAL doTr1ClimRelax |
254 |
LOGICAL periodicExternalForcing |
LOGICAL periodicExternalForcing |
255 |
LOGICAL usingPCoords |
LOGICAL usingPCoords |
256 |
LOGICAL usingZCoords |
LOGICAL usingZCoords |
260 |
LOGICAL groundAtK1 |
LOGICAL groundAtK1 |
261 |
LOGICAL usePickupBeforeC35 |
LOGICAL usePickupBeforeC35 |
262 |
LOGICAL debugMode |
LOGICAL debugMode |
263 |
|
LOGICAL readPickupWithTracer |
264 |
|
LOGICAL writePickupWithTracer |
265 |
|
|
266 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
267 |
C gg2dTargetResidual |
C gg2dTargetResidual |
408 |
& recip_rhoConst, rhoConst, tRef, sRef, |
& recip_rhoConst, rhoConst, tRef, sRef, |
409 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, monitorFreq, |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, monitorFreq, |
410 |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
411 |
& cosPower, |
& cosPower, cAdjFreq, omega, |
412 |
& cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax, |
& tauThetaClimRelax, lambdaThetaClimRelax, |
413 |
& tauSaltClimRelax, lambdaSaltClimRelax, |
& tauSaltClimRelax, lambdaSaltClimRelax, |
414 |
|
& tauTr1ClimRelax, lambdaTr1ClimRelax, |
415 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
416 |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
417 |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
498 |
_RL lambdaThetaClimRelax |
_RL lambdaThetaClimRelax |
499 |
_RL tauSaltClimRelax |
_RL tauSaltClimRelax |
500 |
_RL lambdaSaltClimRelax |
_RL lambdaSaltClimRelax |
501 |
|
_RL tauTr1ClimRelax |
502 |
|
_RL lambdaTr1ClimRelax |
503 |
_RL externForcingCycle |
_RL externForcingCycle |
504 |
_RL externForcingPeriod |
_RL externForcingPeriod |
505 |
_RL horiVertRatio |
_RL horiVertRatio |
544 |
LOGICAL useGMRedi |
LOGICAL useGMRedi |
545 |
LOGICAL useOBCS |
LOGICAL useOBCS |
546 |
LOGICAL useAIM |
LOGICAL useAIM |
547 |
|
LOGICAL useGrdchk |
548 |
LOGICAL useECCO |
LOGICAL useECCO |
549 |
LOGICAL useSHAP_FILT |
LOGICAL useSHAP_FILT |
550 |
COMMON /PARM_PACKAGES/ |
COMMON /PARM_PACKAGES/ |
551 |
& useKPP, useGMRedi, useOBCS, useAIM, useECCO, useSHAP_FILT |
& useKPP, useGMRedi, useOBCS, useAIM, useECCO, |
552 |
|
& useSHAP_FILT, useGrdchk |
553 |
|
|