325 |
C (= +1 for R=P (P increases downward, +gravity direction) |
C (= +1 for R=P (P increases downward, +gravity direction) |
326 |
C rkSign - Vertical coordinate to vertical index orientation. |
C rkSign - Vertical coordinate to vertical index orientation. |
327 |
C ( +1 same orientation, -1 opposite orientation ) |
C ( +1 same orientation, -1 opposite orientation ) |
328 |
|
C globalArea :: Domain Integrated horizontal Area [m2] |
329 |
C maskH - cell Center full-column mask (= 2D mask) |
C maskH - cell Center full-column mask (= 2D mask) |
330 |
C maskC - cell Center land mask |
C maskC - cell Center land mask |
331 |
C maskW - West face land mask |
C maskW - West face land mask |
377 |
|
|
378 |
COMMON /GRID_R/ |
COMMON /GRID_R/ |
379 |
& cosfacU,cosfacV,sqcosfacU,sqcosfacV, |
& cosfacU,cosfacV,sqcosfacU,sqcosfacV, |
380 |
& gravitySign, rkSign, |
& gravitySign, rkSign, globalArea, |
381 |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU, |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU, |
382 |
& R_low,Ro_surf,hFacC,hFacW,hFacS, |
& R_low,Ro_surf,hFacC,hFacW,hFacS, |
383 |
& recip_dxC,recip_dxF,recip_dxG,recip_dxV, |
& recip_dxC,recip_dxF,recip_dxG,recip_dxV, |
398 |
_RL sqcosfacV(1-Oly:sNy+Oly,nSx,nSy) |
_RL sqcosfacV(1-Oly:sNy+Oly,nSx,nSy) |
399 |
_RL gravitySign |
_RL gravitySign |
400 |
_RL rkSign |
_RL rkSign |
401 |
|
_RL globalArea |
402 |
_RS dxC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dxC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
403 |
_RS dxF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dxF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
404 |
_RS dxG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dxG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |