Symbol Description Uses
_hFacS 135


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 280 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 347 GGL90_CALC 
     &                 (min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) +
./pkg/ggl90/ggl90_calc.F 348 GGL90_CALC 
     &                  min(.5 _d 0,_hFacS(i,j,k  ,bi,bj) ) )
./pkg/gmredi/gmredi_calc_tensor.F 1006 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 127 MOM_CALC_HFACZ 
     &       SMOOTHMIN_RS(_hFacS(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 129 MOM_CALC_HFACZ 
     &                MIN(_hFacS(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 131 MOM_CALC_HFACZ 
     &                    _hFacS(i-1,j  ,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 200 MOM_CALC_HFACZ 
     &             + ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 201 MOM_CALC_HFACZ 
     &                +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 218 MOM_CALC_HFACZ 
     &                , _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 219 MOM_CALC_HFACZ 
     &                + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 229 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 230 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 265 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 271 MOM_CALC_HFACZ 
     &                +_hFacS( i ,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 277 MOM_CALC_HFACZ 
     &               + _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 290 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 295 MOM_CALC_HFACZ 
     &               ( _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 302 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 320 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 325 MOM_CALC_HFACZ 
     &               ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 332 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 349 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 356 MOM_CALC_HFACZ 
     &               + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 360 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_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 273 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 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 130 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 131 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 132 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 133 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 171 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 172 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 174 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 175 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 191 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 462 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 463 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 479 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 480 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 600 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 601 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 617 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 618 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)
./pkg/shap_filt/shap_filt_apply_uv.F 156 SHAP_FILT_APPLY_UV 
     &                *_hFacS(i,j  ,k,bi,bj)*rAs(i,j  ,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 158 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)
./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/shelfice/shelfice_thermodynamics.F 246 SHELFICE_THERMODYNAMICS 
     &         ( vVel(I,J,  K,bi,bj) * _hFacS(I,J,  K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 247 SHELFICE_THERMODYNAMICS 
     &         + vVel(I,J+1,K,bi,bj) * _hFacS(I,J+1,K,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 276 SHELFICE_THERMODYNAMICS 
     &           ( vVel(I,J,  Kp1,bi,bj) * _hFacS(I,J,  Kp1,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 277 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 349 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 191 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 192 PRE_CG3D 
     &       -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/pre_cg3d.F 210 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 211 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 87 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 714 COST_AVERAGESFIELDS 
     &              *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 202 COST_CURMTR 
                  if (_hFacS(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_obcsvol.F 213 COST_OBCSVOL 
     &                  * _hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F 255 COST_OBCSVOL 
     &                  * _hFacS(i,j+1,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 207 COST_TRANS_MERID 
     &                     * drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 212 COST_TRANS_MERID 
     &                     *  drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 217 COST_TRANS_MERID 
     &                     *  drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_vvel0.F 119 COST_VVEL0 
                if (_hFacS(i,j,k,bi,bj) .ne. 0.) then