Symbol Description Uses
_hFacW 129


File Line number Procedure Code
./pkg/gmredi/gmredi_calc_tensor.F 457 GMREDI_CALC_TENSOR 
     &                * _hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 92 MOM_U_DEL2U 
        hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_fluxform/mom_u_del2u.F 93 MOM_U_DEL2U 
        hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./model/src/ini_r_star.F 70 INI_R_STAR 
            h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 255 MOM_FLUXFORM 
     &   *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/ini_cg2d.F 97 INI_CG2D 
     &               *_hFacW(I,J,K,bi,bj)
./model/src/ini_cg3d.F 114 INI_CG3D 
     &                *_hFacW(I,J,K,bi,bj)
./model/src/integr_continuity.F 85 INTEGR_CONTINUITY 
     &                 *drF(k)*_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))
./model/src/update_cg2d.F 83 UPDATE_CG2D 
     &               *_hFacW(I,J,K,bi,bj)
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 62 COST_TEST 
     &             *_hFacW(I,J,K,BI,BJ)
./model/src/update_r_star.F 75 UPDATE_R_STAR 
     &        / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) )
./model/src/update_r_star.F 82 UPDATE_R_STAR 
     &      recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj)
./model/src/diags_rho.F 69 DIAGS_RHO 
           tmpFld(i,j) = uVel(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj)
./model/src/calc_gw.F 159 CALC_GW 
     &          drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 160 CALC_GW 
     &        + drF( k )*MIN( _hFacW(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 341 CALC_GW 
     &          drF(k-1)*_hFacW(i,j,k-1,bi,bj)*uVel(i,j,k-1,bi,bj)
./model/src/calc_gw.F 342 CALC_GW 
     &        + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj)
./model/src/solve_for_pressure.F 171 SOLVE_FOR_PRESSURE 
     &      *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/solve_for_pressure.F 405 SOLVE_FOR_PRESSURE 
     &       +drF(K)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/solve_for_pressure.F 406 SOLVE_FOR_PRESSURE 
     &       -drF(K)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/solve_for_pressure.F 421 SOLVE_FOR_PRESSURE 
     &       +drF(K)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/solve_for_pressure.F 422 SOLVE_FOR_PRESSURE 
     &       -drF(K)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/integrate_for_w.F 54 INTEGRATE_FOR_W 
     &     *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/calc_r_star.F 91 CALC_R_STAR 
            h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./model/src/timestep.F 294 TIMESTEP 
     &         *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj)
./model/src/calc_common_factors.F 80 CALC_COMMON_FACTORS 
         xA(i,j) = _dyG(i,j,bi,bj)*drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 217 GGL90_CALC 
     &         *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 116 MOM_CALC_HFACZ 
     &       smoothMin_R4(_hFacW(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 118 MOM_CALC_HFACZ 
     &                MIN(_hFacW(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 120 MOM_CALC_HFACZ 
     &                    _hFacW(i  ,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 201 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 202 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 219 MOM_CALC_HFACZ 
     &                  _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 220 MOM_CALC_HFACZ 
     &                + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 230 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 231 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 267 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 268 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 274 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 276 MOM_CALC_HFACZ 
     &               + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 279 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 280 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 292 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 293 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,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 304 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,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 309 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 311 MOM_CALC_HFACZ 
     &               + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 322 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 323 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 334 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,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 339 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 341 MOM_CALC_HFACZ 
     &               + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 351 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 352 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 358 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,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 363 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 365 MOM_CALC_HFACZ 
     &               + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 120 MOM_U_SIDEDRAG 
        hFacZClosedS = _hFacW(i,j,k,bi,bj) - _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 121 MOM_U_SIDEDRAG 
        hFacZClosedN = _hFacW(i,j,k,bi,bj) - _hFacW(i,j+1,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 76 MOM_U_SIDEDRAG 
        hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F 77 MOM_U_SIDEDRAG 
        hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_common/mom_init_fixed.F 44 MOM_INIT_FIXED 
            h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 102 MOM_CALC_KE 
     &           ( uFld( i , j )*uFld( i , j )*_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 103 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 117 MOM_CALC_KE 
     &        *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 119 MOM_CALC_KE 
     &        *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj)
./pkg/monitor/mon_ke.F 67 MON_KE 
     &         *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)
./pkg/monitor/mon_ke.F 69 MON_KE 
     &         *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 123 MON_VORT3 
     &           0.25 _d 0*( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 124 MON_VORT3 
     &                     + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 186 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 187 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 201 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 202 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 216 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 217 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 231 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 232 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 249 MON_VORT3 
            hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 267 MON_VORT3 
            hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 196 COST_CURMTR 
                  if (_hFacW(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_trans_zonal.F 192 COST_TRANS_ZONAL 
     &                     * drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 197 COST_TRANS_ZONAL 
     &                     *  drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 202 COST_TRANS_ZONAL 
     &                     *  drF(k)*_hFacW(i,j,k,bi,bj)
./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_v_coriolis.F 100 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 45 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 46 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 47 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 48 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 61 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 62 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 64 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 65 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 99 MOM_VI_V_CORIOLIS 
     &   / MAX( epsil,(_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 129 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 130 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 152 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 153 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 154 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 155 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))
./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/shap_filt/shap_filt_tracer_s2.F 137 SHAP_FILT_TRACER_S2 
     &                     *_hFacW(i,j,k,bi,bj)