free_comm_id Subroutine

private subroutine free_comm_id(comm)

A routine to free the communicator with id comm

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: comm

Communicator id

Contents

Source Code

free_comm_id

Source Code

  subroutine free_comm_id (comm)
    implicit none
    integer, intent(inout) :: comm !< Communicator id
# ifdef MPI
    integer :: ierror
!$OMP MASTER
    call time_message(.false., time_mp_other, ' MPI Overheads')
!$OMP END MASTER
    call mpi_comm_free(comm,ierror)
!$OMP MASTER
    call time_message(.false., time_mp_other, ' MPI Overheads')
!$OMP END MASTER
# endif
    comm = mp_comm_null
  end subroutine free_comm_id