56 |
C saltClimFile - File containing salt climataology used |
C saltClimFile - File containing salt climataology used |
57 |
C in relaxation term -lambda(salt-salt*) |
C in relaxation term -lambda(salt-salt*) |
58 |
C surfQfile - File containing surface heat flux |
C surfQfile - File containing surface heat flux |
59 |
|
C surfQswfile - File containing surface shortwave radiation |
60 |
C EmPmRfile - File containing surface fresh water flux |
C EmPmRfile - File containing surface fresh water flux |
61 |
C buoyancyRelation - Flag used to indicate which relation to use to |
C buoyancyRelation - Flag used to indicate which relation to use to |
62 |
C get buoyancy. |
C get buoyancy. |
64 |
& bathyFile, hydrogThetaFile, hydrogSaltFile, |
& bathyFile, hydrogThetaFile, hydrogSaltFile, |
65 |
& zonalWindFile, meridWindFile, thetaClimFile, |
& zonalWindFile, meridWindFile, thetaClimFile, |
66 |
& saltClimFile, buoyancyRelation, |
& saltClimFile, buoyancyRelation, |
67 |
& EmPmRfile,surfQfile |
& EmPmRfile, surfQfile, surfQswfile, |
68 |
|
& uVelInitFile, vVelInitFile, pSurfInitFile |
69 |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
CHARACTER*(5) checkPtSuff(maxNoChkptLev) |
70 |
CHARACTER*(MAX_LEN_FNAM) bathyFile |
CHARACTER*(MAX_LEN_FNAM) bathyFile |
71 |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
CHARACTER*(MAX_LEN_FNAM) hydrogThetaFile |
75 |
CHARACTER*(MAX_LEN_FNAM) thetaClimFile |
CHARACTER*(MAX_LEN_FNAM) thetaClimFile |
76 |
CHARACTER*(MAX_LEN_FNAM) saltClimFile |
CHARACTER*(MAX_LEN_FNAM) saltClimFile |
77 |
CHARACTER*(MAX_LEN_FNAM) surfQfile |
CHARACTER*(MAX_LEN_FNAM) surfQfile |
78 |
|
CHARACTER*(MAX_LEN_FNAM) surfQswfile |
79 |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
CHARACTER*(MAX_LEN_FNAM) EmPmRfile |
80 |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation |
81 |
|
CHARACTER*(MAX_LEN_FNAM) uVelInitFile |
82 |
|
CHARACTER*(MAX_LEN_FNAM) vVelInitFile |
83 |
|
CHARACTER*(MAX_LEN_FNAM) pSurfInitFile |
84 |
|
|
85 |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
C-- COMMON /PARM_I/ Integer valued parameters used by the model. |
86 |
C cg2dMaxIters - Maximum number of iterations in the |
C cg2dMaxIters - Maximum number of iterations in the |
111 |
& cg2dChkResFreq, |
& cg2dChkResFreq, |
112 |
& cg3dMaxIters, |
& cg3dMaxIters, |
113 |
& cg3dChkResFreq, |
& cg3dChkResFreq, |
114 |
& nIter0, nTimeSteps, |
& nIter0, nTimeSteps, nEndIter, |
115 |
& numStepsPerPickup, |
& numStepsPerPickup, |
116 |
& writeStatePrec, nCheckLev, |
& writeStatePrec, nCheckLev, |
117 |
& writeBinaryPrec, readBinaryPrec, |
& writeBinaryPrec, readBinaryPrec, |
122 |
INTEGER cg3dChkResFreq |
INTEGER cg3dChkResFreq |
123 |
INTEGER nIter0 |
INTEGER nIter0 |
124 |
INTEGER nTimeSteps |
INTEGER nTimeSteps |
125 |
|
INTEGER nEndIter |
126 |
INTEGER numStepsPerPickup |
INTEGER numStepsPerPickup |
127 |
INTEGER writeStatePrec |
INTEGER writeStatePrec |
128 |
INTEGER writeBinaryPrec |
INTEGER writeBinaryPrec |
167 |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
168 |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
169 |
C implicitDiffusion - Turns implicit vertical diffusion on |
C implicitDiffusion - Turns implicit vertical diffusion on |
170 |
|
C implicitViscosity - Turns implicit vertical viscosity on |
171 |
C doThetaClimRelax - Set true if relaxation to temperature |
C doThetaClimRelax - Set true if relaxation to temperature |
172 |
C climatology is required. |
C climatology is required. |
173 |
C doSaltClimRelax - Set true if relaxation to salinity |
C doSaltClimRelax - Set true if relaxation to salinity |
190 |
& momStepping, tempStepping, saltStepping, |
& momStepping, tempStepping, saltStepping, |
191 |
& metricTerms, usingSphericalPolarMTerms, |
& metricTerms, usingSphericalPolarMTerms, |
192 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, |
193 |
& implicitDiffusion, doThetaClimRelax, doSaltClimRelax, |
& implicitDiffusion, implicitViscosity, |
194 |
|
& doThetaClimRelax, doSaltClimRelax, |
195 |
& periodicExternalForcing, usingPCoords, usingZCoords, |
& periodicExternalForcing, usingPCoords, usingZCoords, |
196 |
& openBoundaries, nonHydrostatic, globalFiles, |
& openBoundaries, nonHydrostatic, globalFiles, |
197 |
& allowFreezing |
& allowFreezing |
221 |
LOGICAL useBetaPlaneF |
LOGICAL useBetaPlaneF |
222 |
LOGICAL useSphereF |
LOGICAL useSphereF |
223 |
LOGICAL implicitDiffusion |
LOGICAL implicitDiffusion |
224 |
|
LOGICAL implicitViscosity |
225 |
LOGICAL doThetaClimRelax |
LOGICAL doThetaClimRelax |
226 |
LOGICAL doSaltClimRelax |
LOGICAL doSaltClimRelax |
227 |
LOGICAL periodicExternalForcing |
LOGICAL periodicExternalForcing |
320 |
C hFacMinDr - Minimum dimesional size of a cell (affects hFacC etc..., units of r) |
C hFacMinDr - Minimum dimesional size of a cell (affects hFacC etc..., units of r) |
321 |
C tauCD - CD scheme coupling timescale ( 1/s ) |
C tauCD - CD scheme coupling timescale ( 1/s ) |
322 |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
|
C GMmaxslope - max. slope allowed in GM/Redi tensor |
|
|
C GMlength - Length to use in Visbeck et al. formula for K (m) |
|
|
C GMalpha - alpha to use in Visbeck et al. formula for K |
|
|
C GMdepth - Depth over which to integrate Richardson # (Visbeck et al.) |
|
|
C GMkbackground - background value of GM/Redi diffusion coefficient ( m^2/s ) |
|
|
C GMmaxval - max. value of KapGM allowed in GM/Redi scheme ( m^2/s ) |
|
323 |
C startTime - Starting time for this integration ( s ). |
C startTime - Starting time for this integration ( s ). |
324 |
C endTime - Ending time for this integration ( s ). |
C endTime - Ending time for this integration ( s ). |
325 |
C chkPtFreq - Frequency of rolling check pointing ( s ). |
C chkPtFreq - Frequency of rolling check pointing ( s ). |
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 |
359 |
& diffKhT, diffKzT, diffK4T, diffKrT, |
& diffKhT, diffKzT, diffK4T, diffKrT, |
360 |
& diffKhS, diffKzS, diffK4S, diffKrS, |
& diffKhS, diffKzS, diffK4S, diffKrS, |
361 |
& delT, tauCD, rCD, freeSurfFac, hFacMin, hFacMinDz, |
& delT, tauCD, rCD, freeSurfFac, hFacMin, hFacMinDz, |
|
& GMmaxslope,GMlength,GMalpha,GMdepth,GMkbackground,GMmaxval, |
|
362 |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
363 |
& recip_rhoConst, rhoConst, tRef, sRef, |
& recip_rhoConst, rhoConst, tRef, sRef, |
364 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
365 |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
366 |
|
& cosPower, |
367 |
& cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax, |
& cAdjFreq, omega, tauThetaClimRelax, lambdaThetaClimRelax, |
368 |
& tauSaltClimRelax, lambdaSaltClimRelax, |
& tauSaltClimRelax, lambdaSaltClimRelax, |
369 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
370 |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
371 |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio, |
372 |
& latFFTFiltLo |
& latFFTFiltLo, ivdc_kappa |
373 |
|
|
374 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
375 |
_RL cg3dTargetResidual |
_RL cg3dTargetResidual |
413 |
_RL delt |
_RL delt |
414 |
_RL tauCD |
_RL tauCD |
415 |
_RL rCD |
_RL rCD |
|
_RL GMmaxslope |
|
|
_RL GMlength |
|
|
_RL GMalpha |
|
|
_RL GMdepth |
|
|
_RL GMkbackground |
|
|
_RL GMmaxval |
|
416 |
_RL gravity |
_RL gravity |
417 |
_RL recip_gravity |
_RL recip_gravity |
418 |
_RL gBaro |
_RL gBaro |
437 |
_RL cfFacMom |
_RL cfFacMom |
438 |
_RL foFacMom |
_RL foFacMom |
439 |
_RL mTFacMom |
_RL mTFacMom |
440 |
|
_RL cosPower |
441 |
_RL cAdjFreq |
_RL cAdjFreq |
442 |
_RL omega |
_RL omega |
443 |
_RL tauThetaClimRelax |
_RL tauThetaClimRelax |
449 |
_RL horiVertRatio |
_RL horiVertRatio |
450 |
_RL recip_horiVertRatio |
_RL recip_horiVertRatio |
451 |
_RL latFFTFiltLo |
_RL latFFTFiltLo |
452 |
|
_RL ivdc_kappa |
453 |
|
|
454 |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
COMMON /PARM_A/ HeatCapacity_Cp,recip_Cp, |
455 |
& Lamba_theta |
& Lamba_theta |
495 |
INTEGER OB_Jsouth(Nx) |
INTEGER OB_Jsouth(Nx) |
496 |
INTEGER OB_Ieast(Ny) |
INTEGER OB_Ieast(Ny) |
497 |
INTEGER OB_Iwest(Ny) |
INTEGER OB_Iwest(Ny) |
498 |
|
|
499 |
|
C Logical flags for selecting packages |
500 |
|
LOGICAL useKPP |
501 |
|
LOGICAL useGMRedi |
502 |
|
LOGICAL useECCO |
503 |
|
COMMON /PARM_PACKAGES/ |
504 |
|
& useKPP, useGMRedi, useECCO |