162 |
C and off. |
C and off. |
163 |
C saltForcing - Flag which turns external forcing of salinit on |
C saltForcing - Flag which turns external forcing of salinit on |
164 |
C and off. |
C and off. |
|
C implicitFreeSurface - Set to true to use implcit free surface |
|
165 |
C rigidLid - Set to true to use rigid lid |
C rigidLid - Set to true to use rigid lid |
166 |
|
C implicitFreeSurface - Set to true to use implcit free surface |
167 |
|
C exactConserv - Set to true to conserve exactly the total Volume |
168 |
|
C nonlinFreeSurf - Set to true to use non-linear free surface |
169 |
C momStepping - Turns momentum equation time-stepping off |
C momStepping - Turns momentum equation time-stepping off |
170 |
C tempStepping - Turns temperature equation time-stepping off |
C tempStepping - Turns temperature equation time-stepping off |
171 |
C saltStepping - Turns salinity equation time-stepping off |
C saltStepping - Turns salinity equation time-stepping off |
188 |
C allowFreezing - Allows water to freeze and form ice |
C allowFreezing - Allows water to freeze and form ice |
189 |
C groundAtK1 - put the surface(k=1) at the Lower Boundary (=ground) |
C groundAtK1 - put the surface(k=1) at the Lower Boundary (=ground) |
190 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
191 |
|
& usingCurvilinearGrid, |
192 |
& no_slip_sides,no_slip_bottom, |
& no_slip_sides,no_slip_bottom, |
193 |
& staggerTimeStep, |
& staggerTimeStep, |
194 |
& momViscosity, momAdvection, momForcing, useCoriolis, |
& momViscosity, momAdvection, momForcing, useCoriolis, |
195 |
& momPressureForcing,tempDiffusion, tempAdvection, tempForcing, |
& momPressureForcing,tempDiffusion, tempAdvection, tempForcing, |
196 |
& saltDiffusion, saltAdvection, saltForcing, |
& saltDiffusion, saltAdvection, saltForcing, |
197 |
& implicitFreeSurface, rigidLid, |
& rigidLid, implicitFreeSurface, exactConserv, nonlinFreeSurf, |
198 |
& momStepping, tempStepping, saltStepping, |
& momStepping, tempStepping, saltStepping, |
199 |
& metricTerms, usingSphericalPolarMTerms, |
& metricTerms, usingSphericalPolarMTerms, |
200 |
& useConstantF, useBetaPlaneF, useSphereF, |
& useConstantF, useBetaPlaneF, useSphereF, |
205 |
& allowFreezing, groundAtK1 |
& allowFreezing, groundAtK1 |
206 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
207 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
208 |
|
LOGICAL usingCurvilinearGrid |
209 |
LOGICAL usingSphericalPolarMTerms |
LOGICAL usingSphericalPolarMTerms |
210 |
LOGICAL no_slip_sides |
LOGICAL no_slip_sides |
211 |
LOGICAL no_slip_bottom |
LOGICAL no_slip_bottom |
221 |
LOGICAL saltDiffusion |
LOGICAL saltDiffusion |
222 |
LOGICAL saltAdvection |
LOGICAL saltAdvection |
223 |
LOGICAL saltForcing |
LOGICAL saltForcing |
|
LOGICAL implicitFreeSurface |
|
224 |
LOGICAL rigidLid |
LOGICAL rigidLid |
225 |
|
LOGICAL implicitFreeSurface |
226 |
|
LOGICAL exactConserv |
227 |
|
LOGICAL nonlinFreeSurf |
228 |
LOGICAL momStepping |
LOGICAL momStepping |
229 |
LOGICAL tempStepping |
LOGICAL tempStepping |
230 |
LOGICAL saltStepping |
LOGICAL saltStepping |
245 |
LOGICAL groundAtK1 |
LOGICAL groundAtK1 |
246 |
|
|
247 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
248 |
C cg2dTargetResidual |
C gg2dTargetResidual |
249 |
C - Target residual for cg2d solver. |
C - Target residual for cg2d solver; no unit (RHS normalisation) |
250 |
|
C cg2dTargetResWunit |
251 |
|
C - Target residual for cg2d solver; W unit (No RHS normalisation) |
252 |
C cg3dTargetResidual |
C cg3dTargetResidual |
253 |
C - Target residual for cg3d solver. |
C - Target residual for cg3d solver. |
254 |
C cg2dpcOffDFac - Averaging weight for preconditioner off-diagonal. |
C cg2dpcOffDFac - Averaging weight for preconditioner off-diagonal. |
336 |
C hFacMinDz - Minimum dimesional size of a cell (affects hFacC etc..., m) |
C hFacMinDz - Minimum dimesional size of a cell (affects hFacC etc..., m) |
337 |
C hFacMinDp - Minimum dimesional size of a cell (affects hFacC etc..., Pa) |
C hFacMinDp - Minimum dimesional size of a cell (affects hFacC etc..., Pa) |
338 |
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) |
339 |
|
C hFacInf - Threshold (inf and sup) for fraction size of surface cell |
340 |
|
C hFacSup that control vanishing and creating levels |
341 |
C tauCD - CD scheme coupling timescale ( 1/s ) |
C tauCD - CD scheme coupling timescale ( 1/s ) |
342 |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
C rCD - CD scheme normalised coupling parameter ( 0-1 ) |
343 |
C startTime - Starting time for this integration ( s ). |
C startTime - Starting time for this integration ( s ). |
374 |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
375 |
C bottomDragLinear - Drag coefficient built in to core dynamics |
C bottomDragLinear - Drag coefficient built in to core dynamics |
376 |
C " Quadratic ( linear: 1/s, quadratic: 1/m ) |
C " Quadratic ( linear: 1/s, quadratic: 1/m ) |
377 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dpcOffDFac, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
378 |
& cg3dTargetResidual, |
& cg2dpcOffDFac, cg3dTargetResidual, |
379 |
& delP, delZ, delR, delX, delY, |
& delP, delZ, delR, delX, delY, |
380 |
& deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, |
& deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, |
381 |
& phiMin, thetaMin, rSphere, recip_RSphere, f0, fCori, beta, |
& phiMin, thetaMin, rSphere, recip_RSphere, f0, beta, |
382 |
|
& fCori, fCoriG, |
383 |
& viscAh, viscAz, viscA4, viscAr, |
& viscAh, viscAz, viscA4, viscAr, |
384 |
& diffKhT, diffKzT, diffK4T, diffKrT, |
& diffKhT, diffKzT, diffK4T, diffKrT, |
385 |
& diffKhS, diffKzS, diffK4S, diffKrS, |
& diffKhS, diffKzS, diffK4S, diffKrS, |
386 |
& delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow, |
& delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow, |
387 |
& hFacMin, hFacMinDz, |
& hFacMin, hFacMinDz, hFacInf, hFacSup, |
388 |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
& gravity, recip_Gravity, gBaro, rhonil, recip_rhonil, |
389 |
& recip_rhoConst, rhoConst, tRef, sRef, |
& recip_rhoConst, rhoConst, tRef, sRef, |
390 |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
& endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq, |
399 |
& bottomDragLinear,bottomDragQuadratic |
& bottomDragLinear,bottomDragQuadratic |
400 |
|
|
401 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
402 |
|
_RL cg2dTargetResWunit |
403 |
_RL cg3dTargetResidual |
_RL cg3dTargetResidual |
404 |
_RL cg2dpcOffDFac |
_RL cg2dpcOffDFac |
405 |
_RL delZ(Nr) |
_RL delZ(Nr) |
424 |
_RL hFacMinDz |
_RL hFacMinDz |
425 |
_RL hFacMinDp |
_RL hFacMinDp |
426 |
_RL hFacMinDr |
_RL hFacMinDr |
427 |
|
_RL hFacInf |
428 |
|
_RL hFacSup |
429 |
_RL beta |
_RL beta |
430 |
_RL viscAh |
_RL viscAh |
431 |
_RL viscAz |
_RL viscAz |
456 |
_RL tRef(Nr) |
_RL tRef(Nr) |
457 |
_RL theta_S(Nr) |
_RL theta_S(Nr) |
458 |
_RL sRef(Nr) |
_RL sRef(Nr) |
459 |
_RS Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS fCori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
460 |
|
_RS fCoriG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
461 |
_RL startTime |
_RL startTime |
462 |
_RL endTime |
_RL endTime |
463 |
_RL chkPtFreq |
_RL chkPtFreq |