ys_periodic Subroutine

public subroutine ys_periodic()

Uses

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

Arguments

None

Called by

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

Source Code

   subroutine ys_periodic
      use modglobal, only : jb, je, jhc, nsv
      use modfields, only : sv0, svm
      integer n, m

      do n = 1, nsv
        do m = 1, jhc
          sv0(:, jb - m, :, :) = sv0(:, je + 1 - m, :, :)
          sv0(:, je + m, :, :) = sv0(:, jb - 1 + m, :, :)
          svm(:, jb - m, :, :) = svm(:, je + 1 - m, :, :)
          svm(:, je + m, :, :) = svm(:, jb - 1 + m, :, :)
        end do
      end do

      return
   end subroutine ys_periodic