Symbol Description Uses
_hFacS 141


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/generic_advdiff/gad_advection.F 284 GAD_ADVECTION 
     &           *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 249 GAD_SOM_ADVECT 
     &            *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 377 GGL90_CALC 
     &                 (min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) +
./pkg/ggl90/ggl90_calc.F 378 GGL90_CALC 
     &                  min(.5 _d 0,_hFacS(i,j,k  ,bi,bj) ) )
./pkg/ggl90/ggl90_idemix.F 264 GGL90_IDEMIX 
     &                *(min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) +
./pkg/ggl90/ggl90_idemix.F 265 GGL90_IDEMIX 
     &                  min(.5 _d 0,_hFacS(i,j,k  ,bi,bj) ) )
./pkg/gmredi/gmredi_calc_tensor.F 1056 GMREDI_CALC_TENSOR 
     &                * _hFacS(i,j,k,bi,bj)
./model/src/calc_adv_flow.F 78 CALC_ADV_FLOW 
     &           *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 70 CALC_DIV_GHAT 
     &              *drF(k)*_hFacS(i,j,k,bi,bj)*rhoFacC(k)
./model/src/calc_gw.F 266 CALC_GW 
     &          drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 267 CALC_GW 
     &        + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F 515 CALC_GW 
     &          drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj)
./model/src/calc_gw.F 517 CALC_GW 
     &         +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 125 MOM_CALC_HFACZ 
     &       SMOOTHMIN_RS(_hFacS(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 127 MOM_CALC_HFACZ 
     &                MIN(_hFacS(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 129 MOM_CALC_HFACZ 
     &                    _hFacS(i-1,j  ,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 198 MOM_CALC_HFACZ 
     &             + ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 199 MOM_CALC_HFACZ 
     &                +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 216 MOM_CALC_HFACZ 
     &                , _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 217 MOM_CALC_HFACZ 
     &                + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 227 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 228 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 263 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 269 MOM_CALC_HFACZ 
     &                +_hFacS( i ,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 275 MOM_CALC_HFACZ 
     &               + _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 288 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 293 MOM_CALC_HFACZ 
     &               ( _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 300 MOM_CALC_HFACZ 
     &               + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 304 MOM_CALC_HFACZ 
     &                +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 318 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 323 MOM_CALC_HFACZ 
     &               ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 330 MOM_CALC_HFACZ 
     &               + _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 334 MOM_CALC_HFACZ 
     &                +_hFacS( i ,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 347 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 354 MOM_CALC_HFACZ 
     &               + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 358 MOM_CALC_HFACZ 
     &                +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_ke.F 112 MOM_CALC_KE 
     &         + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 113 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 131 MOM_CALC_KE 
     &        *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 133 MOM_CALC_KE 
     &        *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj)
./pkg/mom_common/mom_u_botdrag_impl.F 145 MOM_U_BOTDRAG_IMPL 
     &      + ( vFld( i , j ,k)*vFld( i , j ,k)*_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_u_botdrag_impl.F 146 MOM_U_BOTDRAG_IMPL 
     &         +vFld( i ,j+1,k)*vFld( i ,j+1,k)*_hFacS(i,j+1,k,bi,bj) )
./pkg/mom_common/mom_v_botdrag_impl.F 145 MOM_V_BOTDRAG_IMPL 
     &      + ( vFld( i , j ,k)*vFld( i , j ,k)*_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_botdrag_impl.F 146 MOM_V_BOTDRAG_IMPL 
     &         +vFld( i ,j+1,k)*vFld( i ,j+1,k)*_hFacS(i,j+1,k,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F 110 MOM_V_SIDEDRAG 
        hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F 111 MOM_V_SIDEDRAG 
        hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_common/mom_v_sidedrag.F 71 MOM_V_SIDEDRAG 
        hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F 72 MOM_V_SIDEDRAG 
        hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_fluxform/mom_fluxform.F 274 MOM_FLUXFORM 
     &          *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 107 MOM_V_DEL2V 
         hFacZClosedW = _hFacS(i,j,k,bi,bj) - h0FacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F 108 MOM_V_DEL2V 
         hFacZClosedE = _hFacS(i,j,k,bi,bj) - h0FacZ(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 119 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 120 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 122 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 123 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 154 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 160 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 166 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 172 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 195 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 196 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 68 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 69 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 70 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 71 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 132 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 133 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 134 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 135 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 173 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 174 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 176 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 177 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_v_coriolis.F 193 MOM_VI_V_CORIOLIS 
     &           * 4. _d 0 * _hFacS(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 102 MON_KE 
     &         *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)
./pkg/monitor/mon_ke.F 104 MON_KE 
     &         *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)
./pkg/monitor/mon_ke.F 241 MON_KE 
     &             + R_drK*tmpVal*_hFacS(i,j,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)
./pkg/obcs/obcs_calc_stevens.F 427 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 428 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 444 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 445 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 539 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 540 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 556 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 557 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj)
./model/src/diags_rho.F 186 DIAGS_RHO_G 
             tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj)
./model/src/ini_cg2d.F 109 INI_CG2D 
     &               *_hFacS(i,j,k,bi,bj)
./model/src/ini_cg3d.F 125 INI_CG3D 
     &               *_hFacS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 160 SHAP_FILT_APPLY_UV 
     &                *_hFacS(i,j  ,k,bi,bj)*rAs(i,j  ,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 162 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 167 SHAP_FILT_TRACER_S2 
     &                     *_hFacS(i,j,k,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 281 SHELFICE_THERMODYNAMICS 
           tmpFac = _hFacS(I,J,  K,bi,bj) + _hFacS(I,J+1,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 284 SHELFICE_THERMODYNAMICS 
     &     vVel(I, J, K,bi,bj)*vVel(I, J, K,bi,bj)*_hFacS(I, J, K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 285 SHELFICE_THERMODYNAMICS 
     &   + vVel(I,J+1,K,bi,bj)*vVel(I,J+1,K,bi,bj)*_hFacS(I,J+1,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 298 SHELFICE_THERMODYNAMICS 
     &         ( vVel(I,J,  K,bi,bj) * _hFacS(I,J,  K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 299 SHELFICE_THERMODYNAMICS 
     &         + vVel(I,J+1,K,bi,bj) * _hFacS(I,J+1,K,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 331 SHELFICE_THERMODYNAMICS 
     &           ( vVel(I,J,  Kp1,bi,bj) * _hFacS(I,J,  Kp1,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 332 SHELFICE_THERMODYNAMICS 
     &           + vVel(I,J+1,Kp1,bi,bj) * _hFacS(I,J+1,Kp1,bi,bj) )
./pkg/smooth/smooth_init_fixed.F 40 SMOOTH_INIT_FIXED 
          smooth_hFacS(i,j,k,bi,bj)=_hFacS(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 513 INI_MASKS_ETC 
           h0FacS(i,j,k,bi,bj) = _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/integr_continuity.F 114 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/integrate_for_w.F 71 INTEGRATE_FOR_W 
     &                *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/pre_cg3d.F 200 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 201 PRE_CG3D 
     &       -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/pre_cg3d.F 219 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 220 PRE_CG3D 
     &       -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/timestep.F 314 TIMESTEP 
     &         *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj)
./model/src/update_cg2d.F 110 UPDATE_CG2D 
     &                *_hFacS(i,j,k,bi,bj)
./model/src/update_cg2d.F 92 UPDATE_CG2D 
     &                *_hFacS(i,j,k,bi,bj)
./model/src/update_masks_etc.F 345 UPDATE_MASKS_ETC 
           h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
./model/src/update_r_star.F 107 UPDATE_R_STAR 
     &        / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) )
./model/src/update_r_star.F 114 UPDATE_R_STAR 
     &      recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj)
./model/src/update_r_star.F 72 UPDATE_R_STAR 
     &        / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) )
./model/src/update_r_star.F 79 UPDATE_R_STAR 
     &      recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 746 COST_AVERAGESFIELDS 
     &              *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F 224 COST_OBCSVOL 
     &                  * _hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F 266 COST_OBCSVOL 
     &                  * _hFacS(i,j+1,k,bi,bj)