xs_periodic Subroutine

public subroutine xs_periodic()

Uses

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

Arguments

None

Called by

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

Source Code

   subroutine xs_periodic
      use modglobal, only : ib, ie, ihc
      use modfields, only : sv0, svm
      integer m, n

      do m = 1, ihc
         sv0(ib - m, :, :, :) = sv0(ie + 1 - m, :, :, :)
         sv0(ie + m, :, :, :) = sv0(ib - 1 + m, :, :, :)
         svm(ib - m, :, :, :) = svm(ie + 1 - m, :, :, :)
         svm(ie + m, :, :, :) = svm(ib - 1 + m, :, :, :)
      end do

      return
   end subroutine xs_periodic