cyclicsj Subroutine

private subroutine cyclicsj()

Uses

  • proc~~cyclicsj~~UsesGraph proc~cyclicsj modboundary::cyclicsj module~modfields modfields proc~cyclicsj->module~modfields module~modglobal modglobal proc~cyclicsj->module~modglobal module~modmpi modmpi proc~cyclicsj->module~modmpi mpi mpi module~modmpi->mpi

Arguments

None

Calls

proc~~cyclicsj~~CallsGraph proc~cyclicsj modboundary::cyclicsj proc~excjs modmpi::excjs proc~cyclicsj->proc~excjs mpi_sendrecv mpi_sendrecv proc~excjs->mpi_sendrecv

Called by

proc~~cyclicsj~~CalledByGraph proc~cyclicsj modboundary::cyclicsj proc~boundary modboundary::boundary proc~boundary->proc~cyclicsj 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

cyclicsj

Source Code

   subroutine cyclicsj
      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
      use modmpi, only:excjs, myid, nprocs
      integer n

      do n = 1, nsv
         call excjs(sv0(:, :, :, n), ib, ie, jb, je, kb - khc, ke + khc, ihc, jhc)
         call excjs(svm(:, :, :, n), ib, ie, jb, je, kb - khc, ke + khc, ihc, jhc)
      enddo

      return
   end subroutine cyclicsj