Symbol Description Uses
r_hFacZ reciprocal 94



File Line number Procedure Code
./pkg/mom_common/mom_calc_hfacz.F 103 MOM_CALC_HFACZ
        r_hFacZ(i,j)   =0.
./pkg/mom_common/mom_calc_hfacz.F 155 MOM_CALC_HFACZ
         r_hFacZ(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_hfacz.F 157 MOM_CALC_HFACZ
         r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j)
./pkg/mom_common/mom_calc_hfacz.F 15 MOM_CALC_HFACZ
     O        hFacZ, r_hFacZ,
./pkg/mom_common/mom_calc_hfacz.F 373 MOM_CALC_HFACZ
         r_hFacZ(i,j) = 0.
./pkg/mom_common/mom_calc_hfacz.F 375 MOM_CALC_HFACZ
         r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j)
./pkg/mom_common/mom_calc_hfacz.F 50 MOM_CALC_HFACZ
      _RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_fluxform/mom_fluxform.F 135 MOM_FLUXFORM
      _RS  r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_fluxform/mom_fluxform.F 265 MOM_FLUXFORM
      CALL MOM_CALC_HFACZ( bi,bj,k,hFacZ,r_hFacZ,myThid )
./pkg/mom_vecinv/mom_vecinv.F 102 MOM_VECINV
      _RS r_hFacZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_vecinv/mom_vecinv.F 242 MOM_VECINV
      CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid)
./pkg/mom_vecinv/mom_vecinv.F 614 MOM_VECINV
     &                         vFld,omega3,hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 617 MOM_VECINV
     &                         uFld,omega3,hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 620 MOM_VECINV
        CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 671 MOM_VECINV
     &                         vFld,omega3,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 676 MOM_VECINV
     &                         vFld,vort3, r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 680 MOM_VECINV
     &                         vFld,omega3,hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 684 MOM_VECINV
     &                         vFld,vort3, hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 696 MOM_VECINV
     &                         uFld,omega3,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 701 MOM_VECINV
     &                         uFld,vort3, r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 705 MOM_VECINV
     &                         uFld,omega3,hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 709 MOM_VECINV
     &                         uFld,vort3, hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vi_coriolis.F 28 MOM_VI_CORIOLIS
      _RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_vecinv/mom_vi_coriolis.F 8 MOM_VI_CORIOLIS
     I        uFld,vFld,hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vi_u_coriolis.F 126 MOM_VI_U_CORIOLIS
           vort3u=vBarXm*r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 128 MOM_VI_U_CORIOLIS
           vort3u=vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 12 MOM_VI_U_CORIOLIS
     I                     vFld, omega3, hFacZ, r_hFacZ,
./pkg/mom_vecinv/mom_vi_u_coriolis.F 131 MOM_VI_U_CORIOLIS
           vort3u = ( vBarXm*r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 132 MOM_VI_U_CORIOLIS
     &               +vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 149 MOM_VI_U_CORIOLIS
         vort3mj= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 150 MOM_VI_U_CORIOLIS
     &            +(r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 151 MOM_VI_U_CORIOLIS
     &             +r_hFacZ(i-1,j)*omega3(i-1,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 155 MOM_VI_U_CORIOLIS
         vort3ij= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 156 MOM_VI_U_CORIOLIS
     &            +(r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 157 MOM_VI_U_CORIOLIS
     &             +r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 161 MOM_VI_U_CORIOLIS
         vort3mp= ( r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 162 MOM_VI_U_CORIOLIS
     &            +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 163 MOM_VI_U_CORIOLIS
     &             +r_hFacZ(i-1,j+1)*omega3(i-1,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 167 MOM_VI_U_CORIOLIS
         vort3ip= ( r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 168 MOM_VI_U_CORIOLIS
     &            +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 169 MOM_VI_U_CORIOLIS
     &             +r_hFacZ(i+1,j+1)*omega3(i+1,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 38 MOM_VI_U_CORIOLIS
      _RS     r_hFacZ  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 75 MOM_VI_U_CORIOLIS
           vort3u=omega3(i,j)*r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 77 MOM_VI_U_CORIOLIS
           vort3u=omega3(i,j+1)*r_hFacZ(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 80 MOM_VI_U_CORIOLIS
           vort3u=0.5*(omega3(i,j)*r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 81 MOM_VI_U_CORIOLIS
     &                +omega3(i,j+1)*r_hFacZ(i,j+1))
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 12 MOM_VI_U_CORIOLIS_C4
     I        vFld,omega3,r_hFacZ,
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 41 MOM_VI_U_CORIOLIS_C4
      _RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 72 MOM_VI_U_CORIOLIS_C4
         vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 126 MOM_VI_V_CORIOLIS
           vort3v=uBarYm*r_hFacZ( i ,j)*omega3( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 128 MOM_VI_V_CORIOLIS
           vort3v=uBarYp*r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 12 MOM_VI_V_CORIOLIS
     I                     uFld, omega3, hFacZ, r_hFacZ,
./pkg/mom_vecinv/mom_vi_v_coriolis.F 131 MOM_VI_V_CORIOLIS
           vort3v = ( uBarYm*r_hFacZ( i ,j)*omega3( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 132 MOM_VI_V_CORIOLIS
     &               +uBarYp*r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 149 MOM_VI_V_CORIOLIS
         vort3im= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 150 MOM_VI_V_CORIOLIS
     &            +(r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 151 MOM_VI_V_CORIOLIS
     &             +r_hFacZ(i,j-1)*omega3(i,j-1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 155 MOM_VI_V_CORIOLIS
         vort3ij= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 156 MOM_VI_V_CORIOLIS
     &            +(r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 157 MOM_VI_V_CORIOLIS
     &             +r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 161 MOM_VI_V_CORIOLIS
         vort3pm= ( r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 162 MOM_VI_V_CORIOLIS
     &            +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 163 MOM_VI_V_CORIOLIS
     &             +r_hFacZ(i+1,j-1)*omega3(i+1,j-1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 167 MOM_VI_V_CORIOLIS
         vort3pj= ( r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 168 MOM_VI_V_CORIOLIS
     &            +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 169 MOM_VI_V_CORIOLIS
     &             +r_hFacZ(i+1,j+1)*omega3(i+1,j+1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 38 MOM_VI_V_CORIOLIS
      _RS     r_hFacZ  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 75 MOM_VI_V_CORIOLIS
           vort3v=omega3(i,j)*r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 77 MOM_VI_V_CORIOLIS
           vort3v=omega3(i+1,j)*r_hFacZ(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 80 MOM_VI_V_CORIOLIS
           vort3v=0.5*(omega3(i,j)*r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 81 MOM_VI_V_CORIOLIS
     &                +omega3(i+1,j)*r_hFacZ(i+1,j))
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 12 MOM_VI_V_CORIOLIS_C4
     I        uFld,omega3,r_hFacZ,
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 41 MOM_VI_V_CORIOLIS_C4
      _RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 72 MOM_VI_V_CORIOLIS_C4
         vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j)
./pkg/seaice/seaice_mom_advection.F 131 SEAICE_MOM_ADVECTION
      CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid)
./pkg/seaice/seaice_mom_advection.F 187 SEAICE_MOM_ADVECTION
     &                           vFld,vort3,r_hFacZ,
./pkg/seaice/seaice_mom_advection.F 192 SEAICE_MOM_ADVECTION
     &                        vFld,vort3,hFacZ,r_hFacZ,
./pkg/seaice/seaice_mom_advection.F 204 SEAICE_MOM_ADVECTION
     &                           uFld,vort3,r_hFacZ,
./pkg/seaice/seaice_mom_advection.F 209 SEAICE_MOM_ADVECTION
     &                        uFld,vort3,hFacZ,r_hFacZ,
./pkg/seaice/seaice_mom_advection.F 72 SEAICE_MOM_ADVECTION
      _RS r_hFacZ (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/shap_filt/shap_filt_uv_s2.F 116 SHAP_FILT_UV_S2
     &     CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid)
./pkg/shap_filt/shap_filt_uv_s2.F 69 SHAP_FILT_UV_S2
      _RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 26 MOM_VI_HFACZ_DISS
      _RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 37 MOM_VI_HFACZ_DISS
       r_hFacZ(i,1-Oly)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 42 MOM_VI_HFACZ_DISS
       r_hFacZ(1-Olx,j)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 51 MOM_VI_HFACZ_DISS
         r_hFacZ(i,j)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 53 MOM_VI_HFACZ_DISS
         r_hFacZ(i,j)=1./hFacZ(i,j)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 71 MOM_VI_HFACZ_DISS
          r_hFacZ(i,j)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 73 MOM_VI_HFACZ_DISS
          r_hFacZ(i,j)=1./hFacZOpen
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 8 MOM_VI_HFACZ_DISS
     O        hFacZ,r_hFacZ,
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 24 MOM_VI_MASK_VORT3
      _RS r_hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 49 MOM_VI_MASK_VORT3
         r_hFacZ(i,j)=0.
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 52 MOM_VI_MASK_VORT3
         r_hFacZ(i,j)=1./hFacZ(i,j)
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 8 MOM_VI_MASK_VORT3
     O        hFacZ,r_hFacZ,