cyclicsi Subroutine

private subroutine cyclicsi()

Uses

  • proc~~cyclicsi~~UsesGraph proc~cyclicsi modboundary::cyclicsi module~modfields modfields proc~cyclicsi->module~modfields module~modglobal modglobal proc~cyclicsi->module~modglobal

Arguments

None

Called by

proc~~cyclicsi~~CalledByGraph proc~cyclicsi modboundary::cyclicsi proc~boundary modboundary::boundary proc~boundary->proc~cyclicsi proc~readinitfiles modstartup::readinitfiles proc~readinitfiles->proc~boundary program~dalesurban DALESURBAN program~dalesurban->proc~boundary proc~startup modstartup::startup program~dalesurban->proc~startup proc~startup->proc~readinitfiles

Contents

Source Code

cyclicsi

Source Code

   subroutine cyclicsi
      use modglobal, only:ib, ie, jb, je, ih, jh, kb, ke, kh, nsv, dt, rk3step, dxhi, ihc, jhc, khc, dy
      use modfields, only:sv0, svm
      integer m

      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 cyclicsi