| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
58 |
NO PROCEDURE |
& hFac_surfC, hFac_surfW, hFac_surfS, |
|
./model/inc/SURFACE.h |
62 |
NO PROCEDURE |
_RS hFac_surfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/calc_surf_dr.F |
179 |
CALC_SURF_DR |
hFac_surfS(i,j,bi,bj) = h0FacS(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 |
73 |
CALC_SURF_DR |
hFac_surfNm1S(i,j,bi,bj) = hFac_surfS(i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
76 |
INI_NLFS_VARS |
hFac_surfS(i,j,bi,bj) = 0. |
|
./model/src/timestep.F |
314 |
TIMESTEP |
& *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
81 |
UPDATE_SURF_DR |
hFacS(i,j,ks,bi,bj) = hFac_surfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
82 |
UPDATE_SURF_DR |
recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj) |