351 |
C metric term in V equation. |
C metric term in V equation. |
352 |
COMMON /GRID_R/ |
COMMON /GRID_R/ |
353 |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,drC,drF, |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,drC,drF, |
354 |
& H,HFacC,HFacW,HFacS, |
& H,HFacC,HFacW,HFacS,DepthInK, |
355 |
& recip_dxC,recip_dxF,recip_dxG,recip_dxV, |
& recip_dxC,recip_dxF,recip_dxG,recip_dxV, |
356 |
& recip_dyC,recip_dyF,recip_dyG,recip_dyU, |
& recip_dyC,recip_dyF,recip_dyG,recip_dyU, |
357 |
& recip_drC,recip_drF, |
& recip_drC,recip_drF, |
374 |
_RS drF (1:Nr) |
_RS drF (1:Nr) |
375 |
_RS rkFac |
_RS rkFac |
376 |
_RS recip_rkFac |
_RS recip_rkFac |
377 |
|
_RS DepthInK (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
378 |
_RS H (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS H (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
379 |
_RS HFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
_RS HFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
380 |
_RS HFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
_RS HFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
405 |
_RS maskS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
_RS maskS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
406 |
_RS tanPhiAtU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS tanPhiAtU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
407 |
_RS tanPhiAtV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS tanPhiAtV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
|
|
C-- COMMON /GRID_I/ Integer valued grid defining variables |
|
|
C iDep - Index of last "non-land" cell for each column f[X,Y]. |
|
|
COMMON /GRID_I/ |
|
|
& iDep |
|
|
INTEGER iDep(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|