xq_periodic Subroutine

public subroutine xq_periodic()

Uses

  • proc~~xq_periodic~~UsesGraph proc~xq_periodic xq_periodic module~modfields modfields proc~xq_periodic->module~modfields module~modglobal modglobal proc~xq_periodic->module~modglobal decomp_2d decomp_2d module~modfields->decomp_2d

Arguments

None

Called by

proc~~xq_periodic~~CalledByGraph proc~xq_periodic xq_periodic proc~halos halos proc~halos->proc~xq_periodic proc~readinitfiles readinitfiles proc~readinitfiles->proc~halos program~dalesurban DALESURBAN program~dalesurban->proc~halos program~dalesurban->proc~readinitfiles

Source Code

   subroutine xq_periodic
      use modglobal, only : ib, ie, ih
      use modfields, only : qt0, qtm
      integer m

      do m = 1, ih
         qt0(ib - m, :, :) = qt0(ie + 1 - m, :, :)
         qt0(ie + m, :, :) = qt0(ib - 1 + m, :, :)
         qtm(ib - m, :, :) = qtm(ie + 1 - m, :, :)
         qtm(ie + m, :, :) = qtm(ib - 1 + m, :, :)
      end do

      return
   end subroutine xq_periodic