Symbol Description Uses
rTrans Vertical volume transport at interface k 155



File Line number Procedure Code
./pkg/ptracers/ptracers_integrate.F 138 PTRACERS_INTEGRATE
     I                   uTrans, vTrans, rTrans, rTransKp1,
./pkg/ptracers/ptracers_integrate.F 13 PTRACERS_INTEGRATE
     I                    uTrans, vTrans, rTrans, rTransKp1,
./pkg/ptracers/ptracers_integrate.F 61 PTRACERS_INTEGRATE
      _RL rTrans  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/gmredi/gmredi_calc_wflow.F 10 GMREDI_CALC_WFLOW
     U                       wFld, rTrans,
./pkg/gmredi/gmredi_calc_wflow.F 33 GMREDI_CALC_WFLOW
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/gmredi/gmredi_calc_wflow.F 56 GMREDI_CALC_WFLOW
         rTrans(i,j) = rTrans(i,j) + delPsi
./pkg/gmredi/gmredi_rtransport.F 138 GMREDI_RTRANSPORT
         rTrans(i,j) = 
./pkg/gmredi/gmredi_rtransport.F 152 GMREDI_RTRANSPORT
     &    +rTrans(i,j)*op5
./pkg/gmredi/gmredi_rtransport.F 54 GMREDI_RTRANSPORT
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_fluxform/mom_u_adv_wu.F 12 MOM_U_ADV_WU
     I        uFld,wFld,rTrans,
./pkg/mom_fluxform/mom_u_adv_wu.F 39 MOM_U_ADV_WU
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_fluxform/mom_u_adv_wu.F 55 MOM_U_ADV_WU
         advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k-1,bi,bj) 
./pkg/mom_fluxform/mom_u_adv_wu.F 73 MOM_U_ADV_WU
        advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k,bi,bj) 
./pkg/mom_fluxform/mom_u_adv_wu.F 82 MOM_U_ADV_WU
        advectiveFluxWU(i,j) = rTrans(i,j)*
./pkg/mom_fluxform/mom_v_adv_wv.F 13 MOM_V_ADV_WV
     I        vFld,wFld,rTrans,
./pkg/mom_fluxform/mom_v_adv_wv.F 40 MOM_V_ADV_WV
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_fluxform/mom_v_adv_wv.F 56 MOM_V_ADV_WV
         advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F 74 MOM_V_ADV_WV
        advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F 83 MOM_V_ADV_WV
        advectiveFluxWV(i,j) = rTrans(i,j)*
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 109 GAD_FLUXLIMIT_IMPL_R
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 11 GAD_FLUXLIMIT_IMPL_R
     I           deltaTarg, rTrans, tFld,
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 46 GAD_FLUXLIMIT_IMPL_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 85 GAD_FLUXLIMIT_IMPL_R
         w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 91 GAD_FLUXLIMIT_IMPL_R
          IF (rTrans(i,j).LT.0. _d 0) THEN
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 107 GAD_FLUXLIMIT_ADV_R
          IF (rTrans(i,j).LT.0.) THEN
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 113 GAD_FLUXLIMIT_ADV_R
          IF (rTrans(i,j).LT.0.) THEN
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 122 GAD_FLUXLIMIT_ADV_R
     &     rTrans(i,j)*
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 124 GAD_FLUXLIMIT_ADV_R
     &    +(ABS(rTrans(i,j))*(1-Cr)
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 125 GAD_FLUXLIMIT_ADV_R
     &      +rTrans(i,j)*wFld*dTarg*recip_drC(k)
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 12 GAD_FLUXLIMIT_ADV_R
     I           rTrans, wVel,
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 46 GAD_FLUXLIMIT_ADV_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 99 GAD_FLUXLIMIT_ADV_R
         wFld = rTrans(i,j)*recip_rA(i,j,bi_arg,bj_arg)
./model/src/thermodynamics.F 150 THERMODYNAMICS
      _RL rTrans  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./model/src/thermodynamics.F 235 THERMODYNAMICS
          rTrans (i,j)   = 0. _d 0
./model/src/thermodynamics.F 411 THERMODYNAMICS
             rTransKp1(i,j) = rTrans(i,j)
./model/src/thermodynamics.F 433 THERMODYNAMICS
             rTrans(i,j) = 0. _d 0
./model/src/thermodynamics.F 442 THERMODYNAMICS
             rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskUp(i,j)
./model/src/thermodynamics.F 455 THERMODYNAMICS
     U                  wFld, rTrans,
./model/src/thermodynamics.F 527 THERMODYNAMICS
     I         uTrans, vTrans, rTrans, rTransKp1,
./model/src/thermodynamics.F 560 THERMODYNAMICS
     I         uTrans, vTrans, rTrans, rTransKp1,
./model/src/thermodynamics.F 598 THERMODYNAMICS
     I          uTrans, vTrans, rTrans, rTransKp1,
./model/src/calc_gw.F 368 CALC_GW
             rTrans = tmp_WbarZ*rA(i,j,bi,bj)
./model/src/calc_gw.F 369 CALC_GW
             flx_Dn(i,j) = rTrans*tmp_WbarZ
./model/src/calc_gw.F 89 CALC_GW
      _RL  uTrans, vTrans, rTrans
./model/src/calc_gt.F 13 CALC_GT
     I           uTrans, vTrans, rTrans, rTransKp1,
./model/src/calc_gt.F 149 CALC_GT
     I           uTrans, vTrans, rTrans, rTransKp1,
./model/src/calc_gt.F 160 CALC_GT
     I           uTrans, vTrans, rTrans, rTransKp1,
./model/src/calc_gt.F 94 CALC_GT
      _RL rTrans (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./model/src/calc_gs.F 13 CALC_GS
     I           uTrans, vTrans, rTrans, rTransKp1,
./model/src/calc_gs.F 150 CALC_GS
     I           uTrans, vTrans, rTrans, rTransKp1,
./model/src/calc_gs.F 161 CALC_GS
     I           uTrans, vTrans, rTrans, rTransKp1,
./model/src/calc_gs.F 95 CALC_GS
      _RL rTrans (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_common/mom_v_implicit_r.F 124 MOM_V_IMPLICIT_R
            rTrans(i,j) = 0.5 _d 0 * (
./pkg/mom_common/mom_v_implicit_r.F 142 MOM_V_IMPLICIT_R
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_v_implicit_r.F 163 MOM_V_IMPLICIT_R
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_v_implicit_r.F 47 MOM_V_IMPLICIT_R
      _RL rTrans(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/mom_common/mom_u_implicit_r.F 124 MOM_U_IMPLICIT_R
            rTrans(i,j) = 0.5 _d 0 * (
./pkg/mom_common/mom_u_implicit_r.F 142 MOM_U_IMPLICIT_R
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_u_implicit_r.F 163 MOM_U_IMPLICIT_R
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_u_implicit_r.F 47 MOM_U_IMPLICIT_R
      _RL rTrans(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/generic_advdiff/gad_advection.F 134 GAD_ADVECTION
      _RL rTrans  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_advection.F 197 GAD_ADVECTION
        rTrans(i,j)  = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 724 GAD_ADVECTION
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 726 GAD_ADVECTION
           rTrans(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F 743 GAD_ADVECTION
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 745 GAD_ADVECTION
           rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 755 GAD_ADVECTION
     U                 wFld, rTrans,
./pkg/generic_advdiff/gad_advection.F 770 GAD_ADVECTION
     I                            dTtracerLev(k),rTrans,wFld,localTijk,
./pkg/generic_advdiff/gad_advection.F 774 GAD_ADVECTION
     I                               rTrans, wFld, localTijk,
./pkg/generic_advdiff/gad_advection.F 778 GAD_ADVECTION
     I                               rTrans, wFld, localTijk,
./pkg/generic_advdiff/gad_advection.F 782 GAD_ADVECTION
     I                               rTrans, wFld, localTijk,
./pkg/generic_advdiff/gad_advection.F 805 GAD_ADVECTION
     &       -tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))
./pkg/generic_advdiff/gad_dst3_adv_r.F 108 GAD_DST3_ADV_R
     &    0.5*(rTrans(i,j)+abs(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F 110 GAD_DST3_ADV_R
     &   +0.5*(rTrans(i,j)-abs(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F 115 GAD_DST3_ADV_R
     &     0.5*(rTrans(i,j)+abs(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F 117 GAD_DST3_ADV_R
     &    +0.5*(rTrans(i,j)-abs(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F 12 GAD_DST3_ADV_R
     I           rTrans, wFld,
./pkg/generic_advdiff/gad_dst3_adv_r.F 42 GAD_DST3_ADV_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_c4_adv_r.F 12 GAD_C4_ADV_R
     I           rTrans,
./pkg/generic_advdiff/gad_c4_adv_r.F 40 GAD_C4_ADV_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_c4_adv_r.F 85 GAD_C4_ADV_R
     &     rTrans(i,j)*(
./pkg/generic_advdiff/gad_c4_adv_r.F 88 GAD_C4_ADV_R
     &    +ABS(rTrans(i,j))*
./pkg/generic_advdiff/gad_implicit_r.F 178 GAD_IMPLICIT_R
            rTransKp1(i,j) = rTrans(i,j)
./pkg/generic_advdiff/gad_implicit_r.F 187 GAD_IMPLICIT_R
            rTrans(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 194 GAD_IMPLICIT_R
            rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 201 GAD_IMPLICIT_R
     U                 wFld, rTrans,
./pkg/generic_advdiff/gad_implicit_r.F 211 GAD_IMPLICIT_R
     &       *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign
./pkg/generic_advdiff/gad_implicit_r.F 227 GAD_IMPLICIT_R
     I                        dTtracerLev, rTrans,
./pkg/generic_advdiff/gad_implicit_r.F 234 GAD_IMPLICIT_R
     I                        advectionScheme, dTtracerLev, rTrans,
./pkg/generic_advdiff/gad_implicit_r.F 240 GAD_IMPLICIT_R
     I                        dTtracerLev, rTrans, localTijk,
./pkg/generic_advdiff/gad_implicit_r.F 248 GAD_IMPLICIT_R
     I                        advectionScheme, dTtracerLev, rTrans,
./pkg/generic_advdiff/gad_implicit_r.F 254 GAD_IMPLICIT_R
     I                        dTtracerLev, rTrans, localTijk,
./pkg/generic_advdiff/gad_implicit_r.F 73 GAD_IMPLICIT_R
      _RL rTrans   (1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/generic_advdiff/gad_c2_adv_r.F 12 GAD_C2_ADV_R
     I           rTrans,
./pkg/generic_advdiff/gad_c2_adv_r.F 38 GAD_C2_ADV_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_c2_adv_r.F 64 GAD_C2_ADV_R
     &     rTrans(i,j)*
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 110 GAD_DST3FL_ADV_R
     &   0.5*(rTrans(i,j)+abs(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 112 GAD_DST3FL_ADV_R
     &  +0.5*(rTrans(i,j)-abs(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 12 GAD_DST3FL_ADV_R
     I           rTrans, wFld,
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 40 GAD_DST3FL_ADV_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 12 GAD_DST2U1_ADV_R
     I           deltaTloc, rTrans, wFld,
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 41 GAD_DST2U1_ADV_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 88 GAD_DST2U1_ADV_R
         wAbs = ABS(rTrans(i,j))*rkSign
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 91 GAD_DST2U1_ADV_R
     &             ( rTrans(i,j)+wAbs )* 0.5 _d 0 * tracer(i,j,km1)
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 92 GAD_DST2U1_ADV_R
     &           + ( rTrans(i,j)-wAbs )* 0.5 _d 0 * tracer(i,j,k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 109 GAD_FLUXLIMIT_IMPL_R
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 11 GAD_FLUXLIMIT_IMPL_R
     I           deltaTarg, rTrans, tFld,
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 47 GAD_FLUXLIMIT_IMPL_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 86 GAD_FLUXLIMIT_IMPL_R
         w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 92 GAD_FLUXLIMIT_IMPL_R
          IF (rTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_c2_impl_r.F 11 GAD_C2_IMPL_R
     I           deltaTarg, rTrans,
./pkg/generic_advdiff/gad_c2_impl_r.F 44 GAD_C2_IMPL_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_c2_impl_r.F 63 GAD_C2_IMPL_R
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_calc_rhs.F 13 GAD_CALC_RHS
     I           uTrans, vTrans, rTrans, rTransKp1,
./pkg/generic_advdiff/gad_calc_rhs.F 428 GAD_CALC_RHS
          CALL GAD_C2_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 432 GAD_CALC_RHS
     I         dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj),
./pkg/generic_advdiff/gad_calc_rhs.F 436 GAD_CALC_RHS
     I         dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj),
./pkg/generic_advdiff/gad_calc_rhs.F 439 GAD_CALC_RHS
          CALL GAD_U3_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 441 GAD_CALC_RHS
          CALL GAD_C4_ADV_R(bi,bj,k,rTrans,TracAB,af,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 444 GAD_CALC_RHS
     I         dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj),
./pkg/generic_advdiff/gad_calc_rhs.F 452 GAD_CALC_RHS
     I         dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj),
./pkg/generic_advdiff/gad_calc_rhs.F 456 GAD_CALC_RHS
     I         dTtracerLev(k),rTrans,wFld,TracAB(1-Olx,1-Oly,1,bi,bj),
./pkg/generic_advdiff/gad_calc_rhs.F 577 GAD_CALC_RHS
     &                   +(rTransKp1(i,j)-rTrans(i,j))*rAdvFac
./pkg/generic_advdiff/gad_calc_rhs.F 93 GAD_CALC_RHS
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 11 GAD_DST2U1_IMPL_R
     I           advectionScheme, deltaTarg, rTrans,
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 48 GAD_DST2U1_IMPL_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 77 GAD_DST2U1_IMPL_R
           w_CFL = deltaTcfl*ABS(rTrans(i,j))
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 79 GAD_DST2U1_IMPL_R
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_u3_adv_r.F 12 GAD_U3_ADV_R
     I           rTrans,
./pkg/generic_advdiff/gad_u3_adv_r.F 39 GAD_U3_ADV_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_u3_adv_r.F 79 GAD_U3_ADV_R
     &     rTrans(i,j)*(
./pkg/generic_advdiff/gad_u3_adv_r.F 82 GAD_U3_ADV_R
     &    +ABS(rTrans(i,j))*
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 100 GAD_FLUXLIMIT_ADV_R
          IF (rTrans(i,j).LT.0.) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 108 GAD_FLUXLIMIT_ADV_R
     &     rTrans(i,j)*
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 110 GAD_FLUXLIMIT_ADV_R
     &    +(ABS(rTrans(i,j))*(1-Cr)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 111 GAD_FLUXLIMIT_ADV_R
     &      +rTrans(i,j)*wLoc*dTarg*recip_drC(k)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 12 GAD_FLUXLIMIT_ADV_R
     I           rTrans, wFld,
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 46 GAD_FLUXLIMIT_ADV_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 94 GAD_FLUXLIMIT_ADV_R
          IF (rTrans(i,j).LT.0.) THEN
./pkg/generic_advdiff/gad_u3c4_impl_r.F 101 GAD_U3C4_IMPL_R
            wCFL = deltaTcfl*ABS(rTrans(i,j))
./pkg/generic_advdiff/gad_u3c4_impl_r.F 11 GAD_U3C4_IMPL_R
     I           advectionScheme, deltaTarg, rTrans,
./pkg/generic_advdiff/gad_u3c4_impl_r.F 53 GAD_U3C4_IMPL_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 93 GAD_U3C4_IMPL_R
           rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 100 GAD_DST3FL_IMPL_R
           wCFL = deltaTcfl*ABS(rTrans(i,j))
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 108 GAD_DST3FL_IMPL_R
           IF ( rTrans(i,j).GT.0. _d 0 ) THEN
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 11 GAD_DST3FL_IMPL_R
     I           deltaTarg, rTrans, tFld,
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 142 GAD_DST3FL_IMPL_R
           rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 52 GAD_DST3FL_IMPL_R
      _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)