check_mpi Subroutine

private subroutine check_mpi(ierr, where)

Internal helper for MPI error checking.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ierr
character(len=*), intent(in) :: where

Calls

proc~~check_mpi~~CallsGraph proc~check_mpi mod_flow_projection::check_mpi proc~fatal_error mod_kinds::fatal_error proc~check_mpi->proc~fatal_error

Called by

proc~~check_mpi~~CalledByGraph proc~check_mpi mod_flow_projection::check_mpi proc~balance_neumann_outlet_flux mod_flow_projection::balance_neumann_outlet_flux proc~balance_neumann_outlet_flux->proc~check_mpi proc~compute_and_update_cfl mod_flow_projection::compute_and_update_cfl proc~compute_and_update_cfl->proc~check_mpi proc~compute_flow_diagnostics mod_flow_projection::compute_flow_diagnostics proc~compute_flow_diagnostics->proc~check_mpi proc~advance_projection_step mod_flow_projection::advance_projection_step proc~advance_projection_step->proc~balance_neumann_outlet_flux proc~advance_projection_step->proc~compute_flow_diagnostics program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~compute_and_update_cfl program~lowmach_react_hex->proc~compute_flow_diagnostics program~lowmach_react_hex->proc~advance_projection_step

Source Code

   subroutine check_mpi(ierr, where)
      integer, intent(in) :: ierr
      character(len=*), intent(in) :: where

      if (ierr /= MPI_SUCCESS) call fatal_error('flow', trim(where)//' MPI failure')
   end subroutine check_mpi