radiation_mpi_finalize Subroutine

public subroutine radiation_mpi_finalize(rad)

Releases radiation MPI resources.

Arguments

Type IntentOptional Attributes Name
type(radiation_mpi_t), intent(inout) :: rad

Calls

proc~~radiation_mpi_finalize~~CallsGraph proc~radiation_mpi_finalize mod_mpi_radiation::radiation_mpi_finalize mpi_comm_free mpi_comm_free proc~radiation_mpi_finalize->mpi_comm_free proc~check_mpi~4 mod_mpi_radiation::check_mpi proc~radiation_mpi_finalize->proc~check_mpi~4 proc~fatal_error mod_kinds::fatal_error proc~check_mpi~4->proc~fatal_error

Called by

proc~~radiation_mpi_finalize~~CalledByGraph proc~radiation_mpi_finalize mod_mpi_radiation::radiation_mpi_finalize proc~radiation_mpi_initialize mod_mpi_radiation::radiation_mpi_initialize proc~radiation_mpi_initialize->proc~radiation_mpi_finalize program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~radiation_mpi_finalize program~lowmach_react_hex->proc~radiation_mpi_initialize

Source Code

   subroutine radiation_mpi_finalize(rad)
      type(radiation_mpi_t), intent(inout) :: rad

      integer :: ierr

      if (rad%comm /= MPI_COMM_NULL) then
         call MPI_Comm_free(rad%comm, ierr)
         call check_mpi(ierr, 'MPI_Comm_free radiation')
      end if

      rad%comm = MPI_COMM_NULL
      rad%rank = -1
      rad%nprocs = 0
      rad%first_task = 0
      rad%last_task = -1
      rad%nlocal_tasks = 0
   end subroutine radiation_mpi_finalize