Symbol Description Uses
iy grid indexing. 292


File Line number Procedure Code
./pkg/generic_advdiff/gad_osc_hat_r.F 110 GAD_OSC_HAT_R 
          integer bi,bj,ix,iy
./pkg/generic_advdiff/gad_osc_hat_r.F 98 GAD_OSC_HAT_R 
      SUBROUTINE GAD_OSC_HAT_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_osc_hat_x.F 106 GAD_OSC_HAT_X 
      SUBROUTINE GAD_OSC_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_osc_hat_x.F 118 GAD_OSC_HAT_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_osc_hat_y.F 126 GAD_OSC_HAT_Y 
          integer iy
./pkg/generic_advdiff/gad_osc_hat_y.F 129 GAD_OSC_HAT_Y 
          do  iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_osc_hat_y.F 131 GAD_OSC_HAT_Y 
              CALL GAD_OSC_LOC_Y(iy,mask,fbar,ohat)
./pkg/generic_advdiff/gad_osc_hat_y.F 13 GAD_OSC_LOC_Y 
      SUBROUTINE GAD_OSC_LOC_Y(iy,mask,fbar,ohat)
./pkg/generic_advdiff/gad_osc_hat_y.F 21 GAD_OSC_LOC_Y 
          integer iy
./pkg/generic_advdiff/gad_osc_hat_y.F 30 GAD_OSC_LOC_Y 
          if (iy.gt. +1-OLy .and.
./pkg/generic_advdiff/gad_osc_hat_y.F 31 GAD_OSC_LOC_Y 
     &        iy.lt.sNy+OLy) then
./pkg/generic_advdiff/gad_osc_hat_y.F 35 GAD_OSC_LOC_Y 
          floc(+0) = fbar(+0+iy)
./pkg/generic_advdiff/gad_osc_hat_y.F 38 GAD_OSC_LOC_Y 
     &      mask(iy-1)*(fbar(iy-1)-floc(+0))
./pkg/generic_advdiff/gad_osc_hat_y.F 40 GAD_OSC_LOC_Y 
     &      mask(iy+1)*(fbar(iy+1)-floc(+0))
./pkg/generic_advdiff/gad_osc_hat_y.F 44 GAD_OSC_LOC_Y 
          ohat(+1,iy) = floc(+1)*0.25 _d 0
./pkg/generic_advdiff/gad_osc_hat_y.F 47 GAD_OSC_LOC_Y 
          ohat(+2,iy) = floc(+1)*0.25 _d 0
./pkg/generic_advdiff/gad_osc_hat_y.F 53 GAD_OSC_LOC_Y 
          if (iy.eq. +1-OLy) then
./pkg/generic_advdiff/gad_osc_hat_y.F 57 GAD_OSC_LOC_Y 
          floc(+0) = fbar(+0+iy)
./pkg/generic_advdiff/gad_osc_hat_y.F 60 GAD_OSC_LOC_Y 
     &      mask(iy+1)*(fbar(iy+1)-floc(+0))
./pkg/generic_advdiff/gad_osc_hat_y.F 62 GAD_OSC_LOC_Y 
     &      mask(iy+2)*(fbar(iy+2)-floc(+1))
./pkg/generic_advdiff/gad_osc_hat_y.F 66 GAD_OSC_LOC_Y 
          ohat(+1,iy) = floc(+1)*0.50 _d 0
./pkg/generic_advdiff/gad_osc_hat_y.F 69 GAD_OSC_LOC_Y 
          ohat(+2,iy) = floc(+2)*0.25 _d 0
./pkg/generic_advdiff/gad_osc_hat_y.F 75 GAD_OSC_LOC_Y 
          if (iy.eq.sNy+OLy) then
./pkg/generic_advdiff/gad_osc_hat_y.F 79 GAD_OSC_LOC_Y 
          floc(+0) = fbar(+0+iy)
./pkg/generic_advdiff/gad_osc_hat_y.F 82 GAD_OSC_LOC_Y 
     &      mask(iy-1)*(fbar(iy-1)-floc(+0))
./pkg/generic_advdiff/gad_osc_hat_y.F 84 GAD_OSC_LOC_Y 
     &      mask(iy-2)*(fbar(iy-2)-floc(-1))
./pkg/generic_advdiff/gad_osc_hat_y.F 88 GAD_OSC_LOC_Y 
          ohat(+1,iy) = floc(+0)*0.50 _d 0
./pkg/generic_advdiff/gad_osc_hat_y.F 91 GAD_OSC_LOC_Y 
          ohat(+2,iy) = floc(+0)*0.25 _d 0
./pkg/generic_advdiff/gad_osc_mul_y.F 16 GAD_OSC_MUL_Y 
          integer iy,hh
./pkg/generic_advdiff/gad_osc_mul_y.F 36 GAD_OSC_MUL_Y 
          do  ii = iy-hh, iy+hh
./pkg/generic_advdiff/gad_osc_mul_y.F 39 GAD_OSC_MUL_Y 
              dels = (ii - iy) * 2. _d 0
./pkg/generic_advdiff/gad_osc_mul_y.F 6 GAD_OSC_MUL_Y 
      SUBROUTINE GAD_OSC_MUL_Y(iy,hh,mask,ohat,scal)
./pkg/generic_advdiff/gad_ppm_adv_r.F 104 GAD_PPM_ADV_R 
     &             + abs(velR(ix,iy,ir))
./pkg/generic_advdiff/gad_ppm_adv_r.F 111 GAD_PPM_ADV_R 
              floc(ir) = fbar(ix,iy,ir)
./pkg/generic_advdiff/gad_ppm_adv_r.F 113 GAD_PPM_ADV_R 
     &            maskC(ix,iy,ir,bi,bj)
./pkg/generic_advdiff/gad_ppm_adv_r.F 126 GAD_PPM_ADV_R 
          CALL GAD_OSC_HAT_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_ppm_adv_r.F 132 GAD_PPM_ADV_R 
          CALL GAD_PPM_P3E_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_ppm_adv_r.F 137 GAD_PPM_ADV_R 
          CALL GAD_PPM_HAT_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_ppm_adv_r.F 144 GAD_PPM_ADV_R 
          CALL GAD_PPM_FLX_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_ppm_adv_r.F 153 GAD_PPM_ADV_R 
              flux(ix,iy,ir) = 0.0 _d +0
./pkg/generic_advdiff/gad_ppm_adv_r.F 61 GAD_PPM_ADV_R 
          integer ix,iy,ir
./pkg/generic_advdiff/gad_ppm_adv_r.F 89 GAD_PPM_ADV_R 
          do iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_ppm_adv_r.F 92 GAD_PPM_ADV_R 
          flux(ix,iy,+1) = 0.0 _d +0
./pkg/generic_advdiff/gad_ppm_adv_r.F 97 GAD_PPM_ADV_R 
          do iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_ppm_adv_x.F 106 GAD_PPM_ADV_X 
              floc(ix) = fbar (ix,iy)
./pkg/generic_advdiff/gad_ppm_adv_x.F 108 GAD_PPM_ADV_X 
     &          maskC(ix,iy,kk,bi,bj)
./pkg/generic_advdiff/gad_ppm_adv_x.F 113 GAD_PPM_ADV_X 
          CALL GAD_OSC_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_adv_x.F 119 GAD_PPM_ADV_X 
          CALL GAD_PPM_P3E_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_adv_x.F 124 GAD_PPM_ADV_X 
          CALL GAD_PPM_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_adv_x.F 131 GAD_PPM_ADV_X 
          CALL GAD_PPM_FLX_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_adv_x.F 141 GAD_PPM_ADV_X 
              flux(ix,iy) = 0.0 _d 0
./pkg/generic_advdiff/gad_ppm_adv_x.F 60 GAD_PPM_ADV_X 
          integer ix,iy
./pkg/generic_advdiff/gad_ppm_adv_x.F 70 GAD_PPM_ADV_X 
          do iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_ppm_adv_x.F 72 GAD_PPM_ADV_X 
              flux( +1-OLx+0,iy) = 0. _d 0
./pkg/generic_advdiff/gad_ppm_adv_x.F 73 GAD_PPM_ADV_X 
              flux( +1-OLx+1,iy) = 0. _d 0
./pkg/generic_advdiff/gad_ppm_adv_x.F 74 GAD_PPM_ADV_X 
              flux( +1-OLx+2,iy) = 0. _d 0
./pkg/generic_advdiff/gad_ppm_adv_x.F 75 GAD_PPM_ADV_X 
              flux( +1-OLx+3,iy) = 0. _d 0
./pkg/generic_advdiff/gad_ppm_adv_x.F 76 GAD_PPM_ADV_X 
              flux(sNx+OLx-0,iy) = 0. _d 0
./pkg/generic_advdiff/gad_ppm_adv_x.F 77 GAD_PPM_ADV_X 
              flux(sNx+OLx-1,iy) = 0. _d 0
./pkg/generic_advdiff/gad_ppm_adv_x.F 78 GAD_PPM_ADV_X 
              flux(sNx+OLx-2,iy) = 0. _d 0
./pkg/generic_advdiff/gad_ppm_adv_x.F 93 GAD_PPM_ADV_X 
          do iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_ppm_adv_x.F 99 GAD_PPM_ADV_X 
     &             + abs(ufac(ix,iy))
./pkg/generic_advdiff/gad_ppm_adv_y.F 104 GAD_PPM_ADV_Y 
          do iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_ppm_adv_y.F 106 GAD_PPM_ADV_Y 
              floc(iy) = fbar (ix,iy)
./pkg/generic_advdiff/gad_ppm_adv_y.F 107 GAD_PPM_ADV_Y 
              mloc(iy) =
./pkg/generic_advdiff/gad_ppm_adv_y.F 108 GAD_PPM_ADV_Y 
     &          maskC(ix,iy,kk,bi,bj)
./pkg/generic_advdiff/gad_ppm_adv_y.F 139 GAD_PPM_ADV_Y 
          do iy = 1-OLy+3, sNy+OLy-2
./pkg/generic_advdiff/gad_ppm_adv_y.F 141 GAD_PPM_ADV_Y 
              flux(ix,iy) = 0.0 _d 0
./pkg/generic_advdiff/gad_ppm_adv_y.F 60 GAD_PPM_ADV_Y 
          integer ix,iy
./pkg/generic_advdiff/gad_ppm_adv_y.F 96 GAD_PPM_ADV_Y 
          do iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_ppm_adv_y.F 99 GAD_PPM_ADV_Y 
     &             + abs(vfac(ix,iy))
./pkg/generic_advdiff/gad_ppm_flx_r.F 100 GAD_PPM_FLX_R 
              wCFL = wvel(ix,iy,ir)
./pkg/generic_advdiff/gad_ppm_flx_r.F 122 GAD_PPM_FLX_R 
              flux(ix,iy,ir) = + wfac(ix,iy,ir) * intF
./pkg/generic_advdiff/gad_ppm_flx_r.F 31 GAD_PPM_FLX_R 
          integer bi,bj,ix,iy
./pkg/generic_advdiff/gad_ppm_flx_r.F 69 GAD_PPM_FLX_R 
              if (wvel(ix,iy,ir) .eq. 0. _d 0) then
./pkg/generic_advdiff/gad_ppm_flx_r.F 6 GAD_PPM_FLX_R 
      SUBROUTINE GAD_PPM_FLX_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_ppm_flx_r.F 71 GAD_PPM_FLX_R 
                  flux(ix,iy,ir)    = 0. _d 0
./pkg/generic_advdiff/gad_ppm_flx_r.F 75 GAD_PPM_FLX_R 
              if (wvel(ix,iy,ir) .lt. 0. _d 0) then
./pkg/generic_advdiff/gad_ppm_flx_r.F 78 GAD_PPM_FLX_R 
              wCFL = wvel(ix,iy,ir)
./pkg/generic_advdiff/gad_ppm_flx_x.F 105 GAD_PPM_FLX_X 
              uCFL = uvel(ix,iy) * delT
./pkg/generic_advdiff/gad_ppm_flx_x.F 106 GAD_PPM_FLX_X 
     &             * recip_dxF(ix-0,iy,bi,bj)
./pkg/generic_advdiff/gad_ppm_flx_x.F 109 GAD_PPM_FLX_X 
              uCFL = uvel(ix,iy)
./pkg/generic_advdiff/gad_ppm_flx_x.F 131 GAD_PPM_FLX_X 
              flux(ix,iy) = + ufac(ix,iy) * intF
./pkg/generic_advdiff/gad_ppm_flx_x.F 32 GAD_PPM_FLX_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_ppm_flx_x.F 68 GAD_PPM_FLX_X 
              if (uvel(ix,iy) .eq. 0. _d 0) then
./pkg/generic_advdiff/gad_ppm_flx_x.F 6 GAD_PPM_FLX_X 
      SUBROUTINE GAD_PPM_FLX_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_flx_x.F 70 GAD_PPM_FLX_X 
                  flux(ix,iy)    = 0. _d 0
./pkg/generic_advdiff/gad_ppm_flx_x.F 74 GAD_PPM_FLX_X 
              if (uvel(ix,iy) .gt. 0. _d 0) then
./pkg/generic_advdiff/gad_ppm_flx_x.F 78 GAD_PPM_FLX_X 
              uCFL = uvel(ix,iy) * delT
./pkg/generic_advdiff/gad_ppm_flx_x.F 79 GAD_PPM_FLX_X 
     &             * recip_dxF(ix-1,iy,bi,bj)
./pkg/generic_advdiff/gad_ppm_flx_x.F 82 GAD_PPM_FLX_X 
              uCFL = uvel(ix,iy)
./pkg/generic_advdiff/gad_ppm_flx_y.F 105 GAD_PPM_FLX_Y 
              vCFL = vvel(ix,iy) * delT
./pkg/generic_advdiff/gad_ppm_flx_y.F 106 GAD_PPM_FLX_Y 
     &             * recip_dyF(ix,iy-0,bi,bj)
./pkg/generic_advdiff/gad_ppm_flx_y.F 109 GAD_PPM_FLX_Y 
              vCFL = vvel(ix,iy)
./pkg/generic_advdiff/gad_ppm_flx_y.F 122 GAD_PPM_FLX_Y 
              intF = ivec(1) * fhat(1,iy-0)
./pkg/generic_advdiff/gad_ppm_flx_y.F 123 GAD_PPM_FLX_Y 
     &             + ivec(2) * fhat(2,iy-0)
./pkg/generic_advdiff/gad_ppm_flx_y.F 124 GAD_PPM_FLX_Y 
     &             + ivec(3) * fhat(3,iy-0)
./pkg/generic_advdiff/gad_ppm_flx_y.F 131 GAD_PPM_FLX_Y 
              flux(ix,iy) = + vfac(ix,iy) * intF
./pkg/generic_advdiff/gad_ppm_flx_y.F 52 GAD_PPM_FLX_Y 
          integer iy
./pkg/generic_advdiff/gad_ppm_flx_y.F 66 GAD_PPM_FLX_Y 
          do  iy = 1-OLy+3, sNy+OLy-2
./pkg/generic_advdiff/gad_ppm_flx_y.F 68 GAD_PPM_FLX_Y 
              if (vvel(ix,iy) .eq. 0. _d 0) then
./pkg/generic_advdiff/gad_ppm_flx_y.F 70 GAD_PPM_FLX_Y 
                  flux(ix,iy)    = 0. _d 0
./pkg/generic_advdiff/gad_ppm_flx_y.F 74 GAD_PPM_FLX_Y 
              if (vvel(ix,iy) .gt. 0. _d 0) then
./pkg/generic_advdiff/gad_ppm_flx_y.F 78 GAD_PPM_FLX_Y 
              vCFL = vvel(ix,iy) * delT
./pkg/generic_advdiff/gad_ppm_flx_y.F 79 GAD_PPM_FLX_Y 
     &             * recip_dyF(ix,iy-1,bi,bj)
./pkg/generic_advdiff/gad_ppm_flx_y.F 82 GAD_PPM_FLX_Y 
              vCFL = vvel(ix,iy)
./pkg/generic_advdiff/gad_ppm_flx_y.F 95 GAD_PPM_FLX_Y 
              intF = ivec(1) * fhat(1,iy-1)
./pkg/generic_advdiff/gad_ppm_flx_y.F 96 GAD_PPM_FLX_Y 
     &             + ivec(2) * fhat(2,iy-1)
./pkg/generic_advdiff/gad_ppm_flx_y.F 97 GAD_PPM_FLX_Y 
     &             + ivec(3) * fhat(3,iy-1)
./pkg/generic_advdiff/gad_ppm_hat_r.F 34 GAD_PPM_HAT_R 
          integer bi,bj,ix,iy
./pkg/generic_advdiff/gad_ppm_hat_r.F 6 GAD_PPM_HAT_R 
      SUBROUTINE GAD_PPM_HAT_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_ppm_hat_x.F 35 GAD_PPM_HAT_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_ppm_hat_x.F 6 GAD_PPM_HAT_X 
      SUBROUTINE GAD_PPM_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_hat_y.F 115 GAD_PPM_HAT_Y 
                  CALL GAD_OSC_MUL_Y(iy,+2,mask,
./pkg/generic_advdiff/gad_ppm_hat_y.F 133 GAD_PPM_HAT_Y 
                  fhat(ii,iy) = lhat(ii)
./pkg/generic_advdiff/gad_ppm_hat_y.F 57 GAD_PPM_HAT_Y 
          integer ii,iy
./pkg/generic_advdiff/gad_ppm_hat_y.F 68 GAD_PPM_HAT_Y 
          do  iy = 1-OLy+2, sNy+OLy-2
./pkg/generic_advdiff/gad_ppm_hat_y.F 71 GAD_PPM_HAT_Y 
              ff00 = fbar(iy+0)
./pkg/generic_advdiff/gad_ppm_hat_y.F 73 GAD_PPM_HAT_Y 
     &             + mask(iy-1)*(fbar(iy-1)-ff00)
./pkg/generic_advdiff/gad_ppm_hat_y.F 75 GAD_PPM_HAT_Y 
     &             + mask(iy+1)*(fbar(iy+1)-ff00)
./pkg/generic_advdiff/gad_ppm_hat_y.F 77 GAD_PPM_HAT_Y 
              fell = edge(iy-0)
./pkg/generic_advdiff/gad_ppm_hat_y.F 78 GAD_PPM_HAT_Y 
              ferr = edge(iy+1)
./pkg/generic_advdiff/gad_ppm_p3e_r.F 21 GAD_PPM_P3E_R 
          integer bi,bj,ix,iy
./pkg/generic_advdiff/gad_ppm_p3e_r.F 6 GAD_PPM_P3E_R 
      SUBROUTINE GAD_PPM_P3E_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_ppm_p3e_x.F 21 GAD_PPM_P3E_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_ppm_p3e_x.F 6 GAD_PPM_P3E_X 
      SUBROUTINE GAD_PPM_P3E_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_p3e_y.F 28 GAD_PPM_P3E_Y 
          integer iy
./pkg/generic_advdiff/gad_ppm_p3e_y.F 34 GAD_PPM_P3E_Y 
          do  iy = 1-OLy+2, sNy+OLy-1
./pkg/generic_advdiff/gad_ppm_p3e_y.F 37 GAD_PPM_P3E_Y 
              mloc(-1) = mask(iy-1)
./pkg/generic_advdiff/gad_ppm_p3e_y.F 38 GAD_PPM_P3E_Y 
              mloc(+0) = mask(iy+0)
./pkg/generic_advdiff/gad_ppm_p3e_y.F 40 GAD_PPM_P3E_Y 
              floc(-1) = fbar(iy+0)
./pkg/generic_advdiff/gad_ppm_p3e_y.F 41 GAD_PPM_P3E_Y 
     &          + mloc(-1)*(fbar(iy-1)-fbar(iy+0))
./pkg/generic_advdiff/gad_ppm_p3e_y.F 42 GAD_PPM_P3E_Y 
              floc(+0) = fbar(iy-1)
./pkg/generic_advdiff/gad_ppm_p3e_y.F 43 GAD_PPM_P3E_Y 
     &          + mloc(+0)*(fbar(iy+0)-fbar(iy-1))
./pkg/generic_advdiff/gad_ppm_p3e_y.F 45 GAD_PPM_P3E_Y 
              mloc(-2) = mask(iy-2) * mloc(-1)
./pkg/generic_advdiff/gad_ppm_p3e_y.F 49 GAD_PPM_P3E_Y 
     &          + mloc(-2)*(fbar(iy-2)-ftmp)
./pkg/generic_advdiff/gad_ppm_p3e_y.F 51 GAD_PPM_P3E_Y 
              mloc(+1) = mask(iy+1) * mloc(+0)
./pkg/generic_advdiff/gad_ppm_p3e_y.F 55 GAD_PPM_P3E_Y 
     &          + mloc(+1)*(fbar(iy+1)-ftmp)
./pkg/generic_advdiff/gad_ppm_p3e_y.F 58 GAD_PPM_P3E_Y 
              edge(iy) =
./pkg/generic_advdiff/gad_pqm_adv_r.F 104 GAD_PQM_ADV_R 
     &             + abs(wfac(ix,iy,ir))
./pkg/generic_advdiff/gad_pqm_adv_r.F 106 GAD_PQM_ADV_R 
              floc(ir) = fbar (ix,iy,ir)
./pkg/generic_advdiff/gad_pqm_adv_r.F 108 GAD_PQM_ADV_R 
     &             maskC(ix,iy,ir,bi,bj)
./pkg/generic_advdiff/gad_pqm_adv_r.F 123 GAD_PQM_ADV_R 
          CALL GAD_OSC_HAT_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_pqm_adv_r.F 129 GAD_PQM_ADV_R 
          CALL GAD_PQM_P5E_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_pqm_adv_r.F 134 GAD_PQM_ADV_R 
          CALL GAD_PQM_HAT_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_pqm_adv_r.F 141 GAD_PQM_ADV_R 
          CALL GAD_PQM_FLX_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_pqm_adv_r.F 150 GAD_PQM_ADV_R 
              flux(ix,iy,ir) = 0. _d 0
./pkg/generic_advdiff/gad_pqm_adv_r.F 61 GAD_PQM_ADV_R 
          integer ix,iy,ir
./pkg/generic_advdiff/gad_pqm_adv_r.F 89 GAD_PQM_ADV_R 
          do iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_pqm_adv_r.F 92 GAD_PQM_ADV_R 
          flux(ix,iy,+1) = 0.0 _d +0
./pkg/generic_advdiff/gad_pqm_adv_r.F 97 GAD_PQM_ADV_R 
          do iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_pqm_adv_x.F 100 GAD_PQM_ADV_X 
     &             + abs(ufac(ix,iy))
./pkg/generic_advdiff/gad_pqm_adv_x.F 102 GAD_PQM_ADV_X 
              floc(ix) = fbar (ix,iy)
./pkg/generic_advdiff/gad_pqm_adv_x.F 104 GAD_PQM_ADV_X 
     &          maskC(ix,iy,kk,bi,bj)
./pkg/generic_advdiff/gad_pqm_adv_x.F 111 GAD_PQM_ADV_X 
          CALL GAD_OSC_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_adv_x.F 117 GAD_PQM_ADV_X 
          CALL GAD_PQM_P5E_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_adv_x.F 122 GAD_PQM_ADV_X 
          CALL GAD_PQM_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_adv_x.F 129 GAD_PQM_ADV_X 
          CALL GAD_PQM_FLX_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_adv_x.F 139 GAD_PQM_ADV_X 
              flux(ix,iy) = 0.0 _d 0
./pkg/generic_advdiff/gad_pqm_adv_x.F 60 GAD_PQM_ADV_X 
          integer ix,iy
./pkg/generic_advdiff/gad_pqm_adv_x.F 71 GAD_PQM_ADV_X 
          do iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_pqm_adv_x.F 73 GAD_PQM_ADV_X 
              flux( +1-OLx+0,iy) = 0. _d 0
./pkg/generic_advdiff/gad_pqm_adv_x.F 74 GAD_PQM_ADV_X 
              flux( +1-OLx+1,iy) = 0. _d 0
./pkg/generic_advdiff/gad_pqm_adv_x.F 75 GAD_PQM_ADV_X 
              flux( +1-OLx+2,iy) = 0. _d 0
./pkg/generic_advdiff/gad_pqm_adv_x.F 76 GAD_PQM_ADV_X 
              flux( +1-OLx+3,iy) = 0. _d 0
./pkg/generic_advdiff/gad_pqm_adv_x.F 77 GAD_PQM_ADV_X 
              flux(sNx+OLx-0,iy) = 0. _d 0
./pkg/generic_advdiff/gad_pqm_adv_x.F 78 GAD_PQM_ADV_X 
              flux(sNx+OLx-1,iy) = 0. _d 0
./pkg/generic_advdiff/gad_pqm_adv_x.F 79 GAD_PQM_ADV_X 
              flux(sNx+OLx-2,iy) = 0. _d 0
./pkg/generic_advdiff/gad_pqm_adv_x.F 94 GAD_PQM_ADV_X 
          do iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_pqm_adv_y.F 100 GAD_PQM_ADV_Y 
     &             + abs(vfac(ix,iy))
./pkg/generic_advdiff/gad_pqm_adv_y.F 102 GAD_PQM_ADV_Y 
              floc(iy) = fbar (ix,iy)
./pkg/generic_advdiff/gad_pqm_adv_y.F 103 GAD_PQM_ADV_Y 
              mloc(iy) =
./pkg/generic_advdiff/gad_pqm_adv_y.F 104 GAD_PQM_ADV_Y 
     &          maskC(ix,iy,kk,bi,bj)
./pkg/generic_advdiff/gad_pqm_adv_y.F 137 GAD_PQM_ADV_Y 
          do iy = 1-OLy+4, sNy+OLy-3
./pkg/generic_advdiff/gad_pqm_adv_y.F 139 GAD_PQM_ADV_Y 
              flux(ix,iy) = 0.0 _d 0
./pkg/generic_advdiff/gad_pqm_adv_y.F 60 GAD_PQM_ADV_Y 
          integer ix,iy
./pkg/generic_advdiff/gad_pqm_adv_y.F 97 GAD_PQM_ADV_Y 
          do iy = 1-OLy+0, sNy+OLy-0
./pkg/generic_advdiff/gad_pqm_flx_r.F 106 GAD_PQM_FLX_R 
              wCFL = wvel(ix,iy,ir)
./pkg/generic_advdiff/gad_pqm_flx_r.F 134 GAD_PQM_FLX_R 
              flux(ix,iy,ir) = + wfac(ix,iy,ir) * intF
./pkg/generic_advdiff/gad_pqm_flx_r.F 31 GAD_PQM_FLX_R 
          integer bi,bj,ix,iy
./pkg/generic_advdiff/gad_pqm_flx_r.F 69 GAD_PQM_FLX_R 
              if (wfac(ix,iy,ir) .eq. 0. _d 0) then
./pkg/generic_advdiff/gad_pqm_flx_r.F 6 GAD_PQM_FLX_R 
      SUBROUTINE GAD_PQM_FLX_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_pqm_flx_r.F 71 GAD_PQM_FLX_R 
                  flux(ix,iy,ir)    = 0. _d 0
./pkg/generic_advdiff/gad_pqm_flx_r.F 75 GAD_PQM_FLX_R 
              if (wfac(ix,iy,ir) .lt. 0. _d 0) then
./pkg/generic_advdiff/gad_pqm_flx_r.F 78 GAD_PQM_FLX_R 
              wCFL = wvel(ix,iy,ir)
./pkg/generic_advdiff/gad_pqm_flx_x.F 111 GAD_PQM_FLX_X 
              uCFL = uvel(ix,iy) * delT
./pkg/generic_advdiff/gad_pqm_flx_x.F 112 GAD_PQM_FLX_X 
     &             * recip_dxF(ix-0,iy,bi,bj)
./pkg/generic_advdiff/gad_pqm_flx_x.F 115 GAD_PQM_FLX_X 
              uCFL = uvel(ix,iy)
./pkg/generic_advdiff/gad_pqm_flx_x.F 143 GAD_PQM_FLX_X 
              flux(ix,iy) = + ufac(ix,iy) * intF
./pkg/generic_advdiff/gad_pqm_flx_x.F 32 GAD_PQM_FLX_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_pqm_flx_x.F 68 GAD_PQM_FLX_X 
              if (uvel(ix,iy) .eq. 0. _d 0) then
./pkg/generic_advdiff/gad_pqm_flx_x.F 6 GAD_PQM_FLX_X 
      SUBROUTINE GAD_PQM_FLX_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_flx_x.F 70 GAD_PQM_FLX_X 
                  flux(ix,iy)    = 0. _d 0
./pkg/generic_advdiff/gad_pqm_flx_x.F 74 GAD_PQM_FLX_X 
              if (uvel(ix,iy) .gt. 0. _d 0) then
./pkg/generic_advdiff/gad_pqm_flx_x.F 78 GAD_PQM_FLX_X 
              uCFL = uvel(ix,iy) * delT
./pkg/generic_advdiff/gad_pqm_flx_x.F 79 GAD_PQM_FLX_X 
     &             * recip_dxF(ix-1,iy,bi,bj)
./pkg/generic_advdiff/gad_pqm_flx_x.F 82 GAD_PQM_FLX_X 
              uCFL = uvel(ix,iy)
./pkg/generic_advdiff/gad_pqm_flx_y.F 100 GAD_PQM_FLX_Y 
     &             + ivec(2) * fhat(2,iy-1)
./pkg/generic_advdiff/gad_pqm_flx_y.F 101 GAD_PQM_FLX_Y 
     &             + ivec(3) * fhat(3,iy-1)
./pkg/generic_advdiff/gad_pqm_flx_y.F 102 GAD_PQM_FLX_Y 
     &             + ivec(4) * fhat(4,iy-1)
./pkg/generic_advdiff/gad_pqm_flx_y.F 103 GAD_PQM_FLX_Y 
     &             + ivec(5) * fhat(5,iy-1)
./pkg/generic_advdiff/gad_pqm_flx_y.F 111 GAD_PQM_FLX_Y 
              vCFL = vvel(ix,iy) * delT
./pkg/generic_advdiff/gad_pqm_flx_y.F 112 GAD_PQM_FLX_Y 
     &             * recip_dyF(ix,iy-0,bi,bj)
./pkg/generic_advdiff/gad_pqm_flx_y.F 115 GAD_PQM_FLX_Y 
              vCFL = vvel(ix,iy)
./pkg/generic_advdiff/gad_pqm_flx_y.F 132 GAD_PQM_FLX_Y 
              intF = ivec(1) * fhat(1,iy-0)
./pkg/generic_advdiff/gad_pqm_flx_y.F 133 GAD_PQM_FLX_Y 
     &             + ivec(2) * fhat(2,iy-0)
./pkg/generic_advdiff/gad_pqm_flx_y.F 134 GAD_PQM_FLX_Y 
     &             + ivec(3) * fhat(3,iy-0)
./pkg/generic_advdiff/gad_pqm_flx_y.F 135 GAD_PQM_FLX_Y 
     &             + ivec(4) * fhat(4,iy-0)
./pkg/generic_advdiff/gad_pqm_flx_y.F 136 GAD_PQM_FLX_Y 
     &             + ivec(5) * fhat(5,iy-0)
./pkg/generic_advdiff/gad_pqm_flx_y.F 143 GAD_PQM_FLX_Y 
              flux(ix,iy) = + vfac(ix,iy) * intF
./pkg/generic_advdiff/gad_pqm_flx_y.F 52 GAD_PQM_FLX_Y 
          integer iy
./pkg/generic_advdiff/gad_pqm_flx_y.F 66 GAD_PQM_FLX_Y 
          do  iy = 1-OLy+4, sNy+OLy-3
./pkg/generic_advdiff/gad_pqm_flx_y.F 68 GAD_PQM_FLX_Y 
              if (vvel(ix,iy) .eq. 0. _d 0) then
./pkg/generic_advdiff/gad_pqm_flx_y.F 70 GAD_PQM_FLX_Y 
                  flux(ix,iy)    = 0. _d 0
./pkg/generic_advdiff/gad_pqm_flx_y.F 74 GAD_PQM_FLX_Y 
              if (vvel(ix,iy) .gt. 0. _d 0) then
./pkg/generic_advdiff/gad_pqm_flx_y.F 78 GAD_PQM_FLX_Y 
              vCFL = vvel(ix,iy) * delT
./pkg/generic_advdiff/gad_pqm_flx_y.F 79 GAD_PQM_FLX_Y 
     &             * recip_dyF(ix,iy-1,bi,bj)
./pkg/generic_advdiff/gad_pqm_flx_y.F 82 GAD_PQM_FLX_Y 
              vCFL = vvel(ix,iy)
./pkg/generic_advdiff/gad_pqm_flx_y.F 99 GAD_PQM_FLX_Y 
              intF = ivec(1) * fhat(1,iy-1)
./pkg/generic_advdiff/gad_pqm_hat_r.F 37 GAD_PQM_HAT_R 
          integer ix,iy
./pkg/generic_advdiff/gad_pqm_hat_r.F 6 GAD_PQM_HAT_R 
      SUBROUTINE GAD_PQM_HAT_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_pqm_hat_x.F 37 GAD_PQM_HAT_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_pqm_hat_x.F 6 GAD_PQM_HAT_X 
      SUBROUTINE GAD_PQM_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_hat_x.F 80 GAD_PQM_HAT_X 
              xhat = dxF(ix,iy,bi,bj) * 0.5 _d 0
./pkg/generic_advdiff/gad_pqm_hat_y.F 136 GAD_PQM_HAT_Y 
                  CALL GAD_OSC_MUL_Y(iy,+2,mask,
./pkg/generic_advdiff/gad_pqm_hat_y.F 154 GAD_PQM_HAT_Y 
                  fhat(ii,iy) = lhat(ii)
./pkg/generic_advdiff/gad_pqm_hat_y.F 160 GAD_PQM_HAT_Y 
                  fhat(ii,iy) = 0.0 _d 0
./pkg/generic_advdiff/gad_pqm_hat_y.F 62 GAD_PQM_HAT_Y 
          integer ii,iy
./pkg/generic_advdiff/gad_pqm_hat_y.F 76 GAD_PQM_HAT_Y 
          do  iy = 1-OLy+3, sNy+OLy-3
./pkg/generic_advdiff/gad_pqm_hat_y.F 78 GAD_PQM_HAT_Y 
             if (mask(iy) .gt. 0. _d 0) then
./pkg/generic_advdiff/gad_pqm_hat_y.F 81 GAD_PQM_HAT_Y 
              yhat = dyF(ix,iy,bi,bj) * 0.5 _d 0
./pkg/generic_advdiff/gad_pqm_hat_y.F 84 GAD_PQM_HAT_Y 
              ff00 = fbar(iy+0)
./pkg/generic_advdiff/gad_pqm_hat_y.F 86 GAD_PQM_HAT_Y 
     &         + mask(iy-1)*(fbar(iy-1)-ff00)
./pkg/generic_advdiff/gad_pqm_hat_y.F 88 GAD_PQM_HAT_Y 
     &         + mask(iy+1)*(fbar(iy+1)-ff00)
./pkg/generic_advdiff/gad_pqm_hat_y.F 90 GAD_PQM_HAT_Y 
              fell = edge(+1,iy-0)
./pkg/generic_advdiff/gad_pqm_hat_y.F 91 GAD_PQM_HAT_Y 
              ferr = edge(+1,iy+1)
./pkg/generic_advdiff/gad_pqm_hat_y.F 93 GAD_PQM_HAT_Y 
              dell = edge(+2,iy-0)
./pkg/generic_advdiff/gad_pqm_hat_y.F 94 GAD_PQM_HAT_Y 
              derr = edge(+2,iy+1)
./pkg/generic_advdiff/gad_pqm_p5e_r.F 21 GAD_PQM_P5E_R 
          integer bi,bj,ix,iy
./pkg/generic_advdiff/gad_pqm_p5e_r.F 6 GAD_PQM_P5E_R 
      SUBROUTINE GAD_PQM_P5E_R(bi,bj,ix,iy,
./pkg/generic_advdiff/gad_pqm_p5e_x.F 21 GAD_PQM_P5E_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_pqm_p5e_x.F 6 GAD_PQM_P5E_X 
      SUBROUTINE GAD_PQM_P5E_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_p5e_x.F 75 GAD_PQM_P5E_X 
     &                ) * recip_dxC(ix,iy,bi,bj)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 29 GAD_PQM_P5E_Y 
          integer iy
./pkg/generic_advdiff/gad_pqm_p5e_y.F 35 GAD_PQM_P5E_Y 
          do  iy = 1-OLy+3, sNy+OLy-2
./pkg/generic_advdiff/gad_pqm_p5e_y.F 38 GAD_PQM_P5E_Y 
              mloc(-1) = mask(iy-1)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 39 GAD_PQM_P5E_Y 
              mloc(+0) = mask(iy+0)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 41 GAD_PQM_P5E_Y 
              floc(-1) = fbar(iy+0)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 42 GAD_PQM_P5E_Y 
     &          + mloc(-1)*(fbar(iy-1)-fbar(iy+0))
./pkg/generic_advdiff/gad_pqm_p5e_y.F 43 GAD_PQM_P5E_Y 
              floc(+0) = fbar(iy-1)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 44 GAD_PQM_P5E_Y 
     &          + mloc(+0)*(fbar(iy+0)-fbar(iy-1))
./pkg/generic_advdiff/gad_pqm_p5e_y.F 46 GAD_PQM_P5E_Y 
              mloc(-2) = mask(iy-2) * mloc(-1)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 47 GAD_PQM_P5E_Y 
              mloc(-3) = mask(iy-3) * mloc(-2)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 51 GAD_PQM_P5E_Y 
     &          + mloc(-2)*(fbar(iy-2)-ftmp)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 54 GAD_PQM_P5E_Y 
     &          + mloc(-3)*(fbar(iy-3)-ftmp)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 56 GAD_PQM_P5E_Y 
              mloc(+1) = mask(iy+1) * mloc(+0)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 57 GAD_PQM_P5E_Y 
              mloc(+2) = mask(iy+2) * mloc(+1)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 61 GAD_PQM_P5E_Y 
     &          + mloc(+1)*(fbar(iy+1)-ftmp)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 64 GAD_PQM_P5E_Y 
     &          + mloc(+2)*(fbar(iy+2)-ftmp)
./pkg/generic_advdiff/gad_pqm_p5e_y.F 67 GAD_PQM_P5E_Y 
              edge(1,iy) =
./pkg/generic_advdiff/gad_pqm_p5e_y.F 72 GAD_PQM_P5E_Y 
              edge(2,iy) = (
./pkg/generic_advdiff/gad_pqm_p5e_y.F 76 GAD_PQM_P5E_Y 
     &                ) * recip_dyC(ix,iy,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 195 DIAG_CALC_PSIVEL 
         iy = 0
./pkg/diagnostics/diag_calc_psivel.F 199 DIAG_CALC_PSIVEL 
           IF ( kPsi(i,j) .AND. iy.EQ.0 ) THEN
./pkg/diagnostics/diag_calc_psivel.F 200 DIAG_CALC_PSIVEL 
             iy = i
./pkg/diagnostics/diag_calc_psivel.F 205 DIAG_CALC_PSIVEL 
         IF ( iy.NE.0 ) dPsiY (bi,bj) = psiVel(iy,jy,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 210 DIAG_CALC_PSIVEL 
     &                 ' ; ix,jx=', ix,jx, ' ; iy,jy=', iy,jy
./pkg/diagnostics/diag_calc_psivel.F 73 DIAG_CALC_PSIVEL 
      INTEGER is, js, ix, jx, iy, jy, ijCnt