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, |
359 |
& recip_hFacC,recip_hFacW,recip_hFacS, |
& recip_hFacC,recip_hFacW,recip_hFacS, |
360 |
& rkFac, recip_rkFac, |
& rkFac, recip_rkFac, |
361 |
& saFac, |
& saFac, |
362 |
& xC,yC,rA,rC,rF,yC0,xC0, |
& xC,yC,rA,rAw,rAs,rC,rF,yC0,xC0, |
363 |
& maskW,maskS, |
& maskW,maskS, |
364 |
& tanPhiAtU, tanPhiAtV |
& tanPhiAtU, tanPhiAtV |
365 |
_RS dxC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS dxC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
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) |
399 |
_RS yC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS yC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
400 |
_RS yC0 |
_RS yC0 |
401 |
_RS rA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS rA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
402 |
|
_RS rAw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
403 |
|
_RS rAs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
404 |
_RS rC (1:Nr) |
_RS rC (1:Nr) |
405 |
_RS rF (1:Nr+1) |
_RS rF (1:Nr+1) |
406 |
_RS maskW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
_RS maskW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy) |
407 |
_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) |
408 |
_RS tanPhiAtU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS tanPhiAtU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
409 |
_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) |
|