AtsFactory.F90

Go to the documentation of this file.

module atsfactorymodule
  use simmodule, only: ustop
  use adaptivetimestepmodule, only: atstype
#if defined(__WITH_MPI__)
  use parallelatsmodule, only: parallelatstype
#endif
  implicit none
  private
 
  public :: create_ats
 
contains
 
!> @brief Factory method to create ATS object, to hide
!< the parallel details for the synchronization across ranks
  function create_ats() result(ats)
    use simvariablesmodule, only: simulation_mode
    class(atstype), pointer :: ats
    ! local
#if defined(__WITH_MPI__)
    class(parallelatstype), pointer :: par_ats
#endif
 
    if (simulation_mode == 'SEQUENTIAL') then
      allocate (ats)
#if defined(__WITH_MPI__)
    else if (simulation_mode == 'PARALLEL') then
      allocate (par_ats)
      ats => par_ats
#endif
    else
      call ustop('Unsupported simulation mode for creating ATS: '&
                 &//trim(simulation_mode))
    end if
 
  end function create_ats
 
end module atsfactorymodule