tem_status_communicate Subroutine

public subroutine tem_status_communicate(me, comm)

Perform the communication of status bits

Arguments

Type IntentOptional Attributes Name
type(tem_status_type), intent(inout) :: me

Status to communicate.
integer, intent(in) :: comm

Communicator to use for the MPI reduction operation.

Calls

proc~~tem_status_communicate~~CallsGraph proc~tem_status_communicate tem_status_communicate mpi_allreduce mpi_allreduce proc~tem_status_communicate->mpi_allreduce

Called by

proc~~tem_status_communicate~~CalledByGraph proc~tem_status_communicate tem_status_communicate proc~tem_simcontrol_syncupdate tem_simControl_syncUpdate proc~tem_simcontrol_syncupdate->proc~tem_status_communicate

Contents

Source Code

tem_status_communicate

Source Code

  subroutine tem_status_communicate(me, comm)
    ! --------------------------------------------------------------------------!
    !> Status to communicate.
    type(tem_status_type), intent(inout) :: me

    !> Communicator to use for the MPI reduction operation.
    integer, intent(in) :: comm
    ! --------------------------------------------------------------------------!
    integer :: iError
    logical :: local_bits(tem_stat_nFlags)
    ! --------------------------------------------------------------------------!

    local_bits = me%bits
    call mpi_allreduce( local_bits, me%bits, tem_stat_nFlags, MPI_LOGICAL, &
      &                 MPI_LOR, comm, iError                              )

  end subroutine tem_status_communicate