| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
421 |
NO PROCEDURE |
& recip_hFacC,recip_hFacW,recip_hFacS, |
|
./model/inc/GRID.h |
459 |
NO PROCEDURE |
_RS recip_hFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/RECIP_HFACW_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
145 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(km1)*recip_hFacW(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
148 |
GMREDI_CALC_PSI_BVP |
& *(recip_drF(km1)*recip_hFacW(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
149 |
GMREDI_CALC_PSI_BVP |
& +recip_drF(k)*recip_hFacW(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
151 |
GMREDI_CALC_PSI_BVP |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
680 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
698 |
GMREDI_K3D |
& *recip_drF(k)*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
170 |
MOM_U_BOTDRAG_IMPL |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
156 |
MOM_U_BOTTOMDRAG |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_uv_smag_3d.F |
91 |
MOM_UV_SMAG_3D |
& )*rkSign*recip_hFacW(i,j,k,bi,bj) |
|
./model/src/dynamics.F |
598 |
DYNAMICS |
I -1, kappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj), |
|
./model/src/dynamics.F |
630 |
DYNAMICS |
I 0, kappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/shelfice/shelfice_u_drag.F |
146 |
SHELFICE_U_DRAG |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./model/src/ini_masks_etc.F |
488 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
491 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 0. |
|
./pkg/zonal_filt/zonal_filt_apply_uv.F |
60 |
ZONAL_FILT_APPLY_UV |
uFld(i,j,k,bi,bj) = uFlow(i,j)*recip_hFacW(i,j,k,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
73 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj) |
|
./model/src/timestep.F |
295 |
TIMESTEP |
& *recip_hFacW(i,j,k,bi,bj) |
|
./model/src/update_masks_etc.F |
307 |
UPDATE_MASKS_ETC |
recip_hFacW(I,J,K,bi,bj) = 1. _d 0 / hFacw(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
310 |
UPDATE_MASKS_ETC |
recip_hFacW(I,J,K,bi,bj) = 0. |
|
./model/src/update_r_star.F |
104 |
UPDATE_R_STAR |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
112 |
UPDATE_R_STAR |
& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
69 |
UPDATE_R_STAR |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
77 |
UPDATE_R_STAR |
& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj) |
|
./model/src/update_sigma.F |
147 |
UPDATE_SIGMA |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_surf_dr.F |
109 |
UPDATE_SURF_DR |
recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1W(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) |
|
./pkg/aim_v23/aim_tendency_apply.F |
115 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
138 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,k,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
66 |
ATM_PHYS_TENDENCY_APPLY_U |
& )*recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
160 |
CTRL_GETOBCSE |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcse.F |
229 |
CTRL_GETOBCSE |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
168 |
CTRL_GETOBCSN |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsn.F |
237 |
CTRL_GETOBCSN |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
164 |
CTRL_GETOBCSS |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcss.F |
233 |
CTRL_GETOBCSS |
& *recip_hFacW(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
160 |
CTRL_GETOBCSW |
& *recip_hFacW(i+ip1,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_getobcsw.F |
229 |
CTRL_GETOBCSW |
& *recip_hFacW(i+ip1,j,k,bi,bj) |