300 |
C externForcingCycle - Is the repeat time of the forcing (eg. 1 year) |
C externForcingCycle - Is the repeat time of the forcing (eg. 1 year) |
301 |
C (note: externForcingCycle must be an integer |
C (note: externForcingCycle must be an integer |
302 |
C number times externForcingPeriod) |
C number times externForcingPeriod) |
303 |
|
C horiVertRatio - Ratio on units in vertical to units in horizontal. |
304 |
|
C ( 1 if horiz in m and vertical in m ). |
305 |
|
C ( g*rho if horiz in m and vertical in Pa ). |
306 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dpcOffDFac, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dpcOffDFac, |
307 |
& delP, delZ, delR, delX, delY, |
& delP, delZ, delR, delX, delY, |
308 |
& deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, phiMin, |
& deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, phiMin, |
320 |
& tauSaltClimRelax, lambdaSaltClimRelax, |
& tauSaltClimRelax, lambdaSaltClimRelax, |
321 |
& externForcingCycle, externForcingPeriod, |
& externForcingCycle, externForcingPeriod, |
322 |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
& viscAp, diffKpT, diffKpS, hFacMinDr, hFacMinDp, |
323 |
& theta_S, specVol_S |
& theta_S, specVol_S, horiVertRatio |
324 |
|
|
325 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
326 |
_RL cg2dpcOffDFac |
_RL cg2dpcOffDFac |
400 |
_RL lambdaSaltClimRelax |
_RL lambdaSaltClimRelax |
401 |
_RL externForcingCycle |
_RL externForcingCycle |
402 |
_RL externForcingPeriod |
_RL externForcingPeriod |
403 |
|
_RL horiVertRatio |
404 |
|
|
405 |
COMMON /PARM_A/ HeatCapacity_Cp, |
COMMON /PARM_A/ HeatCapacity_Cp, |
406 |
& Lamba_theta |
& Lamba_theta |