Symbol Description Uses
_hFacW 157


File Line number Procedure Code
./model/inc/HFACW_MACROS.h 36 NO PROCEDURE 
# define _hFacW(i,j,k,bi,bj) hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 278 GAD_ADVECTION 
     &           *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 247 GAD_SOM_ADVECT 
     &            *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 344 GGL90_CALC 
     &                 (min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) +
./pkg/ggl90/ggl90_calc.F 345 GGL90_CALC 
     &                  min(.5 _d 0,_hFacW(i,j,k  ,bi,bj) ) )
./pkg/gmredi/gmredi_calc_tensor.F 805 GMREDI_CALC_TENSOR 
     &                * _hFacW(i,j,k,bi,bj)
./model/src/calc_adv_flow.F 76 CALC_ADV_FLOW 
     &           *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 68 CALC_DIV_GHAT 
     &              *drF(k)*_hFacW(i,j,k,bi,bj)*rhoFacC(k)
./model/src/calc_gw.F 263 CALC_GW 
     &          drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 264 CALC_GW 
     &        + drF( k )*MIN( _hFacW(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 500 CALC_GW 
     &          drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj)
./model/src/calc_gw.F 502 CALC_GW 
     &        + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 119 MOM_CALC_HFACZ 
     &       SMOOTHMIN_RS(_hFacW(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 121 MOM_CALC_HFACZ 
     &                MIN(_hFacW(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 123 MOM_CALC_HFACZ 
     &                    _hFacW(i  ,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 198 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 199 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 216 MOM_CALC_HFACZ 
     &                  _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 217 MOM_CALC_HFACZ 
     &                + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 227 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 228 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 263 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 264 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 270 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 272 MOM_CALC_HFACZ 
     &               + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 275 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 276 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 288 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 289 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 296 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 297 MOM_CALC_HFACZ 
     &               + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 300 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 301 MOM_CALC_HFACZ 
     &                +_hFacW(i, j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 305 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 307 MOM_CALC_HFACZ 
     &               + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 318 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 319 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 326 MOM_CALC_HFACZ 
     &                +_hFacW(i, j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 327 MOM_CALC_HFACZ 
     &               + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 330 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 331 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 335 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 337 MOM_CALC_HFACZ 
     &               + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 347 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 348 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 354 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 355 MOM_CALC_HFACZ 
     &                +_hFacW(i, j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 359 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 361 MOM_CALC_HFACZ 
     &               + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 110 MOM_CALC_KE 
     &           ( uFld( i , j )*uFld( i , j )*_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 111 MOM_CALC_KE 
     &            +uFld(i+1, j )*uFld(i+1, j )*_hFacW(i+1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_ke.F 125 MOM_CALC_KE 
     &        *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 127 MOM_CALC_KE 
     &        *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 113 MOM_U_SIDEDRAG 
        hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F 114 MOM_U_SIDEDRAG 
        hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_common/mom_u_sidedrag.F 71 MOM_U_SIDEDRAG 
        hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F 72 MOM_U_SIDEDRAG 
        hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_fluxform/mom_fluxform.F 271 MOM_FLUXFORM 
     &          *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 108 MOM_U_DEL2U 
         hFacZClosedS = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j)
./pkg/mom_fluxform/mom_u_del2u.F 109 MOM_U_DEL2U 
         hFacZClosedN = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j+1)
./pkg/mom_vecinv/mom_vi_coriolis.F 77 MOM_VI_CORIOLIS 
     &      (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 78 MOM_VI_CORIOLIS 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 79 MOM_VI_CORIOLIS 
     &     +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 80 MOM_VI_CORIOLIS 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)))
./pkg/mom_vecinv/mom_vi_coriolis.F 81 MOM_VI_CORIOLIS 
     &   / MAX( epsil,(_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 82 MOM_VI_CORIOLIS 
     &               +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj)) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 191 MOM_VI_U_CORIOLIS 
     &           * 4. _d 0 * _hFacW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 117 MOM_VI_V_CORIOLIS 
     &       uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 118 MOM_VI_V_CORIOLIS 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 120 MOM_VI_V_CORIOLIS 
     &       uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 121 MOM_VI_V_CORIOLIS 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 152 MOM_VI_V_CORIOLIS 
     &      *uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 158 MOM_VI_V_CORIOLIS 
     &      *uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 164 MOM_VI_V_CORIOLIS 
     &      *uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 170 MOM_VI_V_CORIOLIS 
     &      *uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 193 MOM_VI_V_CORIOLIS 
     &                  (_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis.F 194 MOM_VI_V_CORIOLIS 
     &                 +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis.F 66 MOM_VI_V_CORIOLIS 
     &      (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 67 MOM_VI_V_CORIOLIS 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis.F 68 MOM_VI_V_CORIOLIS 
     &     +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 69 MOM_VI_V_CORIOLIS 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 130 MOM_VI_V_CORIOLIS_C4 
     &      (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 131 MOM_VI_V_CORIOLIS_C4 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 132 MOM_VI_V_CORIOLIS_C4 
     &     +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 133 MOM_VI_V_CORIOLIS_C4 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 171 MOM_VI_V_CORIOLIS_C4 
     &       uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 172 MOM_VI_V_CORIOLIS_C4 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 174 MOM_VI_V_CORIOLIS_C4 
     &       uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 175 MOM_VI_V_CORIOLIS_C4 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) )
./pkg/monitor/mon_ke.F 100 MON_KE 
     &         *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)
./pkg/monitor/mon_ke.F 202 MON_KE 
     &             + R_drK*tmpVal*_hFacW(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 98 MON_KE 
     &         *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 129 MON_VORT3 
     &           0.25 _d 0*( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 130 MON_VORT3 
     &                     + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 192 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 193 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 207 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 208 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 222 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 223 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 237 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 238 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 255 MON_VORT3 
            hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 273 MON_VORT3 
            hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 187 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 188 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 204 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 205 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 325 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 326 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 342 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 343 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 729 OBCS_CALC_STEVENS 
     &         *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 733 OBCS_CALC_STEVENS 
     &         *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj)
./model/src/diags_rho.F 169 DIAGS_RHO_G 
             tmpFld(i,j) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 150 SHAP_FILT_APPLY_UV 
     &                *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 152 SHAP_FILT_APPLY_UV 
     &                *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 136 SHAP_FILT_TRACER_S2 
     &                     *_hFacW(i,j,k,bi,bj)
./model/src/ini_cg2d.F 104 INI_CG2D 
     &               *_hFacW(i,j,k,bi,bj)
./model/src/ini_cg3d.F 112 INI_CG3D 
     &               *_hFacW(i,j,k,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 243 SHELFICE_THERMODYNAMICS 
     &         ( uVel(I,  J,K,bi,bj) * _hFacW(I,  J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 244 SHELFICE_THERMODYNAMICS 
     &         + uVel(I+1,J,K,bi,bj) * _hFacW(I+1,J,K,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 271 SHELFICE_THERMODYNAMICS 
     &           ( uVel(I,  J,Kp1,bi,bj) * _hFacW(I,  J,Kp1,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 272 SHELFICE_THERMODYNAMICS 
     &           + uVel(I+1,J,Kp1,bi,bj) * _hFacW(I+1,J,Kp1,bi,bj) )
./pkg/smooth/smooth_init_fixed.F 39 SMOOTH_INIT_FIXED 
          smooth_hFacW(i,j,k,bi,bj)=_hFacW(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 348 INI_MASKS_ETC 
           h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 44 MOM_VI_HFACZ_DISS 
        hFacZOpen=MIN(_hFacW(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 45 MOM_VI_HFACZ_DISS 
     &              + _hFacW(i,j-1,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 64 MOM_VI_HFACZ_DISS 
         hFacZOpen=MIN( _hFacW(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 65 MOM_VI_HFACZ_DISS 
     &                , _hFacW(i,j-1,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 43 MOM_VI_MASK_VORT3 
        hFacZOpen=min(_hFacW(i,j,k,bi,bj),
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 44 MOM_VI_MASK_VORT3 
     &                _hFacW(i,j-1,k,bi,bj))
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 59 COST_TEST 
     &             *_hFacW(I,J,K,BI,BJ)
./model/src/integr_continuity.F 111 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/integrate_for_w.F 68 INTEGRATE_FOR_W 
     &                *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/pre_cg3d.F 189 PRE_CG3D 
     &       +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/pre_cg3d.F 190 PRE_CG3D 
     &       -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/pre_cg3d.F 208 PRE_CG3D 
     &       +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/pre_cg3d.F 209 PRE_CG3D 
     &       -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/timestep.F 310 TIMESTEP 
     &         *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj)
./model/src/update_cg2d.F 83 UPDATE_CG2D 
     &               *_hFacW(i,j,k,bi,bj)
./model/src/update_masks_etc.F 344 UPDATE_MASKS_ETC 
           h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./model/src/update_r_star.F 105 UPDATE_R_STAR 
     &        / ( _hFacW(i,j,k,bi,bj) + (1.-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 70 UPDATE_R_STAR 
     &        / ( _hFacW(i,j,k,bi,bj) + (1.-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)
./pkg/ecco/cost_curmtr.F 198 COST_CURMTR 
                  if (_hFacW(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_obcsvol.F 298 COST_OBCSVOL 
     &                  * _hFacW(i+1,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F 341 COST_OBCSVOL 
     &                  * _hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 196 COST_TRANS_ZONAL 
     &                     * drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 201 COST_TRANS_ZONAL 
     &                     *  drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 206 COST_TRANS_ZONAL 
     &                     *  drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_uvel0.F 119 COST_UVEL0 
                if (_hFacW(i,j,k,bi,bj) .ne. 0.) then