runcontrolfactorymodule Module Reference

Functions/Subroutines
class(runcontroltype) function, pointer, public	create_run_control ()

Function/Subroutine Documentation

create_run_control()

class(runcontroltype) function, pointer, public runcontrolfactorymodule::create_run_control

Definition at line 14 of file RunControlFactory.F90.

    use simmodule, only: store_error
    use simvariablesmodule, only: simulation_mode
    class(RunControlType), pointer :: controller
    ! local
    character(len=LINELENGTH) :: errmsg
 
    errmsg = ''
#if defined(__WITH_MPI__)
    if (simulation_mode == 'PARALLEL') then
      controller => create_mpi_run_control()
    else
      controller => create_seq_run_control()
    end if
#else
    if (simulation_mode == 'PARALLEL') then
      write (errmsg, '(a)') &
        'Can not run parallel mode with this executable: no MPI'
      call store_error(errmsg, terminate=.true.)
    end if
    controller => create_seq_run_control()
#endif
 

Here is the call graph for this function:

Here is the caller graph for this function: