60 |
_RS hFac_surfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS hFac_surfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
61 |
_RS hFac_surfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS hFac_surfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
62 |
|
|
63 |
|
C Local variables in common block |
64 |
|
C Rmin_surf :: minimum r_value of the free surface position |
65 |
|
C that satisfy the hFacInf criteria |
66 |
|
COMMON /LOCAL_CALC_SURF_DR/ Rmin_surf |
67 |
|
_RL Rmin_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
68 |
|
|
69 |
C-- COMMON /RSTAR_CHANGE/ transient variables used with r* Coordinate |
C-- COMMON /RSTAR_CHANGE/ transient variables used with r* Coordinate |
70 |
C rStarFacC :: = dr/dr* = ratio of r-thickness / r*-thickness = h^n / H |
C rStarFacC :: = dr/dr* = ratio of r-thickness / r*-thickness = h^n / H |
71 |
C rStarFacW :: same but for West face |
C rStarFacW :: same but for West face |