513 |
C delRc :: Vertical grid spacing between cell centers (r unit). |
C delRc :: Vertical grid spacing between cell centers (r unit). |
514 |
C delX :: Separation between cell faces (m) or (deg), depending |
C delX :: Separation between cell faces (m) or (deg), depending |
515 |
C delY on input flags. |
C delY on input flags. |
516 |
|
C xgOrigin :: Origin of the X-axis (Cartesian Grid) / Longitude of Western |
517 |
|
C :: most cell face (Lat-Lon grid) (Note: this is an "inert" |
518 |
|
C :: parameter but it makes geographical references simple.) |
519 |
|
C ygOrigin :: Origin of the Y-axis (Cartesian Grid) / Latitude of Southern |
520 |
|
C :: most face (Lat-Lon grid). |
521 |
C gravity :: Accel. due to gravity ( m/s^2 ) |
C gravity :: Accel. due to gravity ( m/s^2 ) |
522 |
C recip_gravity and its inverse |
C recip_gravity and its inverse |
523 |
C gBaro :: Accel. due to gravity used in barotropic equation ( m/s^2 ) |
C gBaro :: Accel. due to gravity used in barotropic equation ( m/s^2 ) |
547 |
C :: from vertical r-coordinate unit to mass per unit area [kg/m2]. |
C :: from vertical r-coordinate unit to mass per unit area [kg/m2]. |
548 |
C :: z-coord: = rhoConst ( [m] * rho = [kg/m2] ) ; |
C :: z-coord: = rhoConst ( [m] * rho = [kg/m2] ) ; |
549 |
C :: p-coord: = 1/gravity ( [Pa] / g = [kg/m2] ) ; |
C :: p-coord: = 1/gravity ( [Pa] / g = [kg/m2] ) ; |
|
C xgOrigin :: Origin of the X-axis (Cartesian Grid) / Longitude of Western |
|
|
C :: most cell face (Lat-Lon grid) (Note: this is an "inert" |
|
|
C :: parameter but it makes geographical references simple.) |
|
|
C ygOrigin :: Origin of the Y-axis (Cartesian Grid) / Latitude of Southern |
|
|
C :: most face (Lat-Lon grid). |
|
550 |
C rSphere :: Radius of sphere for a spherical polar grid ( m ). |
C rSphere :: Radius of sphere for a spherical polar grid ( m ). |
551 |
C recip_rSphere :: Reciprocal radius of sphere ( m ). |
C recip_rSphere :: Reciprocal radius of sphere ( m ). |
552 |
|
C radius_fromHorizGrid :: sphere Radius of input horiz. grid (Curvilinear Grid) |
553 |
C f0 :: Reference coriolis parameter ( 1/s ) |
C f0 :: Reference coriolis parameter ( 1/s ) |
554 |
C ( Southern edge f for beta plane ) |
C ( Southern edge f for beta plane ) |
555 |
C beta :: df/dy ( s^-1.m^-1 ) |
C beta :: df/dy ( s^-1.m^-1 ) |
714 |
C psiEuler :: Euler angle, rotation about new z-axis |
C psiEuler :: Euler angle, rotation about new z-axis |
715 |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
COMMON /PARM_R/ cg2dTargetResidual, cg2dTargetResWunit, |
716 |
& cg2dpcOffDFac, cg3dTargetResidual, |
& cg2dpcOffDFac, cg3dTargetResidual, |
717 |
& delR, delRc, delX, delY, |
& delR, delRc, delX, delY, xgOrigin, ygOrigin, |
718 |
& deltaT, deltaTmom, dTtracerLev, deltaTfreesurf, deltaTClock, |
& deltaT, deltaTmom, dTtracerLev, deltaTfreesurf, deltaTClock, |
719 |
& abEps, alph_AB, beta_AB, |
& abEps, alph_AB, beta_AB, |
720 |
& xgOrigin, ygOrigin, rSphere, recip_rSphere, |
& rSphere, recip_rSphere, radius_fromHorizGrid, |
721 |
& f0, beta, fPrime, omega, rotationPeriod, |
& f0, beta, fPrime, omega, rotationPeriod, |
722 |
& viscFacAdj, viscAh, viscAhW, viscAhMax, |
& viscFacAdj, viscAh, viscAhW, viscAhMax, |
723 |
& viscAhGrid, viscAhGridMax, viscAhGridMin, |
& viscAhGrid, viscAhGridMax, viscAhGridMin, |
765 |
_RL delRc(Nr+1) |
_RL delRc(Nr+1) |
766 |
_RL delX(Nx) |
_RL delX(Nx) |
767 |
_RL delY(Ny) |
_RL delY(Ny) |
768 |
|
_RL xgOrigin |
769 |
|
_RL ygOrigin |
770 |
_RL deltaT |
_RL deltaT |
771 |
_RL deltaTClock |
_RL deltaTClock |
772 |
_RL deltaTmom |
_RL deltaTmom |
773 |
_RL dTtracerLev(Nr) |
_RL dTtracerLev(Nr) |
774 |
_RL deltaTfreesurf |
_RL deltaTfreesurf |
775 |
_RL abEps, alph_AB, beta_AB |
_RL abEps, alph_AB, beta_AB |
|
_RL xgOrigin |
|
|
_RL ygOrigin |
|
776 |
_RL rSphere |
_RL rSphere |
777 |
_RL recip_rSphere |
_RL recip_rSphere |
778 |
|
_RL radius_fromHorizGrid |
779 |
_RL f0 |
_RL f0 |
780 |
_RL beta |
_RL beta |
781 |
_RL fPrime |
_RL fPrime |