comms_barrier Subroutine

  1. comms.F90
  2. w90_comms
  3. comms_barrier

public subroutine comms_barrier()

A barrier to synchronise all nodes

Arguments

None

Called by

proc~~comms_barrier~~CalledByGraph proc~comms_barrier comms_barrier program~postw90 postw90 program~postw90->proc~comms_barrier

Contents

Source Code

comms_barrier

Source Code

  subroutine comms_barrier
    !! A barrier to synchronise all nodes
    implicit none

#ifdef MPI
    integer :: ierr

    call mpi_barrier(mpi_comm_world, ierr)
#endif

  end subroutine comms_barrier