Symbol Description Uses
_hFacS 116


File Line number Procedure Code
./model/inc/HFACS_MACROS.h 36 NO PROCEDURE 
# define _hFacS(i,j,k,bi,bj) hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 351 GGL90_CALC 
     &         *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 891 GMREDI_CALC_TENSOR 
     &                * _hFacS(i,j,k,bi,bj)
./model/src/calc_common_factors.F 83 CALC_COMMON_FACTORS 
     &           *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 124 MOM_CALC_HFACZ 
     &       smoothMin_R4(_hFacS(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 126 MOM_CALC_HFACZ 
     &                MIN(_hFacS(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 128 MOM_CALC_HFACZ 
     &                    _hFacS(i-1,j  ,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 203 MOM_CALC_HFACZ 
     &             + ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 204 MOM_CALC_HFACZ 
     &                +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 221 MOM_CALC_HFACZ 
     &                , _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 222 MOM_CALC_HFACZ 
     &                + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 232 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 233 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 269 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 275 MOM_CALC_HFACZ 
     &                +_hFacS( i ,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 281 MOM_CALC_HFACZ 
     &               + _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 294 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 299 MOM_CALC_HFACZ 
     &               ( _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 306 MOM_CALC_HFACZ 
     &               + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 310 MOM_CALC_HFACZ 
     &                +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 324 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 329 MOM_CALC_HFACZ 
     &               ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 336 MOM_CALC_HFACZ 
     &               + _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 340 MOM_CALC_HFACZ 
     &                +_hFacS( i ,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 353 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 360 MOM_CALC_HFACZ 
     &               + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 364 MOM_CALC_HFACZ 
     &                +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_ke.F 104 MOM_CALC_KE 
     &         + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 105 MOM_CALC_KE 
     &            +vFld( i ,j+1)*vFld( i ,j+1)*_hFacS(i,j+1,k,bi,bj) )
./pkg/mom_common/mom_calc_ke.F 123 MOM_CALC_KE 
     &        *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 125 MOM_CALC_KE 
     &        *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj)
./model/src/calc_div_ghat.F 67 CALC_DIV_GHAT 
     &              *drF(k)*_hFacS(i,j,k,bi,bj)*rhoFacC(k)
./pkg/mom_common/mom_init_fixed.F 52 MOM_INIT_FIXED 
            h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 117 MOM_V_SIDEDRAG 
        hFacZClosedW = _hFacS(i,j,k,bi,bj) - _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 118 MOM_V_SIDEDRAG 
        hFacZClosedE = _hFacS(i,j,k,bi,bj) - _hFacS(i+1,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 76 MOM_V_SIDEDRAG 
        hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F 77 MOM_V_SIDEDRAG 
        hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_fluxform/mom_fluxform.F 260 MOM_FLUXFORM 
     &          *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 94 MOM_V_DEL2V 
        hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F 95 MOM_V_DEL2V 
        hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_vecinv/mom_vi_coriolis.F 44 MOM_VI_CORIOLIS 
     &      (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 45 MOM_VI_CORIOLIS 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 46 MOM_VI_CORIOLIS 
     &     +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 47 MOM_VI_CORIOLIS 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)))
./pkg/mom_vecinv/mom_vi_coriolis.F 48 MOM_VI_CORIOLIS 
     &   / MAX( epsil,(_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 49 MOM_VI_CORIOLIS 
     &               +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 117 MOM_VI_U_CORIOLIS 
     &       vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 118 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 120 MOM_VI_U_CORIOLIS 
     &       vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 121 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 152 MOM_VI_U_CORIOLIS 
     &      *vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 158 MOM_VI_U_CORIOLIS 
     &      *vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 164 MOM_VI_U_CORIOLIS 
     &      *vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 170 MOM_VI_U_CORIOLIS 
     &      *vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 193 MOM_VI_U_CORIOLIS 
     &                  (_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis.F 194 MOM_VI_U_CORIOLIS 
     &                 +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis.F 66 MOM_VI_U_CORIOLIS 
     &      (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 67 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis.F 68 MOM_VI_U_CORIOLIS 
     &     +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 69 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 129 MOM_VI_U_CORIOLIS_C4 
     &      (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 130 MOM_VI_U_CORIOLIS_C4 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 131 MOM_VI_U_CORIOLIS_C4 
     &     +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 132 MOM_VI_U_CORIOLIS_C4 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 165 MOM_VI_U_CORIOLIS_C4 
     &       vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 166 MOM_VI_U_CORIOLIS_C4 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 168 MOM_VI_U_CORIOLIS_C4 
     &       vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 169 MOM_VI_U_CORIOLIS_C4 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) )
./model/src/calc_gw.F 239 CALC_GW 
     &          drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 240 CALC_GW 
     &        + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F 466 CALC_GW 
     &          drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj)
./model/src/calc_gw.F 468 CALC_GW 
     &         +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 191 MOM_VI_V_CORIOLIS 
     &           * 4. _d 0 * _hFacS(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 87 MON_KE 
     &         *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)
./pkg/monitor/mon_ke.F 89 MON_KE 
     &         *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)
./pkg/monitor/mon_vort3.F 131 MON_VORT3 
     &                     + _hFacS(i-1,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 132 MON_VORT3 
     &                     + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 194 MON_VORT3 
     &                  + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 209 MON_VORT3 
     &                  + _hFacS(i-1,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 224 MON_VORT3 
     &                  + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 239 MON_VORT3 
     &                  + _hFacS(i-1,j,k,bi,bj)
./model/src/diags_rho.F 169 DIAGS_RHO_G 
             tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 146 SHAP_FILT_APPLY_UV 
     &                *_hFacS(i,j  ,k,bi,bj)*rAs(i,j  ,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 148 SHAP_FILT_APPLY_UV 
     &                *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 168 SHAP_FILT_TRACER_S2 
     &                     *_hFacS(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 103 SMOOTH_RHS 
     &   *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/ini_cg2d.F 108 INI_CG2D 
     &               *_hFacS(i,j,k,bi,bj)
./model/src/ini_cg3d.F 125 INI_CG3D 
     &                *_hFacS(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 46 MOM_VI_HFACZ_DISS 
     &              , _hFacS(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 47 MOM_VI_HFACZ_DISS 
     &              + _hFacS(i-1,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 66 MOM_VI_HFACZ_DISS 
     &                , _hFacS(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 67 MOM_VI_HFACZ_DISS 
     &                , _hFacS(i-1,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 45 MOM_VI_MASK_VORT3 
        hFacZOpen=min(_hFacS(i,j,k,bi,bj),hFacZOpen)
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 46 MOM_VI_MASK_VORT3 
        hFacZOpen=min(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./model/src/ini_nlfs_vars.F 87 INI_NLFS_VARS 
            h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
./model/src/integr_continuity.F 101 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/integrate_for_w.F 65 INTEGRATE_FOR_W 
     &                *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/pre_cg3d.F 211 PRE_CG3D 
     &       +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1)
./model/src/pre_cg3d.F 212 PRE_CG3D 
     &       -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/pre_cg3d.F 230 PRE_CG3D 
     &       +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1)
./model/src/pre_cg3d.F 231 PRE_CG3D 
     &       -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/timestep.F 331 TIMESTEP 
     &         *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj)
./model/src/update_cg2d.F 88 UPDATE_CG2D 
     &               *_hFacS(I,J,K,bi,bj)
./model/src/update_r_star.F 104 UPDATE_R_STAR 
     &        / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) )
./model/src/update_r_star.F 111 UPDATE_R_STAR 
     &      recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 533 COST_AVERAGESFIELDS 
     &              *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 201 COST_CURMTR 
                  if (_hFacS(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_trans_merid.F 204 COST_TRANS_MERID 
     &                     * drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 209 COST_TRANS_MERID 
     &                     *  drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 214 COST_TRANS_MERID 
     &                     *  drF(k)*_hFacS(i,j,k,bi,bj)