cable_error_handler_mpi.F90 Source File

module cable_error_handler_mpi_mod
  use cable_mpi_mod, only: mpi_grp_t
  use cable_error_handler_base_mod, only: cable_error_handler_base_t
  implicit none
  private

  public :: cable_error_handler_mpi_t

  type, extends(cable_error_handler_base_t) :: cable_error_handler_mpi_t
    type(mpi_grp_t) :: mpi_grp
  contains
    procedure :: abort => cable_error_handler_mpi_abort
  end type cable_error_handler_mpi_t

contains

  subroutine cable_error_handler_mpi_abort(this)
    class(cable_error_handler_mpi_t), intent(inout) :: this
    call this%mpi_grp%abort()
  end subroutine

end module