start_finish.f90 Source File

  !< Start and stop the solver
module start_finish
  !< Start and stop the solver
  use fclose, only: close_all_files
  use solver, only: destroy_solver
  use solver, only: setup_solver
#include "../mpi.inc"
  private

  public :: abort_run
  public :: finish_run
  public :: start_run

  contains

    subroutine abort_run()
      !< Aborting the solver
      implicit none
      integer :: ierr

      call close_all_files()
      call destroy_solver()
      call MPI_FINALIZE(ierr)
      stop

    end subroutine abort_run

    subroutine finish_run()
      !< Finishing the solution computation
      implicit none
      integer :: ierr

      call close_all_files()
      call destroy_solver()
      call MPI_FINALIZE(ierr)

    end subroutine finish_run

    subroutine start_run()
      !< Starting the solver setup
      implicit none
      integer :: ierr

      call MPI_INIT(ierr)
      call setup_solver()

    end subroutine start_run

end module start_finish