yT_periodic Subroutine

public subroutine yT_periodic()

Uses

  • proc~~yt_periodic~~UsesGraph proc~yt_periodic yT_periodic module~modfields modfields proc~yt_periodic->module~modfields module~modglobal modglobal proc~yt_periodic->module~modglobal module~modmpi modmpi proc~yt_periodic->module~modmpi decomp_2d decomp_2d module~modfields->decomp_2d mpi mpi module~modmpi->mpi

Arguments

None

Called by

proc~~yt_periodic~~CalledByGraph proc~yt_periodic yT_periodic proc~halos halos proc~halos->proc~yt_periodic proc~readinitfiles readinitfiles proc~readinitfiles->proc~halos program~dalesurban DALESURBAN program~dalesurban->proc~halos program~dalesurban->proc~readinitfiles

Source Code

   subroutine yT_periodic
      use modglobal, only : jb, je, jh, jhc
      use modfields, only : thl0, thlm, thl0c
      use modmpi, only:excjs, myid, nprocs
      integer m

      do m = 1, jh
         thl0(:, jb - m, :) = thl0(:, je + 1 - m, :)
         thl0(:, je + m, :) = thl0(:, jb - 1 + m, :)
         thlm(:, jb - m, :) = thlm(:, je + 1 - m, :)
         thlm(:, je + m, :) = thlm(:, jb - 1 + m, :)
      end do

      do m = 1, jhc
         thl0c(:, jb - m, :) = thl0c(:, je + 1 - m, :)
         thl0c(:, je + m, :) = thl0c(:, jb - 1 + m, :)
      end do

      return
   end subroutine yT_periodic