367 |
C are referenced to this clock. ( s ) |
C are referenced to this clock. ( s ) |
368 |
C deltaTMom :: Timestep for momemtum equations ( s ) |
C deltaTMom :: Timestep for momemtum equations ( s ) |
369 |
C deltaTtracer :: Timestep for tracer equations ( s ) |
C deltaTtracer :: Timestep for tracer equations ( s ) |
370 |
|
C deltaTfreesurf :: Timestep for free-surface equation ( s ) |
371 |
C freesurfFac :: Parameter to turn implicit free surface term on or off |
C freesurfFac :: Parameter to turn implicit free surface term on or off |
372 |
C freesurfac = 1. uses implicit free surface |
C freesurfac = 1. uses implicit free surface |
373 |
C freesurfac = 0. uses rigid lid |
C freesurfac = 0. uses rigid lid |
428 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
429 |
& cg2dpcOffDFac, cg3dTargetResidual, |
& cg2dpcOffDFac, cg3dTargetResidual, |
430 |
& delP, delZ, delR, delRc, delX, delY, |
& delP, delZ, delR, delRc, delX, delY, |
431 |
& deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime, |
& deltaT, deltaTmom, deltaTtracer, deltaTfreesurf, deltaTClock, |
432 |
|
& abeps, startTime, |
433 |
& phiMin, thetaMin, rSphere, recip_RSphere, f0, beta, |
& phiMin, thetaMin, rSphere, recip_RSphere, f0, beta, |
434 |
& fCori, fCoriG, |
& fCori, fCoriG, |
435 |
& viscAh, viscAz, viscA4, viscAr, viscAstrain, viscAtension, |
& viscAh, viscAz, viscA4, viscAr, viscAstrain, viscAtension, |
467 |
_RL deltaTClock |
_RL deltaTClock |
468 |
_RL deltaTmom |
_RL deltaTmom |
469 |
_RL deltaTtracer |
_RL deltaTtracer |
470 |
|
_RL deltaTfreesurf |
471 |
_RL abeps |
_RL abeps |
472 |
_RL phiMin |
_RL phiMin |
473 |
_RL thetaMin |
_RL thetaMin |