yq_periodic Subroutine

public subroutine yq_periodic()

Uses

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

Arguments

None

Called by

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

Source Code

   subroutine yq_periodic
      use modglobal, only : jb, je, jh
      use modfields, only : qt0, qtm

      integer m

      do m = 1, jh
         qt0(:, jb - m, :) = qt0(:, je + 1 - m, :)
         qt0(:, je + m, :) = qt0(:, jb - 1 + m, :)
         qtm(:, jb - m, :) = qtm(:, je + 1 - m, :)
         qtm(:, je + m, :) = qtm(:, jb - 1 + m, :)
      end do

      return
   end subroutine yq_periodic