343 |
C drC :: Cell center separation along Z axis ( units of r ). |
C drC :: Cell center separation along Z axis ( units of r ). |
344 |
C drF :: Cell face separation along Z axis ( units of r ). |
C drF :: Cell face separation along Z axis ( units of r ). |
345 |
C R_low :: base of fluid in r_unit (Depth(m) / Pressure(Pa) at top Atmos.) |
C R_low :: base of fluid in r_unit (Depth(m) / Pressure(Pa) at top Atmos.) |
346 |
|
C rLowW :: base of fluid column in r_unit at Western edge location. |
347 |
|
C rLowS :: base of fluid column in r_unit at Southern edge location. |
348 |
C Ro_surf :: surface reference (at rest) position, r_unit. |
C Ro_surf :: surface reference (at rest) position, r_unit. |
349 |
|
C rSurfW :: surface reference position at Western edge location [r_unit]. |
350 |
|
C rSurfS :: surface reference position at Southern edge location [r_unit]. |
351 |
C hFac :: Fraction of cell in vertical which is open i.e how |
C hFac :: Fraction of cell in vertical which is open i.e how |
352 |
C "lopped" a cell is (dimensionless scale factor). |
C "lopped" a cell is (dimensionless scale factor). |
353 |
C Note: The code needs terms like MIN(hFac,hFac(I+1)) |
C Note: The code needs terms like MIN(hFac,hFac(I+1)) |
402 |
|
|
403 |
COMMON /GRID_RS/ |
COMMON /GRID_RS/ |
404 |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU, |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU, |
405 |
& R_low, Ro_surf, |
& R_low, rLowW, rLowS, |
406 |
|
& Ro_surf, rSurfW, rSurfS, |
407 |
& hFacC, hFacW, hFacS, |
& hFacC, hFacW, hFacS, |
408 |
& recip_dxC,recip_dxF,recip_dxG,recip_dxV, |
& recip_dxC,recip_dxF,recip_dxG,recip_dxV, |
409 |
& recip_dyC,recip_dyF,recip_dyG,recip_dyU, |
& recip_dyC,recip_dyF,recip_dyG,recip_dyU, |
413 |
& maskInC, maskInW, maskInS, |
& maskInC, maskInW, maskInS, |
414 |
& maskC, maskW, maskS, |
& maskC, maskW, maskS, |
415 |
& recip_rA,recip_rAw,recip_rAs,recip_rAz, |
& recip_rA,recip_rAw,recip_rAs,recip_rAz, |
416 |
|
& drC, drF, recip_drC, recip_drF, rC, rF, |
417 |
& tanPhiAtU, tanPhiAtV, angleCosC, angleSinC, |
& tanPhiAtU, tanPhiAtV, angleCosC, angleSinC, |
|
& drC,drF,recip_drC,recip_drF,rC,rF, |
|
418 |
& fCori, fCoriG, fCoriCos |
& fCori, fCoriG, fCoriCos |
419 |
c & , maskH |
c & , maskH |
420 |
_RS dxC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dxC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
426 |
_RS dyG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dyG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
427 |
_RS dyU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dyU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
428 |
_RS R_low (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS R_low (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
429 |
|
_RS rLowW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
430 |
|
_RS rLowS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
431 |
_RS Ro_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS Ro_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
432 |
|
_RS rSurfW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
433 |
|
_RS rSurfS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
434 |
_RS hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RS hFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
435 |
_RS hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RS hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
436 |
_RS hFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RS hFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
465 |
_RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
466 |
_RS maskW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RS maskW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
467 |
_RS maskS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RS maskS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
_RS tanPhiAtU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
_RS tanPhiAtV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
_RS angleCosC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
_RS angleSinC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
468 |
_RS drC (Nr) |
_RS drC (Nr) |
469 |
_RS drF (Nr) |
_RS drF (Nr) |
470 |
_RS recip_drC (Nr) |
_RS recip_drC (Nr) |
471 |
_RS recip_drF (Nr) |
_RS recip_drF (Nr) |
472 |
_RS rC (Nr) |
_RS rC (Nr) |
473 |
_RS rF (Nr+1) |
_RS rF (Nr+1) |
474 |
|
_RS tanPhiAtU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
475 |
|
_RS tanPhiAtV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
476 |
|
_RS angleCosC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
477 |
|
_RS angleSinC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
478 |
_RS fCori (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS fCori (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
479 |
_RS fCoriG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS fCoriG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
480 |
_RS fCoriCos (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS fCoriCos (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
481 |
|
|
|
#ifdef ALLOW_NONHYDROSTATIC |
|
|
C-- COMMON /GRID_NH_RS/ RS grid defining variables for Non-Hydrostatic code. |
|
|
C rLowW :: base of fluid column in r_unit at Western edge location. |
|
|
C rLowS :: base of fluid column in r_unit at Southern edge location. |
|
|
C rSurfW :: surface reference position at Western edge location [r_unit]. |
|
|
C rSurfS :: surface reference position at Southern edge location [r_unit]. |
|
|
COMMON /GRID_NH_RS/ |
|
|
& rLowW, rLowS, rSurfW, rSurfS |
|
|
_RS rLowW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
_RS rLowS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
_RS rSurfW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
_RS rSurfS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
#endif /* ALLOW_NONHYDROSTATIC */ |
|
|
|
|
482 |
#ifdef ALLOW_DEPTH_CONTROL |
#ifdef ALLOW_DEPTH_CONTROL |
483 |
C-- COMMON /GRID_DEPTH_CTRL/ grid defining variables for Depth Control code. |
C-- COMMON /GRID_DEPTH_CTRL/ grid defining variables for Depth Control code. |
484 |
C xx_r_low :: in TAF-sense active replacement of R_low |
C xx_r_low :: in TAF-sense active replacement of R_low |