Symbol Description Uses
Rj differences at i-1,i,i+1 129


File Line number Procedure Code
./pkg/generic_advdiff/gad_c4_adv_r.F 57 GAD_C4_ADV_R 
      _RL Rjm,Rj,Rjp,Rjjm,Rjjp
./pkg/generic_advdiff/gad_c4_adv_r.F 78 GAD_C4_ADV_R 
         Rj  = (tracer(i,j, k )-tracer(i,j,km1))
./pkg/generic_advdiff/gad_c4_adv_r.F 81 GAD_C4_ADV_R 
         Rjjp=(Rjp-Rj)
./pkg/generic_advdiff/gad_c4_adv_r.F 82 GAD_C4_ADV_R 
         Rjjm=(Rj-Rjm)
./pkg/generic_advdiff/gad_c4_adv_x.F 55 GAD_C4_ADV_X 
      _RL Rjm,Rj,Rjp,Rjjm,Rjjp
./pkg/generic_advdiff/gad_c4_adv_x.F 66 GAD_C4_ADV_X 
        Rj  = (tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_c4_adv_x.F 68 GAD_C4_ADV_X 
        Rjjp=(Rjp-Rj)
./pkg/generic_advdiff/gad_c4_adv_x.F 69 GAD_C4_ADV_X 
        Rjjm=(Rj-Rjm)
./pkg/generic_advdiff/gad_c4_adv_y.F 55 GAD_C4_ADV_Y 
      _RL Rjm,Rj,Rjp,Rjjm,Rjjp
./pkg/generic_advdiff/gad_c4_adv_y.F 66 GAD_C4_ADV_Y 
        Rj  = (tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_c4_adv_y.F 68 GAD_C4_ADV_Y 
        Rjjp=(Rjp-Rj)
./pkg/generic_advdiff/gad_c4_adv_y.F 69 GAD_C4_ADV_Y 
        Rjjm=(Rj-Rjm)
./pkg/generic_advdiff/gad_dst3_adv_r.F 100 GAD_DST3_ADV_R 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3_adv_r.F 105 GAD_DST3_ADV_R 
         thetaM=(Rjp+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_r.F 110 GAD_DST3_ADV_R 
     &       *( tracer(i,j, k ) + psiM*Rj )
./pkg/generic_advdiff/gad_dst3_adv_r.F 112 GAD_DST3_ADV_R 
     &       *( tracer(i,j,km1) - psiP*Rj )
./pkg/generic_advdiff/gad_dst3_adv_r.F 116 GAD_DST3_ADV_R 
     &       *( tracer(i,j, k ) + (d0*Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_r.F 118 GAD_DST3_ADV_R 
     &       *( tracer(i,j,km1) - (d0*Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_r.F 61 GAD_DST3_ADV_R 
      _RL Rjm,Rj,Rjp,cfl,d0,d1
./pkg/generic_advdiff/gad_dst3_adv_r.F 81 GAD_DST3_ADV_R 
        Rj =(tracer(i,j,km1)-tracer(i,j,k))
./pkg/generic_advdiff/gad_dst3_adv_r.F 92 GAD_DST3_ADV_R 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3_adv_r.F 97 GAD_DST3_ADV_R 
         thetaP=(Rjm+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_x.F 104 GAD_DST3_ADV_X 
         thetaM=(Rjp+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_x.F 109 GAD_DST3_ADV_X 
     &      *( Tracer(i-1,j) + psiP*Rj )
./pkg/generic_advdiff/gad_dst3_adv_x.F 111 GAD_DST3_ADV_X 
     &      *( Tracer( i ,j) - psiM*Rj )
./pkg/generic_advdiff/gad_dst3_adv_x.F 115 GAD_DST3_ADV_X 
     &      *( Tracer(i-1,j) + (d0*Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_x.F 117 GAD_DST3_ADV_X 
     &      *( Tracer( i ,j) - (d0*Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_x.F 61 GAD_DST3_ADV_X 
      _RL Rjm,Rj,Rjp,uCFL,d0,d1
./pkg/generic_advdiff/gad_dst3_adv_x.F 82 GAD_DST3_ADV_X 
        Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_dst3_adv_x.F 91 GAD_DST3_ADV_X 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3_adv_x.F 96 GAD_DST3_ADV_X 
         thetaP=(Rjm+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_x.F 99 GAD_DST3_ADV_X 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3_adv_y.F 103 GAD_DST3_ADV_Y 
         thetaM=(Rjp+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_y.F 108 GAD_DST3_ADV_Y 
     &      *( Tracer(i,j-1) + psiP*Rj )
./pkg/generic_advdiff/gad_dst3_adv_y.F 110 GAD_DST3_ADV_Y 
     &      *( Tracer(i, j ) - psiM*Rj )
./pkg/generic_advdiff/gad_dst3_adv_y.F 114 GAD_DST3_ADV_Y 
     &      *( Tracer(i,j-1) + (d0*Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_y.F 116 GAD_DST3_ADV_Y 
     &      *( Tracer(i, j ) - (d0*Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_y.F 60 GAD_DST3_ADV_Y 
      _RL Rjm,Rj,Rjp,vCFL,d0,d1
./pkg/generic_advdiff/gad_dst3_adv_y.F 81 GAD_DST3_ADV_Y 
        Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_dst3_adv_y.F 90 GAD_DST3_ADV_Y 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3_adv_y.F 95 GAD_DST3_ADV_Y 
         thetaP=(Rjm+smallNo)/(smallNo+Rj)
./pkg/generic_advdiff/gad_dst3_adv_y.F 98 GAD_DST3_ADV_Y 
        IF ( ABS(Rj).LT.smallNo .OR.
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 100 GAD_DST3FL_ADV_R 
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 101 GAD_DST3FL_ADV_R 
          thetaM=SIGN(thetaMax,Rjp*Rj)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 103 GAD_DST3FL_ADV_R 
          thetaM=Rjp/Rj
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 115 GAD_DST3FL_ADV_R 
     &      *( tracer(i,j, k ) + psiM*Rj )
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 117 GAD_DST3FL_ADV_R 
     &      *( tracer(i,j,km1) - psiP*Rj )
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 56 GAD_DST3FL_ADV_R 
      _RL Rjm,Rj,Rjp,wCFL,d0,d1
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 75 GAD_DST3FL_ADV_R 
        Rj =(tracer(i,j,km1)-tracer(i,j,k))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 95 GAD_DST3FL_ADV_R 
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjm) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 96 GAD_DST3FL_ADV_R 
          thetaP=SIGN(thetaMax,Rjm*Rj)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 98 GAD_DST3FL_ADV_R 
          thetaP=Rjm/Rj
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 37 GAD_DST3FL_ADV_X 
      _RL Rjm,Rj,Rjp,uCFL,d0,d1,psiP,psiM,thetaP,thetaM
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 58 GAD_DST3FL_ADV_X 
        Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 77 GAD_DST3FL_ADV_X 
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjm) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 78 GAD_DST3FL_ADV_X 
          thetaP=SIGN(thetaMax,Rjm*Rj)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 80 GAD_DST3FL_ADV_X 
          thetaP=Rjm/Rj
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 82 GAD_DST3FL_ADV_X 
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 83 GAD_DST3FL_ADV_X 
          thetaM=SIGN(thetaMax,Rjp*Rj)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 85 GAD_DST3FL_ADV_X 
          thetaM=Rjp/Rj
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 97 GAD_DST3FL_ADV_X 
     &      *( Tracer(i-1,j) + psiP*Rj )
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 99 GAD_DST3FL_ADV_X 
     &      *( Tracer( i ,j) - psiM*Rj )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 37 GAD_DST3FL_ADV_Y 
      _RL Rjm,Rj,Rjp,vCFL,d0,d1,psiP,psiM,thetaP,thetaM
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 54 GAD_DST3FL_ADV_Y 
        Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 73 GAD_DST3FL_ADV_Y 
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjm) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 74 GAD_DST3FL_ADV_Y 
          thetaP=SIGN(thetaMax,Rjm*Rj)
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 76 GAD_DST3FL_ADV_Y 
          thetaP=Rjm/Rj
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 78 GAD_DST3FL_ADV_Y 
        IF ( ABS(Rj)*thetaMax .LE. ABS(Rjp) ) THEN
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 79 GAD_DST3FL_ADV_Y 
          thetaM=SIGN(thetaMax,Rjp*Rj)
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 81 GAD_DST3FL_ADV_Y 
          thetaM=Rjp/Rj
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 93 GAD_DST3FL_ADV_Y 
     &      *( Tracer(i,j-1) + psiP*Rj )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 95 GAD_DST3FL_ADV_Y 
     &      *( Tracer(i, j ) - psiM*Rj )
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 110 GAD_DST3FL_IMPL_R 
           Rj =(tFld(i,j,k)  -tFld(i,j,k-1))
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 116 GAD_DST3FL_IMPL_R 
           IF ( Rj*Rjh.LE.0. _d 0 ) THEN
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 121 GAD_DST3FL_IMPL_R 
             Rj  = ABS(Rj)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 123 GAD_DST3FL_IMPL_R 
             th1 = cL1*Rj+cH3*Rjh
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 125 GAD_DST3FL_IMPL_R 
            IF     ( th1.LE.th2 .AND. th1.LE.Rj ) THEN
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 129 GAD_DST3FL_IMPL_R 
            ELSEIF ( th2.LT.th1 .AND. th2.LE.Rj ) THEN
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 79 GAD_DST3FL_IMPL_R 
      _RL Rj, Rjh, cL1, cH3, cM2, th1, th2
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 111 GAD_FLUXLIMIT_ADV_R 
     &                     *Rj*0.5 _d 0 )
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 65 GAD_FLUXLIMIT_ADV_R 
      _RL Cr,Rjm,Rj,Rjp
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 89 GAD_FLUXLIMIT_ADV_R 
         Rj= (tracer(i,j,k)  -tracer(i,j,kM1))
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 93 GAD_FLUXLIMIT_ADV_R 
         IF (Rj.NE.0.) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 95 GAD_FLUXLIMIT_ADV_R 
            Cr=Rjm/Rj
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 97 GAD_FLUXLIMIT_ADV_R 
            Cr=Rjp/Rj
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 100 GAD_FLUXLIMIT_ADV_X 
     &                    *Rj*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 62 GAD_FLUXLIMIT_ADV_X 
      _RL Cr,Rjm,Rj,Rjp
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 80 GAD_FLUXLIMIT_ADV_X 
        Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 83 GAD_FLUXLIMIT_ADV_X 
        IF (Rj.NE.0.) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 85 GAD_FLUXLIMIT_ADV_X 
           Cr=Rjm/Rj
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 87 GAD_FLUXLIMIT_ADV_X 
           Cr=Rjp/Rj
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 100 GAD_FLUXLIMIT_ADV_Y 
     &                    *Rj*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 62 GAD_FLUXLIMIT_ADV_Y 
      _RL Cr,Rjm,Rj,Rjp
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 80 GAD_FLUXLIMIT_ADV_Y 
        Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 83 GAD_FLUXLIMIT_ADV_Y 
        IF (Rj.NE.0.) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 85 GAD_FLUXLIMIT_ADV_Y 
           Cr=Rjm/Rj
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 87 GAD_FLUXLIMIT_ADV_Y 
           Cr=Rjp/Rj
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 68 GAD_FLUXLIMIT_IMPL_R 
      _RL Cr,Rjm,Rj,Rjp, w_CFL
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 91 GAD_FLUXLIMIT_IMPL_R 
         Rj =(tFld(i,j,k)  -tFld(i,j,km1))
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 94 GAD_FLUXLIMIT_IMPL_R 
         IF ( Rj.NE.0. _d 0) THEN
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 96 GAD_FLUXLIMIT_IMPL_R 
            Cr=Rjm/Rj
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 98 GAD_FLUXLIMIT_IMPL_R 
            Cr=Rjp/Rj
./pkg/generic_advdiff/gad_u3_adv_r.F 55 GAD_U3_ADV_R 
      _RL Rjm,Rj,Rjp,Rjjm,Rjjp
./pkg/generic_advdiff/gad_u3_adv_r.F 72 GAD_U3_ADV_R 
         Rj  = (tracer(i,j, k )-tracer(i,j,km1))
./pkg/generic_advdiff/gad_u3_adv_r.F 74 GAD_U3_ADV_R 
         Rjjp = Rjp-Rj
./pkg/generic_advdiff/gad_u3_adv_r.F 75 GAD_U3_ADV_R 
         Rjjm = Rj-Rjm
./pkg/generic_advdiff/gad_u3_adv_x.F 54 GAD_U3_ADV_X 
      _RL Rjm,Rj,Rjp,Rjjm,Rjjp
./pkg/generic_advdiff/gad_u3_adv_x.F 65 GAD_U3_ADV_X 
        Rj  = (tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_u3_adv_x.F 67 GAD_U3_ADV_X 
        Rjjp=Rjp-Rj
./pkg/generic_advdiff/gad_u3_adv_x.F 68 GAD_U3_ADV_X 
        Rjjm=Rj-Rjm
./pkg/generic_advdiff/gad_u3_adv_y.F 54 GAD_U3_ADV_Y 
      _RL Rjm,Rj,Rjp,Rjjm,Rjjp
./pkg/generic_advdiff/gad_u3_adv_y.F 65 GAD_U3_ADV_Y 
        Rj  = (tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_u3_adv_y.F 67 GAD_U3_ADV_Y 
        Rjjp=Rjp-Rj
./pkg/generic_advdiff/gad_u3_adv_y.F 68 GAD_U3_ADV_Y 
        Rjjm=Rj-Rjm
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 192 MOM_VI_U_CORIOLIS_C4 
          Rj  =   vort3r(i,j+1) - vort3r(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 193 MOM_VI_U_CORIOLIS_C4 
          Rjp = vort3r(i,j+1) -oneSixth*( Rjp-Rj )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 194 MOM_VI_U_CORIOLIS_C4 
          Rjm = vort3r(i, j ) -oneSixth*( Rj-Rjm )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 53 MOM_VI_U_CORIOLIS_C4 
      _RL vBarXY,vort3u,Rjp,Rjm,Rj
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 192 MOM_VI_V_CORIOLIS_C4 
          Rj  =   vort3r(i+1,j) - vort3r( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 193 MOM_VI_V_CORIOLIS_C4 
          Rjp = vort3r(i+1,j) -oneSixth*( Rjp-Rj )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 194 MOM_VI_V_CORIOLIS_C4 
          Rjm = vort3r( i ,j) -oneSixth*( Rj-Rjm )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 53 MOM_VI_V_CORIOLIS_C4 
      _RL uBarXY,vort3v,Rjp,Rjm,Rj
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 54 CHEAPAML_GAD_DST3FL_ADV_R 
      _RL Rjm,Rj,Rjp,wCFL,d0,d1
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 61 CHEAPAML_GAD_DST3FL_ADV_R 
      Rj =  0. _d 0
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 75 CHEAPAML_GAD_DST3FL_ADV_R 
          thetaP=SIGN(thetaMax,Rjm*Rj)
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 76 CHEAPAML_GAD_DST3FL_ADV_R 
          thetaM=SIGN(thetaMax,Rjp*Rj)
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 87 CHEAPAML_GAD_DST3FL_ADV_R 
     &      *( tracer(i,j ) + psiM*Rj )
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 89 CHEAPAML_GAD_DST3FL_ADV_R 
     &      *( tracer(i,j) - psiP*Rj )