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. |
C horiVertRatio - Ratio on units in vertical to units in horizontal. |
304 |
C ( 1 if horiz in m and vertical in m ). |
C recip_horiVertRatio ( 1 if horiz in m and vertical in m ). |
305 |
C ( g*rho if horiz in m and vertical in Pa ). |
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, |
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, horiVertRatio |
& theta_S, specVol_S, horiVertRatio, recip_horiVertRatio |
324 |
|
|
325 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
326 |
_RL cg2dpcOffDFac |
_RL cg2dpcOffDFac |
401 |
_RL externForcingCycle |
_RL externForcingCycle |
402 |
_RL externForcingPeriod |
_RL externForcingPeriod |
403 |
_RL horiVertRatio |
_RL horiVertRatio |
404 |
|
_RL recip_horiVertRatio |
405 |
|
|
406 |
COMMON /PARM_A/ HeatCapacity_Cp, |
COMMON /PARM_A/ HeatCapacity_Cp, |
407 |
& Lamba_theta |
& Lamba_theta |