| File |
Line number |
Procedure |
Code |
|
./model/src/calc_surf_dr.F |
202 |
CALC_SURF_DR |
hFac_surfW(i,j,bi,bj) = |
|
./model/src/calc_surf_dr.F |
244 |
CALC_SURF_DR |
CALL EXCH_UV_XY_RS(hFac_surfW,hFac_surfS,.FALSE.,myThid) |
|
./model/src/calc_surf_dr.F |
78 |
CALC_SURF_DR |
hFac_surfW(i,j,bi,bj) = 0. |
|
./model/src/timestep.F |
242 |
TIMESTEP |
& *hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj) |
|
./model/inc/SURFACE.h |
58 |
NO PROCEDURE |
& hFac_surfC, hFac_surfW, hFac_surfS |
|
./model/inc/SURFACE.h |
60 |
NO PROCEDURE |
_RS hFac_surfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/update_surf_dr.F |
55 |
UPDATE_SURF_DR |
U hFac_surfC, hFac_surfW, hFac_surfS, |
|
./model/src/update_surf_dr.F |
77 |
UPDATE_SURF_DR |
hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
78 |
UPDATE_SURF_DR |
recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj) |