comms_no_sync_barrier Subroutine

public subroutine comms_no_sync_barrier(comm)

A barrier to synchronise all nodes

Arguments

Type IntentOptional Attributes Name
type(w90_comm_type), intent(in) :: comm

Called by

proc~~comms_no_sync_barrier~~CalledByGraph proc~comms_no_sync_barrier comms_no_sync_barrier proc~comms_barrier comms_barrier proc~comms_barrier->proc~comms_no_sync_barrier

Source Code

  subroutine comms_no_sync_barrier(comm)
    !! A barrier to synchronise all nodes
    implicit none
    type(w90_comm_type), intent(in) :: comm

#ifdef W90_MPI
    integer :: ierr

    call mpi_barrier(comm%comm, ierr)
#endif

  end subroutine comms_no_sync_barrier