85 |
C and off. |
C and off. |
86 |
C saltForcing - Flag which turns external forcing of salinit on |
C saltForcing - Flag which turns external forcing of salinit on |
87 |
C and off. |
C and off. |
88 |
|
C implicitFreeSurface - Set to true to use implcit free surface |
89 |
|
C rigidLid - Set to true to use rigid lid |
90 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
91 |
& momViscosity, momAdvection, momForcing, useCoriolis, |
& momViscosity, momAdvection, momForcing, useCoriolis, |
92 |
& tempDiffusion, tempAdvection, tempForcing, |
& tempDiffusion, tempAdvection, tempForcing, |
93 |
& saltDiffusion, saltAdvection, saltForcing |
& saltDiffusion, saltAdvection, saltForcing, |
94 |
|
& implicitFreeSurface, rigidLid |
95 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
96 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
97 |
LOGICAL momViscosity |
LOGICAL momViscosity |
104 |
LOGICAL saltDiffusion |
LOGICAL saltDiffusion |
105 |
LOGICAL saltAdvection |
LOGICAL saltAdvection |
106 |
LOGICAL saltForcing |
LOGICAL saltForcing |
107 |
|
LOGICAL implicitFreeSurface |
108 |
|
LOGICAL rigidLid |
109 |
|
|
110 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
111 |
C cg2dTargetResidual |
C cg2dTargetResidual |
129 |
C delX - Separation between cell faces (m) or (deg), depending |
C delX - Separation between cell faces (m) or (deg), depending |
130 |
C delY on input flags. |
C delY on input flags. |
131 |
C gravity - Accel. due to gravity ( m/s^2 ) |
C gravity - Accel. due to gravity ( m/s^2 ) |
132 |
|
C gBaro - Accel. due to gravity used in barotropic equation ( m/s^2 ) |
133 |
C ronil - Reference density |
C ronil - Reference density |
134 |
C startTime - Start time for model ( s ) |
C startTime - Start time for model ( s ) |
135 |
C phiMin - Latitude of southern most cell face. |
C phiMin - Latitude of southern most cell face. |
167 |
C are referenced to this clock. ( s ) |
C are referenced to this clock. ( s ) |
168 |
C deltaTMom - Timestep for momemtum equations ( s ) |
C deltaTMom - Timestep for momemtum equations ( s ) |
169 |
C deltaTtracer - Timestep for tracer equations ( s ) |
C deltaTtracer - Timestep for tracer equations ( s ) |
170 |
|
C freesurfFac - Parameter to turn implicit free surface term on or off |
171 |
|
C freesurfac = 1. uses implicit free surface |
172 |
|
C freesurfac = 0. uses rigid lid |
173 |
C tauCD - CD scheme coupling timescale ( 1/s ) |
C tauCD - CD scheme coupling timescale ( 1/s ) |
174 |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
175 |
C GMmaxslope - max. slope allowed in GM/Redi tensor |
C GMmaxslope - max. slope allowed in GM/Redi tensor |
176 |
C GMlength - Length to use in Visbeck et al. formula for K |
C GMlength - Length to use in Visbeck et al. formula for K (m) |
177 |
C GMalpha - alpha to use in Visbeck et al. formula for K |
C GMalpha - alpha to use in Visbeck et al. formula for K |
178 |
C GMdepth - Depth over which to integrate Richardson # (Visbeck et al.) |
C GMdepth - Depth over which to integrate Richardson # (Visbeck et al.) |
179 |
C GMbackground - background value of GM/Redi coefficient |
C GMkbackground - background value of GM/Redi coefficient |
180 |
C startTime - Starting time for this integration ( s ). |
C startTime - Starting time for this integration ( s ). |
181 |
C endTime - Ending time for this integration ( s ). |
C endTime - Ending time for this integration ( s ). |
182 |
C chkPtFreq - Frequency of rolling check pointing ( s ). |
C chkPtFreq - Frequency of rolling check pointing ( s ). |
187 |
& deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, phiMin, |
& deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, phiMin, |
188 |
& thetaMin, rSphere, f0, fCori, beta, viscAh, viscAz, viscA4, |
& thetaMin, rSphere, f0, fCori, beta, viscAh, viscAz, viscA4, |
189 |
& diffKhT, diffKzT, diffK4T, diffKhS, diffKzS, diffK4S, delT, |
& diffKhT, diffKzT, diffK4T, diffKhS, diffKzS, diffK4S, delT, |
190 |
& tauCD, rCD, |
& tauCD, rCD, freeSurfFac, |
191 |
& GMmaxslope,GMlength,GMalpha,GMdepth,GMkbackground, |
& GMmaxslope,GMlength,GMalpha,GMdepth,GMkbackground, |
192 |
& gravity, rhonil, tRef, sRef, |
& gravity, gBaro, rhonil, tRef, sRef, |
193 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq |
194 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
195 |
_RL cg2dpcOffDFac |
_RL cg2dpcOffDFac |
205 |
_RL thetaMin |
_RL thetaMin |
206 |
_RL rSphere |
_RL rSphere |
207 |
_RL f0 |
_RL f0 |
208 |
|
_RL freeSurfFac |
209 |
_RL beta |
_RL beta |
210 |
_RL viscAh |
_RL viscAh |
211 |
_RL viscAz |
_RL viscAz |
225 |
_RL GMdepth |
_RL GMdepth |
226 |
_RL GMkbackground |
_RL GMkbackground |
227 |
_RL gravity |
_RL gravity |
228 |
|
_RL gBaro |
229 |
_RL rhonil |
_RL rhonil |
230 |
_RL tRef(Nz) |
_RL tRef(Nz) |
231 |
_RL sRef(Nz) |
_RL sRef(Nz) |