| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
58 |
NO PROCEDURE |
& hFac_surfC, hFac_surfW, hFac_surfS, |
|
./model/inc/SURFACE.h |
61 |
NO PROCEDURE |
_RS hFac_surfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/calc_surf_dr.F |
158 |
CALC_SURF_DR |
hFac_surfW(i,j,bi,bj) = h0FacW(i,j,ks,bi,bj) |
|
./model/src/calc_surf_dr.F |
192 |
CALC_SURF_DR |
U hFac_surfC, hFac_surfW, hFac_surfS, |
|
./model/src/calc_surf_dr.F |
215 |
CALC_SURF_DR |
CALL EXCH_UV_XY_RS(hFac_surfW,hFac_surfS,.FALSE.,myThid) |
|
./model/src/calc_surf_dr.F |
74 |
CALC_SURF_DR |
hFac_surfNm1W(i,j,bi,bj) = hFac_surfW(i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
75 |
INI_NLFS_VARS |
hFac_surfW(i,j,bi,bj) = 0. |
|
./model/src/timestep.F |
310 |
TIMESTEP |
& *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
72 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
73 |
UPDATE_SURF_DR |
recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj) |