Symbol Description Uses
bj Loop counters 20394


File Line number Procedure Code
./pkg/mom_vecinv/mom_vi_u_grad_ke.F 7 MOM_VI_U_GRAD_KE 
     I        bi,bj,K,
./pkg/mom_vecinv/mom_vi_u_coriolis.F 100 MOM_VI_U_CORIOLIS 
     &                +hFacS( j ,i+1,k,bi,bj)+hFacS(i-1,j+1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 103 MOM_VI_U_CORIOLIS 
     &   +vort3u*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 24 MOM_VI_U_CORIOLIS 
      INTEGER bi,bj,K
./pkg/mom_vecinv/mom_vi_u_coriolis.F 45 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 46 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 47 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 48 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 61 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 62 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 64 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 65 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 7 MOM_VI_U_CORIOLIS 
     I        bi,bj,k,
./pkg/mom_vecinv/mom_vi_u_coriolis.F 81 MOM_VI_U_CORIOLIS 
     &       vFld( i , j )*dxG( i , j ,bi,bj)*hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 82 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 83 MOM_VI_U_CORIOLIS 
     &      +vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacZ(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 84 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*hFacZ(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 98 MOM_VI_U_CORIOLIS 
     &   vBarXY = vBarXY * 4. _d 0 * hFacW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 99 MOM_VI_U_CORIOLIS 
     &   / MAX( epsil, hFacS( i , j ,k,bi,bj)+hFacS(i-1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 104 MOM_VI_V_VERTSHEAR 
     &                   )*recip_rAs(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 105 MOM_VI_V_VERTSHEAR 
     &                    *recip_hFacS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 109 MOM_VI_V_VERTSHEAR 
     &                    *recip_rAs(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 110 MOM_VI_V_VERTSHEAR 
     &                    *recip_hFacS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 24 MOM_VI_V_VERTSHEAR 
      INTEGER bi,bj,K
./pkg/mom_vecinv/mom_vi_v_vertshear.F 62 MOM_VI_V_VERTSHEAR 
     &    wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 63 MOM_VI_V_VERTSHEAR 
     &   +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 68 MOM_VI_V_VERTSHEAR 
     &    wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 69 MOM_VI_V_VERTSHEAR 
     &   +wFld(I,J-1,Kp1,bi,bj)*rA(i,j-1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 74 MOM_VI_V_VERTSHEAR 
        vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign
./pkg/mom_vecinv/mom_vi_v_vertshear.F 7 MOM_VI_V_VERTSHEAR 
     I        bi,bj,K,
./pkg/mom_vecinv/mom_vi_v_vertshear.F 81 MOM_VI_V_VERTSHEAR 
        vZp=(mask_Kp1*vFld(I,J,Kp1,bi,bj)-vFld(I,J,K,bi,bj))*rkSign
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 10 MOM_VI_V_CORIOLIS_C4 
     I        bi,bj,k,
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 119 MOM_VI_V_CORIOLIS_C4 
     &   -vort3v*uBarXY*recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 120 MOM_VI_V_CORIOLIS_C4 
     &                 * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 34 MOM_VI_V_CORIOLIS_C4 
      INTEGER bi,bj,k
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 63 MOM_VI_V_CORIOLIS_C4 
     &       uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 64 MOM_VI_V_CORIOLIS_C4 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 66 MOM_VI_V_CORIOLIS_C4 
     &       uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 67 MOM_VI_V_CORIOLIS_C4 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 91 MOM_VI_V_CORIOLIS_C4 
     &       uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 92 MOM_VI_V_CORIOLIS_C4 
     &      +uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 93 MOM_VI_V_CORIOLIS_C4 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 94 MOM_VI_V_CORIOLIS_C4 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj))
./model/src/update_surf_dr.F 42 UPDATE_SURF_DR 
      INTEGER i,j,k,bi,bj
./model/src/update_surf_dr.F 46 UPDATE_SURF_DR 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/update_surf_dr.F 54 UPDATE_SURF_DR 
     I                    bi, bj, ksurfC, ksurfW, ksurfS,
./model/src/update_surf_dr.F 62 UPDATE_SURF_DR 
          ks = ksurfC(i,j,bi,bj)
./model/src/update_surf_dr.F 64 UPDATE_SURF_DR 
           hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 65 UPDATE_SURF_DR 
           recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 75 UPDATE_SURF_DR 
          ks = ksurfW(i,j,bi,bj)
./model/src/update_surf_dr.F 77 UPDATE_SURF_DR 
           hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj)
./model/src/update_surf_dr.F 78 UPDATE_SURF_DR 
           recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj)
./model/src/update_surf_dr.F 84 UPDATE_SURF_DR 
          ks = ksurfS(i,j,bi,bj)
./model/src/update_surf_dr.F 86 UPDATE_SURF_DR 
           hFacS(i,j,ks,bi,bj) = hFac_surfS(i,j,bi,bj)
./model/src/update_surf_dr.F 87 UPDATE_SURF_DR 
           recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 103 MOM_VI_HDISSIP 
     &      ((hDiv(i+1,j)-hDiv(i,j))*recip_DXG(i,j,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 104 MOM_VI_HDISSIP 
     &      +((hDiv(i,j+1)-hDiv(i,j))*recip_DYG(i,j,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 105 MOM_VI_HDISSIP 
     &      +((hDiv(i-1,j)-hDiv(i,j))*recip_DXG(i-1,j,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 106 MOM_VI_HDISSIP 
     &      +((hDiv(i,j-1)-hDiv(i,j))*recip_DYG(i,j-1,bi,bj))**2)
./pkg/mom_vecinv/mom_vi_hdissip.F 123 MOM_VI_HDISSIP 
           grdVrt=abs((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj))
./pkg/mom_vecinv/mom_vi_hdissip.F 125 MOM_VI_HDISSIP 
     &      abs((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 127 MOM_VI_HDISSIP 
     &      abs((vort3(i+1,j+1)-vort3(i,j+1))*recip_DXG(i,j+1,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 129 MOM_VI_HDISSIP 
     &      abs((vort3(i+1,j+1)-vort3(i+1,j))*recip_DYG(i+1,j,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 131 MOM_VI_HDISSIP 
           grdDiv=abs((hDiv(i+1,j)-hDiv(i,j))*recip_DXG(i,j,bi,bj))
./pkg/mom_vecinv/mom_vi_hdissip.F 133 MOM_VI_HDISSIP 
     &      abs((hDiv(i,j+1)-hDiv(i,j))*recip_DYG(i,j,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 135 MOM_VI_HDISSIP 
     &      abs((hDiv(i-1,j)-hDiv(i,j))*recip_DXG(i-1,j,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 137 MOM_VI_HDISSIP 
     &      abs((hDiv(i,j-1)-hDiv(i,j))*recip_DYG(i,j-1,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 175 MOM_VI_HDISSIP 
         L2=rAz(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 180 MOM_VI_HDISSIP 
         L2rdt=recip_dt/( 2.*(recip_DXV(I,J,bi,bj)**2
./pkg/mom_vecinv/mom_vi_hdissip.F 181 MOM_VI_HDISSIP 
     &                       +recip_DYU(I,J,bi,bj)**2) )
./pkg/mom_vecinv/mom_vi_hdissip.F 182 MOM_VI_HDISSIP 
         L4rdt=recip_dt/( 6.*(recip_DXV(I,J,bi,bj)**4
./pkg/mom_vecinv/mom_vi_hdissip.F 183 MOM_VI_HDISSIP 
     &                       +recip_DYU(I,J,bi,bj)**4)
./pkg/mom_vecinv/mom_vi_hdissip.F 184 MOM_VI_HDISSIP 
     &                   +8.*((recip_DXV(I,J,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 185 MOM_VI_HDISSIP 
     &                        *recip_DYU(I,J,bi,bj))**2) )
./pkg/mom_vecinv/mom_vi_hdissip.F 191 MOM_VI_HDISSIP 
     &      ((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 192 MOM_VI_HDISSIP 
     &      +((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 193 MOM_VI_HDISSIP 
     &      +((vort3(i-1,j)-vort3(i,j))*recip_DXG(i-1,j,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 194 MOM_VI_HDISSIP 
     &      +((vort3(i,j-1)-vort3(i,j))*recip_DYG(i,j-1,bi,bj))**2)
./pkg/mom_vecinv/mom_vi_hdissip.F 198 MOM_VI_HDISSIP 
     &       ((hDiv(i+1,j)-hDiv(i,j))*recip_DXG(i,j,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 199 MOM_VI_HDISSIP 
     &      +((hDiv(i,j+1)-hDiv(i,j))*recip_DYG(i,j,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 200 MOM_VI_HDISSIP 
     &      +((hDiv(i+1,j+1)-hDiv(i,j+1))*recip_DXG(i,j+1,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 201 MOM_VI_HDISSIP 
     &      +((hDiv(i+1,j+1)-hDiv(i+1,j))*recip_DYG(i+1,j,bi,bj))**2)
./pkg/mom_vecinv/mom_vi_hdissip.F 217 MOM_VI_HDISSIP 
           grdVrt=abs((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj))
./pkg/mom_vecinv/mom_vi_hdissip.F 219 MOM_VI_HDISSIP 
     &       abs((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 221 MOM_VI_HDISSIP 
     &       abs((vort3(i-1,j)-vort3(i,j))*recip_DXG(i-1,j,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 223 MOM_VI_HDISSIP 
     &       abs((vort3(i,j-1)-vort3(i,j))*recip_DYG(i,j-1,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 225 MOM_VI_HDISSIP 
           grdDiv=abs((hDiv(i+1,j)-hDiv(i,j))*recip_DXG(i,j,bi,bj))
./pkg/mom_vecinv/mom_vi_hdissip.F 227 MOM_VI_HDISSIP 
     &      abs((hDiv(i,j+1)-hDiv(i,j))*recip_DYG(i,j,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 229 MOM_VI_HDISSIP 
     &      abs((hDiv(i+1,j+1)-hDiv(i,j+1))*recip_DXG(i-1,j,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 231 MOM_VI_HDISSIP 
     &      abs((hDiv(i+1,j+1)-hDiv(i+1,j))*recip_DYG(i,j-1,bi,bj)))
./pkg/mom_vecinv/mom_vi_hdissip.F 304 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 305 MOM_VI_HDISSIP 
     &      -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 307 MOM_VI_HDISSIP 
     &       recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 308 MOM_VI_HDISSIP 
     &                                           *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 309 MOM_VI_HDISSIP 
     &                               +( Dij-Dim )*recip_DYC(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 312 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 313 MOM_VI_HDISSIP 
     &        - viscAhZ*recip_hFacW(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_hdissip.F 314 MOM_VI_HDISSIP 
     &                                ( Zip-Zij )*recip_DYG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 315 MOM_VI_HDISSIP 
          vD2 = viscAhZ*recip_hFacS(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_hdissip.F 316 MOM_VI_HDISSIP 
     &               cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 317 MOM_VI_HDISSIP 
     &        + viscAhD*              ( Dij-Dim )*recip_DYC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 31 MOM_VI_HDISSIP 
      INTEGER bi,bj,k
./pkg/mom_vecinv/mom_vi_hdissip.F 341 MOM_VI_HDISSIP 
         Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F 342 MOM_VI_HDISSIP 
         Dij=dyF( i , j ,bi,bj)*dStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 343 MOM_VI_HDISSIP 
         Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F 345 MOM_VI_HDISSIP 
         Zip=dxV( i ,j+1,bi,bj)*hFacZ( i ,j+1)*zStar( i ,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F 346 MOM_VI_HDISSIP 
         Zij=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 347 MOM_VI_HDISSIP 
         Zpj=dxV(i+1, j ,bi,bj)*hFacZ(i+1, j )*zStar(i+1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F 370 MOM_VI_HDISSIP 
          uD4 = recip_rAw(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 371 MOM_VI_HDISSIP 
     &                             ( (Dij-Dmj)*cosFacU(j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 372 MOM_VI_HDISSIP 
     &   -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij ) )
./pkg/mom_vecinv/mom_vi_hdissip.F 373 MOM_VI_HDISSIP 
          vD4 = recip_rAs(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 374 MOM_VI_HDISSIP 
     &    recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 377 MOM_VI_HDISSIP 
          uD4 = recip_rAw(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 378 MOM_VI_HDISSIP 
     &                             viscA4*( (Dij-Dmj)*cosFacU(j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 379 MOM_VI_HDISSIP 
     &   -recip_hFacW(i,j,k,bi,bj)*viscA4*( Zip-Zij ) )
./pkg/mom_vecinv/mom_vi_hdissip.F 380 MOM_VI_HDISSIP 
          vD4 = recip_rAs(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 381 MOM_VI_HDISSIP 
     &    recip_hFacS(i,j,k,bi,bj)*viscA4*( (Zpj-Zij)*cosFacV(j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 385 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 386 MOM_VI_HDISSIP 
     &      -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 388 MOM_VI_HDISSIP 
     &       recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 389 MOM_VI_HDISSIP 
     &                                           *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 390 MOM_VI_HDISSIP 
     &                               +( Dij-Dim )*recip_DYC(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 393 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 394 MOM_VI_HDISSIP 
     &        - viscA4Z*recip_hFacW(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_hdissip.F 395 MOM_VI_HDISSIP 
     &                                ( Zip-Zij )*recip_DYG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 396 MOM_VI_HDISSIP 
          vD4 = viscA4Z*recip_hFacS(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_hdissip.F 397 MOM_VI_HDISSIP 
     &               cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 398 MOM_VI_HDISSIP 
     &        + viscA4D*              ( Dij-Dim )*recip_DYC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 411 MOM_VI_HDISSIP 
       CALL DIAGNOSTICS_FILL(viscAh_D,'VISCAH  ',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vi_hdissip.F 412 MOM_VI_HDISSIP 
       CALL DIAGNOSTICS_FILL(viscA4_D,'VISCA4  ',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vi_hdissip.F 79 MOM_VI_HDISSIP 
         L2=rA(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 7 MOM_VI_HDISSIP 
     I        bi,bj,k,
./pkg/mom_vecinv/mom_vi_hdissip.F 84 MOM_VI_HDISSIP 
         L2rdt=recip_dt/( 2.*(recip_DXF(I,J,bi,bj)**2
./pkg/mom_vecinv/mom_vi_hdissip.F 85 MOM_VI_HDISSIP 
     &                       +recip_DYF(I,J,bi,bj)**2) )
./pkg/mom_vecinv/mom_vi_hdissip.F 86 MOM_VI_HDISSIP 
         L4rdt=recip_dt/( 6.*(recip_DXF(I,J,bi,bj)**4
./pkg/mom_vecinv/mom_vi_hdissip.F 87 MOM_VI_HDISSIP 
     &                       +recip_DYF(I,J,bi,bj)**4)
./pkg/mom_vecinv/mom_vi_hdissip.F 88 MOM_VI_HDISSIP 
     &                   +8.*((recip_DXF(I,J,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 89 MOM_VI_HDISSIP 
     &                        *recip_DYF(I,J,bi,bj))**2) )
./pkg/mom_vecinv/mom_vi_hdissip.F 95 MOM_VI_HDISSIP 
     &     ((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 96 MOM_VI_HDISSIP 
     &     +((vort3(i,j+1)-vort3(i,j))*recip_DYG(i,j,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 97 MOM_VI_HDISSIP 
     &     +((vort3(i+1,j+1)-vort3(i,j+1))*recip_DXG(i,j+1,bi,bj))**2
./pkg/mom_vecinv/mom_vi_hdissip.F 98 MOM_VI_HDISSIP 
     &     +((vort3(i+1,j+1)-vort3(i+1,j))*recip_DYG(i+1,j,bi,bj))**2)
./pkg/mom_vecinv/mom_vi_coriolis.F 24 MOM_VI_CORIOLIS 
      INTEGER bi,bj,K
./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 ,j+1)*dxG( i ,j+1,bi,bj)*hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 46 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 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_coriolis.F 51 MOM_VI_CORIOLIS 
     &    +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 52 MOM_VI_CORIOLIS 
     &         )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 60 MOM_VI_CORIOLIS 
     &       vFld( i , j )*dxG( i , j ,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 61 MOM_VI_CORIOLIS 
     &      +vFld( i ,j+1)*dxG( i ,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 62 MOM_VI_CORIOLIS 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 63 MOM_VI_CORIOLIS 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj) )
./pkg/mom_vecinv/mom_vi_coriolis.F 65 MOM_VI_CORIOLIS 
     &    +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 66 MOM_VI_CORIOLIS 
     &         )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 76 MOM_VI_CORIOLIS 
     &       uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 77 MOM_VI_CORIOLIS 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacW( i ,j-1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 78 MOM_VI_CORIOLIS 
     &      +uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 79 MOM_VI_CORIOLIS 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacW(i+1,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_coriolis.F 7 MOM_VI_CORIOLIS 
     I        bi,bj,K,
./pkg/mom_vecinv/mom_vi_coriolis.F 80 MOM_VI_CORIOLIS 
     &   / MAX( epsil, hFacW( i , j ,k,bi,bj)+hFacW( i ,j-1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 81 MOM_VI_CORIOLIS 
     &                +hFacW(i+1, j ,k,bi,bj)+hFacW(i+1,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_coriolis.F 83 MOM_VI_CORIOLIS 
     &    -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 84 MOM_VI_CORIOLIS 
     &         )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 92 MOM_VI_CORIOLIS 
     &       uFld( i , j )*dyG( i , j ,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 93 MOM_VI_CORIOLIS 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 94 MOM_VI_CORIOLIS 
     &      +uFld(i+1, j )*dyG(i+1, j ,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 95 MOM_VI_CORIOLIS 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj) )
./pkg/mom_vecinv/mom_vi_coriolis.F 97 MOM_VI_CORIOLIS 
     &    -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 98 MOM_VI_CORIOLIS 
     &         )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj)
./pkg/compon_communic/comprecv_r8tiles.F 17 COMPRECV_R8TILES 
      integer i,j,ij,nx,ny,k,bibj,bi,bj
./pkg/compon_communic/comprecv_r8tiles.F 28 COMPRECV_R8TILES 
       bj=my_tile_bj(bibj)
./pkg/compon_communic/comprecv_r8tiles.F 77 COMPRECV_R8TILES 
         arr(i,j,k,bi,bj)=r8buf(ij)
./pkg/compon_communic/mitcomponent_register.F 20 MITCOMPONENT_REGISTER 
      integer bi,bj,num_til