585 |
C ( g*rho if horiz in m and vertical in Pa ). |
C ( g*rho if horiz in m and vertical in Pa ). |
586 |
C Ro_SeaLevel :: standard position of Sea-Level in "R" coordinate, used as |
C Ro_SeaLevel :: standard position of Sea-Level in "R" coordinate, used as |
587 |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
C starting value (k=1) for vertical coordinate (rf(1)=Ro_SeaLevel) |
588 |
|
C sideDragFactor :: side-drag scaling factor (used only if no_slip_sides) |
589 |
|
C (default=2: full drag ; =1: gives half-slip BC) |
590 |
C bottomDragLinear :: Drag coefficient built in to core dynamics |
C bottomDragLinear :: Drag coefficient built in to core dynamics |
591 |
C --"-"-- Quadratic ( linear: 1/s, quadratic: 1/m ) |
C bottomDragQuadratic ( linear: 1/s, quadratic: 1/m ) |
592 |
|
C nh_Am2 :: scales the non-hydrostatic terms and changes internal scales |
593 |
|
C (i.e. allows convection at different Rayleigh numbers) |
594 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
595 |
& cg2dpcOffDFac, cg3dTargetResidual, |
& cg2dpcOffDFac, cg3dTargetResidual, |
596 |
& delR, delRc, delX, delY, |
& delR, delRc, delX, delY, |
627 |
& hFacMinDr, hFacMinDp, |
& hFacMinDr, hFacMinDp, |
628 |
& horiVertRatio, recip_horiVertRatio, |
& horiVertRatio, recip_horiVertRatio, |
629 |
& ivdc_kappa, Ro_SeaLevel, |
& ivdc_kappa, Ro_SeaLevel, |
630 |
& bottomDragLinear,bottomDragQuadratic,nh_Am2, |
& sideDragFactor, bottomDragLinear, bottomDragQuadratic, nh_Am2, |
631 |
& tCylIn, tCylOut |
& tCylIn, tCylOut |
632 |
|
|
|
_RL nh_Am2 |
|
633 |
_RL cg2dTargetResidual |
_RL cg2dTargetResidual |
634 |
_RL cg2dTargetResWunit |
_RL cg2dTargetResWunit |
635 |
_RL cg3dTargetResidual |
_RL cg3dTargetResidual |
742 |
_RL recip_horiVertRatio |
_RL recip_horiVertRatio |
743 |
_RL ivdc_kappa |
_RL ivdc_kappa |
744 |
_RL Ro_SeaLevel |
_RL Ro_SeaLevel |
745 |
|
_RL sideDragFactor |
746 |
_RL bottomDragLinear |
_RL bottomDragLinear |
747 |
_RL bottomDragQuadratic |
_RL bottomDragQuadratic |
748 |
|
_RL nh_Am2 |
749 |
_RL tCylIn |
_RL tCylIn |
750 |
_RL tCylOut |
_RL tCylOut |
751 |
|
|