Symbol Description Uses
hFacW 118


File Line number Procedure Code
./pkg/ecco/ecco_phys.F 194 ECCO_PHYS 
     &                 uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj)
./pkg/ecco/ecco_phys.F 316 ECCO_PHYS 
            tmpmskW=tmpmskW*hFacW(i,j,k,bi,bj)*dyG(i,j,bi,bj)*drF(k)
./model/inc/GRID.h 417 NO PROCEDURE 
     &  hFacC, hFacW, hFacS,
./model/inc/GRID.h 447 NO PROCEDURE 
      _RS hFacW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
./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)
./model/src/add_walls2masks.F 114 ADD_WALLS2MASKS 
                 hFacW(i,j,k,bi,bj) = zeroRS
./model/src/add_walls2masks.F 87 ADD_WALLS2MASKS 
                 hFacW(i,j,k,bi,bj) = zeroRS
./pkg/layers/layers_fluxcalc.F 216 LAYERS_FLUXCALC 
         dzfac = dZZf(kk) * hFacW(i,j,kci,bi,bj)
./pkg/longstep/longstep_average.F 125 LONGSTEP_AVERAGE 
       CALL LONGSTEP_AVERAGE_3D_FAC(LS_uVelCount, LS_uVel, hFacW,
./pkg/longstep/longstep_average.F 88 LONGSTEP_AVERAGE 
      CALL LONGSTEP_FILL_3D_FAC(LS_uVelCount, LS_uVel, uVel, hFacW,
./model/src/calc_viscosity.F 138 CALC_VISCOSITY 
     &                *twoRL/(hFacW(i,j,km,bi,bj)+hFacW(i,j,k,bi,bj))
./pkg/mom_common/mom_calc_hdiv.F 56 MOM_CALC_HDIV 
     &    ( ( uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 57 MOM_CALC_HDIV 
     &       -uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) )
./pkg/mom_common/mom_v_botdrag_impl.F 166 MOM_V_BOTDRAG_IMPL 
     &     + ( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj)
./pkg/mom_common/mom_v_botdrag_impl.F 167 MOM_V_BOTDRAG_IMPL 
     &         +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj))
./pkg/mom_common/mom_v_botdrag_impl.F 168 MOM_V_BOTDRAG_IMPL 
     &       + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj)
./pkg/mom_common/mom_v_botdrag_impl.F 169 MOM_V_BOTDRAG_IMPL 
     &         +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj))
./pkg/mom_common/mom_v_botdrag_impl.F 183 MOM_V_BOTDRAG_IMPL 
          vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) )
./pkg/mom_common/mom_v_botdrag_impl.F 184 MOM_V_BOTDRAG_IMPL 
     &        + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) )
./pkg/mom_common/mom_v_botdrag_impl.F 187 MOM_V_BOTDRAG_IMPL 
     &      +( (uFld( i ,j-1,k)*uFld( i ,j-1,k)*hFacW( i ,j-1,k,bi,bj)
./pkg/mom_common/mom_v_botdrag_impl.F 188 MOM_V_BOTDRAG_IMPL 
     &         +uFld( i , j ,k)*uFld( i , j ,k)*hFacW( i , j ,k,bi,bj))
./pkg/mom_common/mom_v_botdrag_impl.F 189 MOM_V_BOTDRAG_IMPL 
     &       + (uFld(i+1,j-1,k)*uFld(i+1,j-1,k)*hFacW(i+1,j-1,k,bi,bj)
./pkg/mom_common/mom_v_botdrag_impl.F 190 MOM_V_BOTDRAG_IMPL 
     &         +uFld(i+1, j ,k)*uFld(i+1, j ,k)*hFacW(i+1, j ,k,bi,bj))
./pkg/mom_common/mom_v_bottomdrag.F 152 MOM_V_BOTTOMDRAG 
     &       + ( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj)
./pkg/mom_common/mom_v_bottomdrag.F 153 MOM_V_BOTTOMDRAG 
     &           +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj))
./pkg/mom_common/mom_v_bottomdrag.F 154 MOM_V_BOTTOMDRAG 
     &         + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj)
./pkg/mom_common/mom_v_bottomdrag.F 155 MOM_V_BOTTOMDRAG 
     &           +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj))
./pkg/mom_common/mom_v_bottomdrag.F 169 MOM_V_BOTTOMDRAG 
         vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) )
./pkg/mom_common/mom_v_bottomdrag.F 170 MOM_V_BOTTOMDRAG 
     &       + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) )
./pkg/mom_common/mom_v_bottomdrag.F 173 MOM_V_BOTTOMDRAG 
     &        +( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj)
./pkg/mom_common/mom_v_bottomdrag.F 174 MOM_V_BOTTOMDRAG 
     &           +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj))
./pkg/mom_common/mom_v_bottomdrag.F 175 MOM_V_BOTTOMDRAG 
     &         + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj)
./pkg/mom_common/mom_v_bottomdrag.F 176 MOM_V_BOTTOMDRAG 
     &           +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj))
./pkg/mom_fluxform/mom_uv_boundary.F 97 MOM_UV_BOUNDARY 
     &                * drF(k)*hFacW(i,j,k,bi,bj)*rhoFacC(k)
./pkg/monitor/mon_calc_advcfl.F 79 MON_CALC_ADVCFL_TILE 
     &                         *hFacW(i,j,k,bi,bj)
./pkg/monitor/monitor.F 112 MONITOR 
     &            hFacW, maskInW, rAw, thickFacC, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 130 ADMONITOR 
     &             hFacW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/monitor/monitor_ad.F 158 ADMONITOR 
     &             hFacW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/monitor/monitor_g.F 117 G_MONITOR 
     &           hFacW, maskInW, rAw, drF, dummyRL, myThid )
./pkg/obcs/obcs_balance_flow.F 101 OBCS_BALANCE_FLOW 
            tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj)
./pkg/obcs/obcs_balance_flow.F 150 OBCS_BALANCE_FLOW 
            tmpA = drF(k)*hFacW(1+iB,j,k,bi,bj)*dyG(1+iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 120 OBCS_DIAG_BALANCE 
              tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 214 OBCS_DIAG_BALANCE 
     &                 + inFlow(n)*drF(k)*hFacW(iB,j,k,bi,bj)
./pkg/obcs/obcs_diag_balance.F 235 OBCS_DIAG_BALANCE 
     &                 + inFlow(n)*drF(k)*hFacW(iB,j,k,bi,bj)
./pkg/obcs/obcs_diag_balance.F 97 OBCS_DIAG_BALANCE 
              tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj)
./pkg/obcs/obcs_monitor.F 110 OBCS_MONITOR 
     I             Nr, Nr, 1, uVel, hFacW, dyG, drF, maskInC,
./pkg/obcs/obcs_monitor.F 132 OBCS_MONITOR 
     I             Nr, Nr, 0, theta, hFacW, dyG, drF, maskInC,
./pkg/obcs/obcs_monitor.F 154 OBCS_MONITOR 
     I             Nr, Nr, 0, salt, hFacW, dyG, drF, maskInC,
./pkg/ptracers/ptracers_diagnostics_state.F 86 PTRACERS_DIAGNOSTICS_STATE 
     &                 LS_uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) *
./pkg/ptracers/ptracers_diagnostics_state.F 94 PTRACERS_DIAGNOSTICS_STATE 
     &                 uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) *
./pkg/shelfice/shelfice_v_drag.F 142 SHELFICE_V_DRAG 
     &       + ( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj)
./pkg/shelfice/shelfice_v_drag.F 143 SHELFICE_V_DRAG 
     &           +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj))
./pkg/shelfice/shelfice_v_drag.F 144 SHELFICE_V_DRAG 
     &         + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj)
./pkg/shelfice/shelfice_v_drag.F 145 SHELFICE_V_DRAG 
     &           +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj))
./pkg/shelfice/shelfice_v_drag.F 162 SHELFICE_V_DRAG 
           vSq = ( hFacW( i ,j-1,k,bi,bj) + hFacW( i , j ,k,bi,bj) )
./pkg/shelfice/shelfice_v_drag.F 163 SHELFICE_V_DRAG 
     &         + ( hFacW(i+1,j-1,k,bi,bj) + hFacW(i+1, j ,k,bi,bj) )
./pkg/shelfice/shelfice_v_drag.F 166 SHELFICE_V_DRAG 
     &        +( (uFld( i ,j-1)*uFld( i ,j-1)*hFacW( i ,j-1,k,bi,bj)
./pkg/shelfice/shelfice_v_drag.F 167 SHELFICE_V_DRAG 
     &           +uFld( i , j )*uFld( i , j )*hFacW( i , j ,k,bi,bj))
./pkg/shelfice/shelfice_v_drag.F 168 SHELFICE_V_DRAG 
     &         + (uFld(i+1,j-1)*uFld(i+1,j-1)*hFacW(i+1,j-1,k,bi,bj)
./pkg/shelfice/shelfice_v_drag.F 169 SHELFICE_V_DRAG 
     &           +uFld(i+1, j )*uFld(i+1, j )*hFacW(i+1, j ,k,bi,bj))
./model/src/ini_masks_etc.F 258 INI_MASKS_ETC 
           hFacW(1-OLx,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 260 INI_MASKS_ETC 
            hFacW(i,j,k,bi,bj) =
./model/src/ini_masks_etc.F 300 INI_MASKS_ETC 
              hFacW(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 302 INI_MASKS_ETC 
              hFacW(i,j,k,bi,bj) = MAX( hFacCtmp, hFacMnSz )
./model/src/ini_masks_etc.F 372 INI_MASKS_ETC 
            tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacW(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 423 INI_MASKS_ETC 
      CALL EXCH_UV_XYZ_RS( hFacW,  hFacS, .FALSE., myThid )
./model/src/ini_masks_etc.F 440 INI_MASKS_ETC 
           IF (hFacW(i,j,k,bi,bj).NE.zeroRS) kSurfW(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 470 INI_MASKS_ETC 
        CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 0, myThid )
./model/src/ini_masks_etc.F 487 INI_MASKS_ETC 
           IF ( hFacW(i,j,k,bi,bj).NE.zeroRS ) THEN
./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_nlfs_vars.F 118 INI_NLFS_VARS 
            hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj)
./pkg/timeave/timeave_statvars.F 146 TIMEAVE_STATVARS 
      CALL TIMEAVE_CUMUL_1VFC(hUtave,  uVel,  hFacW, Nr,
./pkg/timeave/timeave_statvars.F 154 TIMEAVE_STATVARS 
      CALL TIMEAVE_CUMUL_2VFC(UTtave, theta, uVel,  hFacW, Nr, 1,
./pkg/timeave/timeave_statvars.F 158 TIMEAVE_STATVARS 
      CALL TIMEAVE_CUMUL_2VFC(UStave, salt, uVel,  hFacW, Nr, 1,
./pkg/zonal_filt/zonal_filt_apply_uv.F 51 ZONAL_FILT_APPLY_UV 
           uFlow(i,j) = uFld(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj)
./pkg/zonal_filt/zonal_filt_apply_uv.F 56 ZONAL_FILT_APPLY_UV 
     I                     hFacW(1-OLx,1-OLy,k,bi,bj),
./pkg/zonal_filt/zonal_filt_apply_uv.F 70 ZONAL_FILT_APPLY_UV 
     I                     hFacW(1-OLx,1-OLy,1,bi,bj),
./model/src/ini_sigma_hfac.F 222 INI_SIGMA_HFAC 
            hFacW(i,j,k,bi,bj) = hFactmp*maskInW(i,j,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F 58 EXTERNAL_FORCING_U 
        IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/rotating_tank/code/apply_forcing.F 709 APPLY_FORCING_T 
          hW = hFacW(i  ,j  ,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 710 APPLY_FORCING_T 
          hE = hFacW(i+1,j  ,k,bi,bj)
./model/src/update_masks_etc.F 221 UPDATE_MASKS_ETC 
              hFacW(I,J,K,bi,bj)=0.
./model/src/update_masks_etc.F 223 UPDATE_MASKS_ETC 
              hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)*
./model/src/update_masks_etc.F 255 UPDATE_MASKS_ETC 
      CALL EXCH_UV_XYZ_RS(hFacW,hFacS,.FALSE.,myThid)
./model/src/update_masks_etc.F 271 UPDATE_MASKS_ETC 
      CALL WRITE_FLD_XYZ_RS( 'hFacW.',suff,hFacW,optimcycle,myThid)
./model/src/update_masks_etc.F 279 UPDATE_MASKS_ETC 
        CALL PLOT_FIELD_XYZRS( hFacW,'hFacW (update_masks_etc)',
./model/src/update_masks_etc.F 305 UPDATE_MASKS_ETC 
           IF (hFacW(I,J,K,bi,bj) .NE. 0. ) THEN
./model/src/update_r_star.F 60 UPDATE_R_STAR 
            hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj)
./model/src/update_r_star.F 95 UPDATE_R_STAR 
            hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj)
./model/src/update_sigma.F 143 UPDATE_SIGMA 
            hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_surf_dr.F 108 UPDATE_SURF_DR 
           hFacW(i,j,ks,bi,bj) = hFac_surfNm1W(i,j,bi,bj)
./model/src/update_surf_dr.F 72 UPDATE_SURF_DR 
           hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj)
./model/src/write_grid.F 113 WRITE_GRID 
        CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW, 0,myThid)
./pkg/aim_v23/aim_tendency_apply.F 102 AIM_TENDENCY_APPLY_U 
     &                       *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 117 ATM_STORE_AIM_WNDSTR 
          IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 83 ATM_STORE_AIM_WNDSTR 
          IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN
./pkg/atm_phys/atm_phys_tendency_apply.F 78 ATM_PHYS_TENDENCY_APPLY_U 
     &                       *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/diagnostics/diagnostics_calc_phivel.F 114 DIAGNOSTICS_CALC_PHIVEL 
     &                         *drF(k)*hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 271 DIAGNOSTICS_CALC_PHIVEL 
     &                         *drF(k)*hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 390 DIAGNOSTICS_HF_CUMUL 
     &                + tmpFld(i,j)*hFacW(i,j,km,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 298 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 516 DIAGNOSTICS_FILL_STATE 
     &               = uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 551 DIAGNOSTICS_FILL_STATE 
     &                  * hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 602 DIAGNOSTICS_FILL_STATE 
     &                  * hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 155 DIAGNOSTICS_SUM_LEVELS 
     &                               *hFacW(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 186 DIAGNOSTICS_SUM_LEVELS 
     &                          hFacW( i, j, kLev,bi,bj),
./pkg/diagnostics/diagnostics_sum_levels.F 187 DIAGNOSTICS_SUM_LEVELS 
     &                          hFacW( i,j-1,kLev,bi,bj),
./pkg/diagnostics/diagstats_local.F 136 DIAGSTATS_LOCAL 
     I            hFacW(1-OLx,1-OLy,k,bi,bj), rAw(1-OLx,1-OLy,bi,bj),
./pkg/down_slope/dwnslp_init_fixed.F 243 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 264 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin )
./pkg/ebm/ebm_wind_perturb.F 135 EBM_WIND_PERTURB 
     &                     *drF(1)*hFacW(i,j,1,bi,bj)