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_tiles,bibj
./model/src/ini_mixing.F 35 INI_MIXING
      INTEGER bi, bj
./model/src/ini_mixing.F 39 INI_MIXING
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_mixing.F 45 INI_MIXING
            diffKr(i,j,k,bi,bj) = diffKrNrS(k)
./model/src/ini_mixing.F 48 INI_MIXING
            KapGM(i,j,k,bi,bj) = GMkbackground
./pkg/compon_communic/compsend_r8tiles.F 16 COMPSEND_R8TILES
      integer i,j,ij,bi,bj,k,bibj
./pkg/compon_communic/compsend_r8tiles.F 26 COMPSEND_R8TILES
       bj=my_tile_bj(bibj)
./pkg/compon_communic/compsend_r8tiles.F 45 COMPSEND_R8TILES
         r8buf(ij)=arr(i,j,k,bi,bj)
./pkg/compon_communic/compsend_r4tiles.F 16 COMPSEND_R4TILES
      integer i,j,ij,bi,bj,k,bibj
./pkg/compon_communic/compsend_r4tiles.F 26 COMPSEND_R4TILES
       bj=my_tile_bj(bibj)
./pkg/compon_communic/compsend_r4tiles.F 45 COMPSEND_R4TILES
         r4buf(ij)=arr(i,j,k,bi,bj)
./model/src/ini_pnh.F 40 INI_PNH
      INTEGER bi,bj,I,J,K
./model/src/ini_pnh.F 47 INI_PNH
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_pnh.F 52 INI_PNH
           phi_nh(I,J,K,bi,bj) = 0. _d 0
./eesupp/src/ini_communication_patterns.F 112 INI_COMMUNICATION_PATTERNS
      DO bj=myByLo(myThid),myByHi(myThid)
./eesupp/src/ini_communication_patterns.F 118 INI_COMMUNICATION_PATTERNS
        theBj = bj
./eesupp/src/ini_communication_patterns.F 120 INI_COMMUNICATION_PATTERNS
        tileNo(bi,bj) =
./eesupp/src/ini_communication_patterns.F 137 INI_COMMUNICATION_PATTERNS
        theBj = bj
./eesupp/src/ini_communication_patterns.F 139 INI_COMMUNICATION_PATTERNS
        tileNoW (bi,bj) = 
./eesupp/src/ini_communication_patterns.F 143 INI_COMMUNICATION_PATTERNS
        tilePidW(bi,bj) = procW
./eesupp/src/ini_communication_patterns.F 144 INI_COMMUNICATION_PATTERNS
        tileBiW (bi,bj) = biW
./eesupp/src/ini_communication_patterns.F 145 INI_COMMUNICATION_PATTERNS
        tileBjW (bi,bj) = bj 
./eesupp/src/ini_communication_patterns.F 160 INI_COMMUNICATION_PATTERNS
        theBj = bj
./eesupp/src/ini_communication_patterns.F 161 INI_COMMUNICATION_PATTERNS
        tileNoE(bi,bj) = 
./eesupp/src/ini_communication_patterns.F 165 INI_COMMUNICATION_PATTERNS
        tilePidE(bi,bj) = procE
./eesupp/src/ini_communication_patterns.F 166 INI_COMMUNICATION_PATTERNS
        tileBiE (bi,bj) = biE
./eesupp/src/ini_communication_patterns.F 167 INI_COMMUNICATION_PATTERNS
        tileBjE (bi,bj) = bj 
./eesupp/src/ini_communication_patterns.F 169 INI_COMMUNICATION_PATTERNS
        bjN   = bj+1
./eesupp/src/ini_communication_patterns.F 183 INI_COMMUNICATION_PATTERNS
        tileNoN(bi,bj) =
./eesupp/src/ini_communication_patterns.F 187 INI_COMMUNICATION_PATTERNS
        tilePidN(bi,bj) = procN
./eesupp/src/ini_communication_patterns.F 188 INI_COMMUNICATION_PATTERNS
         tileBiN(bi,bj) = bi
./eesupp/src/ini_communication_patterns.F 189 INI_COMMUNICATION_PATTERNS
         tileBjN(bi,bj) = bjN
./eesupp/src/ini_communication_patterns.F 191 INI_COMMUNICATION_PATTERNS
        bjS   = bj-1
./eesupp/src/ini_communication_patterns.F 205 INI_COMMUNICATION_PATTERNS
        tileNoS(bi,bj) = 
./eesupp/src/ini_communication_patterns.F 209 INI_COMMUNICATION_PATTERNS
        tilePidS(bi,bj) = procS
./eesupp/src/ini_communication_patterns.F 210 INI_COMMUNICATION_PATTERNS
         tileBiS(bi,bj) = bi
./eesupp/src/ini_communication_patterns.F 211 INI_COMMUNICATION_PATTERNS
         tileBjS(bi,bj) = bjS
./eesupp/src/ini_communication_patterns.F 230 INI_COMMUNICATION_PATTERNS
      DO bj=myByLo(myThid),myByHi(myThid)
./eesupp/src/ini_communication_patterns.F 234 INI_COMMUNICATION_PATTERNS
        theTag = TagW0*totalTileCount+tileNo(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 235 INI_COMMUNICATION_PATTERNS
        tileTagSendW(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 237 INI_COMMUNICATION_PATTERNS
        theTag = TagE0*totalTileCount+tileNo(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 238 INI_COMMUNICATION_PATTERNS
        tileTagSendE(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 240 INI_COMMUNICATION_PATTERNS
        theTag = TagN0*totalTileCount+tileNo(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 241 INI_COMMUNICATION_PATTERNS
        tileTagSendN(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 243 INI_COMMUNICATION_PATTERNS
        theTag = TagS0*totalTileCount+tileNo(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 244 INI_COMMUNICATION_PATTERNS
        tileTagSendS(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 247 INI_COMMUNICATION_PATTERNS
        theTag = TagW0*totalTileCount+tileNoE(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 248 INI_COMMUNICATION_PATTERNS
        tileTagRecvE(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 250 INI_COMMUNICATION_PATTERNS
        theTag = TagE0*totalTileCount+tileNoW(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 251 INI_COMMUNICATION_PATTERNS
        tileTagRecvW(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 253 INI_COMMUNICATION_PATTERNS
        theTag = TagS0*totalTileCount+tileNoN(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 254 INI_COMMUNICATION_PATTERNS
        tileTagRecvN(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 256 INI_COMMUNICATION_PATTERNS
        theTag = TagN0*totalTileCount+tileNoS(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 257 INI_COMMUNICATION_PATTERNS
        tileTagRecvS(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 270 INI_COMMUNICATION_PATTERNS
      DO bj=myByLo(myThid),myByHi(myThid)
./eesupp/src/ini_communication_patterns.F 273 INI_COMMUNICATION_PATTERNS
       IF ( tileNoW(bi,bj) .EQ. NULL_TILE ) THEN
./eesupp/src/ini_communication_patterns.F 274 INI_COMMUNICATION_PATTERNS
        tileCommModeW(bi,bj) = COMM_NONE
./eesupp/src/ini_communication_patterns.F 276 INI_COMMUNICATION_PATTERNS
        IF ( myPid .EQ. tilePidW(bi,bj) ) THEN
./eesupp/src/ini_communication_patterns.F 277 INI_COMMUNICATION_PATTERNS
         tileCommModeW(bi,bj) = COMM_PUT
./eesupp/src/ini_communication_patterns.F 279 INI_COMMUNICATION_PATTERNS
         tileCommModeW(bi,bj) = COMM_MSG
./eesupp/src/ini_communication_patterns.F 283 INI_COMMUNICATION_PATTERNS
       IF ( tileNoE(bi,bj) .EQ. NULL_TILE ) THEN
./eesupp/src/ini_communication_patterns.F 284 INI_COMMUNICATION_PATTERNS
        tileCommModeE(bi,bj) = COMM_NONE
./eesupp/src/ini_communication_patterns.F 286 INI_COMMUNICATION_PATTERNS
        IF ( myPid .EQ. tilePidE(bi,bj) ) THEN
./eesupp/src/ini_communication_patterns.F 287 INI_COMMUNICATION_PATTERNS
         tileCommModeE(bi,bj) = COMM_PUT
./eesupp/src/ini_communication_patterns.F 289 INI_COMMUNICATION_PATTERNS
         tileCommModeE(bi,bj) = COMM_MSG
./eesupp/src/ini_communication_patterns.F 293 INI_COMMUNICATION_PATTERNS
       IF ( tileNoS(bi,bj) .EQ. NULL_TILE ) THEN
./eesupp/src/ini_communication_patterns.F 294 INI_COMMUNICATION_PATTERNS
        tileCommModeS(bi,bj) = COMM_NONE
./eesupp/src/ini_communication_patterns.F 296 INI_COMMUNICATION_PATTERNS
        IF ( myPid .EQ. tilePidS(bi,bj) ) THEN
./eesupp/src/ini_communication_patterns.F 297 INI_COMMUNICATION_PATTERNS
         tileCommModeS(bi,bj) = COMM_PUT
./eesupp/src/ini_communication_patterns.F 299 INI_COMMUNICATION_PATTERNS
         tileCommModeS(bi,bj) = COMM_MSG
./eesupp/src/ini_communication_patterns.F 303 INI_COMMUNICATION_PATTERNS
       IF ( tileNoN(bi,bj) .EQ. NULL_TILE ) THEN
./eesupp/src/ini_communication_patterns.F 304 INI_COMMUNICATION_PATTERNS
        tileCommModeN(bi,bj) = COMM_NONE
./eesupp/src/ini_communication_patterns.F 306 INI_COMMUNICATION_PATTERNS
        IF ( myPid .EQ. tilePidN(bi,bj) ) THEN
./eesupp/src/ini_communication_patterns.F 307 INI_COMMUNICATION_PATTERNS
         tileCommModeN(bi,bj) = COMM_PUT
./eesupp/src/ini_communication_patterns.F 309 INI_COMMUNICATION_PATTERNS
         tileCommModeN(bi,bj) = COMM_MSG
./eesupp/src/ini_communication_patterns.F 317 INI_COMMUNICATION_PATTERNS
      DO bj=myByLo(myThid),myByHi(myThid)
./eesupp/src/ini_communication_patterns.F 319 INI_COMMUNICATION_PATTERNS
        exchNReqsX(1,bi,bj) = 0
./eesupp/src/ini_communication_patterns.F 320 INI_COMMUNICATION_PATTERNS
        exchNReqsY(1,bi,bj) = 0
./eesupp/src/ini_communication_patterns.F 56 INI_COMMUNICATION_PATTERNS
      INTEGER bi, bj, pi, pj
./pkg/compon_communic/comprecv_r4tiles.F 17 COMPRECV_R4TILES
      integer i,j,ij,nx,ny,k,bibj,bi,bj
./pkg/compon_communic/comprecv_r4tiles.F 28 COMPRECV_R4TILES
       bj=my_tile_bj(bibj)
./pkg/compon_communic/comprecv_r4tiles.F 77 COMPRECV_R4TILES
         arr(i,j,k,bi,bj)=r4buf(ij)
./pkg/compon_communic/mitcomponent_tile_register.F 22 MITCOMPONENT_TILE_REGISTER
      integer bi,bj,num_tiles,bibj
./pkg/compon_communic/mitcomponent_tile_register.F 28 MITCOMPONENT_TILE_REGISTER
      do bj=1,nty
./pkg/compon_communic/mitcomponent_tile_register.F 30 MITCOMPONENT_TILE_REGISTER
        if ( ireg(1,bi,bj)*ireg(2,bi,bj).gt.0 ) then
./pkg/compon_communic/mitcomponent_tile_register.F 32 MITCOMPONENT_TILE_REGISTER
         my_tile_nx(num_tiles)=ireg(1,bi,bj)
./pkg/compon_communic/mitcomponent_tile_register.F 33 MITCOMPONENT_TILE_REGISTER
         my_tile_ny(num_tiles)=ireg(2,bi,bj)
./pkg/compon_communic/mitcomponent_tile_register.F 34 MITCOMPONENT_TILE_REGISTER
         my_tile_i0(num_tiles)=ireg(3,bi,bj)
./pkg/compon_communic/mitcomponent_tile_register.F 35 MITCOMPONENT_TILE_REGISTER
         my_tile_j0(num_tiles)=ireg(4,bi,bj)
./pkg/compon_communic/mitcomponent_tile_register.F 37 MITCOMPONENT_TILE_REGISTER
         my_tile_bj(num_tiles)=bj
./pkg/compon_communic/mitcomponent_tile_register.F 39 MITCOMPONENT_TILE_REGISTER
     &   write(LogUnit,*) 'MITCOMPONENT_tile_register: bi,bj=',bi,bj,
./pkg/compon_communic/mitcomponent_tile_register.F 40 MITCOMPONENT_TILE_REGISTER
     &              ' nx,ny=',ireg(1,bi,bj),ireg(2,bi,bj)
./pkg/compon_communic/mitcomponent_tile_register.F 43 MITCOMPONENT_TILE_REGISTER
     &    'MITCOMPONENT_tile_register: blank bi,bj=',bi,bj
./pkg/compon_communic/mitcomponent_tile_register.F 79 MITCOMPONENT_TILE_REGISTER
       bj=my_tile_bj(bibj)
./pkg/exf/exf_check.F 33 EXF_CHECK
      integer bi,bj
./pkg/exf/exf_set_climsss.F 132 EXF_SET_CLIMSSS
         do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_set_climsss.F 138 EXF_SET_CLIMSSS
                     climsss(i,j,bi,bj) = exf_inscal_sss * (
./pkg/exf/exf_set_climsss.F 139 EXF_SET_CLIMSSS
     &                                fac * climsss0(i,j,bi,bj) +
./pkg/exf/exf_set_climsss.F 140 EXF_SET_CLIMSSS
     &                    (exf_one - fac) * climsss1(i,j,bi,bj) )
./pkg/exf/exf_set_climsss.F 190 EXF_INIT_CLIMSSS
      integer bi, bj
./pkg/exf/exf_set_climsss.F 195 EXF_INIT_CLIMSSS
      do bj = mybylo(mythid), mybyhi(mythid)
./pkg/exf/exf_set_climsss.F 199 EXF_INIT_CLIMSSS
              climsss (i,j,bi,bj) = climsssconst
./pkg/exf/exf_set_climsss.F 200 EXF_INIT_CLIMSSS
              climsss0(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_set_climsss.F 201 EXF_INIT_CLIMSSS
              climsss1(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_set_climsss.F 55 EXF_SET_CLIMSSS
      integer bi, bj, i, j, interp_method
./pkg/exf/exf_interp.F 124 EXF_INTERP
      do bj = mybylo(mythid), mybyhi(mythid)
./pkg/exf/exf_interp.F 132 EXF_INTERP
           if ( xG(i,j,bi,bj) .lt. x_in(0)         .or.
./pkg/exf/exf_interp.F 133 EXF_INTERP
     &          xG(i,j,bi,bj) .ge. x_in(nx_in+1)   .or.
./pkg/exf/exf_interp.F 134 EXF_INTERP
     &          yG(i,j,bi,bj) .lt. y_in(0)         .or.
./pkg/exf/exf_interp.F 135 EXF_INTERP
     &          yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then
./pkg/exf/exf_interp.F 138 EXF_INTERP
              print*,'i,j,bi,bj'      ,i,j,bi,bj
./pkg/exf/exf_interp.F 139 EXF_INTERP
              print*,'xG,yG'          ,xG(i,j,bi,bj),yG(i,j,bi,bj)
./pkg/exf/exf_interp.F 153 EXF_INTERP
          if (xG(i,j,bi,bj)-x_in(1) .ge. 0.) then
./pkg/exf/exf_interp.F 154 EXF_INTERP
           w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) + 1
./pkg/exf/exf_interp.F 156 EXF_INTERP
           w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc)
./pkg/exf/exf_interp.F 160 EXF_INTERP
          do while (yG(i,j,bi,bj) .lt. y_in(js))
./pkg/exf/exf_interp.F 163 EXF_INTERP
          do while (yG(i,j,bi,bj) .ge. y_in(js+1))
./pkg/exf/exf_interp.F 177 EXF_INTERP
           arrayout(i,j,bi,bj) = 0.
./pkg/exf/exf_interp.F 184 EXF_INTERP
     &             *lagran(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 186 EXF_INTERP
     &             *lagran(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 187 EXF_INTERP
            arrayout(i,j,bi,bj)=arrayout(i,j,bi,bj)
./pkg/exf/exf_interp.F 188 EXF_INTERP
     &             +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interp.F 198 EXF_INTERP
           arrayout(i,j,bi,bj) = 0.
./pkg/exf/exf_interp.F 206 EXF_INTERP
     &             *lagran(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 208 EXF_INTERP
     &             *lagran(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 210 EXF_INTERP
     &             *lagran(3,xG(i,j,bi,bj),px_ind,sp) 
./pkg/exf/exf_interp.F 212 EXF_INTERP
     &             *lagran(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 213 EXF_INTERP
            arrayout(i,j,bi,bj)=arrayout(i,j,bi,bj) 
./pkg/exf/exf_interp.F 214 EXF_INTERP
     &             +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interp.F 82 EXF_INTERP
      integer  i, j, k, l, js, bi, bj, sp, interp_unit
./pkg/exf/exf_swapffields.F 107 EXF_SWAPFFIELDS_3D
      integer bj
./pkg/exf/exf_swapffields.F 121 EXF_SWAPFFIELDS_3D
      do bj = jtlo,jthi
./pkg/exf/exf_swapffields.F 126 EXF_SWAPFFIELDS_3D
                ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj)
./pkg/exf/exf_swapffields.F 127 EXF_SWAPFFIELDS_3D
                ffld1(i,j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 169 EXF_SWAPFFIELDS_XZ
      integer bi, bj
./pkg/exf/exf_swapffields.F 181 EXF_SWAPFFIELDS_XZ
      do bj = jtlo,jthi
./pkg/exf/exf_swapffields.F 185 EXF_SWAPFFIELDS_XZ
              ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj)
./pkg/exf/exf_swapffields.F 186 EXF_SWAPFFIELDS_XZ
              ffld1(i,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 227 EXF_SWAPFFIELDS_YZ
      integer bi, bj
./pkg/exf/exf_swapffields.F 239 EXF_SWAPFFIELDS_YZ
      do bj = jtlo,jthi
./pkg/exf/exf_swapffields.F 243 EXF_SWAPFFIELDS_YZ
              ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj)
./pkg/exf/exf_swapffields.F 244 EXF_SWAPFFIELDS_YZ
              ffld1(j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 49 EXF_SWAPFFIELDS
      integer bj
./pkg/exf/exf_swapffields.F 62 EXF_SWAPFFIELDS
      do bj = jtlo,jthi
./pkg/exf/exf_swapffields.F 66 EXF_SWAPFFIELDS
              ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj)
./pkg/exf/exf_swapffields.F 67 EXF_SWAPFFIELDS
              ffld1(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_set_climsalt.F 115 EXF_SET_CLIMSALT
         do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_set_climsalt.F 122 EXF_SET_CLIMSALT
                        climsalt(i,j,k,bi,bj) = 
./pkg/exf/exf_set_climsalt.F 123 EXF_SET_CLIMSALT
     &                       fac * climsalt0(i,j,k,bi,bj) +
./pkg/exf/exf_set_climsalt.F 124 EXF_SET_CLIMSALT
     &                       (exf_one - fac) * climsalt1(i,j,k,bi,bj)
./pkg/exf/exf_set_climsalt.F 174 EXF_INIT_CLIMSALT
      integer bi, bj
./pkg/exf/exf_set_climsalt.F 179 EXF_INIT_CLIMSALT
      do bj = mybylo(mythid), mybyhi(mythid)
./pkg/exf/exf_set_climsalt.F 184 EXF_INIT_CLIMSALT
                 climsalt (i,j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_set_climsalt.F 185 EXF_INIT_CLIMSALT
                 climsalt0(i,j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_set_climsalt.F 186 EXF_INIT_CLIMSALT
                 climsalt1(i,j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_set_climsalt.F 56 EXF_SET_CLIMSALT
      integer bi, bj
./pkg/exf/exf_init_runoff.F 38 EXF_INIT_RUNOFF
      integer bi, bj, i, j, interp_method
./pkg/exf/exf_init_runoff.F 42 EXF_INIT_RUNOFF
      do bj = mybylo(mythid), mybyhi(mythid)
./pkg/exf/exf_init_runoff.F 46 EXF_INIT_RUNOFF
              runoff(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_init_runoff.F 73 EXF_INIT_RUNOFF
         do bj = mybylo(mythid), mybyhi(mythid)
./pkg/exf/exf_init_runoff.F 77 EXF_INIT_RUNOFF
                 if(ABS(runoff(i,j,bi,bj)).gt.998.) runoff(i,j,bi,bj)=0.
./pkg/exf/exf_init_runoff.F 78 EXF_INIT_RUNOFF
                 runoff(i,j,bi,bj)=exf_inscal_runoff*runoff(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 140 EXF_BULKFORMULAE
      integer bi,bj
./pkg/exf/exf_bulkformulae.F 217 EXF_BULKFORMULAE
      do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_bulkformulae.F 232 EXF_BULKFORMULAE
               act2 = bj - myByLo(myThid)
./pkg/exf/exf_bulkformulae.F 254 EXF_BULKFORMULAE
     &     lwflux(i,j,bi,bj) = 5.5 _d -08 *
./pkg/exf/exf_bulkformulae.F 255 EXF_BULKFORMULAE
     &              ((theta(i,j,k,bi,bj)+cen2kel)**4)
./pkg/exf/exf_bulkformulae.F 256 EXF_BULKFORMULAE
     &              - lwdown(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 258 EXF_BULKFORMULAE
     &     lwdown(i,j,bi,bj) = 5.5 _d -08 *
./pkg/exf/exf_bulkformulae.F 259 EXF_BULKFORMULAE
     &              ((theta(i,j,k,bi,bj)+cen2kel)**4)
./pkg/exf/exf_bulkformulae.F 260 EXF_BULKFORMULAE
     &              - lwflux(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 265 EXF_BULKFORMULAE
     &     swflux(i,j,bi,bj) = -(1.0-exf_albedo) * swdown(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 267 EXF_BULKFORMULAE
     &     swdown(i,j,bi,bj) = -swflux(i,j,bi,bj) / (1.0-exf_albedo)
./pkg/exf/exf_bulkformulae.F 276 EXF_BULKFORMULAE
              ustmp = uwind(i,j,bi,bj)*uwind(i,j,bi,bj) +
./pkg/exf/exf_bulkformulae.F 277 EXF_BULKFORMULAE
     &                vwind(i,j,bi,bj)*vwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 280 EXF_BULKFORMULAE
                cw = uwind(i,j,bi,bj)/us
./pkg/exf/exf_bulkformulae.F 281 EXF_BULKFORMULAE
                sw = vwind(i,j,bi,bj)/us
./pkg/exf/exf_bulkformulae.F 297 EXF_BULKFORMULAE
              ustmp = ustress(i,j,bi,bj)*ustress(i,j,bi,bj) + 
./pkg/exf/exf_bulkformulae.F 298 EXF_BULKFORMULAE
     &                vstress(i,j,bi,bj)*vstress(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 301 EXF_BULKFORMULAE
                cw = ustress(i,j,bi,bj)/sqrt(ustmp)
./pkg/exf/exf_bulkformulae.F 302 EXF_BULKFORMULAE
                sw = vstress(i,j,bi,bj)/sqrt(ustmp)
./pkg/exf/exf_bulkformulae.F 342 EXF_BULKFORMULAE
              if ( atemp(i,j,bi,bj) .ne. 0. _d 0 ) then
./pkg/exf/exf_bulkformulae.F 343 EXF_BULKFORMULAE
                t0     = atemp(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F 344 EXF_BULKFORMULAE
     &                   (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 345 EXF_BULKFORMULAE
                ssttmp = theta(i,j,k,bi,bj)
./pkg/exf/exf_bulkformulae.F 348 EXF_BULKFORMULAE
                deltap = atemp(i,j,bi,bj)   + gamma_blk*ht -
./pkg/exf/exf_bulkformulae.F 350 EXF_BULKFORMULAE
                delq   = aqh(i,j,bi,bj) - ssq
./pkg/exf/exf_bulkformulae.F 382 EXF_BULKFORMULAE
     &                     qstar/(exf_one/humid_fac+aqh(i,j,bi,bj)))/
./pkg/exf/exf_bulkformulae.F 443 EXF_BULKFORMULAE
                hs(i,j,bi,bj)      = atmcp*tau*tstar/ustar
./pkg/exf/exf_bulkformulae.F 444 EXF_BULKFORMULAE
                hl(i,j,bi,bj)      = flamb*tau*qstar/ustar
./pkg/exf/exf_bulkformulae.F 448 EXF_BULKFORMULAE
                evap(i,j,bi,bj)    = -recip_rhonil*tau*qstar/ustar
./pkg/exf/exf_bulkformulae.F 450 EXF_BULKFORMULAE
                ustress(i,j,bi,bj) = tau*cw
./pkg/exf/exf_bulkformulae.F 451 EXF_BULKFORMULAE
                vstress(i,j,bi,bj) = tau*sw
./pkg/exf/exf_bulkformulae.F 453 EXF_BULKFORMULAE
                ustress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 454 EXF_BULKFORMULAE
                vstress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 455 EXF_BULKFORMULAE
                hflux  (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 456 EXF_BULKFORMULAE
                hs(i,j,bi,bj)      = 0. _d 0
./pkg/exf/exf_bulkformulae.F 457 EXF_BULKFORMULAE
                hl(i,j,bi,bj)      = 0. _d 0
./pkg/exf/exf_bulkformulae.F 463 EXF_BULKFORMULAE
              ustress(i,j,bi,bj) = atmrho*tmpbulk*us*
./pkg/exf/exf_bulkformulae.F 464 EXF_BULKFORMULAE
     &                             uwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 465 EXF_BULKFORMULAE
              vstress(i,j,bi,bj) = atmrho*tmpbulk*us*
./pkg/exf/exf_bulkformulae.F 466 EXF_BULKFORMULAE
     &                             vwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 475 EXF_BULKFORMULAE
      do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_bulkformulae.F 482 EXF_BULKFORMULAE
              hfl = hfl - hs(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 483 EXF_BULKFORMULAE
              hfl = hfl - hl(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 484 EXF_BULKFORMULAE
              hfl = hfl + lwflux(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 486 EXF_BULKFORMULAE
              hfl = hfl + swflux(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 489 EXF_BULKFORMULAE
              hflux(i,j,bi,bj) = hfl
./pkg/exf/exf_bulkformulae.F 491 EXF_BULKFORMULAE
              sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj)
./pkg/exf/exf_interp_read.F 64 EXF_INTERP_READ
      integer  i, j, k, l, js, bi, bj, sp, interp_unit
./pkg/exf/exf_set_gen.F 184 EXF_SET_GEN
         do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_set_gen.F 191 EXF_SET_GEN
                     genfld(i,j,bi,bj) = exf_inscal_gen * (
./pkg/exf/exf_set_gen.F 192 EXF_SET_GEN
     &                                fac * gen0(i,j,bi,bj) +
./pkg/exf/exf_set_gen.F 193 EXF_SET_GEN
     &                    (exf_one - fac) * gen1(i,j,bi,bj) )
./pkg/exf/exf_set_gen.F 243 EXF_INIT_GEN
      integer bi, bj
./pkg/exf/exf_set_gen.F 248 EXF_INIT_GEN
      do bj = mybylo(mythid), mybyhi(mythid)
./pkg/exf/exf_set_gen.F 252 EXF_INIT_GEN
              genfld(i,j,bi,bj)  = genconst
./pkg/exf/exf_set_gen.F 253 EXF_INIT_GEN
              gen0(i,j,bi,bj)    = genconst
./pkg/exf/exf_set_gen.F 254 EXF_INIT_GEN
              gen1(i,j,bi,bj)    = genconst
./pkg/exf/exf_set_gen.F 78 EXF_SET_GEN
      integer bi, bj
./pkg/exf/exf_filter_rs.F 100 EXF_FILTER_RS
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rs.F 44 EXF_FILTER_RS
      integer bi,bj
./pkg/exf/exf_filter_rs.F 60 EXF_FILTER_RS
      do bj = jtlo,jthi
./pkg/exf/exf_filter_rs.F 79 EXF_FILTER_RS
                if ( _hFacC(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_filter_rs.F 80 EXF_FILTER_RS
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rs.F 89 EXF_FILTER_RS
                if ( maskw(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_filter_rs.F 90 EXF_FILTER_RS
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rs.F 99 EXF_FILTER_RS
                if ( masks(i,j,1,bi,bj) .eq. 0. ) then
./model/src/the_correction_step.F 100 THE_CORRECTION_STEP
     I           bi,bj,K,
./model/src/the_correction_step.F 105 THE_CORRECTION_STEP
     I           bi,bj,K,
./model/src/the_correction_step.F 111 THE_CORRECTION_STEP
            CALL OBCS_APPLY_UV(bi,bj,K,uVel,vVel,myThid)
./model/src/the_correction_step.F 129 THE_CORRECTION_STEP
     I        bi, bj, iMin, iMax, jMin, jMax,
./model/src/the_correction_step.F 58 THE_CORRECTION_STEP
      INTEGER bi,bj
./model/src/the_correction_step.F 63 THE_CORRECTION_STEP
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/the_correction_step.F 83 THE_CORRECTION_STEP
     I       bi,bj,iMin,iMax,jMin,jMax,
./model/src/the_correction_step.F 94 THE_CORRECTION_STEP
     I         bi,bj,iMin,iMax,jMin,jMax,K,
./pkg/exf/exf_set_climtemp.F 115 EXF_SET_CLIMTEMP
         do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_set_climtemp.F 122 EXF_SET_CLIMTEMP
                        if (climtemp0(i,j,k,bi,bj) .lt. climtempfreeze)
./pkg/exf/exf_set_climtemp.F 123 EXF_SET_CLIMTEMP
     &                       climtemp0(i,j,k,bi,bj) = climtempfreeze
./pkg/exf/exf_set_climtemp.F 124 EXF_SET_CLIMTEMP
                        if (climtemp1(i,j,k,bi,bj) .lt. climtempfreeze)
./pkg/exf/exf_set_climtemp.F 125 EXF_SET_CLIMTEMP
     &                       climtemp1(i,j,k,bi,bj) = climtempfreeze
./pkg/exf/exf_set_climtemp.F 128 EXF_SET_CLIMTEMP
                        climtemp(i,j,k,bi,bj) = 
./pkg/exf/exf_set_climtemp.F 129 EXF_SET_CLIMTEMP
     &                       fac * climtemp0(i,j,k,bi,bj) +
./pkg/exf/exf_set_climtemp.F 130 EXF_SET_CLIMTEMP
     &                       (exf_one - fac) * climtemp1(i,j,k,bi,bj)
./pkg/exf/exf_set_climtemp.F 180 EXF_INIT_CLIMTEMP
      integer bi, bj
./pkg/exf/exf_set_climtemp.F 185 EXF_INIT_CLIMTEMP
      do bj = mybylo(mythid), mybyhi(mythid)
./pkg/exf/exf_set_climtemp.F 190 EXF_INIT_CLIMTEMP
                 climtemp (i,j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_set_climtemp.F 191 EXF_INIT_CLIMTEMP
                 climtemp0(i,j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_set_climtemp.F 192 EXF_INIT_CLIMTEMP
                 climtemp1(i,j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_set_climtemp.F 56 EXF_SET_CLIMTEMP
      integer bi, bj
./pkg/exf/exf_getffields.F 171 EXF_GETFFIELDS
      do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_getffields.F 175 EXF_GETFFIELDS
                  atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp
./pkg/exf/exf_getffields.F 49 EXF_GETFFIELDS
      integer i, j, bi, bj, interp_method
./pkg/exf/exf_set_uv.F 166 EXF_SET_UV
               do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_set_uv.F 170 EXF_SET_UV
                           x1=xG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 171 EXF_SET_UV
                           x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 172 EXF_SET_UV
                           x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 173 EXF_SET_UV
                           x4=xG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 180 EXF_SET_UV
                           y1=yG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 181 EXF_SET_UV
                           y2=yG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 182 EXF_SET_UV
                           y3=yG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 183 EXF_SET_UV
                           y4=yG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 185 EXF_SET_UV
                           dx=dx*cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 187 EXF_SET_UV
                           vvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 188 EXF_SET_UV
     &                          tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy)
./pkg/exf/exf_set_uv.F 190 EXF_SET_UV
                           dx=dx*cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 192 EXF_SET_UV
                           uvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 193 EXF_SET_UV
     &                          tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy)
./pkg/exf/exf_set_uv.F 257 EXF_SET_UV
               do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_set_uv.F 261 EXF_SET_UV
                           x1=xG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 262 EXF_SET_UV
                           x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 263 EXF_SET_UV
                           x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 264 EXF_SET_UV
                           x4=xG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 271 EXF_SET_UV
                           y1=yG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 272 EXF_SET_UV
                           y2=yG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 273 EXF_SET_UV
                           y3=yG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 274 EXF_SET_UV
                           y4=yG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 276 EXF_SET_UV
                           dx=dx*cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 278 EXF_SET_UV
                           vvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 279 EXF_SET_UV
     &                          tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy)
./pkg/exf/exf_set_uv.F 281 EXF_SET_UV
                           dx=dx*cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 283 EXF_SET_UV
                           uvec1(i,j,bi,bj)=(tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 284 EXF_SET_UV
     &                          tmp_v(i,j,bi,bj)*dy)/sqrt(dx*dx+dy*dy)
./pkg/exf/exf_set_uv.F 300 EXF_SET_UV
            do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_set_uv.F 304 EXF_SET_UV
                        uvec(i,j,bi,bj) = exf_inscal_uvec * (
./pkg/exf/exf_set_uv.F 305 EXF_SET_UV
     &                       fac * uvec0(i,j,bi,bj) +
./pkg/exf/exf_set_uv.F 306 EXF_SET_UV
     &                       (exf_one - fac) * uvec1(i,j,bi,bj) )
./pkg/exf/exf_set_uv.F 307 EXF_SET_UV
                        vvec(i,j,bi,bj) = exf_inscal_vvec * (
./pkg/exf/exf_set_uv.F 308 EXF_SET_UV
     &                       fac * vvec0(i,j,bi,bj) +
./pkg/exf/exf_set_uv.F 309 EXF_SET_UV
     &                       (exf_one - fac) * vvec1(i,j,bi,bj) )
./pkg/exf/exf_set_uv.F 93 EXF_SET_UV
      integer i, j, bi, bj
./pkg/exf/exf_set_obcs.F 138 EXF_SET_OBCS_YZ
      integer bi, bj
./pkg/exf/exf_set_obcs.F 159 EXF_SET_OBCS_YZ
         do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_set_obcs.F 163 EXF_SET_OBCS_YZ
                     obcs_fld_yz(j,k,bi,bj) = 
./pkg/exf/exf_set_obcs.F 164 EXF_SET_OBCS_YZ
     &                    fac             *obcs_yz_0(j,k,bi,bj) +
./pkg/exf/exf_set_obcs.F 165 EXF_SET_OBCS_YZ
     &                    (exf_one - fac) *obcs_yz_1(j,k,bi,bj)
./pkg/exf/exf_set_obcs.F 52 EXF_SET_OBCS_XZ
      integer bi, bj
./pkg/exf/exf_set_obcs.F 73 EXF_SET_OBCS_XZ
         do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_set_obcs.F 77 EXF_SET_OBCS_XZ
                     obcs_fld_xz(i,k,bi,bj) = 
./pkg/exf/exf_set_obcs.F 78 EXF_SET_OBCS_XZ
     &                    fac * obcs_xz_0(i,k,bi,bj) +
./pkg/exf/exf_set_obcs.F 79 EXF_SET_OBCS_XZ
     &                    (exf_one - fac) * obcs_xz_1(i,k,bi,bj)
./pkg/exf/exf_filter_rl.F 100 EXF_FILTER_RL
                if ( masks(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_filter_rl.F 101 EXF_FILTER_RL
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F 45 EXF_FILTER_RL
      integer bi,bj
./pkg/exf/exf_filter_rl.F 61 EXF_FILTER_RL
      do bj = jtlo,jthi
./pkg/exf/exf_filter_rl.F 80 EXF_FILTER_RL
                if ( _hFacC(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_filter_rl.F 81 EXF_FILTER_RL
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F 90 EXF_FILTER_RL
                if ( maskw(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_filter_rl.F 91 EXF_FILTER_RL
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_check_range.F 103 EXF_CHECK_RANGE
              if ( ABS(uwind(i,j,bi,bj)) .GT. 100. .AND.
./pkg/exf/exf_check_range.F 104 EXF_CHECK_RANGE
     &             hFacW(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 107 EXF_CHECK_RANGE
     &                i, j, uwind(i,j,bi,bj)
./pkg/exf/exf_check_range.F 112 EXF_CHECK_RANGE
              if ( ABS(vwind(i,j,bi,bj)) .GT. 100. .AND.
./pkg/exf/exf_check_range.F 113 EXF_CHECK_RANGE
     &             hFacS(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 116 EXF_CHECK_RANGE
     &                i, j, vwind(i,j,bi,bj)
./pkg/exf/exf_check_range.F 123 EXF_CHECK_RANGE
              if ( (atemp(i,j,bi,bj) .LT. 183 .OR.
./pkg/exf/exf_check_range.F 124 EXF_CHECK_RANGE
     &             atemp(i,j,bi,bj) .GT. 343 ) .AND.
./pkg/exf/exf_check_range.F 125 EXF_CHECK_RANGE
     &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 129 EXF_CHECK_RANGE
     &                i, j, atemp(i,j,bi,bj)
./pkg/exf/exf_check_range.F 134 EXF_CHECK_RANGE
              if ( (aqh(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F 135 EXF_CHECK_RANGE
     &             aqh(i,j,bi,bj) .GT. 0.1 ) .AND.
./pkg/exf/exf_check_range.F 136 EXF_CHECK_RANGE
     &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 139 EXF_CHECK_RANGE
     &                i, j, aqh(i,j,bi,bj)
./pkg/exf/exf_check_range.F 144 EXF_CHECK_RANGE
              if ( (precip(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F 145 EXF_CHECK_RANGE
     &             precip(i,j,bi,bj) .GT. 2.E-6 ) .AND.
./pkg/exf/exf_check_range.F 146 EXF_CHECK_RANGE
     &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 149 EXF_CHECK_RANGE
     &                i, j, precip(i,j,bi,bj)
./pkg/exf/exf_check_range.F 156 EXF_CHECK_RANGE
              if ( (swflux(i,j,bi,bj) .GT. 1. .OR.
./pkg/exf/exf_check_range.F 157 EXF_CHECK_RANGE
     &             swflux(i,j,bi,bj) .LT. -1000. ) .AND.
./pkg/exf/exf_check_range.F 158 EXF_CHECK_RANGE
     &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 161 EXF_CHECK_RANGE
     &                i, j, swflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F 168 EXF_CHECK_RANGE
              if ( (runoff(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F 169 EXF_CHECK_RANGE
     &             runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND.
./pkg/exf/exf_check_range.F 170 EXF_CHECK_RANGE
     &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 173 EXF_CHECK_RANGE
     &                i, j, runoff(i,j,bi,bj)
./pkg/exf/exf_check_range.F 33 EXF_CHECK_RANGE
      integer bi,bj
./pkg/exf/exf_check_range.F 58 EXF_CHECK_RANGE
      do bj = jtlo,jthi
./pkg/exf/exf_check_range.F 65 EXF_CHECK_RANGE
              if ( ( hflux(i,j,bi,bj) .GT. 1600. .OR.
./pkg/exf/exf_check_range.F 66 EXF_CHECK_RANGE
     &               hflux(i,j,bi,bj) .LT. -500. ) .AND.
./pkg/exf/exf_check_range.F 67 EXF_CHECK_RANGE
     &              hFacC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 70 EXF_CHECK_RANGE
     &                i, j, hflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F 75 EXF_CHECK_RANGE
              if ( ABS(sflux(i,j,bi,bj)) .GT. 1.E-6 .AND.
./pkg/exf/exf_check_range.F 76 EXF_CHECK_RANGE
     &             hFacC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 79 EXF_CHECK_RANGE
     &                i, j, sflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F 84 EXF_CHECK_RANGE
              if ( ABS(ustress(i,j,bi,bj)) .GT. 2.7 .AND.
./pkg/exf/exf_check_range.F 85 EXF_CHECK_RANGE
     &             hFacW(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 88 EXF_CHECK_RANGE
     &                i, j, ustress(i,j,bi,bj)
./pkg/exf/exf_check_range.F 93 EXF_CHECK_RANGE
              if ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND.
./pkg/exf/exf_check_range.F 94 EXF_CHECK_RANGE
     &             hFacS(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 97 EXF_CHECK_RANGE
     &                i, j, vstress(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 110 EXF_MAPFIELDS
             qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 118 EXF_MAPFIELDS
             empmr(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 128 EXF_MAPFIELDS
              if (ustress(i,j,bi,bj).gt.windstressmax) then
./pkg/exf/exf_mapfields.F 129 EXF_MAPFIELDS
                ustress(i,j,bi,bj)=windstressmax
./pkg/exf/exf_mapfields.F 138 EXF_MAPFIELDS
              if (ustress(i,j,bi,bj).lt.-windstressmax) then
./pkg/exf/exf_mapfields.F 139 EXF_MAPFIELDS
                ustress(i,j,bi,bj)=-windstressmax
./pkg/exf/exf_mapfields.F 147 EXF_MAPFIELDS
              fu(i,j,bi,bj) = exf_outscal_ustress*
./pkg/exf/exf_mapfields.F 148 EXF_MAPFIELDS
     &              (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))/2.*
./pkg/exf/exf_mapfields.F 149 EXF_MAPFIELDS
     &              maskW(i,j,1,bi,bj)
./pkg/exf/exf_mapfields.F 151 EXF_MAPFIELDS
              fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 162 EXF_MAPFIELDS
              if (vstress(i,j,bi,bj).gt.windstressmax) then
./pkg/exf/exf_mapfields.F 163 EXF_MAPFIELDS
                vstress(i,j,bi,bj)=windstressmax
./pkg/exf/exf_mapfields.F 172 EXF_MAPFIELDS
              if (vstress(i,j,bi,bj).lt.-windstressmax) then
./pkg/exf/exf_mapfields.F 173 EXF_MAPFIELDS
                vstress(i,j,bi,bj)=-windstressmax
./pkg/exf/exf_mapfields.F 181 EXF_MAPFIELDS
              fv(i,j,bi,bj) = exf_outscal_vstress*
./pkg/exf/exf_mapfields.F 182 EXF_MAPFIELDS
     &              (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))/2.*
./pkg/exf/exf_mapfields.F 183 EXF_MAPFIELDS
     &              maskS(i,j,1,bi,bj)
./pkg/exf/exf_mapfields.F 185 EXF_MAPFIELDS
              fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 194 EXF_MAPFIELDS
             qsw(i,j,bi,bj)  = exf_outscal_swflux*swflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 202 EXF_MAPFIELDS
             sst(i,j,bi,bj)  = exf_outscal_sst*climsst(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 210 EXF_MAPFIELDS
             sss(i,j,bi,bj)  = exf_outscal_sss*climsss(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 218 EXF_MAPFIELDS
             pload(i,j,bi,bj)=exf_outscal_apressure*apressure(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 69 EXF_MAPFIELDS
      integer bi,bj
./pkg/exf/exf_mapfields.F 91 EXF_MAPFIELDS
      do bj = jtlo,jthi
./pkg/exf/exf_mapfields.F 97 EXF_MAPFIELDS
          act2 = bj - myByLo(myThid)
./model/src/calc_diffusivity.F 104 CALC_DIFFUSIVITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,k,1,
./model/src/calc_diffusivity.F 108 CALC_DIFFUSIVITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,k,1,
./model/src/calc_diffusivity.F 117 CALC_DIFFUSIVITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,k,1,
./model/src/calc_diffusivity.F 11 CALC_DIFFUSIVITY
     I        bi,bj,iMin,iMax,jMin,jMax,k,
./model/src/calc_diffusivity.F 121 CALC_DIFFUSIVITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,k,1,
./model/src/calc_diffusivity.F 130 CALC_DIFFUSIVITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,k,1,
./model/src/calc_diffusivity.F 134 CALC_DIFFUSIVITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,k,1,
./model/src/calc_diffusivity.F 143 CALC_DIFFUSIVITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,k,1,
./model/src/calc_diffusivity.F 147 CALC_DIFFUSIVITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,k,1,
./model/src/calc_diffusivity.F 46 CALC_DIFFUSIVITY
      INTEGER bi,bj,iMin,iMax,jMin,jMax,K
./model/src/calc_diffusivity.F 65 CALC_DIFFUSIVITY
     &         IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
./model/src/calc_diffusivity.F 67 CALC_DIFFUSIVITY
     &       + diffKr(i,j,k,bi,bj)
./model/src/calc_diffusivity.F 78 CALC_DIFFUSIVITY
     &         IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
./model/src/calc_diffusivity.F 80 CALC_DIFFUSIVITY
     &       + diffKr(i,j,k,bi,bj)
./model/src/calc_diffusivity.F 91 CALC_DIFFUSIVITY
     I        bi,bj,iMin,iMax,jMin,jMax,k,1,
./model/src/calc_diffusivity.F 95 CALC_DIFFUSIVITY
     I        bi,bj,iMin,iMax,jMin,jMax,k,1,
./pkg/exf/exf_getforcing.F 119 EXF_GETFORCING
      integer bi,bj
./pkg/exf/exf_getforcing.F 150 EXF_GETFORCING
      do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_getforcing.F 156 EXF_GETFORCING
              sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 159 EXF_GETFORCING
              hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskc(i,j,1,bi,bj)
./pkg/exf/exf_getforcing.F 160 EXF_GETFORCING
              sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskc(i,j,1,bi,bj)
./pkg/exf/exf_getforcing.F 186 EXF_GETFORCING
      do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_getforcing.F 190 EXF_GETFORCING
          hflux(i,j,bi,bj) = hflux(i,j,bi,bj) + swflux(i,j,bi,bj)
./pkg/exf/exf_set_climsst.F 133 EXF_SET_CLIMSST
         do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_set_climsst.F 139 EXF_SET_CLIMSST
                     if (climsst0(i,j,bi,bj) .lt. climtempfreeze) then
./pkg/exf/exf_set_climsst.F 140 EXF_SET_CLIMSST
                        climsst0(i,j,bi,bj) = climtempfreeze
./pkg/exf/exf_set_climsst.F 142 EXF_SET_CLIMSST
                     if (climsst1(i,j,bi,bj) .lt. climtempfreeze) then
./pkg/exf/exf_set_climsst.F 143 EXF_SET_CLIMSST
                        climsst1(i,j,bi,bj) = climtempfreeze
./pkg/exf/exf_set_climsst.F 147 EXF_SET_CLIMSST
                     climsst(i,j,bi,bj) = exf_inscal_sst * (
./pkg/exf/exf_set_climsst.F 148 EXF_SET_CLIMSST
     &                                fac * climsst0(i,j,bi,bj) +
./pkg/exf/exf_set_climsst.F 149 EXF_SET_CLIMSST
     &                    (exf_one - fac) * climsst1(i,j,bi,bj) )
./pkg/exf/exf_set_climsst.F 199 EXF_INIT_CLIMSST
      integer bi, bj
./pkg/exf/exf_set_climsst.F 204 EXF_INIT_CLIMSST
      do bj = mybylo(mythid), mybyhi(mythid)
./pkg/exf/exf_set_climsst.F 208 EXF_INIT_CLIMSST
              climsst (i,j,bi,bj) = climsstconst
./pkg/exf/exf_set_climsst.F 209 EXF_INIT_CLIMSST
              climsst0(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_set_climsst.F 210 EXF_INIT_CLIMSST
              climsst1(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_set_climsst.F 54 EXF_SET_CLIMSST
      integer bi, bj, i, j, interp_method
./model/src/convect.F 10 CONVECT
      SUBROUTINE CONVECT( bi, bj, iMin, iMax, jMin, jMax, K,
./model/src/convect.F 42 CONVECT
      INTEGER bi,bj,iMin,iMax,jMin,jMax,K
./model/src/convect.F 69 CONVECT
         tMix(i,j) = theta(i,j,k-1,bi,bj)
./model/src/convect.F 70 CONVECT
     &               *_hFacC(i,j,k-1,bi,bj)*drF(k-1)
./model/src/convect.F 71 CONVECT
     &              +theta(i,j,k,bi,bj)
./model/src/convect.F 72 CONVECT
     &               *_hFacC(i,j,k,bi,bj)*drF(k)
./model/src/convect.F 73 CONVECT
         sMix(i,j) = salt (i,j,k-1,bi,bj)
./model/src/convect.F 74 CONVECT
     &               *_hFacC(i,j,k-1,bi,bj)*drF(k-1)
./model/src/convect.F 75 CONVECT
     &              +salt (i,j,k,bi,bj)
./model/src/convect.F 76 CONVECT
     &               *_hFacC(i,j,k,bi,bj)*drF(k)
./model/src/convect.F 77 CONVECT
         dSum(i,j) = _hFacC(i,j,k-1,bi,bj)*drF(k-1)
./model/src/convect.F 78 CONVECT
     &              +_hFacC(i,j,k,bi,bj)*drF(k)
./model/src/convect.F 85 CONVECT
         IF ( _hFacC(i,j,k,bi,bj) .GT. 0. .AND.
./model/src/convect.F 88 CONVECT
          theta(i,j,k-1,bi,bj) = tMix(i,j)/dSum(i,j)
./model/src/convect.F 89 CONVECT
          theta(i,j,k  ,bi,bj) = tMix(i,j)/dSum(i,j)
./model/src/convect.F 90 CONVECT
          salt(i,j,k-1,bi,bj)  = sMix(i,j)/dSum(i,j)
./model/src/convect.F 91 CONVECT
          salt(i,j,k  ,bi,bj)  = sMix(i,j)/dSum(i,j)
./pkg/offline/offline_fields_load.F 100 OFFLINE_FIELDS_LOAD
      INTEGER bi,bj,i,j,k,intime0,intime1
./pkg/offline/offline_fields_load.F 340 OFFLINE_FIELDS_LOAD
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/offline/offline_fields_load.F 345 OFFLINE_FIELDS_LOAD
          Uvel(i,j,k,bi,bj)   = bWght*uvel0(i,j,k,bi,bj)  
./pkg/offline/offline_fields_load.F 346 OFFLINE_FIELDS_LOAD
     &                       +aWght*uvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 347 OFFLINE_FIELDS_LOAD
          Vvel(i,j,k,bi,bj)    = bWght*vvel0(i,j,k,bi,bj) 
./pkg/offline/offline_fields_load.F 348 OFFLINE_FIELDS_LOAD
     &                       +aWght*vvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 349 OFFLINE_FIELDS_LOAD
          Wvel(i,j,k,bi,bj)    =  bWght*wvel0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 350 OFFLINE_FIELDS_LOAD
     &                       +aWght*wvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 351 OFFLINE_FIELDS_LOAD
          theta(i,j,k,bi,bj)    = bWght*tave0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 352 OFFLINE_FIELDS_LOAD
     &                       +aWght*tave1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 353 OFFLINE_FIELDS_LOAD
          salt(i,j,k,bi,bj)    =  bWght*save0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 354 OFFLINE_FIELDS_LOAD
     &                       +aWght*save1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 355 OFFLINE_FIELDS_LOAD
          ConvectCount(i,j,k,bi,bj) =  bWght*conv0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 356 OFFLINE_FIELDS_LOAD
     &                       +aWght*conv1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 357 OFFLINE_FIELDS_LOAD
          IVDConvCount(i,j,k,bi,bj) =  bWght*conv0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 358 OFFLINE_FIELDS_LOAD
     &                       +aWght*conv1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 360 OFFLINE_FIELDS_LOAD
          Kwx(i,j,k,bi,bj)    =  bWght*gmkx0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 361 OFFLINE_FIELDS_LOAD
     &                       +aWght*gmkx1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 362 OFFLINE_FIELDS_LOAD
          Kwy(i,j,k,bi,bj)    =  bWght*gmky0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 363 OFFLINE_FIELDS_LOAD
     &                       +aWght*gmky1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 364 OFFLINE_FIELDS_LOAD
          Kwz(i,j,k,bi,bj)    =  bWght*gmkz0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 365 OFFLINE_FIELDS_LOAD
     &                       +aWght*gmkz1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 367 OFFLINE_FIELDS_LOAD
          surfaceForcingT(i,j,bi,bj) = bWght*hflx0(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 368 OFFLINE_FIELDS_LOAD
     &                       +aWght*hflx1(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 369 OFFLINE_FIELDS_LOAD
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)/
./pkg/offline/offline_fields_load.F 371 OFFLINE_FIELDS_LOAD
          surfaceForcingS(i,j,bi,bj) =  bWght*sflx0(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 372 OFFLINE_FIELDS_LOAD
     &                       +aWght*sflx1(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 373 OFFLINE_FIELDS_LOAD
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)/
./pkg/offline/offline_fields_load.F 423 LEF_ZERO3
      INTEGER i,j,bi,bj,k
./pkg/offline/offline_fields_load.F 426 LEF_ZERO3
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/offline/offline_fields_load.F 431 LEF_ZERO3
          arr(i,j,k,bi,bj)=0.
./pkg/offline/offline_fields_load.F 460 LEF_ZERO2
      INTEGER i,j,bi,bj
./pkg/offline/offline_fields_load.F 462 LEF_ZERO2
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/offline/offline_fields_load.F 466 LEF_ZERO2
          arr(i,j,bi,bj)=0.
./model/src/diags_oceanic_surf_flux.F 105 DIAGS_OCEANIC_SURF_FLUX
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/diags_oceanic_surf_flux.F 109 DIAGS_OCEANIC_SURF_FLUX
           tmp1k(i,j,bi,bj) =
./model/src/diags_oceanic_surf_flux.F 110 DIAGS_OCEANIC_SURF_FLUX
     &      surfaceForcingS(i,j,bi,bj)*
./model/src/diags_oceanic_surf_flux.F 119 DIAGS_OCEANIC_SURF_FLUX
            tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj)
./model/src/diags_oceanic_surf_flux.F 120 DIAGS_OCEANIC_SURF_FLUX
     &       + PmEpR(i,j,bi,bj)*rhoConstFresh
./model/src/diags_oceanic_surf_flux.F 121 DIAGS_OCEANIC_SURF_FLUX
     &                        *salt(i,j,ks,bi,bj)
./model/src/diags_oceanic_surf_flux.F 47 DIAGS_OCEANIC_SURF_FLUX
      INTEGER i,j,bi,bj
./model/src/diags_oceanic_surf_flux.F 69 DIAGS_OCEANIC_SURF_FLUX
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/diags_oceanic_surf_flux.F 73 DIAGS_OCEANIC_SURF_FLUX
           tmp1k(i,j,bi,bj) =
./model/src/diags_oceanic_surf_flux.F 75 DIAGS_OCEANIC_SURF_FLUX
     &      -Qsw(i,j,bi,bj)+
./model/src/diags_oceanic_surf_flux.F 77 DIAGS_OCEANIC_SURF_FLUX
     &      (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj))
./model/src/diags_oceanic_surf_flux.F 86 DIAGS_OCEANIC_SURF_FLUX
            tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj)
./model/src/diags_oceanic_surf_flux.F 87 DIAGS_OCEANIC_SURF_FLUX
     &       + PmEpR(i,j,bi,bj)*rhoConstFresh
./model/src/diags_oceanic_surf_flux.F 88 DIAGS_OCEANIC_SURF_FLUX
     &                         *theta(i,j,ks,bi,bj)*HeatCapacity_Cp
./pkg/seaice/advect.F 112 ADVECT
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 116 ADVECT
             HEFF(I,J,3,bi,bj)=HEFF(I,J,2,bi,bj)
./pkg/seaice/advect.F 117 ADVECT
             HEFF(I,J,2,bi,bj)=HALF*(HEFF(I,J,1,bi,bj)
./pkg/seaice/advect.F 118 ADVECT
     &                             +HEFF(I,J,2,bi,bj))
./pkg/seaice/advect.F 125 ADVECT
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 129 ADVECT
             HEFF(I+1,J+1,1,bi,bj)=HEFF(I+1,J+1,3,bi,bj)
./pkg/seaice/advect.F 130 ADVECT
     &        -DELTT*((HEFF(I+1,J+1,2,bi,bj)+HEFF
./pkg/seaice/advect.F 131 ADVECT
     &        (I+2,J+1,2,bi,bj))*(UI(I+2,J+2,bi,bj)+UI(I+2,J+1,bi,bj))-
./pkg/seaice/advect.F 132 ADVECT
     &        (HEFF(I+1,J+1,2,bi,bj)+HEFF
./pkg/seaice/advect.F 133 ADVECT
     &        (I,J+1,2,bi,bj))*(UI(I+1,J+2,bi,bj)+UI(I+1,J+1,bi,bj)))
./pkg/seaice/advect.F 134 ADVECT
     &        *(QUART/(DXTICE(I+1,J,bi,bj)*CSTICE(I,J+1,bi,bj)))
./pkg/seaice/advect.F 135 ADVECT
     &        -DELTT*((HEFF(I+1,J+1,2,bi,bj)
./pkg/seaice/advect.F 136 ADVECT
     &        +HEFF(I+1,J+2,2,bi,bj))*(VI(I+1,J+2,bi,bj)
./pkg/seaice/advect.F 137 ADVECT
     &        +VI(I+2,J+2,bi,bj))*CSUICE(I+1,J+2,bi,bj)
./pkg/seaice/advect.F 138 ADVECT
     &        -(HEFF(I+1,J+1,2,bi,bj)+HEFF(I+1,J,2,bi,bj))
./pkg/seaice/advect.F 139 ADVECT
     &        *(VI(I+1,J+1,bi,bj)+VI(I+2,J+1,bi,bj))
./pkg/seaice/advect.F 140 ADVECT
     &        *CSUICE(I+1,J+1,bi,bj))
./pkg/seaice/advect.F 141 ADVECT
     &        *(QUART/(DYTICE(I,J+1,bi,bj)*CSTICE(I,J+1,bi,bj)))
./pkg/seaice/advect.F 152 ADVECT
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 156 ADVECT
             HEFF(I,J,2,bi,bj)=HEFF(I,J,3,bi,bj)
./pkg/seaice/advect.F 166 ADVECT
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 170 ADVECT
          DIFFA(I,J,bi,bj)=DIFF1*MIN(DXTICE(I,J,bi,bj)
./pkg/seaice/advect.F 171 ADVECT
     &                    *CSTICE(I,J,bi,bj),DYTICE(I,J,bi,bj))
./pkg/seaice/advect.F 178 ADVECT
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 182 ADVECT
          HEFF(I,J,1,bi,bj)=(HEFF(I,J,1,bi,bj)+HEFF(I,J,3,bi,bj))
./pkg/seaice/advect.F 183 ADVECT
     &                      *HEFFM(I,J,bi,bj)
./pkg/seaice/advect.F 190 ADVECT
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 194 ADVECT
          DIFFA(I,J,bi,bj)=-(MIN(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)
./pkg/seaice/advect.F 195 ADVECT
     &                    ,DYTICE(I,J,bi,bj)))**2/DELTT
./pkg/seaice/advect.F 202 ADVECT
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 206 ADVECT
          HEFF(I,J,1,bi,bj)=(HEFF(I,J,1,bi,bj)+HEFF(I,J,3,bi,bj))
./pkg/seaice/advect.F 207 ADVECT
     &                      *HEFFM(I,J,bi,bj)
./pkg/seaice/advect.F 38 ADVECT
      INTEGER i, j, bi, bj
./pkg/seaice/advect.F 59 ADVECT
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 64 ADVECT
          UI(I,J,bi,bj)=UICE(I,J,1,bi,bj)
./pkg/seaice/advect.F 65 ADVECT
          VI(I,J,bi,bj)=VICE(I,J,1,bi,bj)
./pkg/seaice/advect.F 71 ADVECT
          HEFF(I,J,3,bi,bj)=HEFF(I,J,2,bi,bj)
./pkg/seaice/advect.F 72 ADVECT
          HEFF(I,J,2,bi,bj)=HEFF(I,J,1,bi,bj)
./pkg/seaice/advect.F 84 ADVECT
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 88 ADVECT
          HEFF(I+1,J+1,1,bi,bj)=HEFF(I+1,J+1,K3,bi,bj)
./pkg/seaice/advect.F 89 ADVECT
     &     -DELTT*((HEFF(I+1,J+1,2,bi,bj)+HEFF
./pkg/seaice/advect.F 90 ADVECT
     &     (I+2,J+1,2,bi,bj))*(UI(I+2,J+2,bi,bj)+UI(I+2,J+1,bi,bj))-
./pkg/seaice/advect.F 91 ADVECT
     &     (HEFF(I+1,J+1,2,bi,bj)+HEFF
./pkg/seaice/advect.F 92 ADVECT
     &     (I,J+1,2,bi,bj))*(UI(I+1,J+2,bi,bj)+UI(I+1,J+1,bi,bj)))
./pkg/seaice/advect.F 93 ADVECT
     &     *(QUART/(DXTICE(I+1,J,bi,bj)*CSTICE(I,J+1,bi,bj)))
./pkg/seaice/advect.F 94 ADVECT
     &     -DELTT*((HEFF(I+1,J+1,2,bi,bj)
./pkg/seaice/advect.F 95 ADVECT
     &     +HEFF(I+1,J+2,2,bi,bj))*(VI(I+1,J+2,bi,bj)
./pkg/seaice/advect.F 96 ADVECT
     &     +VI(I+2,J+2,bi,bj))*CSUICE(I+1,J+2,bi,bj)
./pkg/seaice/advect.F 97 ADVECT
     &     -(HEFF(I+1,J+1,2,bi,bj)+HEFF(I+1,J,2,bi,bj))
./pkg/seaice/advect.F 98 ADVECT
     &     *(VI(I+1,J+1,bi,bj)+VI(I+2,J+1,bi,bj))*CSUICE(I+1,J+1,bi,bj))
./pkg/seaice/advect.F 99 ADVECT
     &     *(QUART/(DYTICE(I,J+1,bi,bj)*CSTICE(I,J+1,bi,bj)))
./pkg/seaice/seaice_exch_uv.F 27 SEAICE_EXCH_UV
      INTEGER i,j,k,bi,bj
./pkg/seaice/seaice_exch_uv.F 33 SEAICE_EXCH_UV
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_exch_uv.F 37 SEAICE_EXCH_UV
                     tempU(i,j,bi,bj)=ufld(i,j,k,bi,bj)
./pkg/seaice/seaice_exch_uv.F 38 SEAICE_EXCH_UV
                     tempV(i,j,bi,bj)=vfld(i,j,k,bi,bj)
./pkg/seaice/seaice_exch_uv.F 44 SEAICE_EXCH_UV
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_exch_uv.F 48 SEAICE_EXCH_UV
                     ufld(i,j,k,bi,bj)=tempU(i,j,bi,bj)
./pkg/seaice/seaice_exch_uv.F 49 SEAICE_EXCH_UV
                     vfld(i,j,k,bi,bj)=tempV(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 100 CALC_GRAD_PHI_HYD
          ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN
./model/src/calc_grad_phi_hyd.F 101 CALC_GRAD_PHI_HYD
           factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa
./model/src/calc_grad_phi_hyd.F 103 CALC_GRAD_PHI_HYD
     &                  *(rStarFacC(i,j,bi,bj)**atm_kappa - factPI)
./model/src/calc_grad_phi_hyd.F 105 CALC_GRAD_PHI_HYD
     &                 + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 10 CALC_GRAD_PHI_HYD
     I                       k, bi, bj, iMin,iMax, jMin,jMax,
./model/src/calc_grad_phi_hyd.F 112 CALC_GRAD_PHI_HYD
          IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_grad_phi_hyd.F 120 CALC_GRAD_PHI_HYD
     &                  *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F 121 CALC_GRAD_PHI_HYD
     &                  /                (Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F 122 CALC_GRAD_PHI_HYD
     &                 + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 133 CALC_GRAD_PHI_HYD
         varLoc(i,j) = phiHydC(i,j)+phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 141 CALC_GRAD_PHI_HYD
        dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 143 CALC_GRAD_PHI_HYD
        dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 155 CALC_GRAD_PHI_HYD
          varLoc(i,j) = etaH(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 156 CALC_GRAD_PHI_HYD
     &                *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 164 CALC_GRAD_PHI_HYD
     &             *recip_dxC(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 168 CALC_GRAD_PHI_HYD
     &             *recip_dyC(i,j,bi,bj)   
./model/src/calc_grad_phi_hyd.F 178 CALC_GRAD_PHI_HYD
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 179 CALC_GRAD_PHI_HYD
     &             *rC(k)*recip_dxC(i,j,bi,bj)   
./model/src/calc_grad_phi_hyd.F 182 CALC_GRAD_PHI_HYD
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F 183 CALC_GRAD_PHI_HYD
     &             *rC(k)*recip_dyC(i,j,bi,bj)   
./model/src/calc_grad_phi_hyd.F 194 CALC_GRAD_PHI_HYD
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 195 CALC_GRAD_PHI_HYD
     &             *rC(k)*recip_dxC(i,j,bi,bj)   
./model/src/calc_grad_phi_hyd.F 198 CALC_GRAD_PHI_HYD
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F 199 CALC_GRAD_PHI_HYD
     &             *rC(k)*recip_dyC(i,j,bi,bj)   
./model/src/calc_grad_phi_hyd.F 44 CALC_GRAD_PHI_HYD
      INTEGER k, bi,bj, iMin,iMax, jMin,jMax
./model/src/calc_grad_phi_hyd.F 76 CALC_GRAD_PHI_HYD
          varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj)**atm_kappa
./model/src/calc_grad_phi_hyd.F 77 CALC_GRAD_PHI_HYD
     &                + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 83 CALC_GRAD_PHI_HYD
          varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 84 CALC_GRAD_PHI_HYD
     &                + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 95 CALC_GRAD_PHI_HYD
          IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_grad_phi_hyd.F 96 CALC_GRAD_PHI_HYD
           factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa  
./pkg/seaice/groatb.F 104 GROATB
          TMIX(I,J,bi,bj)=theta(I,J,1,bi,bj)+273.16 _d +00
./pkg/seaice/groatb.F 106 GROATB
          TMIX(I,J,bi,bj)=MAX(TMIX(I,J,bi,bj),271.2 _d +00)
./pkg/seaice/groatb.F 113 GROATB
          SPEED_SQ = UWIND(I,J,bi,bj)**2 + VWIND(I,J,bi,bj)**2
./pkg/seaice/groatb.F 132 GROATB
        CALL BUDGET(UG, TMIX, HICE, FO, KOPEN, bi, bj)
./pkg/seaice/groatb.F 152 GROATB
           TICE(I,J,bi,bj)=TICES(I,J,IT,bi,bj)
./pkg/seaice/groatb.F 155 GROATB
         CALL BUDGET(UG, TICE, HICEP, FICE, KOPEN, bi, bj)
./pkg/seaice/groatb.F 158 GROATB
           FICEP(I,J)=(FICE(I,J,bi,bj)/7.0 _d 0)+FICEP(I,J)
./pkg/seaice/groatb.F 159 GROATB
           TICES(I,J,IT,bi,bj)=TICE(I,J,bi,bj)
./pkg/seaice/groatb.F 166 GROATB
          FICE(I,J,bi,bj)=FICEP(I,J)
./pkg/seaice/groatb.F 176 GROATB
        CALL BUDGET(UG, TICE, HICE, FICE, KOPEN, bi, bj)
./pkg/seaice/groatb.F 43 GROATB
      INTEGER i, j, bi, bj
./pkg/seaice/groatb.F 58 GROATB
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/groatb.F 65 GROATB
          act2 = bj - myByLo(myThid)
./pkg/seaice/groatb.F 84 GROATB
          AREA(I,J,2,bi,bj)=MAX(A22,AREA(I,J,2,bi,bj))
./pkg/seaice/groatb.F 85 GROATB
          FHEFF(I,J,bi,bj)=0.0 _d 0
./pkg/seaice/groatb.F 97 GROATB
          HICE(I,J)=HEFF(I,J,2,bi,bj)/AREA(I,J,2,bi,bj)
./pkg/seaice/diffus.F 32 DIFFUS
      INTEGER i, j, bi, bj
./pkg/seaice/diffus.F 36 DIFFUS
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/diffus.F 41 DIFFUS
          HEFF1(I,J,bi,bj)=0.0 _d 0
./pkg/seaice/diffus.F 48 DIFFUS
          DELTXX1=DELTT*DIFFA(I,J,bi,bj)
./pkg/seaice/diffus.F 49 DIFFUS
          DELTYY1=DELTT*DIFFA(I,J,bi,bj)
./pkg/seaice/diffus.F 50 DIFFUS
          DELTXX=DELTXX1/(DXTICE(I,J,bi,bj)*DXTICE(I,J,bi,bj)
./pkg/seaice/diffus.F 51 DIFFUS
     &          *CSTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj))
./pkg/seaice/diffus.F 52 DIFFUS
          DELTYY=DELTYY1/(DYTICE(I,J,bi,bj)*DYTICE(I,J,bi,bj)
./pkg/seaice/diffus.F 53 DIFFUS
     &          *CSTICE(I,J,bi,bj))
./pkg/seaice/diffus.F 54 DIFFUS
          HEFF1(I,J,bi,bj)=DELTXX*((HEFF(I+1,J,3,bi,bj)
./pkg/seaice/diffus.F 55 DIFFUS
     &     -HEFF(I,J,3,bi,bj))*HEFFM(I+1,J,bi,bj)
./pkg/seaice/diffus.F 56 DIFFUS
     &     -(HEFF(I,J,3,bi,bj)-HEFF(I-1,J,3,bi,bj))*HEFFM(I-1,J,bi,bj))
./pkg/seaice/diffus.F 57 DIFFUS
     &     +DELTYY*((HEFF(I,J+1,3,bi,bj)-HEFF(I,J,3,bi,bj))
./pkg/seaice/diffus.F 58 DIFFUS
     &     *CSUICE(I+1,J+1,bi,bj)*HEFFM(I,J+1,bi,bj)
./pkg/seaice/diffus.F 59 DIFFUS
     &     -(HEFF(I,J,3,bi,bj)-HEFF(I,J-1,3,bi,bj))
./pkg/seaice/diffus.F 60 DIFFUS
     &     *CSUICE(I+1,J,bi,bj)*HEFFM(I,J-1,bi,bj))
./pkg/seaice/diffus.F 69 DIFFUS
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/diffus.F 73 DIFFUS
          HEFF(I,J,3,bi,bj)=HEFF1(I,J,bi,bj)
./pkg/seaice/seaice_monitor.F 36 SEAICE_MONITOR
      INTEGER i,j,bi,bj
./pkg/seaice/seaice_monitor.F 41 SEAICE_MONITOR
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_monitor.F 45 SEAICE_MONITOR
                    TMP_DIAG(i,j,bi,bj)=UICE(i,j,1,bi,bj)
./pkg/seaice/seaice_monitor.F 53 SEAICE_MONITOR
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_monitor.F 57 SEAICE_MONITOR
                    TMP_DIAG(i,j,bi,bj)=VICE(i,j,1,bi,bj)
./pkg/seaice/seaice_monitor.F 64 SEAICE_MONITOR
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_monitor.F 68 SEAICE_MONITOR
                    TMP_DIAG(i,j,bi,bj)=AREA(i,j,1,bi,bj)
./pkg/seaice/seaice_monitor.F 75 SEAICE_MONITOR
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_monitor.F 79 SEAICE_MONITOR
                    TMP_DIAG(i,j,bi,bj)=HEFF(i,j,1,bi,bj)
./pkg/seaice/seaice_model.F 60 SEAICE_MODEL
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_model.F 82 SEAICE_MODEL
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_model.F 86 SEAICE_MODEL
          GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj)
./pkg/seaice/seaice_model.F 87 SEAICE_MODEL
     &                         +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj))
./pkg/seaice/seaice_model.F 88 SEAICE_MODEL
          GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj)
./pkg/seaice/seaice_model.F 89 SEAICE_MODEL
     &                         +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj))
./pkg/seaice/budget.F 106 BUDGET
           FICE1(I,J,bi,bj)=QNET(I,J,bi,bj)
./pkg/seaice/budget.F 107 BUDGET
           QSWO(I,J,bi,bj)=Qsw(I,J,bi,bj)
./pkg/seaice/budget.F 110 BUDGET
           A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj)
./pkg/seaice/budget.F 111 BUDGET
     &          +LWDOWN(I,J,bi,bj)*0.97 _d 0
./pkg/seaice/budget.F 112 BUDGET
     &          +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1W*UG(I,J)*AQH(I,J,bi,bj)
./pkg/seaice/budget.F 114 BUDGET
     &          *(TICE(I,J,bi,bj)-TMELT)
./pkg/seaice/budget.F 115 BUDGET
     &          /(TICE(I,J,bi,bj)-TMELT+237.3 _d +00))
./pkg/seaice/budget.F 116 BUDGET
           A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1W*UG(I,J)*B(I,J)
./pkg/seaice/budget.F 117 BUDGET
     &          -D3*(TICE(I,J,bi,bj)**4)
./pkg/seaice/budget.F 118 BUDGET
           FICE1(I,J,bi,bj)=-A1(I,J)-A2(I,J)    
./pkg/seaice/budget.F 119 BUDGET
           QSWO(I,J,bi,bj)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj)
./pkg/seaice/budget.F 122 BUDGET
           QNETO(I,J,bi,bj)=FICE1(I,J,bi,bj)
./pkg/seaice/budget.F 140 BUDGET
           IF(TICE(I,J,bi,bj).GT.TMELTP) ALB(I,J)=SEAICE_wetIceAlb
./pkg/seaice/budget.F 142 BUDGET
           IF(TICE(I,J,bi,bj).GT.TMELTP) ASNOW=SEAICE_wetSnowAlb
./pkg/seaice/budget.F 143 BUDGET
           IF(HSNOW(I,J,bi,bj).GT.HCUT) THEN
./pkg/seaice/budget.F 146 BUDGET
            ALB(I,J)=ALB(I,J)+(HSNOW(I,J,bi,bj)/HCUT)*(ASNOW-ALB(I,J))
./pkg/seaice/budget.F 154 BUDGET
           IF(HSNOW(I,J,bi,bj).GT.0.0) THEN
./pkg/seaice/budget.F 156 BUDGET
            A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj)
./pkg/seaice/budget.F 157 BUDGET
     &       +LWDOWN(I,J,bi,bj)*0.97 _d 0
./pkg/seaice/budget.F 158 BUDGET
     &       +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1I*UG(I,J)*AQH(I,J,bi,bj)
./pkg/seaice/budget.F 161 BUDGET
            A1(I,J)=(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj)
./pkg/seaice/budget.F 163 BUDGET
     &       +LWDOWN(I,J,bi,bj)*0.97 _d 0
./pkg/seaice/budget.F 164 BUDGET
     &       +D1*UG(I,J)*ATEMP(I,J,bi,bj)+D1I*UG(I,J)*AQH(I,J,bi,bj)
./pkg/seaice/budget.F 186 BUDGET
            B(I,J)=QS1*(C1*TICE(I,J,bi,bj)**4+C2*TICE(I,J,bi,bj)**3
./pkg/seaice/budget.F 187 BUDGET
     &            +C3*TICE(I,J,bi,bj)**2+C4*TICE(I,J,bi,bj)+C5)
./pkg/seaice/budget.F 188 BUDGET
            A2(I,J)=-D1*UG(I,J)*TICE(I,J,bi,bj)-D1I*UG(I,J)*B(I,J)
./pkg/seaice/budget.F 189 BUDGET
     &             -D3*(TICE(I,J,bi,bj)**4)
./pkg/seaice/budget.F 190 BUDGET
            B(I,J)=XKS/(HSNOW(I,J,bi,bj)/HICE(I,J)+XKS/XKI)/HICE(I,J)
./pkg/seaice/budget.F 191 BUDGET
            A3(I,J)=4.0 _d +00*D3*(TICE(I,J,bi,bj)**3)+B(I,J)+D1*UG(I,J)
./pkg/seaice/budget.F 192 BUDGET
            B(I,J)=B(I,J)*(TB-TICE(I,J,bi,bj))
./pkg/seaice/budget.F 204 BUDGET
            TICE(I,J,bi,bj)=TICE(I,J,bi,bj)
./pkg/seaice/budget.F 206 BUDGET
            TICE(I,J,bi,bj)=MAX(273.16 _d 0+MIN_TICE,TICE(I,J,bi,bj))
./pkg/seaice/budget.F 212 BUDGET
            TICE(I,J,bi,bj)=MIN(TICE(I,J,bi,bj),TMELT)
./pkg/seaice/budget.F 221 BUDGET
           FICE1(I,J,bi,bj)=-A1(I,J)-A2(I,J)    
./pkg/seaice/budget.F 222 BUDGET
           IF(HSNOW(I,J,bi,bj).GT.0.0) THEN
./pkg/seaice/budget.F 224 BUDGET
            QSWI(I,J,bi,bj)=ZERO
./pkg/seaice/budget.F 227 BUDGET
            QSWI(I,J,bi,bj)=-(ONE-ALB(I,J))*SWDOWN(I,J,bi,bj)
./pkg/seaice/budget.F 39 BUDGET
      INTEGER bi, bj
./pkg/seaice/budget.F 7 BUDGET
      SUBROUTINE BUDGET(UG, TICE, HICE1, FICE1, KOPEN, bi, bj)
./pkg/seaice/budget.F 91 BUDGET
        TICE(I,J,bi,bj)=MIN(273.16 _d 0+MAX_TICE,TICE(I,J,bi,bj))
./pkg/seaice/budget.F 92 BUDGET
        ATEMP(I,J,bi,bj)=MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj))
./pkg/seaice/budget.F 93 BUDGET
        LWDOWN(I,J,bi,bj)=MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj))
./pkg/seaice/seaice_do_diags.F 100 SEAICE_DO_DIAGS
                        arr(i,j,bi,bj)=UICE(i,j,1,bi,bj)
./pkg/seaice/seaice_do_diags.F 115 SEAICE_DO_DIAGS
            DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_do_diags.F 119 SEAICE_DO_DIAGS
                        arr(i,j,bi,bj)=VICE(i,j,1,bi,bj)
./pkg/seaice/seaice_do_diags.F 134 SEAICE_DO_DIAGS
            DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_do_diags.F 138 SEAICE_DO_DIAGS
                        arr(i,j,bi,bj)=HEFF(i,j,1,bi,bj)
./pkg/seaice/seaice_do_diags.F 153 SEAICE_DO_DIAGS
            DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_do_diags.F 157 SEAICE_DO_DIAGS
                        arr(i,j,bi,bj)=AREA(i,j,1,bi,bj)
./pkg/seaice/seaice_do_diags.F 182 SEAICE_DO_DIAGS
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_do_diags.F 186 SEAICE_DO_DIAGS
          FUtave(i,j,1,bi,bj)   =
./pkg/seaice/seaice_do_diags.F 187 SEAICE_DO_DIAGS
     &         FUtave(i,j,1,bi,bj)   +FU(i,j,bi,bj)    *deltaTclock
./pkg/seaice/seaice_do_diags.F 188 SEAICE_DO_DIAGS
          FVtave(i,j,1,bi,bj)   =
./pkg/seaice/seaice_do_diags.F 189 SEAICE_DO_DIAGS
     &         FVtave(i,j,1,bi,bj)   +FV(i,j,bi,bj)    *deltaTclock
./pkg/seaice/seaice_do_diags.F 190 SEAICE_DO_DIAGS
          EmPmRtave(i,j,1,bi,bj)=
./pkg/seaice/seaice_do_diags.F 191 SEAICE_DO_DIAGS
     &         EmPmRtave(i,j,1,bi,bj)+EmPmR(i,j,bi,bj) *deltaTclock
./pkg/seaice/seaice_do_diags.F 192 SEAICE_DO_DIAGS
          QNETtave(i,j,1,bi,bj) =
./pkg/seaice/seaice_do_diags.F 193 SEAICE_DO_DIAGS
     &         QNETtave(i,j,1,bi,bj) +QNET(i,j,bi,bj)  *deltaTclock
./pkg/seaice/seaice_do_diags.F 194 SEAICE_DO_DIAGS
          QSWtave(i,j,1,bi,bj)  =
./pkg/seaice/seaice_do_diags.F 195 SEAICE_DO_DIAGS
     &         QSWtave(i,j,1,bi,bj)  +QSW(i,j,bi,bj)   *deltaTclock
./pkg/seaice/seaice_do_diags.F 196 SEAICE_DO_DIAGS
          UICEtave(i,j,1,bi,bj) =
./pkg/seaice/seaice_do_diags.F 197 SEAICE_DO_DIAGS
     &         UICEtave(i,j,1,bi,bj) +UICE(i,j,1,bi,bj)*deltaTclock
./pkg/seaice/seaice_do_diags.F 198 SEAICE_DO_DIAGS
          VICEtave(i,j,1,bi,bj) =
./pkg/seaice/seaice_do_diags.F 199 SEAICE_DO_DIAGS
     &         VICEtave(i,j,1,bi,bj) +VICE(i,j,1,bi,bj)*deltaTclock
./pkg/seaice/seaice_do_diags.F 200 SEAICE_DO_DIAGS
          HEFFtave(i,j,1,bi,bj) =
./pkg/seaice/seaice_do_diags.F 201 SEAICE_DO_DIAGS
     &         HEFFtave(i,j,1,bi,bj) +HEFF(i,j,1,bi,bj)*deltaTclock
./pkg/seaice/seaice_do_diags.F 202 SEAICE_DO_DIAGS
          AREAtave(i,j,1,bi,bj) =
./pkg/seaice/seaice_do_diags.F 203 SEAICE_DO_DIAGS
     &         AREAtave(i,j,1,bi,bj) +AREA(i,j,1,bi,bj)*deltaTclock
./pkg/seaice/seaice_do_diags.F 207 SEAICE_DO_DIAGS
         SEAICE_TimeAve(k,bi,bj)=SEAICE_TimeAve(k,bi,bj)+deltaTclock
./pkg/seaice/seaice_do_diags.F 240 SEAICE_DO_DIAGS
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_do_diags.F 243 SEAICE_DO_DIAGS
     &                 bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 245 SEAICE_DO_DIAGS
     &                 bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 247 SEAICE_DO_DIAGS
     &                 bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 249 SEAICE_DO_DIAGS
     &                 bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 251 SEAICE_DO_DIAGS
     &                 bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 253 SEAICE_DO_DIAGS
     &                 bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 255 SEAICE_DO_DIAGS
     &                 bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 257 SEAICE_DO_DIAGS
     &                 bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 259 SEAICE_DO_DIAGS
     &                 bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 309 SEAICE_DO_DIAGS
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_do_diags.F 311 SEAICE_DO_DIAGS
         CALL TIMEAVE_RESET(FUtave   ,1,bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 312 SEAICE_DO_DIAGS
         CALL TIMEAVE_RESET(FVtave   ,1,bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 313 SEAICE_DO_DIAGS
         CALL TIMEAVE_RESET(EmPmRtave,1,bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 314 SEAICE_DO_DIAGS
         CALL TIMEAVE_RESET(QNETtave ,1,bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 315 SEAICE_DO_DIAGS
         CALL TIMEAVE_RESET(QSWtave  ,1,bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 316 SEAICE_DO_DIAGS
         CALL TIMEAVE_RESET(UICEtave ,1,bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 317 SEAICE_DO_DIAGS
         CALL TIMEAVE_RESET(VICEtave ,1,bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 318 SEAICE_DO_DIAGS
         CALL TIMEAVE_RESET(HEFFtave ,1,bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 319 SEAICE_DO_DIAGS
         CALL TIMEAVE_RESET(AREAtave ,1,bi,bj,myThid)
./pkg/seaice/seaice_do_diags.F 321 SEAICE_DO_DIAGS
          SEAICE_TimeAve(k,bi,bj)=ZERO
./pkg/seaice/seaice_do_diags.F 35 SEAICE_DO_DIAGS
      INTEGER i, j, k, bi, bj
./pkg/seaice/seaice_do_diags.F 96 SEAICE_DO_DIAGS
            DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cycle_tracer.F 10 CYCLE_TRACER
     I                   bi, bj, k,
./model/src/cycle_tracer.F 34 CYCLE_TRACER
      INTEGER bi,bj,k
./model/src/cycle_tracer.F 52 CYCLE_TRACER
        tracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)
./pkg/seaice/dynsolver.F 100 DYNSOLVER
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 104 DYNSOLVER
          U1=QUART*(UWIND(I-1,J-1,bi,bj)+UWIND(I-1,J,bi,bj)
./pkg/seaice/dynsolver.F 105 DYNSOLVER
     &             +UWIND(I  ,J-1,bi,bj)+UWIND(I  ,J,bi,bj))
./pkg/seaice/dynsolver.F 106 DYNSOLVER
          V1=QUART*(VWIND(I-1,J-1,bi,bj)+VWIND(I-1,J,bi,bj)
./pkg/seaice/dynsolver.F 107 DYNSOLVER
     &             +VWIND(I  ,J-1,bi,bj)+VWIND(I  ,J,bi,bj))
./pkg/seaice/dynsolver.F 115 DYNSOLVER
          DAIRN(I,J,bi,bj)=RHOAIR*OCEAN_drag
./pkg/seaice/dynsolver.F 117 DYNSOLVER
          WINDX(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(COSWIN*U1-SINWIN*V1)
./pkg/seaice/dynsolver.F 118 DYNSOLVER
          WINDY(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(SINWIN*U1+COSWIN*V1)
./pkg/seaice/dynsolver.F 121 DYNSOLVER
          DAIRN(I,J,bi,bj)=RHOAIR*(SEAICE_drag*AAA*AREA(I,J,1,bi,bj)
./pkg/seaice/dynsolver.F 123 DYNSOLVER
     &         +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,1,bi,bj)))
./pkg/seaice/dynsolver.F 124 DYNSOLVER
          FORCEX(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(COSWIN*U1-SINWIN*V1)
./pkg/seaice/dynsolver.F 125 DYNSOLVER
          FORCEY(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(SINWIN*U1+COSWIN*V1)
./pkg/seaice/dynsolver.F 131 DYNSOLVER
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 136 DYNSOLVER
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 137 DYNSOLVER
     &         -COR_ICE(I,J,bi,bj)*GWATY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 138 DYNSOLVER
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 139 DYNSOLVER
     &         +COR_ICE(I,J,bi,bj)*GWATX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 141 DYNSOLVER
          FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 142 DYNSOLVER
          FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 144 DYNSOLVER
          PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,1,bi,bj)
./pkg/seaice/dynsolver.F 145 DYNSOLVER
     &         *EXP(-20.0 _d 0*(ONE-AREA(I,J,1,bi,bj)))
./pkg/seaice/dynsolver.F 146 DYNSOLVER
          ZMAX(I,J,bi,bj)=(5.0 _d +12/(2.0 _d +04))*PRESS0(I,J,bi,bj)
./pkg/seaice/dynsolver.F 147 DYNSOLVER
          ZMIN(I,J,bi,bj)=4.0 _d +08
./pkg/seaice/dynsolver.F 148 DYNSOLVER
          PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/dynsolver.F 170 DYNSOLVER
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 174 DYNSOLVER
          UICE(I,J,2,bi,bj)=UICE(I,J,1,bi,bj)
./pkg/seaice/dynsolver.F 175 DYNSOLVER
          VICE(I,J,2,bi,bj)=VICE(I,J,1,bi,bj)
./pkg/seaice/dynsolver.F 176 DYNSOLVER
          UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj)
./pkg/seaice/dynsolver.F 177 DYNSOLVER
          VICEC(I,J,bi,bj)=VICE(I,J,1,bi,bj)
./pkg/seaice/dynsolver.F 183 DYNSOLVER
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 188 DYNSOLVER
          E11(I,J,bi,bj)=HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj))
./pkg/seaice/dynsolver.F 189 DYNSOLVER
     &                *(UICE(I+1,J+1,1,bi,bj)+UICE(I+1,J,1,bi,bj)
./pkg/seaice/dynsolver.F 190 DYNSOLVER
     &                -UICE(I,J+1,1,bi,bj)-UICE(I,J,1,bi,bj))
./pkg/seaice/dynsolver.F 191 DYNSOLVER
     &                -QUART*(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj)
./pkg/seaice/dynsolver.F 192 DYNSOLVER
     &                +VICE(I,J,1,bi,bj)+VICE(I+1,J,1,bi,bj))
./pkg/seaice/dynsolver.F 193 DYNSOLVER
     &                *TNGTICE(I,J,bi,bj)/RADIUS
./pkg/seaice/dynsolver.F 194 DYNSOLVER
          E22(I,J,bi,bj)=HALF/DYTICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 195 DYNSOLVER
     &                *(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj)
./pkg/seaice/dynsolver.F 196 DYNSOLVER
     &                -VICE(I+1,J,1,bi,bj)-VICE(I,J,1,bi,bj))
./pkg/seaice/dynsolver.F 197 DYNSOLVER
          E12(I,J,bi,bj)=HALF*(HALF/DYTICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 198 DYNSOLVER
     &                *(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj)
./pkg/seaice/dynsolver.F 199 DYNSOLVER
     &                -UICE(I+1,J,1,bi,bj)-UICE(I,J,1,bi,bj))
./pkg/seaice/dynsolver.F 200 DYNSOLVER
     &                +HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj))
./pkg/seaice/dynsolver.F 201 DYNSOLVER
     &                *(VICE(I+1,J+1,1,bi,bj)+VICE(I+1,J,1,bi,bj)
./pkg/seaice/dynsolver.F 202 DYNSOLVER
     &                -VICE(I,J+1,1,bi,bj)-VICE(I,J,1,bi,bj))
./pkg/seaice/dynsolver.F 203 DYNSOLVER
     &                +QUART*(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj)
./pkg/seaice/dynsolver.F 204 DYNSOLVER
     &                +UICE(I,J,1,bi,bj)+UICE(I+1,J,1,bi,bj))
./pkg/seaice/dynsolver.F 205 DYNSOLVER
     &                *TNGTICE(I,J,bi,bj)/RADIUS)
./pkg/seaice/dynsolver.F 207 DYNSOLVER
          DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2)
./pkg/seaice/dynsolver.F 208 DYNSOLVER
     &        +4.0 _d 0*ECM2*E12(I,J,bi,bj)**2
./pkg/seaice/dynsolver.F 209 DYNSOLVER
     1        +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2)
./pkg/seaice/dynsolver.F 215 DYNSOLVER
          ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2
./pkg/seaice/dynsolver.F 217 DYNSOLVER
          ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj))
./pkg/seaice/dynsolver.F 218 DYNSOLVER
          ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj))
./pkg/seaice/dynsolver.F 220 DYNSOLVER
          ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) 
./pkg/seaice/dynsolver.F 221 DYNSOLVER
          ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj)
./pkg/seaice/dynsolver.F 222 DYNSOLVER
          PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2
./pkg/seaice/dynsolver.F 233 DYNSOLVER
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 238 DYNSOLVER
          TEMPVAR=(UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj))**2
./pkg/seaice/dynsolver.F 239 DYNSOLVER
     &           +(VICE(I,J,1,bi,bj)-GWATY(I,J,bi,bj))**2
./pkg/seaice/dynsolver.F 241 DYNSOLVER
             DWATN(I,J,bi,bj)=QUART
./pkg/seaice/dynsolver.F 243 DYNSOLVER
             DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR)
./pkg/seaice/dynsolver.F 246 DYNSOLVER
          DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT
./pkg/seaice/dynsolver.F 248 DYNSOLVER
          DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj)*SINWAT+COR_ICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 250 DYNSOLVER
          FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj)
./pkg/seaice/dynsolver.F 251 DYNSOLVER
     &                     *(COSWAT*GWATX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 252 DYNSOLVER
     &                     -SINWAT*GWATY(I,J,bi,bj))
./pkg/seaice/dynsolver.F 253 DYNSOLVER
          FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj)
./pkg/seaice/dynsolver.F 254 DYNSOLVER
     &                     *(SINWAT*GWATX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 255 DYNSOLVER
     &                     +COSWAT*GWATY(I,J,bi,bj))
./pkg/seaice/dynsolver.F 257 DYNSOLVER
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 258 DYNSOLVER
     &          -(QUART/(DXUICE(I,J,bi,bj)*CSUICE(I,J,bi,bj)))
./pkg/seaice/dynsolver.F 259 DYNSOLVER
     &          *(PRESS(I,J,bi,bj)+PRESS(I,J-1,bi,bj)
./pkg/seaice/dynsolver.F 260 DYNSOLVER
     &          -PRESS(I-1,J,bi,bj)-PRESS(I-1,J-1,bi,bj))
./pkg/seaice/dynsolver.F 261 DYNSOLVER
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)-QUART/DYUICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 262 DYNSOLVER
     &          *(PRESS(I,J,bi,bj)+PRESS(I-1,J,bi,bj)
./pkg/seaice/dynsolver.F 263 DYNSOLVER
     &          -PRESS(I,J-1,bi,bj)-PRESS(I-1,J-1,bi,bj))
./pkg/seaice/dynsolver.F 277 DYNSOLVER
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 281 DYNSOLVER
          UICE(I,J,1,bi,bj)=HALF*(UICE(I,J,1,bi,bj)+UICE(I,J,2,bi,bj))
./pkg/seaice/dynsolver.F 282 DYNSOLVER
          VICE(I,J,1,bi,bj)=HALF*(VICE(I,J,1,bi,bj)+VICE(I,J,2,bi,bj))
./pkg/seaice/dynsolver.F 283 DYNSOLVER
          UICEC(I,J,bi,bj)=UICE(I,J,1,bi,bj)
./pkg/seaice/dynsolver.F 284 DYNSOLVER
          VICEC(I,J,bi,bj)=VICE(I,J,1,bi,bj)
./pkg/seaice/dynsolver.F 290 DYNSOLVER
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 295 DYNSOLVER
          E11(I,J,bi,bj)=HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj))
./pkg/seaice/dynsolver.F 296 DYNSOLVER
     &                *(UICE(I+1,J+1,1,bi,bj)+UICE(I+1,J,1,bi,bj)
./pkg/seaice/dynsolver.F 297 DYNSOLVER
     &                -UICE(I,J+1,1,bi,bj)-UICE(I,J,1,bi,bj))
./pkg/seaice/dynsolver.F 298 DYNSOLVER
     &                -QUART*(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj)
./pkg/seaice/dynsolver.F 299 DYNSOLVER
     &                +VICE(I,J,1,bi,bj)+VICE(I+1,J,1,bi,bj))
./pkg/seaice/dynsolver.F 300 DYNSOLVER
     &                *TNGTICE(I,J,bi,bj)/RADIUS
./pkg/seaice/dynsolver.F 301 DYNSOLVER
          E22(I,J,bi,bj)=HALF/DYTICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 302 DYNSOLVER
     &                *(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj)
./pkg/seaice/dynsolver.F 303 DYNSOLVER
     &                -VICE(I+1,J,1,bi,bj)-VICE(I,J,1,bi,bj))
./pkg/seaice/dynsolver.F 304 DYNSOLVER
          E12(I,J,bi,bj)=HALF*(HALF/DYTICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 305 DYNSOLVER
     &                *(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj)
./pkg/seaice/dynsolver.F 306 DYNSOLVER
     &                -UICE(I+1,J,1,bi,bj)-UICE(I,J,1,bi,bj))
./pkg/seaice/dynsolver.F 307 DYNSOLVER
     &                +HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj))
./pkg/seaice/dynsolver.F 308 DYNSOLVER
     &                *(VICE(I+1,J+1,1,bi,bj)+VICE(I+1,J,1,bi,bj)
./pkg/seaice/dynsolver.F 309 DYNSOLVER
     &                -VICE(I,J+1,1,bi,bj)-VICE(I,J,1,bi,bj))
./pkg/seaice/dynsolver.F 310 DYNSOLVER
     &                +QUART*(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj)
./pkg/seaice/dynsolver.F 311 DYNSOLVER
     &                +UICE(I,J,1,bi,bj)+UICE(I+1,J,1,bi,bj))
./pkg/seaice/dynsolver.F 312 DYNSOLVER
     &                *TNGTICE(I,J,bi,bj)/RADIUS)
./pkg/seaice/dynsolver.F 314 DYNSOLVER
          DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2)
./pkg/seaice/dynsolver.F 315 DYNSOLVER
     &        +4. _d 0*ECM2*E12(I,J,bi,bj)**2
./pkg/seaice/dynsolver.F 316 DYNSOLVER
     1        +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2)
./pkg/seaice/dynsolver.F 322 DYNSOLVER
          ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2
./pkg/seaice/dynsolver.F 324 DYNSOLVER
          ZETA(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj))
./pkg/seaice/dynsolver.F 325 DYNSOLVER
          ZETA(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj))
./pkg/seaice/dynsolver.F 327 DYNSOLVER
          ZETA(I,J,bi,bj)=ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) 
./pkg/seaice/dynsolver.F 328 DYNSOLVER
          ETA(I,J,bi,bj)=ECM2*ZETA(I,J,bi,bj)
./pkg/seaice/dynsolver.F 329 DYNSOLVER
          PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2
./pkg/seaice/dynsolver.F 340 DYNSOLVER
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 345 DYNSOLVER
          TEMPVAR=(UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj))**2
./pkg/seaice/dynsolver.F 346 DYNSOLVER
     &           +(VICE(I,J,1,bi,bj)-GWATY(I,J,bi,bj))**2
./pkg/seaice/dynsolver.F 348 DYNSOLVER
             DWATN(I,J,bi,bj)=QUART
./pkg/seaice/dynsolver.F 350 DYNSOLVER
             DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR)
./pkg/seaice/dynsolver.F 353 DYNSOLVER
          DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT
./pkg/seaice/dynsolver.F 355 DYNSOLVER
          DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj)*SINWAT+COR_ICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 357 DYNSOLVER
          FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj)
./pkg/seaice/dynsolver.F 358 DYNSOLVER
     &                     *(COSWAT*GWATX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 359 DYNSOLVER
     &                     -SINWAT*GWATY(I,J,bi,bj))
./pkg/seaice/dynsolver.F 360 DYNSOLVER
          FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj)
./pkg/seaice/dynsolver.F 361 DYNSOLVER
     &                     *(SINWAT*GWATX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 362 DYNSOLVER
     &                     +COSWAT*GWATY(I,J,bi,bj))
./pkg/seaice/dynsolver.F 364 DYNSOLVER
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 365 DYNSOLVER
     &          -(QUART/(DXUICE(I,J,bi,bj)*CSUICE(I,J,bi,bj)))
./pkg/seaice/dynsolver.F 366 DYNSOLVER
     &          *(PRESS(I,J,bi,bj)+PRESS(I,J-1,bi,bj)
./pkg/seaice/dynsolver.F 367 DYNSOLVER
     &          -PRESS(I-1,J,bi,bj)-PRESS(I-1,J-1,bi,bj))
./pkg/seaice/dynsolver.F 368 DYNSOLVER
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)-QUART/DYUICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 369 DYNSOLVER
     &          *(PRESS(I,J,bi,bj)+PRESS(I-1,J,bi,bj)
./pkg/seaice/dynsolver.F 370 DYNSOLVER
     &          -PRESS(I,J-1,bi,bj)-PRESS(I-1,J-1,bi,bj))
./pkg/seaice/dynsolver.F 398 DYNSOLVER
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 410 DYNSOLVER
          UICE(i,j,1,bi,bj)=min(UICE(i,j,1,bi,bj),0.40 _d +00)
./pkg/seaice/dynsolver.F 411 DYNSOLVER
          VICE(i,j,1,bi,bj)=min(VICE(i,j,1,bi,bj),0.40 _d +00)
./pkg/seaice/dynsolver.F 420 DYNSOLVER
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 424 DYNSOLVER
          UICE(i,j,1,bi,bj)=max(UICE(i,j,1,bi,bj),-0.40 _d +00)
./pkg/seaice/dynsolver.F 425 DYNSOLVER
          VICE(i,j,1,bi,bj)=max(VICE(i,j,1,bi,bj),-0.40 _d +00)
./pkg/seaice/dynsolver.F 42 DYNSOLVER
      INTEGER i, j, bi, bj, kii
./pkg/seaice/dynsolver.F 81 DYNSOLVER
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 85 DYNSOLVER
          AMASS(I,J,bi,bj)=RHOICE*QUART*(HEFF(i,j,1,bi,bj)
./pkg/seaice/dynsolver.F 86 DYNSOLVER
     &           +HEFF(i-1,j,1,bi,bj)
./pkg/seaice/dynsolver.F 87 DYNSOLVER
     &           +HEFF(i,j-1,1,bi,bj)
./pkg/seaice/dynsolver.F 88 DYNSOLVER
     &           +HEFF(i-1,j-1,1,bi,bj))
./pkg/seaice/dynsolver.F 89 DYNSOLVER
          COR_ICE(I,J,bi,bj)=AMASS(I,J,bi,bj)
./pkg/seaice/dynsolver.F 90 DYNSOLVER
     &         *TWO*OMEGA*SINEICE(I,J,bi,bj)
./pkg/seaice/seaice_exch.F 26 SEAICE_EXCH
      INTEGER i,j,k,bi,bj
./pkg/seaice/seaice_exch.F 31 SEAICE_EXCH
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_exch.F 35 SEAICE_EXCH
                     tempVar(i,j,bi,bj)=fld(i,j,k,bi,bj)
./pkg/seaice/seaice_exch.F 41 SEAICE_EXCH
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_exch.F 45 SEAICE_EXCH
                     fld(i,j,k,bi,bj)=tempVar(i,j,bi,bj)
./pkg/seaice/lsr.F 101 LSR
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 105 LSR
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/lsr.F 106 LSR
     &           +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*UICE(I,J,2,bi,bj)
./pkg/seaice/lsr.F 107 LSR
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/lsr.F 108 LSR
     &           +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*VICE(I,J,2,bi,bj)
./pkg/seaice/lsr.F 109 LSR
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 110 LSR
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 111 LSR
          ETAMEAN(I,J,bi,bj) =QUART*(ETA(I,J-1,bi,bj)+ETA(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 112 LSR
     &                 +ETA(I,J,bi,bj)+ETA(I-1,J,bi,bj))
./pkg/seaice/lsr.F 113 LSR
          ZETAMEAN(I,J,bi,bj)=QUART*(ZETA(I,J-1,bi,bj)
./pkg/seaice/lsr.F 114 LSR
     &                 +ZETA(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 115 LSR
     &                 +ZETA(I,J,bi,bj)+ZETA(I-1,J,bi,bj))
./pkg/seaice/lsr.F 116 LSR
          DELX2(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*DXUICE(I,J,bi,bj))
./pkg/seaice/lsr.F 117 LSR
          DELY2(I,J,bi,bj)=HALF/(DYUICE(I,J,bi,bj)*DYUICE(I,J,bi,bj))
./pkg/seaice/lsr.F 118 LSR
          DELXY(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*DYUICE(I,J,bi,bj))
./pkg/seaice/lsr.F 119 LSR
          DELXR(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*RADIUS)
./pkg/seaice/lsr.F 120 LSR
          DELYR(I,J,bi,bj)=HALF/(DYUICE(I,J,bi,bj)*RADIUS)
./pkg/seaice/lsr.F 126 LSR
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 131 LSR
          AA1=((ETA(I,J-1,bi,bj)+ZETA(I,J-1,bi,bj))
./pkg/seaice/lsr.F 132 LSR
     &           *RECIP_CSTICE(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 133 LSR
     &           +(ETA(I,J,bi,bj)+ZETA(I,J,bi,bj))
./pkg/seaice/lsr.F 134 LSR
     &           *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 135 LSR
          AA2=((ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj))
./pkg/seaice/lsr.F 136 LSR
     &           *RECIP_CSTICE(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 137 LSR
     &           +(ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj))
./pkg/seaice/lsr.F 138 LSR
     &           *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 139 LSR
          AA3=ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)
./pkg/seaice/lsr.F 140 LSR
          AA4=ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)
./pkg/seaice/lsr.F 141 LSR
          AA5=-(ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)-ETA(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 142 LSR
     &           -ETA(I,J-1,bi,bj))*TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 143 LSR
          AA6=TWO*ETAMEAN(I,J,bi,bj)*TNGICE(I,J,bi,bj)*TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 144 LSR
          AU(I,J,bi,bj)=-AA2*DELX2(I,J,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 145 LSR
          BU(I,J,bi,bj)=((AA1+AA2)*DELX2(I,J,bi,bj)+(AA3+AA4)
./pkg/seaice/lsr.F 146 LSR
     &           *DELY2(I,J,bi,bj)
./pkg/seaice/lsr.F 147 LSR
     &           +AA5*DELYR(I,J,bi,bj)+AA6*RADIUS2
./pkg/seaice/lsr.F 148 LSR
     &           +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj))
./pkg/seaice/lsr.F 149 LSR
     &           *UVM(I,J,bi,bj)+(ONE-UVM(I,J,bi,bj))
./pkg/seaice/lsr.F 150 LSR
          CU(I,J,bi,bj)=-AA1*DELX2(I,J,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 155 LSR
         AU(1,J,bi,bj)=ZERO
./pkg/seaice/lsr.F 156 LSR
         CU(sNx,J,bi,bj)=ZERO
./pkg/seaice/lsr.F 157 LSR
         CU(1,J,bi,bj)=CU(1,J,bi,bj)/BU(1,J,bi,bj)
./pkg/seaice/lsr.F 162 LSR
          FXY(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj)
./pkg/seaice/lsr.F 163 LSR
     3            +FORCEX(I,J,bi,bj)
./pkg/seaice/lsr.F 164 LSR
     3            +HALF*(ZETA(I,J,bi,bj)*(VICEC(I+1,J+1,bi,bj)
./pkg/seaice/lsr.F 165 LSR
     3            +VICEC(I,J+1,bi,bj)
./pkg/seaice/lsr.F 166 LSR
     3            -VICEC(I+1,J,bi,bj)-VICEC(I,J,bi,bj))
./pkg/seaice/lsr.F 167 LSR
     3            +ZETA(I,J-1,bi,bj)*(VICEC(I+1,J,bi,bj)
./pkg/seaice/lsr.F 168 LSR
     3            +VICEC(I,J,bi,bj)-VICEC(I+1,J-1,bi,bj)
./pkg/seaice/lsr.F 169 LSR
     3            -VICEC(I,J-1,bi,bj))+ZETA(I-1,J,bi,bj)
./pkg/seaice/lsr.F 170 LSR
     3            *(VICEC(I,J,bi,bj)+VICEC(I-1,J,bi,bj)
./pkg/seaice/lsr.F 171 LSR
     3            -VICEC(I,J+1,bi,bj)-VICEC(I-1,J+1,bi,bj))
./pkg/seaice/lsr.F 172 LSR
     3            +ZETA(I-1,J-1,bi,bj)*(VICEC(I,J-1,bi,bj)
./pkg/seaice/lsr.F 173 LSR
     3            +VICEC(I-1,J-1,bi,bj)-VICEC(I,J,bi,bj)
./pkg/seaice/lsr.F 174 LSR
     3            -VICEC(I-1,J,bi,bj)))*DELXY(I,J,bi,bj)
./pkg/seaice/lsr.F 175 LSR
     3            *RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 177 LSR
     4            -HALF*(ETA(I,J,bi,bj)*(VICEC(I+1,J+1,bi,bj)
./pkg/seaice/lsr.F 178 LSR
     4            +VICEC(I,J+1,bi,bj)
./pkg/seaice/lsr.F 179 LSR
     4            -VICEC(I+1,J,bi,bj)-VICEC(I,J,bi,bj))
./pkg/seaice/lsr.F 180 LSR
     4            +ETA(I,J-1,bi,bj)*(VICEC(I+1,J,bi,bj)
./pkg/seaice/lsr.F 181 LSR
     4            +VICEC(I,J,bi,bj)-VICEC(I+1,J-1,bi,bj)
./pkg/seaice/lsr.F 182 LSR
     4            -VICEC(I,J-1,bi,bj))+ETA(I-1,J,bi,bj)
./pkg/seaice/lsr.F 183 LSR
     4            *(VICEC(I,J,bi,bj)+VICEC(I-1,J,bi,bj)
./pkg/seaice/lsr.F 184 LSR
     4            -VICEC(I,J+1,bi,bj)-VICEC(I-1,J+1,bi,bj))
./pkg/seaice/lsr.F 185 LSR
     4            +ETA(I-1,J-1,bi,bj)*(VICEC(I,J-1,bi,bj)
./pkg/seaice/lsr.F 186 LSR
     4            +VICEC(I-1,J-1,bi,bj)-VICEC(I,J,bi,bj)
./pkg/seaice/lsr.F 187 LSR
     4            -VICEC(I-1,J,bi,bj)))*DELXY(I,J,bi,bj)
./pkg/seaice/lsr.F 188 LSR
     4            *RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 190 LSR
     5            +HALF*(ETA(I,J,bi,bj)*RECIP_CSTICE(I-1,J,bi,bj)
./pkg/seaice/lsr.F 191 LSR
     5            *(VICEC(I+1,J+1,bi,bj)+VICEC(I+1,J,bi,bj)
./pkg/seaice/lsr.F 192 LSR
     5            -VICEC(I,J+1,bi,bj)-VICEC(I,J,bi,bj))
./pkg/seaice/lsr.F 193 LSR
     5            +ETA(I-1,J,bi,bj)*RECIP_CSTICE(I-1,J,bi,bj)
./pkg/seaice/lsr.F 194 LSR
     5            *(VICEC(I,J+1,bi,bj)
./pkg/seaice/lsr.F 195 LSR
     5            +VICEC(I,J,bi,bj)-VICEC(I-1,J+1,bi,bj)
./pkg/seaice/lsr.F 196 LSR
     5            -VICEC(I-1,J,bi,bj))
./pkg/seaice/lsr.F 197 LSR
     5            +ETA(I,J-1,bi,bj)*RECIP_CSTICE(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 198 LSR
     5            *(VICEC(I,J,bi,bj)+VICEC(I,J-1,bi,bj)
./pkg/seaice/lsr.F 199 LSR
     5            -VICEC(I+1,J,bi,bj)-VICEC(I+1,J-1,bi,bj))
./pkg/seaice/lsr.F 200 LSR
     5            +ETA(I-1,J-1,bi,bj)*RECIP_CSTICE(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 201 LSR
     5            *(VICEC(I-1,J,bi,bj)
./pkg/seaice/lsr.F 202 LSR
     5            +VICEC(I-1,J-1,bi,bj)-VICEC(I,J,bi,bj)
./pkg/seaice/lsr.F 203 LSR
     5            -VICEC(I,J-1,bi,bj)))*DELXY(I,J,bi,bj)
./pkg/seaice/lsr.F 205 LSR
     6            -((ZETA(I,J,bi,bj)+ZETA(I,J-1,bi,bj)
./pkg/seaice/lsr.F 206 LSR
     6            -ZETA(I-1,J-1,bi,bj)-ZETA(I-1,J,bi,bj))
./pkg/seaice/lsr.F 207 LSR
     6            +(ETA(I,J,bi,bj)+ETA(I,J-1,bi,bj)-ETA(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 208 LSR
     6            -ETA(I-1,J,bi,bj)))
./pkg/seaice/lsr.F 209 LSR
     6            *TNGICE(I,J,bi,bj)*VICEC(I,J,bi,bj)*DELXR(I,J,bi,bj)
./pkg/seaice/lsr.F 210 LSR
     6            *RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 211 LSR
     6            -(ETAMEAN(I,J,bi,bj)+ZETAMEAN(I,J,bi,bj))
./pkg/seaice/lsr.F 212 LSR
     6            *TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 213 LSR
     6            *(VICEC(I+1,J,bi,bj)-VICEC(I-1,J,bi,bj))
./pkg/seaice/lsr.F 214 LSR
     6            *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 216 LSR
     7            -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 217 LSR
     7            *(VICEC(I+1,J,bi,bj)
./pkg/seaice/lsr.F 218 LSR
     7            -VICEC(I-1,J,bi,bj))*DELXR(I,J,bi,bj)
./pkg/seaice/lsr.F 219 LSR
     7            *RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 220 LSR
          UVRT1(I,J,bi,bj)=(ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj))
./pkg/seaice/lsr.F 221 LSR
     &            *DELY2(I,J,bi,bj)
./pkg/seaice/lsr.F 222 LSR
     &            -ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj)
./pkg/seaice/lsr.F 223 LSR
     &            *TNGICE(I,J-1,bi,bj)
./pkg/seaice/lsr.F 224 LSR
     &            +ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj)
./pkg/seaice/lsr.F 225 LSR
     &            *TWO*TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 226 LSR
          UVRT2(I,J,bi,bj)=(ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj))
./pkg/seaice/lsr.F 227 LSR
     &            *DELY2(I,J,bi,bj)
./pkg/seaice/lsr.F 228 LSR
     &            +ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj)
./pkg/seaice/lsr.F 229 LSR
     &            *TNGICE(I,J+1,bi,bj)
./pkg/seaice/lsr.F 230 LSR
     &            -ETAMEAN(I,J,bi,bj)*DELYR(I,J,bi,bj)
./pkg/seaice/lsr.F 231 LSR
     &            *TWO*TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 254 LSR
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 259 LSR
          UICE(I,J,3,bi,bj)=UICE(I,J,1,bi,bj)
./pkg/seaice/lsr.F 266 LSR
           AA2=((ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj))
./pkg/seaice/lsr.F 267 LSR
     &            *RECIP_CSTICE(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 268 LSR
     &            +(ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj))
./pkg/seaice/lsr.F 269 LSR
     &            *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 270 LSR
           AA3=AA2*DELX2(I,J,bi,bj)*UICE(I-1,J,1,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 272 LSR
           AA1=((ETA(I,J-1,bi,bj)+ZETA(I,J-1,bi,bj))
./pkg/seaice/lsr.F 273 LSR
     &            *RECIP_CSTICE(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 274 LSR
     &            +(ETA(I,J,bi,bj)+ZETA(I,J,bi,bj))
./pkg/seaice/lsr.F 275 LSR
     &            *RECIP_CSTICE(I-1,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 276 LSR
           AA3=AA1*DELX2(I,J,bi,bj)*UICE(I+1,J,1,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 280 LSR
          URT(I)=FXY(I,J,bi,bj)+AA3
./pkg/seaice/lsr.F 281 LSR
     &          +UVRT1(I,J,bi,bj)*UICE(I,J-1,1,bi,bj)
./pkg/seaice/lsr.F 282 LSR
     &          +UVRT2(I,J,bi,bj)*UICE(I,J+1,1,bi,bj)
./pkg/seaice/lsr.F 283 LSR
          URT(I)=URT(I)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 287 LSR
          CUU(I)=CU(I,J,bi,bj)
./pkg/seaice/lsr.F 289 LSR
         URT(1)=URT(1)/BU(1,J,bi,bj)
./pkg/seaice/lsr.F 292 LSR
          CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM))
./pkg/seaice/lsr.F 293 LSR
          URT(I)=(URT(I)-AU(I,J,bi,bj)*URT(IM))
./pkg/seaice/lsr.F 294 LSR
     &          /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM))
./pkg/seaice/lsr.F 302 LSR
          UICE(I,J,1,bi,bj)=UICE(I,J,3,bi,bj)
./pkg/seaice/lsr.F 303 LSR
     &        +WFAU*(URT(I)-UICE(I,J,3,bi,bj))
./pkg/seaice/lsr.F 312 LSR
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 317 LSR
           UERR(I,J,bi,bj)=(UICE(I,J,1,bi,bj)-UICE(I,J,3,bi,bj))
./pkg/seaice/lsr.F 318 LSR
     &             *UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 319 LSR
           S1=MAX(ABS(UERR(I,J,bi,bj)),S1)
./pkg/seaice/lsr.F 353 LSR
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 358 LSR
          AA1=ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)
./pkg/seaice/lsr.F 359 LSR
     &          +ZETA(I,J,bi,bj)
./pkg/seaice/lsr.F 360 LSR
          AA2=ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)
./pkg/seaice/lsr.F 361 LSR
     &          +ZETA(I,J-1,bi,bj)
./pkg/seaice/lsr.F 362 LSR
          AA3=(ETA(I,J-1,bi,bj)*RECIP_CSUICE(I,J,bi,bj)+ETA(I,J,bi,bj)
./pkg/seaice/lsr.F 363 LSR
     &          *RECIP_CSUICE(I,J,bi,bj))*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 364 LSR
          AA4=(ETA(I-1,J-1,bi,bj)+ETA(I-1,J,bi,bj))
./pkg/seaice/lsr.F 365 LSR
     &          *RECIP_CSUICE(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 366 LSR
          AA5=((ZETA(I-1,J,bi,bj)-ETA(I-1,J,bi,bj))
./pkg/seaice/lsr.F 367 LSR
     &          +(ZETA(I,J,bi,bj)-ETA(I,J,bi,bj))
./pkg/seaice/lsr.F 368 LSR
     &          -(ZETA(I-1,J-1,bi,bj)-ETA(I-1,J-1,bi,bj))
./pkg/seaice/lsr.F 369 LSR
     &          -(ZETA(I,J-1,bi,bj)
./pkg/seaice/lsr.F 370 LSR
     &          -ETA(I,J-1,bi,bj)))*TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 371 LSR
          AA6=TWO*ETAMEAN(I,J,bi,bj)*TNGICE(I,J,bi,bj)*TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 373 LSR
          AV(I,J,bi,bj)=(-AA2*DELY2(I,J,bi,bj)
./pkg/seaice/lsr.F 374 LSR
     &     -(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj))
./pkg/seaice/lsr.F 375 LSR
     &     *TNGICE(I,J-1,bi,bj)*DELYR(I,J,bi,bj)
./pkg/seaice/lsr.F 376 LSR
     &     -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)*DELYR(I,J,bi,bj))
./pkg/seaice/lsr.F 377 LSR
     &     *UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 378 LSR
          BV(I,J,bi,bj)=((AA1+AA2)*DELY2(I,J,bi,bj)
./pkg/seaice/lsr.F 379 LSR
     &     +(AA3+AA4)*DELX2(I,J,bi,bj)
./pkg/seaice/lsr.F 380 LSR
     &     +AA5*DELYR(I,J,bi,bj)+AA6*RADIUS2
./pkg/seaice/lsr.F 381 LSR
     &     +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj))
./pkg/seaice/lsr.F 382 LSR
     &     *UVM(I,J,bi,bj)+(ONE-UVM(I,J,bi,bj))
./pkg/seaice/lsr.F 383 LSR
          CV(I,J,bi,bj)=(-AA1*DELY2(I,J,bi,bj)
./pkg/seaice/lsr.F 384 LSR
     &     +(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj))
./pkg/seaice/lsr.F 385 LSR
     &     *TNGICE(I,J+1,bi,bj)*DELYR(I,J,bi,bj)
./pkg/seaice/lsr.F 386 LSR
     &     +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)*DELYR(I,J,bi,bj))
./pkg/seaice/lsr.F 387 LSR
     &     *UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 392 LSR
         AV(I,1,bi,bj)=ZERO
./pkg/seaice/lsr.F 393 LSR
         CV(I,sNy,bi,bj)=ZERO
./pkg/seaice/lsr.F 394 LSR
         CV(I,1,bi,bj)=CV(I,1,bi,bj)/BV(I,1,bi,bj)
./pkg/seaice/lsr.F 399 LSR
           FXY(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj)
./pkg/seaice/lsr.F 400 LSR
     2        +FORCEY(I,J,bi,bj)
./pkg/seaice/lsr.F 401 LSR
     3        +(HALF*(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj))
./pkg/seaice/lsr.F 402 LSR
     3        *(ZETA(I-1,J,bi,bj)+ZETA(I,J,bi,bj)
./pkg/seaice/lsr.F 403 LSR
     3        -ZETA(I-1,J-1,bi,bj)-ZETA(I,J-1,bi,bj))*DELXY(I,J,bi,bj)
./pkg/seaice/lsr.F 404 LSR
     3        *RECIP_CSUICE(I,J,bi,bj)+HALF*ZETAMEAN(I,J,bi,bj)
./pkg/seaice/lsr.F 405 LSR
     3        *((UICEC(I+1,J+1,bi,bj)
./pkg/seaice/lsr.F 406 LSR
     3        -UICEC(I-1,J+1,bi,bj))*RECIP_CSUICE(I,J+1,bi,bj)
./pkg/seaice/lsr.F 407 LSR
     3        -(UICEC(I+1,J-1,bi,bj)-UICEC(I-1,J-1,bi,bj))
./pkg/seaice/lsr.F 408 LSR
     3        *RECIP_CSUICE(I,J-1,bi,bj))*DELXY(I,J,bi,bj))
./pkg/seaice/lsr.F 410 LSR
     4        -(HALF*(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj))
./pkg/seaice/lsr.F 411 LSR
     4        *(ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)
./pkg/seaice/lsr.F 412 LSR
     4        -ETA(I-1,J-1,bi,bj)-ETA(I,J-1,bi,bj))*DELXY(I,J,bi,bj)
./pkg/seaice/lsr.F 413 LSR
     4        *RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 414 LSR
     4        +HALF*ETAMEAN(I,J,bi,bj)*((UICEC(I+1,J+1,bi,bj)
./pkg/seaice/lsr.F 415 LSR
     4        -UICEC(I-1,J+1,bi,bj))*RECIP_CSUICE(I,J+1,bi,bj)
./pkg/seaice/lsr.F 416 LSR
     4        -(UICEC(I+1,J-1,bi,bj)-UICEC(I-1,J-1,bi,bj))
./pkg/seaice/lsr.F 417 LSR
     4        *RECIP_CSUICE(I,J-1,bi,bj))*DELXY(I,J,bi,bj))
./pkg/seaice/lsr.F 419 LSR
     5        +HALF*(ETA(I,J,bi,bj)*(UICEC(I+1,J+1,bi,bj)
./pkg/seaice/lsr.F 420 LSR
     5        +UICEC(I,J+1,bi,bj)
./pkg/seaice/lsr.F 421 LSR
     5        -UICEC(I+1,J,bi,bj)-UICEC(I,J,bi,bj))+ETA(I,J-1,bi,bj)
./pkg/seaice/lsr.F 422 LSR
     5        *(UICEC(I+1,J,bi,bj)
./pkg/seaice/lsr.F 423 LSR
     5        +UICEC(I,J,bi,bj)-UICEC(I+1,J-1,bi,bj)
./pkg/seaice/lsr.F 424 LSR
     5        -UICEC(I,J-1,bi,bj))+ETA(I-1,J,bi,bj)
./pkg/seaice/lsr.F 425 LSR
     5        *(UICEC(I,J,bi,bj)+UICEC(I-1,J,bi,bj)-UICEC(I,J+1,bi,bj)
./pkg/seaice/lsr.F 426 LSR
     5        -UICEC(I-1,J+1,bi,bj))
./pkg/seaice/lsr.F 427 LSR
     5        +ETA(I-1,J-1,bi,bj)*(UICEC(I,J-1,bi,bj)
./pkg/seaice/lsr.F 428 LSR
     5        +UICEC(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 429 LSR
     5        -UICEC(I,J,bi,bj)-UICEC(I-1,J,bi,bj)))
./pkg/seaice/lsr.F 42 LSR
      INTEGER i, j, m, bi, bj, j1, j2, im, jm
./pkg/seaice/lsr.F 430 LSR
     5        *DELXY(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 432 LSR
     6        +(ETA(I,J,bi,bj)+ETA(I,J-1,bi,bj)-ETA(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 433 LSR
     6        -ETA(I-1,J,bi,bj))
./pkg/seaice/lsr.F 434 LSR
     6        *TNGICE(I,J,bi,bj)*UICEC(I,J,bi,bj)
./pkg/seaice/lsr.F 435 LSR
     6        *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 436 LSR
     6        +ETAMEAN(I,J,bi,bj)*TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 437 LSR
     6        *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj))
./pkg/seaice/lsr.F 438 LSR
     6        *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 440 LSR
     7        +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 441 LSR
     7        *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj))
./pkg/seaice/lsr.F 442 LSR
     7       *DELXR(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 443 LSR
          UVRT1(I,J,bi,bj)=(ETA(I-1,J-1,bi,bj)*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 444 LSR
     &            +ETA(I-1,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj))
./pkg/seaice/lsr.F 445 LSR
     &            *DELX2(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 446 LSR
          UVRT2(I,J,bi,bj)=(ETA(I,J-1,bi,bj)*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 447 LSR
     &            +ETA(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj))
./pkg/seaice/lsr.F 448 LSR
     &            *DELX2(I,J,bi,bj)*RECIP_CSUICE(I,J,bi,bj)
./pkg/seaice/lsr.F 473 LSR
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 478 LSR
          VICE(I,J,3,bi,bj)=VICE(I,J,1,bi,bj) 
./pkg/seaice/lsr.F 485 LSR
            AA2=ETA(I-1,J-1,bi,bj)+ZETA(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 486 LSR
     &         +ETA(I,J-1,bi,bj)+ZETA(I,J-1,bi,bj)
./pkg/seaice/lsr.F 487 LSR
            AA3=(AA2*DELY2(I,J,bi,bj)
./pkg/seaice/lsr.F 488 LSR
     &         +(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj))
./pkg/seaice/lsr.F 489 LSR
     &         *TNGICE(I,J-1,bi,bj)*DELYR(I,J,bi,bj)
./pkg/seaice/lsr.F 490 LSR
     &         +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 491 LSR
     &         *DELYR(I,J,bi,bj))
./pkg/seaice/lsr.F 492 LSR
     &         *VICE(I,J-1,1,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 494 LSR
            AA1=ETA(I-1,J,bi,bj)+ZETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)
./pkg/seaice/lsr.F 495 LSR
     &         +ZETA(I,J,bi,bj)
./pkg/seaice/lsr.F 496 LSR
            AA3=(AA1*DELY2(I,J,bi,bj)
./pkg/seaice/lsr.F 497 LSR
     &         -(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj))
./pkg/seaice/lsr.F 498 LSR
     &         *TNGICE(I,J+1,bi,bj)*DELYR(I,J,bi,bj)
./pkg/seaice/lsr.F 499 LSR
     &         -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)
./pkg/seaice/lsr.F 500 LSR
     &         *DELYR(I,J,bi,bj))
./pkg/seaice/lsr.F 501 LSR
     &         *VICE(I,J+1,1,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 506 LSR
          VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*VICE(I-1,J,1,bi,bj)
./pkg/seaice/lsr.F 507 LSR
     &                       +UVRT2(I,J,bi,bj)*VICE(I+1,J,1,bi,bj)
./pkg/seaice/lsr.F 508 LSR
          VRT(J)=VRT(J)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 512 LSR
          CVV(J)=CV(I,J,bi,bj)
./pkg/seaice/lsr.F 514 LSR
         VRT(1)=VRT(1)/BV(I,1,bi,bj)
./pkg/seaice/lsr.F 517 LSR
          CVV(J)=CVV(J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM))
./pkg/seaice/lsr.F 518 LSR
          VRT(J)=(VRT(J)-AV(I,J,bi,bj)*VRT(JM))
./pkg/seaice/lsr.F 519 LSR
     &          /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM))
./pkg/seaice/lsr.F 527 LSR
          VICE(I,J,1,bi,bj)=VICE(I,J,3,bi,bj)
./pkg/seaice/lsr.F 528 LSR
     &        +WFAV*(VRT(J)-VICE(I,J,3,bi,bj))
./pkg/seaice/lsr.F 536 LSR
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 541 LSR
           UERR(I,J,bi,bj)=(VICE(I,J,1,bi,bj)-VICE(I,J,3,bi,bj))
./pkg/seaice/lsr.F 542 LSR
     &             *UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 543 LSR
           S2=MAX(ABS(UERR(I,J,bi,bj)),S2)
./pkg/seaice/lsr.F 579 LSR
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 583 LSR
          UICE(I,J,1,bi,bj)=UICE(I,J,1,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 584 LSR
          VICE(I,J,1,bi,bj)=VICE(I,J,1,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/seaice_init.F 100 SEAICE_INIT
           RECIP_CSTICE(I,J,bi,bj) = 1./CSTICE(I,J,bi,bj)
./pkg/seaice/seaice_init.F 102 SEAICE_INIT
           RECIP_CSTICE(I,J,bi,bj) =0. _d 0
./pkg/seaice/seaice_init.F 104 SEAICE_INIT
          IF ( CSUICE(I,J,bi,bj) .ne. 0. _d 0 ) THEN
./pkg/seaice/seaice_init.F 105 SEAICE_INIT
           RECIP_CSUICE(I,J,bi,bj) = 1./CSUICE(I,J,bi,bj)
./pkg/seaice/seaice_init.F 107 SEAICE_INIT
           RECIP_CSUICE(I,J,bi,bj) =0. _d 0
./pkg/seaice/seaice_init.F 110 SEAICE_INIT
          SINEICE(i,j,bi,bj)=sin(yC(I,J,bi,bj)*deg2rad)
./pkg/seaice/seaice_init.F 111 SEAICE_INIT
          TNGTICE(i,j,bi,bj)=SINEICE(i,j,bi,bj)*RECIP_CSTICE(i,j,bi,bj)
./pkg/seaice/seaice_init.F 112 SEAICE_INIT
          SINEICE(i,j,bi,bj)=sin(yG(I,J,bi,bj)*deg2rad)
./pkg/seaice/seaice_init.F 113 SEAICE_INIT
          TNGICE(i,j,bi,bj) =SINEICE(i,j,bi,bj)*RECIP_CSUICE(i,j,bi,bj)
./pkg/seaice/seaice_init.F 114 SEAICE_INIT
          DXTICE(i,j,bi,bj)=dxF(i,j,bi,bj)*RECIP_CSTICE(i,j,bi,bj)
./pkg/seaice/seaice_init.F 115 SEAICE_INIT
          DXUICE(i,j,bi,bj)=dxV(i,j,bi,bj)*RECIP_CSUICE(i,j,bi,bj)
./pkg/seaice/seaice_init.F 116 SEAICE_INIT
          DYTICE(i,j,bi,bj)=dyF(i,j,bi,bj)
./pkg/seaice/seaice_init.F 117 SEAICE_INIT
          DYUICE(i,j,bi,bj)=dyU(i,j,bi,bj)
./pkg/seaice/seaice_init.F 122 SEAICE_INIT
          HEFFM(i,j,bi,bj)=ONE
./pkg/seaice/seaice_init.F 123 SEAICE_INIT
          IF (_hFacC(i,j,1,bi,bj).eq.0.) HEFFM(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 128 SEAICE_INIT
          UVM(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 129 SEAICE_INIT
          mask_uice=HEFFM(I,J,  bi,bj)+HEFFM(I-1,J-1,bi,bj)
./pkg/seaice/seaice_init.F 130 SEAICE_INIT
     &             +HEFFM(I,J-1,bi,bj)+HEFFM(I-1,J,  bi,bj)
./pkg/seaice/seaice_init.F 131 SEAICE_INIT
          IF(mask_uice.GT.3.5) UVM(I,J,bi,bj)=ONE
./pkg/seaice/seaice_init.F 141 SEAICE_INIT
           CSTICE(i,j,bi,bj) = ONE
./pkg/seaice/seaice_init.F 142 SEAICE_INIT
           CSUICE(i,j,bi,bj) = ONE
./pkg/seaice/seaice_init.F 144 SEAICE_INIT
           RECIP_CSTICE(I,J,bi,bj) = ONE
./pkg/seaice/seaice_init.F 145 SEAICE_INIT
           RECIP_CSUICE(I,J,bi,bj) = ONE
./pkg/seaice/seaice_init.F 147 SEAICE_INIT
           TNGTICE(i,j,bi,bj)= ZERO
./pkg/seaice/seaice_init.F 148 SEAICE_INIT
           TNGICE(i,j,bi,bj) = ZERO
./pkg/seaice/seaice_init.F 149 SEAICE_INIT
           DXTICE(i,j,bi,bj) = dxF(i,j,bi,bj)
./pkg/seaice/seaice_init.F 150 SEAICE_INIT
           DXUICE(i,j,bi,bj) = dxV(i,j,bi,bj)
./pkg/seaice/seaice_init.F 160 SEAICE_INIT
            UVM(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 166 SEAICE_INIT
           UVM(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 171 SEAICE_INIT
           UVM(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 177 SEAICE_INIT
           IF(DXTICE(i,j,bi,bj).EQ.0)
./pkg/seaice/seaice_init.F 178 SEAICE_INIT
     &            DXTICE(i,j,bi,bj)=DXTICE(1,j,bi,bj)
./pkg/seaice/seaice_init.F 179 SEAICE_INIT
           IF(DYTICE(i,j,bi,bj).EQ.0)
./pkg/seaice/seaice_init.F 180 SEAICE_INIT
     &            DYTICE(i,j,bi,bj)=DYTICE(1,j,bi,bj)
./pkg/seaice/seaice_init.F 183 SEAICE_INIT
           IF(DXTICE(i,j,bi,bj).EQ.0)
./pkg/seaice/seaice_init.F 184 SEAICE_INIT
     &            DXTICE(i,j,bi,bj)=DXTICE(sNx,j,bi,bj)
./pkg/seaice/seaice_init.F 185 SEAICE_INIT
           IF(DYTICE(i,j,bi,bj).EQ.0)
./pkg/seaice/seaice_init.F 186 SEAICE_INIT
     &            DYTICE(i,j,bi,bj)=DYTICE(sNx,j,bi,bj)
./pkg/seaice/seaice_init.F 191 SEAICE_INIT
           IF(DXTICE(i,j,bi,bj).EQ.0)
./pkg/seaice/seaice_init.F 192 SEAICE_INIT
     &            DXTICE(i,j,bi,bj)=DXTICE(i,1,bi,bj)
./pkg/seaice/seaice_init.F 193 SEAICE_INIT
           IF(DYTICE(i,j,bi,bj).EQ.0)
./pkg/seaice/seaice_init.F 194 SEAICE_INIT
     &            DYTICE(i,j,bi,bj)=DYTICE(i,1,bi,bj)
./pkg/seaice/seaice_init.F 199 SEAICE_INIT
           IF(DXTICE(i,j,bi,bj).EQ.0)
./pkg/seaice/seaice_init.F 200 SEAICE_INIT
     &            DXTICE(i,j,bi,bj)=DXTICE(i,sNy,bi,bj)
./pkg/seaice/seaice_init.F 201 SEAICE_INIT
           IF(DYTICE(i,j,bi,bj).EQ.0)
./pkg/seaice/seaice_init.F 202 SEAICE_INIT
     &            DYTICE(i,j,bi,bj)=DYTICE(i,sNy,bi,bj)
./pkg/seaice/seaice_init.F 210 SEAICE_INIT
          TICE(I,J,bi,bj)=273.0 _d 0
./pkg/seaice/seaice_init.F 213 SEAICE_INIT
           TICES(I,J,k,bi,bj)=273.0 _d 0
./pkg/seaice/seaice_init.F 216 SEAICE_INIT
          UICEC(I,J,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 217 SEAICE_INIT
          VICEC(I,J,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 218 SEAICE_INIT
          AMASS(I,J,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init.F 226 SEAICE_INIT
          KGEO(I,J,bi,bj) = 1
./pkg/seaice/seaice_init.F 228 SEAICE_INIT
          IF (klowc(i,j,bi,bj) .LT. 2) THEN
./pkg/seaice/seaice_init.F 229 SEAICE_INIT
           KGEO(I,J,bi,bj) = 1
./pkg/seaice/seaice_init.F 231 SEAICE_INIT
           KGEO(I,J,bi,bj) = 2
./pkg/seaice/seaice_init.F 232 SEAICE_INIT
           DO WHILE ( abs(rC(KGEO(I,J,bi,bj))) .LT. 50.0 .AND.
./pkg/seaice/seaice_init.F 233 SEAICE_INIT
     &          KGEO(I,J,bi,bj) .LT. (klowc(i,j,bi,bj)-1) )
./pkg/seaice/seaice_init.F 234 SEAICE_INIT
              KGEO(I,J,bi,bj) = KGEO(I,J,bi,bj) + 1
./pkg/seaice/seaice_init.F 281 SEAICE_INIT
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init.F 285 SEAICE_INIT
           HSNOW(I,J,bi,bj)=0.2*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_init.F 286 SEAICE_INIT
           YNEG(I,J,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 287 SEAICE_INIT
           TMIX(I,J,bi,bj)=TICE(I,J,bi,bj)
./pkg/seaice/seaice_init.F 289 SEAICE_INIT
            HEFF(I,J,k,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_init.F 290 SEAICE_INIT
            UICE(I,J,k,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 291 SEAICE_INIT
            VICE(I,J,k,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 304 SEAICE_INIT
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init.F 309 SEAICE_INIT
             HEFF(I,J,k,bi,bj) = MAX(ZETA(i,j,bi,bj),ZERO)
./pkg/seaice/seaice_init.F 317 SEAICE_INIT
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init.F 322 SEAICE_INIT
            IF(HEFF(I,J,k,bi,bj).GT.ZERO) AREA(I,J,k,bi,bj)=ONE
./pkg/seaice/seaice_init.F 332 SEAICE_INIT
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init.F 336 SEAICE_INIT
          ZETA(I,J,bi,bj)=HEFF(I,J,1,bi,bj)*(1.0 _d 11)
./pkg/seaice/seaice_init.F 337 SEAICE_INIT
          ETA(I,J,bi,bj)=ZETA(I,J,bi,bj)/4.0 _d 0
./pkg/seaice/seaice_init.F 37 SEAICE_INIT
      INTEGER i, j, k, bi, bj
./pkg/seaice/seaice_init.F 43 SEAICE_INIT
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_init.F 45 SEAICE_INIT
        CALL TIMEAVE_RESET(FUtave   ,1,bi,bj,myThid)
./pkg/seaice/seaice_init.F 46 SEAICE_INIT
        CALL TIMEAVE_RESET(FVtave   ,1,bi,bj,myThid)
./pkg/seaice/seaice_init.F 47 SEAICE_INIT
        CALL TIMEAVE_RESET(EmPmRtave,1,bi,bj,myThid)
./pkg/seaice/seaice_init.F 48 SEAICE_INIT
        CALL TIMEAVE_RESET(QNETtave ,1,bi,bj,myThid)
./pkg/seaice/seaice_init.F 49 SEAICE_INIT
        CALL TIMEAVE_RESET(QSWtave  ,1,bi,bj,myThid)
./pkg/seaice/seaice_init.F 50 SEAICE_INIT
        CALL TIMEAVE_RESET(UICEtave ,1,bi,bj,myThid)
./pkg/seaice/seaice_init.F 51 SEAICE_INIT
        CALL TIMEAVE_RESET(VICEtave ,1,bi,bj,myThid)
./pkg/seaice/seaice_init.F 52 SEAICE_INIT
        CALL TIMEAVE_RESET(HEFFtave ,1,bi,bj,myThid)
./pkg/seaice/seaice_init.F 53 SEAICE_INIT
        CALL TIMEAVE_RESET(AREAtave ,1,bi,bj,myThid)
./pkg/seaice/seaice_init.F 55 SEAICE_INIT
         SEAICE_TimeAve(k,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 64 SEAICE_INIT
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init.F 70 SEAICE_INIT
           HEFF(I,J,k,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 71 SEAICE_INIT
           AREA(I,J,k,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 72 SEAICE_INIT
           UICE(I,J,k,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 73 SEAICE_INIT
           VICE(I,J,k,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 80 SEAICE_INIT
          HSNOW(I,J,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 81 SEAICE_INIT
          ZETA(I,J,bi,bj)=ZERO
./pkg/seaice/seaice_init.F 90 SEAICE_INIT
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init.F 94 SEAICE_INIT
          CSTICE(i,j,bi,bj) =cos(yC(I,J,bi,bj)*deg2rad)
./pkg/seaice/seaice_init.F 95 SEAICE_INIT
          CSUICE(i,j,bi,bj) =cos(yG(I,J,bi,bj)*deg2rad)
./pkg/seaice/seaice_init.F 99 SEAICE_INIT
          IF ( CSTICE(I,J,bi,bj) .ne. 0. _d 0 ) THEN
./pkg/seaice/ostres.F 100 OSTRES
            fv(I,J,bi,bj)=HALF
./pkg/seaice/ostres.F 101 OSTRES
     &           *(WINDY(I+1,J,bi,bj)+WINDY(I,J,bi,bj))
./pkg/seaice/ostres.F 111 OSTRES
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/ostres.F 115 OSTRES
          WINDX(I,J,bi,bj)=DWATN(I,J,bi,bj)*
./pkg/seaice/ostres.F 116 OSTRES
     &         (UICE(I,J,1,bi,bj)-GWATX(I,J,bi,bj))
./pkg/seaice/ostres.F 117 OSTRES
          WINDY(I,J,bi,bj)=DWATN(I,J,bi,bj)*
./pkg/seaice/ostres.F 118 OSTRES
     &         (UICEC(I,J,bi,bj)-GWATX(I,J,bi,bj))
./pkg/seaice/ostres.F 119 OSTRES
          fu(I,J,bi,bj)=(ONE-AREA(I,J,1,bi,bj))*fu(I,J,bi,bj)+
./pkg/seaice/ostres.F 120 OSTRES
     &         HALF*AREA(I,J,1,bi,bj)*
./pkg/seaice/ostres.F 121 OSTRES
     &         (WINDX(I,J+1,bi,bj)+WINDX(I,J,bi,bj))
./pkg/seaice/ostres.F 122 OSTRES
          fv(I,J,bi,bj)=(ONE-AREA(I,J,1,bi,bj))*fv(I,J,bi,bj)+
./pkg/seaice/ostres.F 123 OSTRES
     &         HALF*AREA(I,J,1,bi,bj)*
./pkg/seaice/ostres.F 124 OSTRES
     &         (WINDY(I+1,J,bi,bj)+WINDY(I,J,bi,bj))
./pkg/seaice/ostres.F 33 OSTRES
      INTEGER i, j, bi, bj
./pkg/seaice/ostres.F 52 OSTRES
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/ostres.F 56 OSTRES
           WINDX(I,J,bi,bj)=DWATN(I,J,bi,bj)
./pkg/seaice/ostres.F 57 OSTRES
     &          *(COSWAT*(GWATX(I,J,bi,bj)-UICE(I,J,1,bi,bj))
./pkg/seaice/ostres.F 58 OSTRES
     &          -SINWAT*(GWATY(I,J,bi,bj)-VICEC(I,J,bi,bj)))
./pkg/seaice/ostres.F 59 OSTRES
           WINDY(I,J,bi,bj)=DWATN(I,J,bi,bj)
./pkg/seaice/ostres.F 60 OSTRES
     &          *(SINWAT*(GWATX(I,J,bi,bj)-UICEC(I,J,bi,bj))
./pkg/seaice/ostres.F 61 OSTRES
     &          +COSWAT*(GWATY(I,J,bi,bj)-VICE(I,J,1,bi,bj)))
./pkg/seaice/ostres.F 62 OSTRES
           WINDX(I,J,bi,bj)=WINDX(I,J,bi,bj)-( COR_ICE(I,J,bi,bj)
./pkg/seaice/ostres.F 63 OSTRES
     &          *GWATY(I,J,bi,bj)-COR_ICE(I,J,bi,bj)*VICEC(I,J,bi,bj))
./pkg/seaice/ostres.F 64 OSTRES
           WINDY(I,J,bi,bj)=WINDY(I,J,bi,bj)-(-COR_ICE(I,J,bi,bj)
./pkg/seaice/ostres.F 65 OSTRES
     &          *GWATX(I,J,bi,bj)+COR_ICE(I,J,bi,bj)*UICEC(I,J,bi,bj))
./pkg/seaice/ostres.F 66 OSTRES
           WINDX(I,J,bi,bj)=WINDX(I,J,bi,bj)-(UICE(I,J,1,bi,bj)
./pkg/seaice/ostres.F 67 OSTRES
     &          -UICE(I,J,3,bi,bj))*AMASS(I,J,bi,bj)/SEAICE_DT*TWO
./pkg/seaice/ostres.F 68 OSTRES
           WINDY(I,J,bi,bj)=WINDY(I,J,bi,bj)-(VICE(I,J,1,bi,bj)
./pkg/seaice/ostres.F 69 OSTRES
     &          -VICE(I,J,3,bi,bj))*AMASS(I,J,bi,bj)/SEAICE_DT*TWO
./pkg/seaice/ostres.F 74 OSTRES
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/ostres.F 78 OSTRES
           WINDX(I,J,bi,bj)=-WINDX(I,J,bi,bj)
./pkg/seaice/ostres.F 79 OSTRES
           WINDY(I,J,bi,bj)=-WINDY(I,J,bi,bj)
./pkg/seaice/ostres.F 94 OSTRES
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/ostres.F 98 OSTRES
            fu(I,J,bi,bj)=HALF
./pkg/seaice/ostres.F 99 OSTRES
     &           *(WINDX(I,J+1,bi,bj)+WINDX(I,J,bi,bj))
./pkg/seaice/seaice_get_forcing.F 415 SEAICE_GET_FORCING
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_get_forcing.F 419 SEAICE_GET_FORCING
           uwind(i,j,bi,bj) = bWghtWind *  uwind0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 420 SEAICE_GET_FORCING
     &                        aWghtWind *  uwind1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 421 SEAICE_GET_FORCING
           vwind(i,j,bi,bj) = bWghtWind *  vwind0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 422 SEAICE_GET_FORCING
     &                        aWghtWind *  vwind1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 428 SEAICE_GET_FORCING
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_get_forcing.F 432 SEAICE_GET_FORCING
           uwind(i,j,bi,bj) = aWghtWind *  uwind0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 433 SEAICE_GET_FORCING
     &                        bWghtWind *  uwind1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 434 SEAICE_GET_FORCING
           vwind(i,j,bi,bj) = aWghtWind *  vwind0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 435 SEAICE_GET_FORCING
     &                        bWghtWind *  vwind1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 444 SEAICE_GET_FORCING
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_get_forcing.F 448 SEAICE_GET_FORCING
          atemp(i,j,bi,bj)  = bWghtFlux *  atemp0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 449 SEAICE_GET_FORCING
     &                        aWghtFlux *  atemp1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 450 SEAICE_GET_FORCING
          aqh(i,j,bi,bj)    = bWghtFlux *    aqh0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 451 SEAICE_GET_FORCING
     &                        aWghtFlux *    aqh1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 452 SEAICE_GET_FORCING
          lwdown(i,j,bi,bj) = bWghtFlux * lwdown0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 453 SEAICE_GET_FORCING
     &                        aWghtFlux * lwdown1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 454 SEAICE_GET_FORCING
          swdown(i,j,bi,bj) = bWghtFlux * swdown0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 455 SEAICE_GET_FORCING
     &                        aWghtFlux * swdown1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 456 SEAICE_GET_FORCING
          precip(i,j,bi,bj) = bWghtFlux * precip0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 457 SEAICE_GET_FORCING
     &                        aWghtFlux *   precip1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 458 SEAICE_GET_FORCING
          evap(i,j,bi,bj)   = bWghtFlux *   evap0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 459 SEAICE_GET_FORCING
     &                        aWghtFlux *   evap1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 460 SEAICE_GET_FORCING
          runoff(i,j,bi,bj) = bWghtFlux * runoff0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 461 SEAICE_GET_FORCING
     &                        aWghtFlux * runoff1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 467 SEAICE_GET_FORCING
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_get_forcing.F 46 SEAICE_GET_FORCING
      INTEGER bi,bj,i,j,iRec,iEnd
./pkg/seaice/seaice_get_forcing.F 471 SEAICE_GET_FORCING
          atemp(i,j,bi,bj)  = aWghtFlux *  atemp0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 472 SEAICE_GET_FORCING
     &                        bWghtFlux *  atemp1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 473 SEAICE_GET_FORCING
          aqh(i,j,bi,bj)    = aWghtFlux *    aqh0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 474 SEAICE_GET_FORCING
     &                        bWghtFlux *    aqh1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 475 SEAICE_GET_FORCING
          lwdown(i,j,bi,bj) = aWghtFlux * lwdown0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 476 SEAICE_GET_FORCING
     &                        bWghtFlux * lwdown1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 477 SEAICE_GET_FORCING
          swdown(i,j,bi,bj) = aWghtFlux * swdown0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 478 SEAICE_GET_FORCING
     &                        bWghtFlux * swdown1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 479 SEAICE_GET_FORCING
          precip(i,j,bi,bj) = aWghtFlux * precip0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 480 SEAICE_GET_FORCING
     &                        bWghtFlux * precip1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 481 SEAICE_GET_FORCING
          evap(i,j,bi,bj)   = aWghtFlux *   evap0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 482 SEAICE_GET_FORCING
     &                        bWghtFlux *   evap1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 483 SEAICE_GET_FORCING
          runoff(i,j,bi,bj) = aWghtFlux * runoff0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 484 SEAICE_GET_FORCING
     &                        bWghtFlux * runoff1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 493 SEAICE_GET_FORCING
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_get_forcing.F 497 SEAICE_GET_FORCING
           SSS(i,j,bi,bj)   = bWghtSSS  *   SSSsi0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 498 SEAICE_GET_FORCING
     &                        aWghtSSS  *   SSSsi1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 504 SEAICE_GET_FORCING
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_get_forcing.F 508 SEAICE_GET_FORCING
           SSS(i,j,bi,bj)   = aWghtSSS  *   SSSsi0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 509 SEAICE_GET_FORCING
     &                        bWghtSSS  *   SSSsi1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 518 SEAICE_GET_FORCING
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_get_forcing.F 522 SEAICE_GET_FORCING
           SST(i,j,bi,bj)   = bWghtSST  *   SSTsi0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 523 SEAICE_GET_FORCING
     &                        aWghtSST  *   SSTsi1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 529 SEAICE_GET_FORCING
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_get_forcing.F 533 SEAICE_GET_FORCING
           SST(i,j,bi,bj)   = aWghtSST  *   SSTsi0(i,j,bi,bj) +
./pkg/seaice/seaice_get_forcing.F 534 SEAICE_GET_FORCING
     &                        bWghtSST  *   SSTsi1(i,j,bi,bj)
./pkg/seaice/seaice_get_forcing.F 563 INIT_ARRAY_RS
      INTEGER i,j,bi,bj
./pkg/seaice/seaice_get_forcing.F 565 INIT_ARRAY_RS
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_get_forcing.F 569 INIT_ARRAY_RS
          arr(i,j,bi,bj) = initValue
./model/src/freeze_surface.F 41 FREEZE_SURFACE
      INTEGER bi,bj,i,j,k
./model/src/freeze_surface.F 54 FREEZE_SURFACE
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/freeze_surface.F 58 FREEZE_SURFACE
          IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN
./model/src/freeze_surface.F 59 FREEZE_SURFACE
             surfaceForcingTice(i,j,bi,bj) =
./model/src/freeze_surface.F 60 FREEZE_SURFACE
     &            ( Tfreezing - theta(i,j,k,bi,bj) )
./model/src/freeze_surface.F 61 FREEZE_SURFACE
     &                    *drF(k)*hFacC(i,j,k,bi,bj) / dTtracerLev(k)
./model/src/freeze_surface.F 62 FREEZE_SURFACE
             theta(i,j,k,bi,bj) = Tfreezing
./model/src/freeze_surface.F 64 FREEZE_SURFACE
             surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./pkg/seaice/growth.F 100 GROWTH
          AR(I,J,bi,bj)=MIN(AREA(I,J,2,bi,bj),
./pkg/seaice/growth.F 101 GROWTH
     &         HEFF(I,J,2,bi,bj)*1.0 _d +04)
./pkg/seaice/growth.F 122 GROWTH
          YNEG(I,J,bi,bj)=(theta(I,J,1,bi,bj)-TBC)*dRf(1)/72.0764 _d 0
./pkg/seaice/growth.F 124 GROWTH
          YNEG(I,J,bi,bj)= 0.
./pkg/seaice/growth.F 126 GROWTH
          GHEFF(I,J)=HEFF(I,J,1,bi,bj)
./pkg/seaice/growth.F 127 GROWTH
          HEFF(I,J,1,bi,bj)=MAX(ZERO,HEFF(I,J,1,bi,bj)-YNEG(I,J,bi,bj))
./pkg/seaice/growth.F 128 GROWTH
          YNEG(I,J,bi,bj)=GHEFF(I,J)-HEFF(I,J,1,bi,bj)
./pkg/seaice/growth.F 129 GROWTH
          SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj)-YNEG(I,J,bi,bj)
./pkg/seaice/growth.F 131 GROWTH
          YNEG(I,J,bi,bj)=YNEG(I,J,bi,bj)*recip_dRf(1)*72.0764 _d 0
./pkg/seaice/growth.F 157 GROWTH
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/growth.F 163 GROWTH
          act2 = bj - myByLo(myThid)
./pkg/seaice/growth.F 189 GROWTH
          GHEFF(I,J)=-SEAICE_deltaTtherm*FICE(I,J,bi,bj)
./pkg/seaice/growth.F 190 GROWTH
          GAREA(I,J)=HSNOW(I,J,bi,bj)*QS
./pkg/seaice/growth.F 192 GROWTH
           HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)-GHEFF(I,J)/QS
./pkg/seaice/growth.F 195 GROWTH
           SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj)
./pkg/seaice/growth.F 196 GROWTH
     &                  -(GHEFF(I,J)/QS)/SDF/0.920 _d 0*AR(I,J,bi,bj)
./pkg/seaice/growth.F 197 GROWTH
           FICE(I,J,bi,bj)=ZERO
./pkg/seaice/growth.F 199 GROWTH
           FICE(I,J,bi,bj)=-(GHEFF(I,J)-GAREA(I,J))/SEAICE_deltaTtherm
./pkg/seaice/growth.F 200 GROWTH
           SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj)
./pkg/seaice/growth.F 201 GROWTH
     &               -HSNOW(I,J,bi,bj)/SDF/0.920 _d 0*AR(I,J,bi,bj)
./pkg/seaice/growth.F 202 GROWTH
           HSNOW(I,J,bi,bj)=0.0
./pkg/seaice/growth.F 211 GROWTH
          FHEFF(I,J,bi,bj)=FICE(I,J,bi,bj)*AR(I,J,bi,bj)
./pkg/seaice/growth.F 212 GROWTH
     &                    +(ONE-AR(I,J,bi,bj))*FO(I,J,bi,bj)
./pkg/seaice/growth.F 220 GROWTH
          GHEFF(I,J)=-SEAICE_deltaTtherm*FHEFF(I,J,bi,bj)*Q0
./pkg/seaice/growth.F 221 GROWTH
          GAREA(I,J)=SEAICE_deltaTtherm*FO(I,J,bi,bj)*Q0
./pkg/seaice/growth.F 222 GROWTH
          GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J))
./pkg/seaice/growth.F 224 GROWTH
          HCORR(I,J,bi,bj)=MIN(ZERO,GHEFF(I,J))
./pkg/seaice/growth.F 229 GROWTH
          GAREA(I,J)=TWO*(ONE-AREA(I,J,2,bi,bj))*GAREA(I,J)/HO
./pkg/seaice/growth.F 230 GROWTH
     &    +HALF*HCORR(I,J,bi,bj)*AREA(I,J,2,bi,bj)
./pkg/seaice/growth.F 231 GROWTH
     &    /(HEFF(I,J,1,bi,bj)+.00001 _d 0)
./pkg/seaice/growth.F 232 GROWTH
          AREA(I,J,1,bi,bj)=AREA(I,J,1,bi,bj)+GAREA(I,J)
./pkg/seaice/growth.F 240 GROWTH
     &               FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj)
./pkg/seaice/growth.F 241 GROWTH
          GHEFF(I,J)=-ONE*MIN(HEFF(I,J,1,bi,bj),GHEFF(I,J))
./pkg/seaice/growth.F 242 GROWTH
          HEFF(I,J,1,bi,bj)=HEFF(I,J,1,bi,bj)+GHEFF(I,J)
./pkg/seaice/growth.F 243 GROWTH
          SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj)+GHEFF(I,J)
./pkg/seaice/growth.F 245 GROWTH
          QNETI(I,J,bi,bj)=(GHEFF(I,J)-SEAICE_deltaTtherm*
./pkg/seaice/growth.F 246 GROWTH
     &         FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj))/Q0/SEAICE_deltaTtherm
./pkg/seaice/growth.F 253 GROWTH
          QNET(I,J,bi,bj)=QNETI(I,J,bi,bj)*AR(I,J,bi,bj)
./pkg/seaice/growth.F 254 GROWTH
     &                    +(ONE-AR(I,J,bi,bj))*QNETO(I,J,bi,bj)
./pkg/seaice/growth.F 255 GROWTH
          QSW(I,J,bi,bj)=QSWI(I,J,bi,bj)*AR(I,J,bi,bj)
./pkg/seaice/growth.F 256 GROWTH
     &                    +(ONE-AR(I,J,bi,bj))*QSWO(I,J,bi,bj)
./pkg/seaice/growth.F 261 GROWTH
          QNET(I,J,bi,bj)=QNET(I,J,bi,bj)
./pkg/seaice/growth.F 262 GROWTH
     &         +YNEG(I,J,bi,bj)/SEAICE_deltaTtherm*maskC(I,J,1,bi,bj)
./pkg/seaice/growth.F 264 GROWTH
     &         *drF(kSurface)*hFacC(i,j,kSurface,bi,bj)
./pkg/seaice/growth.F 271 GROWTH
          IF(FICE(I,J,bi,bj).GT.ZERO) THEN
./pkg/seaice/growth.F 273 GROWTH
           HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+SEAICE_deltaTtherm*
./pkg/seaice/growth.F 274 GROWTH
     &            PRECIP(I,J,bi,bj)*AREA(I,J,2,bi,bj)*SDF
./pkg/seaice/growth.F 277 GROWTH
             SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj)
./pkg/seaice/growth.F 278 GROWTH
     &            -PRECIP(I,J,bi,bj)*AREA(I,J,2,bi,bj)*
./pkg/seaice/growth.F 282 GROWTH
          SEAICE_SALT(I,J,bi,bj)=SEAICE_SALT(I,J,bi,bj)
./pkg/seaice/growth.F 283 GROWTH
     &         -PRECIP(I,J,bi,bj)*(ONE-AREA(I,J,2,bi,bj))
./pkg/seaice/growth.F 286 GROWTH
          EmPmR(I,J,bi,bj)= maskC(I,J,1,bi,bj)*(
./pkg/seaice/growth.F 287 GROWTH
     &         EVAP(I,J,bi,bj)-RUNOFF(I,J,bi,bj)
./pkg/seaice/growth.F 288 GROWTH
     &         +SEAICE_SALT(I,J,bi,bj)*0.92 _d 0/SEAICE_deltaTtherm
./pkg/seaice/growth.F 305 GROWTH
          GHEFF(I,J)=SQRT(UICE(I,J,1,bi,bj)**2+VICE(I,J,1,bi,bj)**2)
./pkg/seaice/growth.F 306 GROWTH
          GAREA(I,J)=HEFF(I,J,1,bi,bj)
./pkg/seaice/growth.F 307 GROWTH
          print*,'I J QNET:',I, J, QNET(i,j,bi,bj), QSW(I,J,bi,bj)
./pkg/seaice/growth.F 314 GROWTH
          if(HEFF(i,j,1,bi,bj).gt.1.) then
./pkg/seaice/growth.F 316 GROWTH
     &            HEFF(i,j,1,bi,bj),theta(I,J,1,bi,bj),yneg(I,J,bi,bj)
./pkg/seaice/growth.F 318 GROWTH
     &            QSW(I,J,bi,bj),QNETI(I,J,bi,bj)*AR(I,J,bi,bj)
./pkg/seaice/growth.F 319 GROWTH
     &           +(ONE-AR(I,J,bi,bj))*QNETO(I,J,bi,bj), QNET(I,J,bi,bj)
./pkg/seaice/growth.F 331 GROWTH
          AREA(I,J,1,bi,bj)=MIN(AREA(I,J,1,bi,bj)
./pkg/seaice/growth.F 332 GROWTH
     &                         ,HEFF(I,J,1,bi,bj)/.0001 _d 0)
./pkg/seaice/growth.F 343 GROWTH
          AREA(I,J,1,bi,bj)=MIN(ONE,AREA(I,J,1,bi,bj))
./pkg/seaice/growth.F 352 GROWTH
          AREA(I,J,1,bi,bj)=MAX(ZERO,AREA(I,J,1,bi,bj))
./pkg/seaice/growth.F 353 GROWTH
          HSNOW(I,J,bi,bj)=MAX(ZERO,HSNOW(I,J,bi,bj))
./pkg/seaice/growth.F 355 GROWTH
          AREA(I,J,1,bi,bj)=AREA(I,J,1,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/growth.F 356 GROWTH
          HEFF(I,J,1,bi,bj)=HEFF(I,J,1,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/growth.F 360 GROWTH
          HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/growth.F 40 GROWTH
      INTEGER i, j, bi, bj
./pkg/seaice/growth.F 61 GROWTH
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/growth.F 68 GROWTH
          act2 = bj - myByLo(myThid)
./pkg/seaice/growth.F 89 GROWTH
          SEAICE_SALT(I,J,bi,bj)=ZERO
./pkg/gmredi/gmredi_calc_wflow.F 11 GMREDI_CALC_WFLOW
     I     bi, bj, k, myThid)
./pkg/gmredi/gmredi_calc_wflow.F 31 GMREDI_CALC_WFLOW
      INTEGER bi, bj, k, myThid
./pkg/gmredi/gmredi_calc_wflow.F 48 GMREDI_CALC_WFLOW
     &   +( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 49 GMREDI_CALC_WFLOW
     &     -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 50 GMREDI_CALC_WFLOW
     &     +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 51 GMREDI_CALC_WFLOW
     &     -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 52 GMREDI_CALC_WFLOW
     &    )*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_slope_psi.F 12 GMREDI_SLOPE_PSI
     I             bi,bj, myThid )
./pkg/gmredi/gmredi_slope_psi.F 51 GMREDI_SLOPE_PSI
      INTEGER K,bi,bj,myThid
./pkg/gmredi/gmredi_slope_psi.F 73 GMREDI_SLOPE_PSI
      act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_init.F 38 GMREDI_INIT
      INTEGER i,j,k,bi,bj
./pkg/gmredi/gmredi_init.F 40 GMREDI_INIT
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/gmredi/gmredi_init.F 47 GMREDI_INIT
           Kwx(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 48 GMREDI_INIT
           Kwy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 49 GMREDI_INIT
           Kwz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 51 GMREDI_INIT
           Kuz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 52 GMREDI_INIT
           Kvz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 55 GMREDI_INIT
           Kux(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 56 GMREDI_INIT
           Kvy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 59 GMREDI_INIT
           GM_PsiX(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 60 GMREDI_INIT
           GM_PsiY(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 63 GMREDI_INIT
          VisbeckK(i,j,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 71 GMREDI_INIT
        CALL TIMEAVE_RESET(GM_Kwx_T,Nr, bi,bj,myThid)
./pkg/gmredi/gmredi_init.F 72 GMREDI_INIT
        CALL TIMEAVE_RESET(GM_Kwy_T,Nr, bi,bj,myThid)
./pkg/gmredi/gmredi_init.F 73 GMREDI_INIT
        CALL TIMEAVE_RESET(GM_Kwz_T,Nr, bi,bj,myThid)
./pkg/gmredi/gmredi_init.F 75 GMREDI_INIT
         GM_TimeAve(k,bi,bj)=0. _d 0
./pkg/gmredi/gmredi_init.F 78 GMREDI_INIT
        CALL TIMEAVE_RESET(Visbeck_K_T, 1, bi,bj,myThid)
./pkg/gmredi/gmredi_init.F 81 GMREDI_INIT
        CALL TIMEAVE_RESET(GM_PsiXtave,Nr, bi,bj,myThid)
./pkg/gmredi/gmredi_init.F 82 GMREDI_INIT
        CALL TIMEAVE_RESET(GM_PsiYtave,Nr, bi,bj,myThid)
./pkg/gmredi/gmredi_xtransport.F 102 GMREDI_XTRANSPORT
     &    *Kux(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 106 GMREDI_XTRANSPORT
     &    +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 110 GMREDI_XTRANSPORT
     &    *_recip_dxC(i,j,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 111 GMREDI_XTRANSPORT
     &    *(Tracer(i,j,k,bi,bj)-Tracer(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 125 GMREDI_XTRANSPORT
     &       ( maskC(i-1,j,k,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 126 GMREDI_XTRANSPORT
     &           (Tracer(i-1,j,km1,bi,bj)-Tracer(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 127 GMREDI_XTRANSPORT
     &        +maskC( i ,j,k,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 128 GMREDI_XTRANSPORT
     &           (Tracer( i ,j,km1,bi,bj)-Tracer( i ,j,k,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 131 GMREDI_XTRANSPORT
     &       ( maskC(i-1,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 132 GMREDI_XTRANSPORT
     &           (Tracer(i-1,j,k,bi,bj)-Tracer(i-1,j,kp1,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 133 GMREDI_XTRANSPORT
     &        +maskC( i ,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 134 GMREDI_XTRANSPORT
     &           (Tracer( i ,j,k,bi,bj)-Tracer( i ,j,kp1,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 147 GMREDI_XTRANSPORT
        df(i,j) = df(i,j) - xA(i,j)*Kuz(i,j,k,bi,bj)*dTdz(i,j)
./pkg/gmredi/gmredi_xtransport.F 160 GMREDI_XTRANSPORT
         uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_xtransport.F 161 GMREDI_XTRANSPORT
     &                                 -GM_PsiX(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_xtransport.F 162 GMREDI_XTRANSPORT
     &                               *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 172 GMREDI_XTRANSPORT
     &    +uTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 40 GMREDI_XTRANSPORT
      INTEGER iMin,iMax,jMin,jMax,bi,bj,k
./pkg/gmredi/gmredi_xtransport.F 66 GMREDI_XTRANSPORT
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_xtransport.F 7 GMREDI_XTRANSPORT
     I     iMin,iMax,jMin,jMax,bi,bj,K,
./model/src/external_forcing.F 109 EXTERNAL_FORCING_V
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 11 EXTERNAL_FORCING_U
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 139 EXTERNAL_FORCING_V
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./model/src/external_forcing.F 162 EXTERNAL_FORCING_V
     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 168 EXTERNAL_FORCING_V
     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 178 EXTERNAL_FORCING_V
         gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./model/src/external_forcing.F 179 EXTERNAL_FORCING_V
     &   +foFacMom*surfaceForcingV(i,j,bi,bj)
./model/src/external_forcing.F 180 EXTERNAL_FORCING_V
     &   *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 187 EXTERNAL_FORCING_V
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 194 EXTERNAL_FORCING_V
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 207 EXTERNAL_FORCING_T
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 237 EXTERNAL_FORCING_T
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./model/src/external_forcing.F 267 EXTERNAL_FORCING_T
     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 273 EXTERNAL_FORCING_T
     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 281 EXTERNAL_FORCING_T
         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 282 EXTERNAL_FORCING_T
     &     +surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing.F 283 EXTERNAL_FORCING_T
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 304 EXTERNAL_FORCING_T
         gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)
./model/src/external_forcing.F 305 EXTERNAL_FORCING_T
     &   -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj)
./model/src/external_forcing.F 306 EXTERNAL_FORCING_T
     &                   -swfracb(2)*maskC(i,j,kp1, bi,bj))
./model/src/external_forcing.F 308 EXTERNAL_FORCING_T
     &    *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 317 EXTERNAL_FORCING_T
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 330 EXTERNAL_FORCING_S
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 361 EXTERNAL_FORCING_S
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./model/src/external_forcing.F 384 EXTERNAL_FORCING_S
     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 390 EXTERNAL_FORCING_S
     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 398 EXTERNAL_FORCING_S
         gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 399 EXTERNAL_FORCING_S
     &     +surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing.F 400 EXTERNAL_FORCING_S
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 408 EXTERNAL_FORCING_S
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 41 EXTERNAL_FORCING_U
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./model/src/external_forcing.F 64 EXTERNAL_FORCING_U
     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 70 EXTERNAL_FORCING_U
     &                      iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 80 EXTERNAL_FORCING_U
         gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./model/src/external_forcing.F 81 EXTERNAL_FORCING_U
     &   +foFacMom*surfaceForcingU(i,j,bi,bj)
./model/src/external_forcing.F 82 EXTERNAL_FORCING_U
     &   *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj)
./model/src/external_forcing.F 89 EXTERNAL_FORCING_U
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 96 EXTERNAL_FORCING_U
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./pkg/gmredi/gmredi_output.F 121 GMREDI_OUTPUT
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/gmredi/gmredi_output.F 123 GMREDI_OUTPUT
         CALL TIMEAVE_RESET(GM_Kwx_T,Nr,bi,bj,myThid)
./pkg/gmredi/gmredi_output.F 124 GMREDI_OUTPUT
         CALL TIMEAVE_RESET(GM_Kwy_T,Nr,bi,bj,myThid)
./pkg/gmredi/gmredi_output.F 125 GMREDI_OUTPUT
         CALL TIMEAVE_RESET(GM_Kwz_T,Nr,bi,bj,myThid)
./pkg/gmredi/gmredi_output.F 128 GMREDI_OUTPUT
     &    CALL TIMEAVE_RESET(Visbeck_K_T,1,bi,bj,myThid)
./pkg/gmredi/gmredi_output.F 132 GMREDI_OUTPUT
          CALL TIMEAVE_RESET(GM_PsiXtave,Nr,bi,bj,myThid)
./pkg/gmredi/gmredi_output.F 133 GMREDI_OUTPUT
          CALL TIMEAVE_RESET(GM_PsiYtave,Nr,bi,bj,myThid)
./pkg/gmredi/gmredi_output.F 137 GMREDI_OUTPUT
          GM_TimeAve(k,bi,bj)=0.
./pkg/gmredi/gmredi_output.F 46 GMREDI_OUTPUT
      INTEGER bi, bj, K
./pkg/gmredi/gmredi_output.F 77 GMREDI_OUTPUT
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/gmredi/gmredi_output.F 80 GMREDI_OUTPUT
     &                 bi,bj,myThid)
./pkg/gmredi/gmredi_output.F 82 GMREDI_OUTPUT
     &                 bi,bj,myThid)
./pkg/gmredi/gmredi_output.F 84 GMREDI_OUTPUT
     &                 bi,bj,myThid)
./pkg/gmredi/gmredi_output.F 88 GMREDI_OUTPUT
     &                 bi,bj,myThid)
./pkg/gmredi/gmredi_output.F 93 GMREDI_OUTPUT
     &                 bi,bj,myThid)
./pkg/gmredi/gmredi_output.F 95 GMREDI_OUTPUT
     &                 bi,bj,myThid)
./pkg/gmredi/gmredi_calc_uvflow.F 11 GMREDI_CALC_UVFLOW
     I     bi, bj, k, myThid)
./pkg/gmredi/gmredi_calc_uvflow.F 32 GMREDI_CALC_UVFLOW
      INTEGER bi, bj, k, myThid
./pkg/gmredi/gmredi_calc_uvflow.F 55 GMREDI_CALC_UVFLOW
     &          + dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_calc_uvflow.F 56 GMREDI_CALC_UVFLOW
     &                            -GM_PsiX(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_calc_uvflow.F 57 GMREDI_CALC_UVFLOW
     &                          *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_uvflow.F 59 GMREDI_CALC_UVFLOW
     &          + dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_calc_uvflow.F 60 GMREDI_CALC_UVFLOW
     &                            -GM_PsiY(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_calc_uvflow.F 61 GMREDI_CALC_UVFLOW
     &                          *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 101 GMREDI_RTRANSPORT
     &   +op5*(_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 102 GMREDI_RTRANSPORT
     &         *_recip_dyC(i,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 103 GMREDI_RTRANSPORT
     &           (Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_rtransport.F 104 GMREDI_RTRANSPORT
     &        +_maskS(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 105 GMREDI_RTRANSPORT
     &         *_recip_dyC(i,j+1,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 106 GMREDI_RTRANSPORT
     &           (Tracer(i,j+1,k,bi,bj)-Tracer(i,j,k,bi,bj)))
./pkg/gmredi/gmredi_rtransport.F 107 GMREDI_RTRANSPORT
     &   +op5*(_maskS(i,j,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 108 GMREDI_RTRANSPORT
     &         *_recip_dyC(i,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 109 GMREDI_RTRANSPORT
     &           (Tracer(i,j,k-1,bi,bj)-Tracer(i,j-1,k-1,bi,bj))
./pkg/gmredi/gmredi_rtransport.F 110 GMREDI_RTRANSPORT
     &        +_maskS(i,j+1,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 111 GMREDI_RTRANSPORT
     &         *_recip_dyC(i,j+1,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 112 GMREDI_RTRANSPORT
     &           (Tracer(i,j+1,k-1,bi,bj)-Tracer(i,j,k-1,bi,bj)))
./pkg/gmredi/gmredi_rtransport.F 128 GMREDI_RTRANSPORT
     &      - _rA(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 129 GMREDI_RTRANSPORT
     &        *( Kwx(i,j,k,bi,bj)*dTdx(i,j)+Kwy(i,j,k,bi,bj)*dTdy(i,j) )
./pkg/gmredi/gmredi_rtransport.F 139 GMREDI_RTRANSPORT
     &      dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 140 GMREDI_RTRANSPORT
     &     -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 141 GMREDI_RTRANSPORT
     &     +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 142 GMREDI_RTRANSPORT
     &     -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 153 GMREDI_RTRANSPORT
     &                *(Tracer(i,j,k,bi,bj)+Tracer(i,j,k-1,bi,bj))
./pkg/gmredi/gmredi_rtransport.F 40 GMREDI_RTRANSPORT
      INTEGER iMin,iMax,jMin,jMax,bi,bj,k
./pkg/gmredi/gmredi_rtransport.F 62 GMREDI_RTRANSPORT
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_rtransport.F 7 GMREDI_RTRANSPORT
     I     iMin,iMax,jMin,jMax,bi,bj,K,
./pkg/gmredi/gmredi_rtransport.F 86 GMREDI_RTRANSPORT
     &   +op5*(_maskW(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 87 GMREDI_RTRANSPORT
     &         *_recip_dxC(i+1,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 88 GMREDI_RTRANSPORT
     &           (Tracer(i+1,j,k,bi,bj)-Tracer(i,j,k,bi,bj))
./pkg/gmredi/gmredi_rtransport.F 89 GMREDI_RTRANSPORT
     &        +_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 90 GMREDI_RTRANSPORT
     &         *_recip_dxC(i,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 91 GMREDI_RTRANSPORT
     &           (Tracer(i,j,k,bi,bj)-Tracer(i-1,j,k,bi,bj)))
./pkg/gmredi/gmredi_rtransport.F 92 GMREDI_RTRANSPORT
     &   +op5*(_maskW(i+1,j,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 93 GMREDI_RTRANSPORT
     &         *_recip_dxC(i+1,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 94 GMREDI_RTRANSPORT
     &           (Tracer(i+1,j,k-1,bi,bj)-Tracer(i,j,k-1,bi,bj))
./pkg/gmredi/gmredi_rtransport.F 95 GMREDI_RTRANSPORT
     &        +_maskW(i,j,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 96 GMREDI_RTRANSPORT
     &         *_recip_dxC(i,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 97 GMREDI_RTRANSPORT
     &           (Tracer(i,j,k-1,bi,bj)-Tracer(i-1,j,k-1,bi,bj)))
./pkg/gmredi/gmredi_calc_tensor.F 108 GMREDI_CALC_TENSOR
         fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 123 GMREDI_CALC_TENSOR
         fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 158 GMREDI_CALC_TENSOR
         Kwx(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 159 GMREDI_CALC_TENSOR
         Kwy(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 160 GMREDI_CALC_TENSOR
         Kwz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 162 GMREDI_CALC_TENSOR
         Kux(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 163 GMREDI_CALC_TENSOR
         Kvy(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 166 GMREDI_CALC_TENSOR
         Kuz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 167 GMREDI_CALC_TENSOR
         Kvz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 170 GMREDI_CALC_TENSOR
         GM_PsiX(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 171 GMREDI_CALC_TENSOR
         GM_PsiY(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 182 GMREDI_CALC_TENSOR
     &                  *maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 185 GMREDI_CALC_TENSOR
     &                  *maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 203 GMREDI_CALC_TENSOR
     I             bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 209 GMREDI_CALC_TENSOR
        SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 210 GMREDI_CALC_TENSOR
        SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 211 GMREDI_CALC_TENSOR
        SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 228 GMREDI_CALC_TENSOR
        Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 229 GMREDI_CALC_TENSOR
        Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 230 GMREDI_CALC_TENSOR
        Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 251 GMREDI_CALC_TENSOR
        IF (K.eq.2) VisbeckK(i,j,bi,bj)=0.
./pkg/gmredi/gmredi_calc_tensor.F 255 GMREDI_CALC_TENSOR
         VisbeckK(i,j,bi,bj)=VisbeckK(i,j,bi,bj)+deltaH
./pkg/gmredi/gmredi_calc_tensor.F 276 GMREDI_CALC_TENSOR
         VisbeckK(i,j,bi,bj)=
./pkg/gmredi/gmredi_calc_tensor.F 277 GMREDI_CALC_TENSOR
     &       MIN(VisbeckK(i,j,bi,bj),GM_Visbeck_maxval_K)
./pkg/gmredi/gmredi_calc_tensor.F 312 GMREDI_CALC_TENSOR
     &          + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx)     
./pkg/gmredi/gmredi_calc_tensor.F 314 GMREDI_CALC_TENSOR
        Kwx(i,j,k,bi,bj)= Kgm_tmp*Kwx(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 315 GMREDI_CALC_TENSOR
        Kwy(i,j,k,bi,bj)= Kgm_tmp*Kwy(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 316 GMREDI_CALC_TENSOR
        Kwz(i,j,k,bi,bj)= ( GM_isopycK
./pkg/gmredi/gmredi_calc_tensor.F 318 GMREDI_CALC_TENSOR
     &                    + VisbeckK(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 320 GMREDI_CALC_TENSOR
     &                    )*Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 330 GMREDI_CALC_TENSOR
     &          *_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 333 GMREDI_CALC_TENSOR
     &          *_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 336 GMREDI_CALC_TENSOR
     &          *_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 354 GMREDI_CALC_TENSOR
     I             bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 368 GMREDI_CALC_TENSOR
          Kux(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 371 GMREDI_CALC_TENSOR
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 37 GMREDI_CALC_TENSOR
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/gmredi/gmredi_calc_tensor.F 384 GMREDI_CALC_TENSOR
          Kux(i,j,k,bi,bj) = MAX( Kux(i,j,k,bi,bj), GM_Kmin_horiz )
./pkg/gmredi/gmredi_calc_tensor.F 398 GMREDI_CALC_TENSOR
          Kuz(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 401 GMREDI_CALC_TENSOR
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*GM_advect
./pkg/gmredi/gmredi_calc_tensor.F 414 GMREDI_CALC_TENSOR
     &          *_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 416 GMREDI_CALC_TENSOR
     &          *_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 419 GMREDI_CALC_TENSOR
     &          *_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 436 GMREDI_CALC_TENSOR
     I             bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 449 GMREDI_CALC_TENSOR
          Kvy(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 452 GMREDI_CALC_TENSOR
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 465 GMREDI_CALC_TENSOR
          Kvy(i,j,k,bi,bj) = MAX( Kvy(i,j,k,bi,bj), GM_Kmin_horiz )
./pkg/gmredi/gmredi_calc_tensor.F 479 GMREDI_CALC_TENSOR
          Kvz(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 482 GMREDI_CALC_TENSOR
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*GM_advect
./pkg/gmredi/gmredi_calc_tensor.F 499 GMREDI_CALC_TENSOR
     I             bi, bj, iMin, iMax, jMin, jMax,
./pkg/gmredi/gmredi_calc_tensor.F 511 GMREDI_CALC_TENSOR
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 513 GMREDI_CALC_TENSOR
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 515 GMREDI_CALC_TENSOR
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 519 GMREDI_CALC_TENSOR
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 525 GMREDI_CALC_TENSOR
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 527 GMREDI_CALC_TENSOR
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 531 GMREDI_CALC_TENSOR
         GM_TimeAve(k,bi,bj)=GM_TimeAve(k,bi,bj)+deltaTclock
./pkg/gmredi/gmredi_calc_tensor.F 542 GMREDI_CALC_TENSOR
         CALL DIAGNOSTICS_FILL(VisbeckK,'GM_VisbK',0,1,1,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 546 GMREDI_CALC_TENSOR
         CALL DIAGNOSTICS_FILL(Kux,'GM_Kux  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 547 GMREDI_CALC_TENSOR
         CALL DIAGNOSTICS_FILL(Kvy,'GM_Kvy  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 551 GMREDI_CALC_TENSOR
         CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 552 GMREDI_CALC_TENSOR
         CALL DIAGNOSTICS_FILL(Kvz,'GM_Kvz  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 555 GMREDI_CALC_TENSOR
         CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 556 GMREDI_CALC_TENSOR
         CALL DIAGNOSTICS_FILL(Kwy,'GM_Kwy  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 557 GMREDI_CALC_TENSOR
         CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 560 GMREDI_CALC_TENSOR
         CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 561 GMREDI_CALC_TENSOR
         CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 574 GMREDI_CALC_TENSOR_DUMMY
     I             bi, bj, iMin, iMax, jMin, jMax,
./pkg/gmredi/gmredi_calc_tensor.F 594 GMREDI_CALC_TENSOR_DUMMY
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/gmredi/gmredi_calc_tensor.F 605 GMREDI_CALC_TENSOR_DUMMY
         Kwx(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_tensor.F 606 GMREDI_CALC_TENSOR_DUMMY
         Kwy(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_tensor.F 607 GMREDI_CALC_TENSOR_DUMMY
         Kwz(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_tensor.F 70 GMREDI_CALC_TENSOR
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_calc_tensor.F 83 GMREDI_CALC_TENSOR
        VisbeckK(i,j,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 8 GMREDI_CALC_TENSOR
     I             bi, bj, iMin, iMax, jMin, jMax,
./pkg/gmredi/gmredi_calc_tensor.F 96 GMREDI_CALC_TENSOR
         IF (fCori(i,j,bi,bj).NE.0.) THEN
./pkg/gmredi/gmredi_calc_tensor.F 97 GMREDI_CALC_TENSOR
           ldd97_LrhoC(i,j) = Cspd/ABS(fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_slope_limit.F 13 GMREDI_SLOPE_LIMIT
     I             bi,bj, myThid )
./pkg/gmredi/gmredi_slope_limit.F 54 GMREDI_SLOPE_LIMIT
      INTEGER bi,bj,K,myThid
./pkg/gmredi/gmredi_slope_limit.F 75 GMREDI_SLOPE_LIMIT
      act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_ytransport.F 102 GMREDI_YTRANSPORT
     &    *Kvy(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 106 GMREDI_YTRANSPORT
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 110 GMREDI_YTRANSPORT
     &    *_recip_dyC(i,j,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 111 GMREDI_YTRANSPORT
     &    *(Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 126 GMREDI_YTRANSPORT
     &       ( maskC(i,j-1,k,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 127 GMREDI_YTRANSPORT
     &           (Tracer(i,j-1,km1,bi,bj)-Tracer(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 128 GMREDI_YTRANSPORT
     &        +maskC(i, j ,k,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 129 GMREDI_YTRANSPORT
     &           (Tracer(i, j ,km1,bi,bj)-Tracer(i, j ,k,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 132 GMREDI_YTRANSPORT
     &       ( maskC(i,j-1,kp1,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 133 GMREDI_YTRANSPORT
     &           (Tracer(i,j-1,k,bi,bj)-Tracer(i,j-1,kp1,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 134 GMREDI_YTRANSPORT
     &        +maskC(i, j ,kp1,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 135 GMREDI_YTRANSPORT
     &           (Tracer(i, j ,k,bi,bj)-Tracer(i, j ,kp1,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 146 GMREDI_YTRANSPORT
          df(i,j) = df(i,j) - yA(i,j)*Kvz(i,j,k,bi,bj)*dTdz(i,j)
./pkg/gmredi/gmredi_ytransport.F 160 GMREDI_YTRANSPORT
         vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_ytransport.F 161 GMREDI_YTRANSPORT
     &                                 -GM_PsiY(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_ytransport.F 162 GMREDI_YTRANSPORT
     &                               *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 172 GMREDI_YTRANSPORT
     &    +vTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 40 GMREDI_YTRANSPORT
      INTEGER iMin,iMax,jMin,jMax,bi,bj,k
./pkg/gmredi/gmredi_ytransport.F 66 GMREDI_YTRANSPORT
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_ytransport.F 7 GMREDI_YTRANSPORT
     I     iMin,iMax,jMin,jMax,bi,bj,K,
./pkg/gmredi/gmredi_calc_diff.F 36 GMREDI_CALC_DIFF
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/gmredi/gmredi_calc_diff.F 52 GMREDI_CALC_DIFF
            KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 61 GMREDI_CALC_DIFF
            KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 7 GMREDI_CALC_DIFF
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/gmredi/gmredi_calc_psi_b.F 103 GMREDI_CALC_PSI_B
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 105 GMREDI_CALC_PSI_B
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 115 GMREDI_CALC_PSI_B
     I             bi, bj, myThid )
./pkg/gmredi/gmredi_calc_psi_b.F 127 GMREDI_CALC_PSI_B
          GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F 130 GMREDI_CALC_PSI_B
     &      +op5*(VisbeckK(i-1,j,bi,bj)+VisbeckK(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F 132 GMREDI_CALC_PSI_B
     &      )*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 137 GMREDI_CALC_PSI_B
         GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F 140 GMREDI_CALC_PSI_B
     &      +op5*(VisbeckK(i,j-1,bi,bj)+VisbeckK(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F 142 GMREDI_CALC_PSI_B
     &      )*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 39 GMREDI_CALC_PSI_B
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/gmredi/gmredi_calc_psi_b.F 60 GMREDI_CALC_PSI_B
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_calc_psi_b.F 8 GMREDI_CALC_PSI_B
     I             bi, bj, iMin, iMax, jMin, jMax,
./pkg/gmredi/gmredi_calc_psi_b.F 95 GMREDI_CALC_PSI_B
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 97 GMREDI_CALC_PSI_B
     &                  *maskW(i,j,k,bi,bj)
./pkg/gchem/gchem_calc_tendency.F 104 GCHEM_CALC_TENDENCY
        CALL CFC11_FORCING( Ptracer     (1-Olx,1-Oly,1,bi,bj,1),
./pkg/gchem/gchem_calc_tendency.F 105 GCHEM_CALC_TENDENCY
     &                      gchemTendency(1-Olx,1-Oly,1,bi,bj,1),
./pkg/gchem/gchem_calc_tendency.F 106 GCHEM_CALC_TENDENCY
     &                      bi, bj, imin, imax, jmin, jmax,
./pkg/gchem/gchem_calc_tendency.F 108 GCHEM_CALC_TENDENCY
        CALL CFC12_FORCING( Ptracer     (1-Olx,1-Oly,1,bi,bj,2),
./pkg/gchem/gchem_calc_tendency.F 109 GCHEM_CALC_TENDENCY
     &                      gchemTendency(1-Olx,1-Oly,1,bi,bj,2),
./pkg/gchem/gchem_calc_tendency.F 110 GCHEM_CALC_TENDENCY
     &                      bi, bj, imin, imax, jmin, jmax,
./pkg/gchem/gchem_calc_tendency.F 51 GCHEM_CALC_TENDENCY
      INTEGER bi,bj,imin,imax,jmin,jmax,k
./pkg/gchem/gchem_calc_tendency.F 61 GCHEM_CALC_TENDENCY
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gchem/gchem_calc_tendency.F 66 GCHEM_CALC_TENDENCY
            gchemTendency(I,J,K,bi,bj,iTracer) = 0. _d 0
./pkg/gchem/gchem_calc_tendency.F 80 GCHEM_CALC_TENDENCY
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gchem/gchem_forcing_sep.F 100 GCHEM_FORCING_SEP
     &                          Ptracer(1-Olx,1-Oly,1,bi,bj,2),
./pkg/gchem/gchem_forcing_sep.F 101 GCHEM_FORCING_SEP
     &                          Ptracer(1-Olx,1-Oly,1,bi,bj,3),
./pkg/gchem/gchem_forcing_sep.F 102 GCHEM_FORCING_SEP
     &                          Ptracer(1-Olx,1-Oly,1,bi,bj,4),
./pkg/gchem/gchem_forcing_sep.F 103 GCHEM_FORCING_SEP
     &                          Ptracer(1-Olx,1-Oly,1,bi,bj,5),
./pkg/gchem/gchem_forcing_sep.F 104 GCHEM_FORCING_SEP
     &                          bi,bj,imin,imax,jmin,jmax,
./pkg/gchem/gchem_forcing_sep.F 41 GCHEM_FORCING_SEP
      INTEGER bi,bj,imin,imax,jmin,jmax
./pkg/gchem/gchem_forcing_sep.F 77 GCHEM_FORCING_SEP
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gchem/gchem_forcing_sep.F 90 GCHEM_FORCING_SEP
          call DIC_BIOTIC_FORCING( Ptracer(1-Olx,1-Oly,1,bi,bj,1),
./pkg/gchem/gchem_forcing_sep.F 91 GCHEM_FORCING_SEP
     &                          Ptracer(1-Olx,1-Oly,1,bi,bj,2),
./pkg/gchem/gchem_forcing_sep.F 92 GCHEM_FORCING_SEP
     &                          Ptracer(1-Olx,1-Oly,1,bi,bj,3),
./pkg/gchem/gchem_forcing_sep.F 93 GCHEM_FORCING_SEP
     &                          Ptracer(1-Olx,1-Oly,1,bi,bj,4),
./pkg/gchem/gchem_forcing_sep.F 94 GCHEM_FORCING_SEP
     &                          Ptracer(1-Olx,1-Oly,1,bi,bj,5),
./pkg/gchem/gchem_forcing_sep.F 95 GCHEM_FORCING_SEP
     &                          Ptracer(1-Olx,1-Oly,1,bi,bj,6),
./pkg/gchem/gchem_forcing_sep.F 96 GCHEM_FORCING_SEP
     &                          bi,bj,imin,imax,jmin,jmax,
./pkg/gchem/gchem_forcing_sep.F 99 GCHEM_FORCING_SEP
          call DIC_BIOTIC_FORCING( Ptracer(1-Olx,1-Oly,1,bi,bj,1),
./model/src/calc_gt.F 110 CALC_GT
     I     iMin,iMax,jMin,jMax,bi,bj,k,
./model/src/calc_gt.F 118 CALC_GT
     I                        bi, bj, k,
./model/src/calc_gt.F 11 CALC_GT
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gt.F 123 CALC_GT
     I                        bi, bj, k,
./model/src/calc_gt.F 132 CALC_GT
     I     iMin,iMax,jMin,jMax,bi,bj,k,
./model/src/calc_gt.F 138 CALC_GT
     I                          bi, bj, k,
./model/src/calc_gt.F 144 CALC_GT
     I                          bi, bj, k,
./model/src/calc_gt.F 148 CALC_GT
     I                          bi, bj, k,
./model/src/calc_gt.F 153 CALC_GT
     I                          bi, bj, k,
./model/src/calc_gt.F 79 CALC_GT
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./model/src/calc_gt.F 98 CALC_GT
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./pkg/gchem/gchem_add_tendency.F 10 GCHEM_ADD_TENDENCY
      SUBROUTINE GCHEM_ADD_TENDENCY(bi,bj,iMin,iMax,jMin,jMax,k,
./pkg/gchem/gchem_add_tendency.F 42 GCHEM_ADD_TENDENCY
      INTEGER bi,bj,imin,imax,jmin,jmax,k
./pkg/gchem/gchem_add_tendency.F 59 GCHEM_ADD_TENDENCY
        gPtr(I,J,K,bi,bj,iTracer) = gPtr(I,J,K,bi,bj,iTracer)
./pkg/gchem/gchem_add_tendency.F 60 GCHEM_ADD_TENDENCY
     &       + gchemTendency(I,J,K,bi,bj,iTracer)
./pkg/pp81/pp81_calc_diff.F 37 PP81_CALC_DIFF
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/pp81/pp81_calc_diff.F 54 PP81_CALC_DIFF
     &                  +( PPdiffKr(i,j,k,bi,bj)
./pkg/pp81/pp81_calc_diff.F 56 PP81_CALC_DIFF
     &                     - diffKr(i,j,k,bi,bj) )
./pkg/pp81/pp81_calc_diff.F 69 PP81_CALC_DIFF
     &                  +( PPdiffKr(i,j,kArg,bi,bj)
./pkg/pp81/pp81_calc_diff.F 71 PP81_CALC_DIFF
     &                     - diffKr(i,j,kArg,bi,bj) )
./pkg/pp81/pp81_calc_diff.F 7 PP81_CALC_DIFF
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/pp81/pp81_calc_visc.F 30 PP81_CALC_VISC
      INTEGER bi,bj,iMin,iMax,jMin,jMax,K
./pkg/pp81/pp81_calc_visc.F 45 PP81_CALC_VISC
     &         KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) *
./pkg/pp81/pp81_calc_visc.F 46 PP81_CALC_VISC
     &         0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i-1,j,k,bi,bj)) )
./pkg/pp81/pp81_calc_visc.F 53 PP81_CALC_VISC
     &         KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) *
./pkg/pp81/pp81_calc_visc.F 54 PP81_CALC_VISC
     &         0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i,j-1,k,bi,bj)) )
./pkg/pp81/pp81_calc_visc.F 6 PP81_CALC_VISC
     I        bi,bj,iMin,iMax,jMin,jMax,K,
./model/src/convective_adjustment.F 119 CONVECTIVE_ADJUSTMENT
     I           bi,bj,iMin,iMax,jMin,jMax,K-1,K+deltaK,
./model/src/convective_adjustment.F 11 CONVECTIVE_ADJUSTMENT
     I       bi, bj, iMin, iMax, jMin, jMax,
./model/src/convective_adjustment.F 130 CONVECTIVE_ADJUSTMENT
     I           bi,bj,iMin,iMax,jMin,jMax,K,K+deltaK,
./model/src/convective_adjustment.F 147 CONVECTIVE_ADJUSTMENT
     I           bi,bj,K,rhoKm1,rhoK,
./model/src/convective_adjustment.F 153 CONVECTIVE_ADJUSTMENT
     I                              bi,bj,k,weightA,weightB,
./model/src/convective_adjustment.F 159 CONVECTIVE_ADJUSTMENT
     I                              bi,bj,k,weightA,weightB,
./model/src/convective_adjustment.F 167 CONVECTIVE_ADJUSTMENT
     I                              bi,bj,k,weightA,weightB,myThid)
./model/src/convective_adjustment.F 179 CONVECTIVE_ADJUSTMENT
     I                            Nr, deltaTclock, bi, bj, myThid)
./model/src/convective_adjustment.F 44 CONVECTIVE_ADJUSTMENT
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./model/src/convective_adjustment.F 85 CONVECTIVE_ADJUSTMENT
          act2 = bj - myByLo(myThid)
./pkg/pp81/pp81_do_diags.F 118 PP81_DO_DIAGS
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/pp81/pp81_do_diags.F 120 PP81_DO_DIAGS
         CALL TIMEAVE_RESET(PPviscArtave, Nr,bi,bj,myThid)
./pkg/pp81/pp81_do_diags.F 121 PP81_DO_DIAGS
         CALL TIMEAVE_RESET(PPdiffKrtave,Nr,bi,bj,myThid)
./pkg/pp81/pp81_do_diags.F 123 PP81_DO_DIAGS
          pp_TimeAve(k,bi,bj)=0.
./pkg/pp81/pp81_do_diags.F 137 PP81_DO_DIAGS
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/pp81/pp81_do_diags.F 140 PP81_DO_DIAGS
     &       PPviscArtave, PPviscAr, Nr,DDTT,bi,bj,myThid)
./pkg/pp81/pp81_do_diags.F 142 PP81_DO_DIAGS
     &       PPdiffKrtave,PPdiffKr,Nr,DDTT,bi,bj,myThid)
./pkg/pp81/pp81_do_diags.F 145 PP81_DO_DIAGS
         pp_TimeAve(k,bi,bj)=pp_TimeAve(k,bi,bj)+DDTT
./pkg/pp81/pp81_do_diags.F 156 PP81_DO_DIAGS
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/pp81/pp81_do_diags.F 159 PP81_DO_DIAGS
     &        Nr, bi,bj,myThid)
./pkg/pp81/pp81_do_diags.F 161 PP81_DO_DIAGS
     &        Nr, bi,bj,myThid)
./pkg/pp81/pp81_do_diags.F 188 PP81_DO_DIAGS
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/pp81/pp81_do_diags.F 190 PP81_DO_DIAGS
         CALL TIMEAVE_RESET(PPviscArtave, Nr,bi,bj,myThid)
./pkg/pp81/pp81_do_diags.F 191 PP81_DO_DIAGS
         CALL TIMEAVE_RESET(PPdiffKrtave,Nr,bi,bj,myThid)
./pkg/pp81/pp81_do_diags.F 193 PP81_DO_DIAGS
          pp_TimeAve(k,bi,bj)=0.
./pkg/pp81/pp81_do_diags.F 200 PP81_DO_DIAGS
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/pp81/pp81_do_diags.F 203 PP81_DO_DIAGS
     &        PPviscArtave, PPviscAr, Nr,DDTT,bi,bj,myThid)
./pkg/pp81/pp81_do_diags.F 205 PP81_DO_DIAGS
     &        PPdiffKrtave,PPdiffKr,Nr,DDTT,bi,bj,myThid)
./pkg/pp81/pp81_do_diags.F 208 PP81_DO_DIAGS
          pp_TimeAve(k,bi,bj)=pp_TimeAve(k,bi,bj)+DDTT
./pkg/pp81/pp81_do_diags.F 66 PP81_DO_DIAGS
      INTEGER bi, bj, K
./pkg/pp81/pp81_calc.F 101 PP81_CALC
          PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj))
./pkg/pp81/pp81_calc.F 102 PP81_CALC
          PPdiffKr(I,J,K,bi,bj) = MAX(PPdiffMin,PPdiffKr(I,J,K,bi,bj))
./pkg/pp81/pp81_calc.F 110 PP81_CALC
         PPviscAr(I,J,K,bi,bj) = PPviscAr(I,J,K,bi,bj)
./pkg/pp81/pp81_calc.F 111 PP81_CALC
     &        * maskC(I,J,K,bi,bj)
./pkg/pp81/pp81_calc.F 112 PP81_CALC
         PPdiffKr(I,J,K,bi,bj) = PPdiffKr(I,J,K,bi,bj)
./pkg/pp81/pp81_calc.F 113 PP81_CALC
     &        * maskC(I,J,K,bi,bj)
./pkg/pp81/pp81_calc.F 11 PP81_CALC
     I     bi, bj, myTime, myThid )
./pkg/pp81/pp81_calc.F 50 PP81_CALC
      INTEGER bi, bj
./pkg/pp81/pp81_calc.F 72 PP81_CALC
     I      bi, bj, K, iMin, iMax, jMin, jMax, 
./pkg/pp81/pp81_calc.F 85 PP81_CALC
         PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscAr)
./pkg/pp81/pp81_calc.F 86 PP81_CALC
         PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom,
./pkg/pp81/pp81_ri_number.F 101 PP81_RI_NUMBER
     I     bi, bj, iMin, iMax, jMin, jMax, K, K,
./pkg/pp81/pp81_ri_number.F 110 PP81_RI_NUMBER
        tempu= .5*(  uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj)
./pkg/pp81/pp81_ri_number.F 111 PP81_RI_NUMBER
     &            - (uVel(I,J,K  ,bi,bj)+uVel(I+1,J,K  ,bi,bj)) )
./pkg/pp81/pp81_ri_number.F 113 PP81_RI_NUMBER
        tempv= .5*(  vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj)
./pkg/pp81/pp81_ri_number.F 114 PP81_RI_NUMBER
     &            - (vVel(I,J,K  ,bi,bj)+vVel(I,J+1,K  ,bi,bj)) )
./pkg/pp81/pp81_ri_number.F 11 PP81_RI_NUMBER
     I     bi, bj, K, iMin, iMax, jMin, jMax, 
./pkg/pp81/pp81_ri_number.F 49 PP81_RI_NUMBER
      INTEGER bi, bj, iMin, iMax, jMin, jMax, k
./pkg/pp81/pp81_ri_number.F 96 PP81_RI_NUMBER
     I     bi, bj, iMin, iMax, jMin, jMax, Km1, K,
./pkg/pp81/pp81_init.F 31 PP81_INIT
      INTEGER i, j, k, bi, bj
./pkg/pp81/pp81_init.F 37 PP81_INIT
      do bj = myByLo(myThid), myByHi(myThid)
./pkg/pp81/pp81_init.F 42 PP81_INIT
           PPviscAr (i,j,k,bi,bj) = viscAr
./pkg/pp81/pp81_init.F 43 PP81_INIT
           PPdiffKr (i,j,k,bi,bj) = diffKrNrT(k)
./pkg/aim_compon_interf/atm_export_evmpr.F 39 ATM_EXPORT_EVMPR
      INTEGER bj
./pkg/aim_compon_interf/atm_export_evmpr.F 43 ATM_EXPORT_EVMPR
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_evmpr.F 45 ATM_EXPORT_EVMPR
        IF ( ABS(EvMPrTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/aim_compon_interf/atm_export_evmpr.F 46 ATM_EXPORT_EVMPR
     &     .AND. EvMPrTime(bi,bj) .NE. 0. ) THEN 
./pkg/aim_compon_interf/atm_export_evmpr.F 47 ATM_EXPORT_EVMPR
         recipAvT = 1. _d 0/EvMPrTime(bi,bj)
./pkg/aim_compon_interf/atm_export_evmpr.F 50 ATM_EXPORT_EVMPR
           EvMPrFlux(I,J,bi,bj) = EvMPrFlux(I,J,bi,bj)*recipAvT
./pkg/aim_compon_interf/atm_export_evmpr.F 54 ATM_EXPORT_EVMPR
     &                             bi,bj,1.-EvMPrTime(bi,bj)
./pkg/aim_compon_interf/atm_export_evmpr.F 64 ATM_EXPORT_EVMPR
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_evmpr.F 66 ATM_EXPORT_EVMPR
        EvMPrTime(bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_evmpr.F 69 ATM_EXPORT_EVMPR
          EvMPrFlux(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_taux.F 39 ATM_EXPORT_TAUX
      INTEGER bj
./pkg/aim_compon_interf/atm_export_taux.F 43 ATM_EXPORT_TAUX
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_taux.F 45 ATM_EXPORT_TAUX
        IF ( ABS(tauXTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/aim_compon_interf/atm_export_taux.F 46 ATM_EXPORT_TAUX
     &     .AND. tauXTime(bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_export_taux.F 47 ATM_EXPORT_TAUX
         recipAvT = 1. _d 0/tauXTime(bi,bj)
./pkg/aim_compon_interf/atm_export_taux.F 50 ATM_EXPORT_TAUX
           tauX(I,J,bi,bj) = tauX(I,J,bi,bj)*recipAvT
./pkg/aim_compon_interf/atm_export_taux.F 54 ATM_EXPORT_TAUX
     &                             bi,bj,1.-tauXTime(bi,bj)
./pkg/aim_compon_interf/atm_export_taux.F 64 ATM_EXPORT_TAUX
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_taux.F 66 ATM_EXPORT_TAUX
        tauXTime(bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_taux.F 69 ATM_EXPORT_TAUX
          tauX(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_saltfx.F 39 ATM_EXPORT_SALTFX
      INTEGER bj
./pkg/aim_compon_interf/atm_export_saltfx.F 43 ATM_EXPORT_SALTFX
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_saltfx.F 45 ATM_EXPORT_SALTFX
        IF ( ABS(saltFxTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/aim_compon_interf/atm_export_saltfx.F 46 ATM_EXPORT_SALTFX
     &     .AND. saltFxTime(bi,bj) .NE. 0. ) THEN 
./pkg/aim_compon_interf/atm_export_saltfx.F 47 ATM_EXPORT_SALTFX
         recipAvT = 1. _d 0/saltFxTime(bi,bj)
./pkg/aim_compon_interf/atm_export_saltfx.F 50 ATM_EXPORT_SALTFX
           iceSaltFlx(I,J,bi,bj) = iceSaltFlx(I,J,bi,bj)*recipAvT
./pkg/aim_compon_interf/atm_export_saltfx.F 54 ATM_EXPORT_SALTFX
     &                             bi,bj,1.-saltFxTime(bi,bj)
./pkg/aim_compon_interf/atm_export_saltfx.F 64 ATM_EXPORT_SALTFX
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_saltfx.F 66 ATM_EXPORT_SALTFX
        saltFxTime(bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_saltfx.F 69 ATM_EXPORT_SALTFX
          iceSaltFlx(I,J,bi,bj) = 0.
./model/src/calc_common_factors.F 104 CALC_COMMON_FACTORS
        uTrans(i,j) = uVel(i,j,k,bi,bj)*xA(i,j)
./model/src/calc_common_factors.F 105 CALC_COMMON_FACTORS
        vTrans(i,j) = vVel(i,j,k,bi,bj)*yA(i,j)
./model/src/calc_common_factors.F 10 CALC_COMMON_FACTORS
     I        bi,bj,iMin,iMax,jMin,jMax,k,
./model/src/calc_common_factors.F 113 CALC_COMMON_FACTORS
          rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj)*maskUp(i,j)
./model/src/calc_common_factors.F 48 CALC_COMMON_FACTORS
      INTEGER bi,bj,iMin,iMax,jMin,jMax,k
./model/src/calc_common_factors.F 85 CALC_COMMON_FACTORS
          maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./model/src/calc_common_factors.F 93 CALC_COMMON_FACTORS
        xA(i,j) = _dyG(i,j,bi,bj)
./model/src/calc_common_factors.F 94 CALC_COMMON_FACTORS
     &   *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/calc_common_factors.F 95 CALC_COMMON_FACTORS
        yA(i,j) = _dxG(i,j,bi,bj)
./model/src/calc_common_factors.F 96 CALC_COMMON_FACTORS
     &   *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_export_atmslp.F 39 ATM_EXPORT_ATMSLP
      INTEGER bj
./pkg/aim_compon_interf/atm_export_atmslp.F 43 ATM_EXPORT_ATMSLP
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_atmslp.F 45 ATM_EXPORT_ATMSLP
        IF ( ABS(atmSLPrTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/aim_compon_interf/atm_export_atmslp.F 46 ATM_EXPORT_ATMSLP
     &     .AND. atmSLPrTime(bi,bj) .NE. 0. ) THEN 
./pkg/aim_compon_interf/atm_export_atmslp.F 47 ATM_EXPORT_ATMSLP
         recipAvT = 1. _d 0/atmSLPrTime(bi,bj)
./pkg/aim_compon_interf/atm_export_atmslp.F 50 ATM_EXPORT_ATMSLP
           atmSLPr(I,J,bi,bj) = atmSLPr(I,J,bi,bj)*recipAvT
./pkg/aim_compon_interf/atm_export_atmslp.F 54 ATM_EXPORT_ATMSLP
     &                             bi,bj,1.-atmSLPrTime(bi,bj)
./pkg/aim_compon_interf/atm_export_atmslp.F 64 ATM_EXPORT_ATMSLP
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_atmslp.F 66 ATM_EXPORT_ATMSLP
        atmSLPrTime(bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_atmslp.F 69 ATM_EXPORT_ATMSLP
          atmSLPr(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/cpl_exch_configs.F 43 CPL_EXCH_CONFIGS
      INTEGER I,J,K,bi,bj
./pkg/aim_compon_interf/cpl_exch_configs.F 78 CPL_EXCH_CONFIGS
      DO bj=myByLo(myTHid),myByHi(myThid)
./pkg/aim_compon_interf/cpl_exch_configs.F 82 CPL_EXCH_CONFIGS
          IF ( ocMxlD(I,J,bi,bj)  .NE. seaSurface_ocn  .AND.
./pkg/aim_compon_interf/cpl_exch_configs.F 83 CPL_EXCH_CONFIGS
     &         Ro_surf(I,J,bi,bj) .NE. groundLevel_atm ) THEN
./pkg/aim_compon_interf/cpl_exch_configs.F 87 CPL_EXCH_CONFIGS
           bjDiff = bj
./pkg/aim_compon_interf/cpl_exch_configs.F 93 CPL_EXCH_CONFIGS
     &     'H (atmosphere) ==',Ro_surf(I,J,bi,bj)
./pkg/aim_compon_interf/cpl_exch_configs.F 96 CPL_EXCH_CONFIGS
     &     'H (ocean)      ==',ocMxlD(I,J,bi,bj)
./pkg/aim_compon_interf/atm_store_seaice.F 40 ATM_STORE_SEAICE
      INTEGER bi, bj
./pkg/aim_compon_interf/atm_store_seaice.F 55 ATM_STORE_SEAICE
       seaIceTime(bi,bj) = seaIceTime(bi,bj) + cplTimeFraction
./pkg/aim_compon_interf/atm_store_seaice.F 58 ATM_STORE_SEAICE
       seaIceTime(bi,bj) = cplTimeFraction
./pkg/aim_compon_interf/atm_store_seaice.F 62 ATM_STORE_SEAICE
          seaIceMass(i,j,bi,bj) = 
./pkg/aim_compon_interf/atm_store_seaice.F 63 ATM_STORE_SEAICE
     &                   ( snowHeight(i,j,bi,bj)*rhos 
./pkg/aim_compon_interf/atm_store_seaice.F 64 ATM_STORE_SEAICE
     &                    + iceHeight(i,j,bi,bj)*rhoi 
./pkg/aim_compon_interf/atm_store_seaice.F 65 ATM_STORE_SEAICE
     &                   )*iceMask(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_seaice.F 8 ATM_STORE_SEAICE
      SUBROUTINE ATM_STORE_SEAICE( bi,bj,
./pkg/aim_compon_interf/cpl_register.F 34 CPL_REGISTER
      INTEGER bi,bj,J
./pkg/aim_compon_interf/cpl_register.F 42 CPL_REGISTER
      DO bj=1,nSy
./pkg/aim_compon_interf/cpl_register.F 44 CPL_REGISTER
        jG0 = myYGlobalLo+(bj-1)*sNy
./pkg/aim_compon_interf/cpl_register.F 46 CPL_REGISTER
        IREG(1,bi,bj)=sNx
./pkg/aim_compon_interf/cpl_register.F 47 CPL_REGISTER
        IREG(2,bi,bj)=sNy
./pkg/aim_compon_interf/cpl_register.F 48 CPL_REGISTER
        IREG(3,bi,bj)=iG0
./pkg/aim_compon_interf/cpl_register.F 49 CPL_REGISTER
        IREG(4,bi,bj)=jG0
./pkg/aim_compon_interf/atm_apply_import.F 105 ATM_APPLY_IMPORT
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/aim_compon_interf/atm_apply_import.F 106 ATM_APPLY_IMPORT
            v2ocMxL(i,j,bi,bj) = vSqocn(i,j,bi,bj)
./pkg/aim_compon_interf/atm_apply_import.F 120 ATM_APPLY_IMPORT
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/aim_compon_interf/atm_apply_import.F 124 ATM_APPLY_IMPORT
            aimTsoce(i,j) = SSTocn(i,j,bi,bj)+celsius2K
./pkg/aim_compon_interf/atm_apply_import.F 125 ATM_APPLY_IMPORT
           ELSEIF ( SSTocn(i,j,bi,bj).GE. -1. _d 0)  THEN
./pkg/aim_compon_interf/atm_apply_import.F 128 ATM_APPLY_IMPORT
            aimTsoce(i,j) = SSTocn(i,j,bi,bj)+celsius2K
./pkg/aim_compon_interf/atm_apply_import.F 13 ATM_APPLY_IMPORT
     I               myTime, myIter, bi, bj, myThid )
./pkg/aim_compon_interf/atm_apply_import.F 54 ATM_APPLY_IMPORT
      INTEGER myIter, bi, bj, myThid
./pkg/aim_compon_interf/atm_apply_import.F 72 ATM_APPLY_IMPORT
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/aim_compon_interf/atm_apply_import.F 73 ATM_APPLY_IMPORT
            hOceMxL(i,j,bi,bj) = ocMxlD(i,j,bi,bj)
./pkg/aim_compon_interf/atm_apply_import.F 83 ATM_APPLY_IMPORT
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/aim_compon_interf/atm_apply_import.F 84 ATM_APPLY_IMPORT
            tOceMxL(i,j,bi,bj) = SSTocn(i,j,bi,bj)
./pkg/aim_compon_interf/atm_apply_import.F 94 ATM_APPLY_IMPORT
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/aim_compon_interf/atm_apply_import.F 95 ATM_APPLY_IMPORT
            sOceMxL(i,j,bi,bj) = SSSocn(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_qshortwave.F 36 ATM_STORE_QSHORTWAVE
      INTEGER bi, bj
./pkg/aim_compon_interf/atm_store_qshortwave.F 52 ATM_STORE_QSHORTWAVE
       qShortWaveTime(bi,bj) = qShortWaveTime(bi,bj) + cplTimeFraction
./pkg/aim_compon_interf/atm_store_qshortwave.F 55 ATM_STORE_QSHORTWAVE
          qShortWave(i,j,bi,bj) = qShortWave(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_qshortwave.F 56 ATM_STORE_QSHORTWAVE
     &                          + Qsw(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_qshortwave.F 7 ATM_STORE_QSHORTWAVE
      SUBROUTINE ATM_STORE_QSHORTWAVE(bi,bj,
./pkg/aim_compon_interf/atm_export_seaice.F 39 ATM_EXPORT_SEAICE
      INTEGER bj
./pkg/aim_compon_interf/atm_export_seaice.F 43 ATM_EXPORT_SEAICE
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_seaice.F 45 ATM_EXPORT_SEAICE
        IF ( ABS(seaIceTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/aim_compon_interf/atm_export_seaice.F 46 ATM_EXPORT_SEAICE
     &     .AND. seaIceTime(bi,bj) .NE. 0. ) THEN 
./pkg/aim_compon_interf/atm_export_seaice.F 47 ATM_EXPORT_SEAICE
         recipAvT = 1. _d 0/seaIceTime(bi,bj)
./pkg/aim_compon_interf/atm_export_seaice.F 50 ATM_EXPORT_SEAICE
           seaIceMass(I,J,bi,bj) = seaIceMass(I,J,bi,bj)*recipAvT
./pkg/aim_compon_interf/atm_export_seaice.F 54 ATM_EXPORT_SEAICE
     &                             bi,bj,1.-seaIceTime(bi,bj)
./pkg/aim_compon_interf/atm_export_seaice.F 64 ATM_EXPORT_SEAICE
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_seaice.F 66 ATM_EXPORT_SEAICE
        seaIceTime(bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_seaice.F 69 ATM_EXPORT_SEAICE
          seaIceMass(I,J,bi,bj) = 0.
./model/src/calc_viscosity.F 11 CALC_VISCOSITY
     I        bi,bj,iMin,iMax,jMin,jMax,K,
./model/src/calc_viscosity.F 37 CALC_VISCOSITY
      INTEGER bi,bj,iMin,iMax,jMin,jMax,K
./model/src/calc_viscosity.F 62 CALC_VISCOSITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,K,
./model/src/calc_viscosity.F 69 CALC_VISCOSITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,K,
./model/src/calc_viscosity.F 76 CALC_VISCOSITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,K,
./model/src/calc_viscosity.F 83 CALC_VISCOSITY
     I        bi,bj,iMin+1,iMax,jMin+1,jMax,K,
./pkg/aim_compon_interf/atm_export_qshortwave.F 39 ATM_EXPORT_QSHORTWAVE
      INTEGER bj
./pkg/aim_compon_interf/atm_export_qshortwave.F 43 ATM_EXPORT_QSHORTWAVE
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_qshortwave.F 45 ATM_EXPORT_QSHORTWAVE
        IF ( ABS(qShortWaveTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/aim_compon_interf/atm_export_qshortwave.F 46 ATM_EXPORT_QSHORTWAVE
     &     .AND. qShortWaveTime(bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_export_qshortwave.F 47 ATM_EXPORT_QSHORTWAVE
         recipAvT = 1. _d 0/qShortWaveTime(bi,bj)
./pkg/aim_compon_interf/atm_export_qshortwave.F 50 ATM_EXPORT_QSHORTWAVE
           qShortWave(I,J,bi,bj) = qShortWave(I,J,bi,bj)*recipAvT
./pkg/aim_compon_interf/atm_export_qshortwave.F 54 ATM_EXPORT_QSHORTWAVE
     &                             bi,bj,1.-qShortWaveTime(bi,bj)
./pkg/aim_compon_interf/atm_export_qshortwave.F 64 ATM_EXPORT_QSHORTWAVE
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_qshortwave.F 66 ATM_EXPORT_QSHORTWAVE
        qShortWaveTime(bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_qshortwave.F 69 ATM_EXPORT_QSHORTWAVE
          qShortWave(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/atm_store_roenfx.F 45 ATM_STORE_ROENFX
      INTEGER bi, bj
./pkg/aim_compon_interf/atm_store_roenfx.F 60 ATM_STORE_ROENFX
       ROEnFxTime(bi,bj) = ROEnFxTime(bi,bj) + cplTimeFraction
./pkg/aim_compon_interf/atm_store_roenfx.F 63 ATM_STORE_ROENFX
          RunOffEnFx(i,j,bi,bj) = RunOffEnFx(i,j,bi,bj) 
./pkg/aim_compon_interf/atm_store_roenfx.F 64 ATM_STORE_ROENFX
     &                 + land_enRnOf(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_roenfx.F 8 ATM_STORE_ROENFX
      SUBROUTINE ATM_STORE_ROENFX( bi,bj,
./pkg/aim_compon_interf/atm_store_runoff.F 45 ATM_STORE_RUNOFF
      INTEGER bi, bj
./pkg/aim_compon_interf/atm_store_runoff.F 61 ATM_STORE_RUNOFF
       RunOffTime(bi,bj) = RunOffTime(bi,bj) + cplTimeFraction
./pkg/aim_compon_interf/atm_store_runoff.F 64 ATM_STORE_RUNOFF
          RunOffFlux(I,J,bi,bj) = RunOffFlux(I,J,bi,bj) 
./pkg/aim_compon_interf/atm_store_runoff.F 65 ATM_STORE_RUNOFF
     &                 + land_runOff(I,J,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_runoff.F 8 ATM_STORE_RUNOFF
      SUBROUTINE ATM_STORE_RUNOFF( bi,bj,
./pkg/aim_compon_interf/atm_export_roenfx.F 39 ATM_EXPORT_ROENFX
      INTEGER bj
./pkg/aim_compon_interf/atm_export_roenfx.F 43 ATM_EXPORT_ROENFX
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_roenfx.F 45 ATM_EXPORT_ROENFX
        IF ( ABS(ROEnFxTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/aim_compon_interf/atm_export_roenfx.F 46 ATM_EXPORT_ROENFX
     &     .AND. ROEnFxTime(bi,bj) .NE. 0. ) THEN 
./pkg/aim_compon_interf/atm_export_roenfx.F 47 ATM_EXPORT_ROENFX
         recipAvT = 1. _d 0/ROEnFxTime(bi,bj)
./pkg/aim_compon_interf/atm_export_roenfx.F 50 ATM_EXPORT_ROENFX
           RunOffEnFx(I,J,bi,bj) = RunOffEnFx(I,J,bi,bj)*recipAvT
./pkg/aim_compon_interf/atm_export_roenfx.F 54 ATM_EXPORT_ROENFX
     &                             bi,bj,1.-ROEnFxTime(bi,bj)
./pkg/aim_compon_interf/atm_export_roenfx.F 64 ATM_EXPORT_ROENFX
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_roenfx.F 66 ATM_EXPORT_ROENFX
        ROEnFxTime(bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_roenfx.F 69 ATM_EXPORT_ROENFX
          RunOffEnFx(I,J,bi,bj) = 0.
./model/src/adams_bashforth2.F 10 ADAMS_BASHFORTH2
     I                     bi, bj, k,
./model/src/adams_bashforth2.F 35 ADAMS_BASHFORTH2
      INTEGER bi,bj,k
./model/src/adams_bashforth2.F 63 ADAMS_BASHFORTH2
        gTrtmp = ab15*gTracer(i,j,k,bi,bj) 
./model/src/adams_bashforth2.F 64 ADAMS_BASHFORTH2
     &         + ab05*gTrNm1(i,j,k,bi,bj)
./model/src/adams_bashforth2.F 65 ADAMS_BASHFORTH2
        gTrNm1(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj)
./model/src/adams_bashforth2.F 66 ADAMS_BASHFORTH2
        gTracer(i,j,k,bi,bj) = gTrtmp
./pkg/aim_compon_interf/atm_store_saltfx.F 36 ATM_STORE_SALTFX
      INTEGER bi, bj
./pkg/aim_compon_interf/atm_store_saltfx.F 51 ATM_STORE_SALTFX
       saltFxTime(bi,bj) = saltFxTime(bi,bj) + cplTimeFraction
./pkg/aim_compon_interf/atm_store_saltfx.F 54 ATM_STORE_SALTFX
          iceSaltFlx(i,j,bi,bj) = iceSaltFlx(i,j,bi,bj) 
./pkg/aim_compon_interf/atm_store_saltfx.F 55 ATM_STORE_SALTFX
     &                 + saltFlux(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_saltfx.F 7 ATM_STORE_SALTFX
      SUBROUTINE ATM_STORE_SALTFX( bi,bj,
./pkg/aim_compon_interf/cpl_ini_vars.F 37 CPL_INI_VARS
      INTEGER I,J,bi,bj
./pkg/aim_compon_interf/cpl_ini_vars.F 39 CPL_INI_VARS
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/cpl_ini_vars.F 44 CPL_INI_VARS
          atmSLPr(   I,J,bi,bj) = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 45 CPL_INI_VARS
          HeatFlux(  I,J,bi,bj) = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 46 CPL_INI_VARS
          qShortWave(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 52 CPL_INI_VARS
          tauX(      I,J,bi,bj) = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 53 CPL_INI_VARS
          tauY(      I,J,bi,bj) = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 54 CPL_INI_VARS
          EvMPrFlux( I,J,bi,bj) = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 55 CPL_INI_VARS
          RunOffFlux(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 56 CPL_INI_VARS
          RunOffEnFx(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 57 CPL_INI_VARS
          iceSaltFlx(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 58 CPL_INI_VARS
          seaIceMass(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 61 CPL_INI_VARS
          SSTocn (I,J,bi,bj)    = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 62 CPL_INI_VARS
          SSSocn (I,J,bi,bj)    = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 63 CPL_INI_VARS
          vSqocn (I,J,bi,bj)    = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 66 CPL_INI_VARS
        atmSLPrTime(bi,bj)    = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 67 CPL_INI_VARS
        HeatFluxTime(bi,bj)   = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 68 CPL_INI_VARS
        qShortwaveTime(bi,bj) = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 74 CPL_INI_VARS
        tauXTime(bi,bj)       = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 75 CPL_INI_VARS
        tauYTime(bi,bj)       = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 76 CPL_INI_VARS
        EvMPrTime(bi,bj)      = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 77 CPL_INI_VARS
        RunOffTime(bi,bj)     = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 78 CPL_INI_VARS
        ROEnFxTime(bi,bj)     = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 79 CPL_INI_VARS
        saltFxTime(bi,bj)     = 0.
./pkg/aim_compon_interf/cpl_ini_vars.F 80 CPL_INI_VARS
        seaIceTime(bi,bj)     = 0.
./pkg/aim_compon_interf/atm_export_heatflux.F 39 ATM_EXPORT_HEATFLUX
      INTEGER bj
./pkg/aim_compon_interf/atm_export_heatflux.F 43 ATM_EXPORT_HEATFLUX
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_heatflux.F 45 ATM_EXPORT_HEATFLUX
        IF ( ABS(HeatFluxTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/aim_compon_interf/atm_export_heatflux.F 46 ATM_EXPORT_HEATFLUX
     &     .AND. HeatFluxTime(bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_export_heatflux.F 47 ATM_EXPORT_HEATFLUX
         recipAvT = 1. _d 0/HeatFluxTime(bi,bj)
./pkg/aim_compon_interf/atm_export_heatflux.F 50 ATM_EXPORT_HEATFLUX
           HeatFlux(I,J,bi,bj) = HeatFlux(I,J,bi,bj)*recipAvT
./pkg/aim_compon_interf/atm_export_heatflux.F 54 ATM_EXPORT_HEATFLUX
     &                             bi,bj,1.-HeatFluxTime(bi,bj)
./pkg/aim_compon_interf/atm_export_heatflux.F 64 ATM_EXPORT_HEATFLUX
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_heatflux.F 66 ATM_EXPORT_HEATFLUX
        HeatFluxTime(bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_heatflux.F 69 ATM_EXPORT_HEATFLUX
          HeatFlux(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_tauy.F 39 ATM_EXPORT_TAUY
      INTEGER bj
./pkg/aim_compon_interf/atm_export_tauy.F 43 ATM_EXPORT_TAUY
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_tauy.F 45 ATM_EXPORT_TAUY
        IF ( ABS(tauYTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/aim_compon_interf/atm_export_tauy.F 46 ATM_EXPORT_TAUY
     &     .AND. tauYTime(bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_export_tauy.F 47 ATM_EXPORT_TAUY
         recipAvT = 1. _d 0/tauYTime(bi,bj)
./pkg/aim_compon_interf/atm_export_tauy.F 50 ATM_EXPORT_TAUY
           tauY(I,J,bi,bj) = tauY(I,J,bi,bj)*recipAvT
./pkg/aim_compon_interf/atm_export_tauy.F 54 ATM_EXPORT_TAUY
     &                             bi,bj,1.-tauYTime(bi,bj)
./pkg/aim_compon_interf/atm_export_tauy.F 64 ATM_EXPORT_TAUY
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_tauy.F 66 ATM_EXPORT_TAUY
        tauYTime(bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_tauy.F 69 ATM_EXPORT_TAUY
          tauY(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/atm_store_atmslp.F 36 ATM_STORE_ATMSLP
      INTEGER bi, bj
./pkg/aim_compon_interf/atm_store_atmslp.F 51 ATM_STORE_ATMSLP
       atmSLPrTime(bi,bj) = atmSLPrTime(bi,bj) + cplTimeFraction
./pkg/aim_compon_interf/atm_store_atmslp.F 54 ATM_STORE_ATMSLP
          atmSLPr(i,j,bi,bj) = atmSLPr(i,j,bi,bj) 
./pkg/aim_compon_interf/atm_store_atmslp.F 55 ATM_STORE_ATMSLP
     &                 + etaN(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_atmslp.F 7 ATM_STORE_ATMSLP
      SUBROUTINE ATM_STORE_ATMSLP( bi,bj,
./pkg/aim_compon_interf/atm_store_tauy.F 42 ATM_STORE_TAUY
      INTEGER bi, bj
./pkg/aim_compon_interf/atm_store_tauy.F 60 ATM_STORE_TAUY
       tauYTime(bi,bj) = tauYTime(bi,bj) + cplTimeFraction
./pkg/aim_compon_interf/atm_store_tauy.F 67 ATM_STORE_TAUY
          IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_store_tauy.F 69 ATM_STORE_TAUY
     &      ( aim_drag(i,j-1,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 70 ATM_STORE_TAUY
     &       *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_tauy.F 71 ATM_STORE_TAUY
     &      + aim_drag(i, j ,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 72 ATM_STORE_TAUY
     &       *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_tauy.F 73 ATM_STORE_TAUY
     &      )* 0.5 _d 0 * vVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 74 ATM_STORE_TAUY
           tauY(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 7 ATM_STORE_TAUY
      SUBROUTINE ATM_STORE_TAUY( bi,bj,
./pkg/aim_compon_interf/atm_store_tauy.F 86 ATM_STORE_TAUY
          IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_store_tauy.F 88 ATM_STORE_TAUY
     &      ( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_compon_interf/atm_store_tauy.F 89 ATM_STORE_TAUY
     &       * 0.5 _d 0 * vVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 90 ATM_STORE_TAUY
           tauY(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/aim_compon_interf/atm_import_ocnconfig.F 32 ATM_IMPORT_OCNCONFIG
      INTEGER i,j,bi,bj
./pkg/aim_compon_interf/atm_import_ocnconfig.F 35 ATM_IMPORT_OCNCONFIG
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_import_ocnconfig.F 39 ATM_IMPORT_OCNCONFIG
          ocMxlD (i,j,bi,bj) = 0.
./pkg/aim_compon_interf/atm_store_taux.F 42 ATM_STORE_TAUX
      INTEGER bi, bj
./pkg/aim_compon_interf/atm_store_taux.F 60 ATM_STORE_TAUX
       tauXTime(bi,bj) = tauXTime(bi,bj) + cplTimeFraction
./pkg/aim_compon_interf/atm_store_taux.F 67 ATM_STORE_TAUX
          IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_store_taux.F 69 ATM_STORE_TAUX
     &      ( aim_drag(i-1,j,bi,bj)
./pkg/aim_compon_interf/atm_store_taux.F 70 ATM_STORE_TAUX
     &       *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_taux.F 71 ATM_STORE_TAUX
     &      + aim_drag( i ,j,bi,bj)
./pkg/aim_compon_interf/atm_store_taux.F 72 ATM_STORE_TAUX
     &       *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_taux.F 73 ATM_STORE_TAUX
     &      )* 0.5 _d 0 * uVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_taux.F 74 ATM_STORE_TAUX
           tauX(i,j,bi,bj) = tauX(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_taux.F 7 ATM_STORE_TAUX
      SUBROUTINE ATM_STORE_TAUX( bi,bj,
./pkg/aim_compon_interf/atm_store_taux.F 86 ATM_STORE_TAUX
          IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_store_taux.F 88 ATM_STORE_TAUX
     &      ( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_compon_interf/atm_store_taux.F 89 ATM_STORE_TAUX
     &       * 0.5 _d 0 * uVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_taux.F 90 ATM_STORE_TAUX
           tauX(i,j,bi,bj) = tauX(i,j,bi,bj)
./model/src/quasihydrostaticterms.F 29 QUASIHYDROSTATICTERMS
      INTEGER bi,bj,k
./model/src/quasihydrostaticterms.F 44 QUASIHYDROSTATICTERMS
     &     fCoriCos(i,j,bi,bj)*
./model/src/quasihydrostaticterms.F 45 QUASIHYDROSTATICTERMS
     &     0.5*( uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj) )
./model/src/quasihydrostaticterms.F 55 QUASIHYDROSTATICTERMS
     &       0.5*( uVel(i,j,k,bi,bj)**2+uVel(i+1,j,k,bi,bj)**2 )
./model/src/quasihydrostaticterms.F 56 QUASIHYDROSTATICTERMS
     &      +0.5*( vVel(i,j,k,bi,bj)**2+vVel(i,j+1,k,bi,bj)**2 )
./model/src/quasihydrostaticterms.F 7 QUASIHYDROSTATICTERMS
     I      bi,bj,k,
./pkg/aim_compon_interf/atm_store_heatflux.F 36 ATM_STORE_HEATFLUX
      INTEGER bi, bj
./pkg/aim_compon_interf/atm_store_heatflux.F 62 ATM_STORE_HEATFLUX
       HeatFluxTime(bi,bj) = HeatFluxTime(bi,bj) + cplTimeFraction
./pkg/aim_compon_interf/atm_store_heatflux.F 65 ATM_STORE_HEATFLUX
          HeatFlux(i,j,bi,bj) = HeatFlux(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_heatflux.F 66 ATM_STORE_HEATFLUX
     &                        + Qnet(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_heatflux.F 7 ATM_STORE_HEATFLUX
      SUBROUTINE ATM_STORE_HEATFLUX( bi,bj,
./pkg/aim_compon_interf/atm_store_my_data.F 31 ATM_STORE_MY_DATA
      INTEGER bi,bj
./pkg/aim_compon_interf/atm_store_my_data.F 41 ATM_STORE_MY_DATA
      CALL ATM_STORE_ATMSLP(     bi,bj, myTime, myIter, myThid )
./pkg/aim_compon_interf/atm_store_my_data.F 42 ATM_STORE_MY_DATA
      CALL ATM_STORE_HEATFLUX(   bi,bj, myTime, myIter, myThid )
./pkg/aim_compon_interf/atm_store_my_data.F 43 ATM_STORE_MY_DATA
      CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid )
./pkg/aim_compon_interf/atm_store_my_data.F 51 ATM_STORE_MY_DATA
      CALL ATM_STORE_EVMPR(      bi,bj, myTime, myIter, myThid )
./pkg/aim_compon_interf/atm_store_my_data.F 53 ATM_STORE_MY_DATA
        CALL ATM_STORE_RUNOFF(   bi,bj, myTime, myIter, myThid )
./pkg/aim_compon_interf/atm_store_my_data.F 54 ATM_STORE_MY_DATA
        CALL ATM_STORE_ROENFX(   bi,bj, myTime, myIter, myThid )
./pkg/aim_compon_interf/atm_store_my_data.F 57 ATM_STORE_MY_DATA
        CALL ATM_STORE_SALTFX(   bi,bj, myTime, myIter, myThid )
./pkg/aim_compon_interf/atm_store_my_data.F 58 ATM_STORE_MY_DATA
        CALL ATM_STORE_SEAICE(   bi,bj, myTime, myIter, myThid )
./pkg/aim_compon_interf/atm_store_my_data.F 7 ATM_STORE_MY_DATA
      SUBROUTINE ATM_STORE_MY_DATA(  bi,bj,
./pkg/aim_compon_interf/atm_export_runoff.F 39 ATM_EXPORT_RUNOFF
      INTEGER bj
./pkg/aim_compon_interf/atm_export_runoff.F 43 ATM_EXPORT_RUNOFF
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_runoff.F 45 ATM_EXPORT_RUNOFF
        IF ( ABS(RunOffTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/aim_compon_interf/atm_export_runoff.F 46 ATM_EXPORT_RUNOFF
     &     .AND. RunOffTime(bi,bj) .NE. 0. ) THEN 
./pkg/aim_compon_interf/atm_export_runoff.F 47 ATM_EXPORT_RUNOFF
         recipAvT = 1. _d 0/RunOffTime(bi,bj)
./pkg/aim_compon_interf/atm_export_runoff.F 50 ATM_EXPORT_RUNOFF
           RunOffFlux(I,J,bi,bj) = RunOffFlux(I,J,bi,bj)*recipAvT
./pkg/aim_compon_interf/atm_export_runoff.F 54 ATM_EXPORT_RUNOFF
     &                             bi,bj,1.-RunOffTime(bi,bj)
./pkg/aim_compon_interf/atm_export_runoff.F 64 ATM_EXPORT_RUNOFF
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_compon_interf/atm_export_runoff.F 66 ATM_EXPORT_RUNOFF
        RunOffTime(bi,bj) = 0.
./pkg/aim_compon_interf/atm_export_runoff.F 69 ATM_EXPORT_RUNOFF
          RunOffFlux(I,J,bi,bj) = 0.
./pkg/aim_compon_interf/atm_store_evmpr.F 36 ATM_STORE_EVMPR
      INTEGER bi, bj
./pkg/aim_compon_interf/atm_store_evmpr.F 54 ATM_STORE_EVMPR
       EvMPrTime(bi,bj) = EvMPrTime(bi,bj) + cplTimeFraction
./pkg/aim_compon_interf/atm_store_evmpr.F 57 ATM_STORE_EVMPR
          EvMPrFlux(i,j,bi,bj) = EvMPrFlux(i,j,bi,bj) 
./pkg/aim_compon_interf/atm_store_evmpr.F 58 ATM_STORE_EVMPR
     &                         + EmPmR(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_evmpr.F 7 ATM_STORE_EVMPR
      SUBROUTINE ATM_STORE_EVMPR( bi,bj,
./pkg/monitor/mon_ke.F 31 MON_KE
      INTEGER bi,bj,I,J,K
./pkg/monitor/mon_ke.F 43 MON_KE
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_ke.F 52 MON_KE
           volTile=volTile+rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 66 MON_KE
     &       uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj)
./pkg/monitor/mon_ke.F 67 MON_KE
     &         *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*hFacW( i ,j,k,bi,bj)
./pkg/monitor/mon_ke.F 68 MON_KE
     &      +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj)
./pkg/monitor/mon_ke.F 69 MON_KE
     &         *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*hFacW(i+1,j,k,bi,bj)
./pkg/monitor/mon_ke.F 70 MON_KE
     &      +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj)
./pkg/monitor/mon_ke.F 71 MON_KE
     &         *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*hFacS(i, j ,k,bi,bj)
./pkg/monitor/mon_ke.F 72 MON_KE
     &      +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj)
./pkg/monitor/mon_ke.F 73 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 76 MON_KE
           tmpVal= tmpVal*recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/monitor/mon_ke.F 90 MON_KE
           tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj)
./pkg/monitor/mon_ke.F 91 MON_KE
     &                      *etaN(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/monitor/mon_ke.F 95 MON_KE
     &            + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/monitor/mon_ke.F 97 MON_KE
     &               + tmpVal*rA(i,j,bi,bj)*maskH(i,j,bi,bj)
./pkg/monitor/mon_stats_rl.F 117 MON_STATS_RL
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_stats_rl.F 123 MON_STATS_RL
            tmpVal=arr(I,J,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 125 MON_STATS_RL
            IF (arrMask(I,J,K,bi,bj).NE.0.) THEN
./pkg/monitor/mon_stats_rl.F 126 MON_STATS_RL
             tmpVol=arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K)
./pkg/monitor/mon_stats_rl.F 127 MON_STATS_RL
     &                                *arrMask(I,J,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 35 MON_STATS_RL
      INTEGER bi,bj,I,J,K
./pkg/monitor/mon_stats_rl.F 53 MON_STATS_RL
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_stats_rl.F 62 MON_STATS_RL
           tmpVal=arr(I,J,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 63 MON_STATS_RL
           IF (arrMask(I,J,K,bi,bj).NE.0. .AND. noPnts) THEN
./pkg/monitor/mon_stats_rl.F 68 MON_STATS_RL
           IF (arrMask(I,J,K,bi,bj).NE.0.) THEN
./pkg/monitor/mon_stats_rl.F 72 MON_STATS_RL
     &         (arr(I+1,J,K,bi,bj)-tmpVal)*arrMask(I+1,J,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 73 MON_STATS_RL
     &        +(arr(I-1,J,K,bi,bj)-tmpVal)*arrMask(I-1,J,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 74 MON_STATS_RL
     &        +(arr(I,J+1,K,bi,bj)-tmpVal)*arrMask(I,J+1,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 75 MON_STATS_RL
     &        +(arr(I,J-1,K,bi,bj)-tmpVal)*arrMask(I,J-1,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 78 MON_STATS_RL
            tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K)
./pkg/monitor/mon_stats_rl.F 79 MON_STATS_RL
     &                                 *arrMask(I,J,K,bi,bj)
./pkg/monitor/mon_stats_latbnd_rl.F 49 MON_STATS_LATBND_RL
      INTEGER bi,bj,i,j,k,n
./pkg/monitor/mon_stats_latbnd_rl.F 74 MON_STATS_LATBND_RL
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_stats_latbnd_rl.F 80 MON_STATS_LATBND_RL
           n = NLATBND(nSepBnd, ySepBnd, arrY(i,j,bi,bj) )
./pkg/monitor/mon_stats_latbnd_rl.F 81 MON_STATS_LATBND_RL
           tmpVal=arr(i,j,k,bi,bj)
./pkg/monitor/mon_stats_latbnd_rl.F 82 MON_STATS_LATBND_RL
           IF (arrMask(i,j,km,bi,bj).NE.0. .AND. noPnts(n)) THEN
./pkg/monitor/mon_stats_latbnd_rl.F 87 MON_STATS_LATBND_RL
           IF (arrMask(i,j,km,bi,bj).NE.0.) THEN
./pkg/monitor/mon_stats_latbnd_rl.F 90 MON_STATS_LATBND_RL
            tmpVol = arrArea(i,j,bi,bj)*arrhFac(i,j,km,bi,bj)*arrDr(k)
./pkg/monitor/mon_stats_latbnd_rl.F 91 MON_STATS_LATBND_RL
     &                                 *arrMask(i,j,km,bi,bj)
./pkg/monitor/mon_advcflw.F 33 MON_ADVCFLW
      INTEGER bi,bj,I,J,K
./pkg/monitor/mon_advcflw.F 38 MON_ADVCFLW
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_advcflw.F 43 MON_ADVCFLW
           tmpVal=abs(W(I,J,K,bi,bj))*rDz(K)*dT
./model/src/ini_vel.F 35 INI_VEL
      INTEGER bi,bj,i,j,k
./model/src/ini_vel.F 45 INI_VEL
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_vel.F 50 INI_VEL
           uVel(i,j,k,bi,bj)=0. _d 0
./model/src/ini_vel.F 51 INI_VEL
           vVel(i,j,k,bi,bj)=0. _d 0
./model/src/ini_vel.F 77 INI_VEL
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_vel.F 82 INI_VEL
           uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./model/src/ini_vel.F 83 INI_VEL
           vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./pkg/monitor/mon_stats_rs.F 32 MON_STATS_RS
      INTEGER bi,bj,I,J,K
./pkg/monitor/mon_stats_rs.F 47 MON_STATS_RS
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_stats_rs.F 54 MON_STATS_RS
           tmpVal=arr(I,J,K,bi,bj)
./pkg/monitor/mon_stats_rs.F 92 MON_STATS_RS
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_stats_rs.F 98 MON_STATS_RS
            tmpVal=arr(I,J,K,bi,bj)
./pkg/monitor/mon_advcflw2.F 35 MON_ADVCFLW2
      INTEGER bi,bj,I,J,K
./pkg/monitor/mon_advcflw2.F 40 MON_ADVCFLW2
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_advcflw2.F 45 MON_ADVCFLW2
           tmpVal=abs(W(I,J,K,bi,bj))*dT
./pkg/monitor/mon_advcflw2.F 46 MON_ADVCFLW2
     &           *max(  rDrF(K)*rHfac(I,J,K,bi,bj),
./pkg/monitor/mon_advcflw2.F 47 MON_ADVCFLW2
     &                rDrF(K-1)*rHfac(I,J,K-1,bi,bj) )
./pkg/monitor/mon_vort3.F 103 MON_VORT3
     &                   ( ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 104 MON_VORT3
     &                      +etaFld( i ,j-1)*rA( i ,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 105 MON_VORT3
     &                     )*recip_rAw(i,j-1,bi,bj)  
./pkg/monitor/mon_vort3.F 106 MON_VORT3
     &                   + ( etaFld(i-1, j )*rA(i-1, j ,bi,bj)
./pkg/monitor/mon_vort3.F 107 MON_VORT3
     &                      +etaFld( i , j )*rA( i , j ,bi,bj) 
./pkg/monitor/mon_vort3.F 108 MON_VORT3
     &                     )*recip_rAw(i, j ,bi,bj)
./pkg/monitor/mon_vort3.F 109 MON_VORT3
     &                   + ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 110 MON_VORT3
     &                      +etaFld(i-1, j )*rA(i-1, j ,bi,bj)
./pkg/monitor/mon_vort3.F 111 MON_VORT3
     &                     )*recip_rAs(i-1,j,bi,bj)  
./pkg/monitor/mon_vort3.F 112 MON_VORT3
     &                   + ( etaFld( i ,j-1)*rA( i ,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 113 MON_VORT3
     &                     + etaFld( i , j )*rA( i , j ,bi,bj) 
./pkg/monitor/mon_vort3.F 114 MON_VORT3
     &                     )*recip_rAs( i ,j,bi,bj)
./pkg/monitor/mon_vort3.F 120 MON_VORT3
     &           0.25 _d 0*( _hFacW(i,j-1,k,bi,bj) 
./pkg/monitor/mon_vort3.F 121 MON_VORT3
     &                     + _hFacW(i, j ,k,bi,bj) 
./pkg/monitor/mon_vort3.F 122 MON_VORT3
     &                     + _hFacS(i-1,j,k,bi,bj) 
./pkg/monitor/mon_vort3.F 123 MON_VORT3
     &                     + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 126 MON_VORT3
           vort3(i,j) = recip_rAz(i,j,bi,bj)*(
./pkg/monitor/mon_vort3.F 127 MON_VORT3
     &       vVel( i ,j,k,bi,bj)*dyC( i ,j,bi,bj)
./pkg/monitor/mon_vort3.F 128 MON_VORT3
     &      -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj)
./pkg/monitor/mon_vort3.F 129 MON_VORT3
     &      -uVel(i, j ,k,bi,bj)*dxC(i, j ,bi,bj)
./pkg/monitor/mon_vort3.F 130 MON_VORT3
     &      +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 178 MON_VORT3
     &       +recip_rAz(i,j,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F 179 MON_VORT3
     &        vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 180 MON_VORT3
     &       -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 181 MON_VORT3
     &       +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 183 MON_VORT3
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) 
./pkg/monitor/mon_vort3.F 184 MON_VORT3
     &                  + _hFacW(i, j ,k,bi,bj) 
./pkg/monitor/mon_vort3.F 185 MON_VORT3
     &                  + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 193 MON_VORT3
     &       +recip_rAz(I,J,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F 194 MON_VORT3
     &       -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj)
./pkg/monitor/mon_vort3.F 195 MON_VORT3
     &       -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 196 MON_VORT3
     &       +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 198 MON_VORT3
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) 
./pkg/monitor/mon_vort3.F 199 MON_VORT3
     &                  + _hFacW(i, j ,k,bi,bj) 
./pkg/monitor/mon_vort3.F 200 MON_VORT3
     &                  + _hFacS(i-1,j,k,bi,bj) 
./pkg/monitor/mon_vort3.F 208 MON_VORT3
     &       +recip_rAz(i,j,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F 209 MON_VORT3
     &        vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 210 MON_VORT3
     &       -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 211 MON_VORT3
     &       +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 213 MON_VORT3
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) 
./pkg/monitor/mon_vort3.F 214 MON_VORT3
     &                  + _hFacW(i, j ,k,bi,bj) 
./pkg/monitor/mon_vort3.F 215 MON_VORT3
     &                  + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 223 MON_VORT3
     &       +recip_rAz(i,j,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F 224 MON_VORT3
     &       -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj)
./pkg/monitor/mon_vort3.F 225 MON_VORT3
     &       -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 226 MON_VORT3
     &       +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 228 MON_VORT3
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj) 
./pkg/monitor/mon_vort3.F 229 MON_VORT3
     &                  + _hFacW(i, j ,k,bi,bj) 
./pkg/monitor/mon_vort3.F 230 MON_VORT3
     &                  + _hFacS(i-1,j,k,bi,bj) 
./pkg/monitor/mon_vort3.F 237 MON_VORT3
          IF (yG(1,sNy+1,bi,bj).EQ.90.) THEN
./pkg/monitor/mon_vort3.F 243 MON_VORT3
     &                 + uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 246 MON_VORT3
            hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj) 
./pkg/monitor/mon_vort3.F 254 MON_VORT3
            vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj)
./pkg/monitor/mon_vort3.F 256 MON_VORT3
          IF (yG(1,1,bi,bj).EQ.-90.) THEN
./pkg/monitor/mon_vort3.F 261 MON_VORT3
     &                 - uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 264 MON_VORT3
            hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j,k,bi,bj) 
./pkg/monitor/mon_vort3.F 272 MON_VORT3
            vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj)
./pkg/monitor/mon_vort3.F 282 MON_VORT3
            tmpAre = rAz(i,j,bi,bj)*drF(k)
./pkg/monitor/mon_vort3.F 283 MON_VORT3
            tmpVol = rAz(i,j,bi,bj)*drF(k)*hFacZ(i,j)
./pkg/monitor/mon_vort3.F 289 MON_VORT3
            tmpVal = tmpVal + fCoriG(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 35 MON_VORT3
      INTEGER bi,bj,i,j,k
./pkg/monitor/mon_vort3.F 62 MON_VORT3
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_vort3.F 76 MON_VORT3
            etaFld(i,j) = etaH(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 77 MON_VORT3
     &          + tmpFac*(etaN(i,j,bi,bj)-etaH(i,j,bi,bj))
./pkg/monitor/mon_surfcor.F 101 MON_SURFCOR
              tmpVal = salt(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 102 MON_SURFCOR
     &               + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks)
./pkg/monitor/mon_surfcor.F 103 MON_SURFCOR
     &                *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 105 MON_SURFCOR
     &         + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal
./pkg/monitor/mon_surfcor.F 122 MON_SURFCOR
     &         - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 123 MON_SURFCOR
     &           *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0
./pkg/monitor/mon_surfcor.F 124 MON_SURFCOR
     &           *maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 143 MON_SURFCOR
              tmpVol  = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k)
./pkg/monitor/mon_surfcor.F 144 MON_SURFCOR
              tmpVal  = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 147 MON_SURFCOR
     &          +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 53 MON_SURFCOR
      INTEGER i,j,k,ks,bi,bj 
./pkg/monitor/mon_surfcor.F 68 MON_SURFCOR
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_surfcor.F 78 MON_SURFCOR
            ks = ksurfC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 80 MON_SURFCOR
             areaTile = areaTile + rA(i,j,bi,bj) 
./pkg/monitor/mon_surfcor.F 82 MON_SURFCOR
     &          rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 85 MON_SURFCOR
     &        + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 99 MON_SURFCOR
             ks = ksurfC(i,j,bi,bj)
./model/src/ini_salt.F 45 INI_SALT
      INTEGER bi, bj
./model/src/ini_salt.F 51 INI_SALT
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_salt.F 56 INI_SALT
           salt(I,J,K,bi,bj) = sRef(K)
./model/src/ini_salt.F 72 INI_SALT
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_salt.F 77 INI_SALT
           IF (maskC(I,J,K,bi,bj).EQ.0.) salt(I,J,K,bi,bj) = 0.
./model/src/ini_salt.F 83 INI_SALT
            IF ( maskC(I,J,K,bi,bj).NE.0.
./model/src/ini_salt.F 84 INI_SALT
     &      .AND. salt(I,J,K,bi,bj).EQ.0. ) THEN