77 |
C and off. |
C and off. |
78 |
C momPressureForcing - Flag which turns pressure term in momentum equation |
C momPressureForcing - Flag which turns pressure term in momentum equation |
79 |
C on and off. |
C on and off. |
80 |
|
C metricTerms - Flag which turns metric terms on or off. |
81 |
|
C usingSphericalPolarMTerms - If TRUE use spherical polar metric terms. |
82 |
C useCoriolis - Flag which turns the coriolis terms on and off. |
C useCoriolis - Flag which turns the coriolis terms on and off. |
83 |
C tempDiffusion - Flag which turns diffusion of temperature on |
C tempDiffusion - Flag which turns diffusion of temperature on |
84 |
C and off. |
C and off. |
95 |
C implicitFreeSurface - Set to true to use implcit free surface |
C implicitFreeSurface - Set to true to use implcit free surface |
96 |
C rigidLid - Set to true to use rigid lid |
C rigidLid - Set to true to use rigid lid |
97 |
C momStepping - Turns momentum equation time-stepping off |
C momStepping - Turns momentum equation time-stepping off |
98 |
C momStepping - Turns temperature equation time-stepping off |
C tempStepping - Turns temperature equation time-stepping off |
99 |
|
C useConstantF - Coriolis parameter set to f0 |
100 |
|
C useBetaPlaneF - Coriolis parameter set to f0 + beta.y |
101 |
|
C useSphereF - Coriolis parameter set to 2.omega.sin(phi) |
102 |
C implicitDiffusion - Turns implicit vertical diffusion on |
C implicitDiffusion - Turns implicit vertical diffusion on |
103 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
104 |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
& momViscosity, momAdvection, momForcing, useCoriolis, momPressureForcing, |
105 |
& tempDiffusion, tempAdvection, tempForcing, |
& tempDiffusion, tempAdvection, tempForcing, |
106 |
& saltDiffusion, saltAdvection, saltForcing, |
& saltDiffusion, saltAdvection, saltForcing, |
107 |
& implicitFreeSurface, rigidLid, momStepping, tempStepping, |
& implicitFreeSurface, rigidLid, momStepping, tempStepping, |
108 |
|
& metricTerms, usingSphericalPolarMTerms, |
109 |
|
& useConstantF, useBetaPlaneF, useSphereF, |
110 |
& implicitDiffusion |
& implicitDiffusion |
111 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
112 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
113 |
|
LOGICAL usingSphericalPolarMTerms |
114 |
LOGICAL momViscosity |
LOGICAL momViscosity |
115 |
LOGICAL momAdvection |
LOGICAL momAdvection |
116 |
LOGICAL momForcing |
LOGICAL momForcing |
126 |
LOGICAL rigidLid |
LOGICAL rigidLid |
127 |
LOGICAL momStepping |
LOGICAL momStepping |
128 |
LOGICAL tempStepping |
LOGICAL tempStepping |
129 |
|
LOGICAL metricTerms |
130 |
|
LOGICAL useConstantF |
131 |
|
LOGICAL useBetaPlaneF |
132 |
|
LOGICAL useSphereF |
133 |
LOGICAL implicitDiffusion |
LOGICAL implicitDiffusion |
134 |
|
|
135 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
162 |
C is an "inert" parameter but it is included |
C is an "inert" parameter but it is included |
163 |
C to make geographical references simple.) |
C to make geographical references simple.) |
164 |
C rSphere - Radius of sphere for a spherical polar grid ( m ). |
C rSphere - Radius of sphere for a spherical polar grid ( m ). |
165 |
|
C rRSphere - Reciprocal radius of sphere for a spherical polar grid ( m ). |
166 |
C f0 - Reference coriolis parameter ( 1/s ) |
C f0 - Reference coriolis parameter ( 1/s ) |
167 |
C ( Southern edge f for beta plane ) |
C ( Southern edge f for beta plane ) |
168 |
C beta - df/dy ( s^-1.m^-1 ) |
C beta - df/dy ( s^-1.m^-1 ) |
169 |
|
C omega - Angular velocity ( rad/s ) |
170 |
C viscAh - Eddy viscosity coeff. for mixing of |
C viscAh - Eddy viscosity coeff. for mixing of |
171 |
C momentum laterally ( m^2/s ) |
C momentum laterally ( m^2/s ) |
172 |
C viscAz - Eddy viscosity coeff. for mixing of |
C viscAz - Eddy viscosity coeff. for mixing of |
215 |
C pfFacMom - Momentum pressure forcing parameter |
C pfFacMom - Momentum pressure forcing parameter |
216 |
C cfFacMom - Coriolis term scaling parameter |
C cfFacMom - Coriolis term scaling parameter |
217 |
C foFacMom - Momentum forcing scaling parameter |
C foFacMom - Momentum forcing scaling parameter |
218 |
|
C mtFacMom - Metric terms scaling parameter |
219 |
C cAdjFreq - Frequency of convective adjustment |
C cAdjFreq - Frequency of convective adjustment |
220 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dpcOffDFac, delZ, delX, delY, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dpcOffDFac, delZ, delX, delY, |
221 |
& deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, phiMin, |
& deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, phiMin, |
222 |
& thetaMin, rSphere, f0, fCori, beta, viscAh, viscAz, viscA4, |
& thetaMin, rSphere, rRSphere, f0, fCori, beta, viscAh, viscAz, viscA4, |
223 |
& diffKhT, diffKzT, diffK4T, diffKhS, diffKzS, diffK4S, delT, |
& diffKhT, diffKzT, diffK4T, diffKhS, diffKzS, diffK4S, delT, |
224 |
& tauCD, rCD, freeSurfFac, |
& tauCD, rCD, freeSurfFac, |
225 |
& GMmaxslope,GMlength,GMalpha,GMdepth,GMkbackground, |
& GMmaxslope,GMlength,GMalpha,GMdepth,GMkbackground, |
226 |
& gravity, gBaro, rhonil, tRef, sRef, |
& gravity, gBaro, rhonil, tRef, sRef, |
227 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, |
228 |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, |
& afFacMom, vfFacMom, pfFacMom, cfFacMom, foFacMom, mtFacMom, |
229 |
& cAdjFreq |
& cAdjFreq, omega |
230 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
231 |
_RL cg2dpcOffDFac |
_RL cg2dpcOffDFac |
232 |
_RL delZ(Nz) |
_RL delZ(Nz) |
240 |
_RL phiMin |
_RL phiMin |
241 |
_RL thetaMin |
_RL thetaMin |
242 |
_RL rSphere |
_RL rSphere |
243 |
|
_RL rRSphere |
244 |
_RL f0 |
_RL f0 |
245 |
_RL freeSurfFac |
_RL freeSurfFac |
246 |
_RL beta |
_RL beta |
277 |
_RL pfFacMom |
_RL pfFacMom |
278 |
_RL cfFacMom |
_RL cfFacMom |
279 |
_RL foFacMom |
_RL foFacMom |
280 |
|
_RL mTFacMom |
281 |
_RL cAdjFreq |
_RL cAdjFreq |
282 |
|
_RL omega |
283 |
|
|
284 |
COMMON /PARM_A/ HeatCapacity_Cp, |
COMMON /PARM_A/ HeatCapacity_Cp, |
285 |
& Lamba_theta |
& Lamba_theta |