solutionfactorymodule Module Reference

Functions/Subroutines
class(basesolutiontype) function, pointer, public	create_ims_solution (sim_mode, filename, sol_id)
	Create an IMS solution of type NumericalSolution for serial runs or its sub-type ParallelSolution for. More...
class(basesolutiontype) function, pointer, public	create_ems_solution (sim_mode, filename, sol_id)
	Create an EMS solution of type ExplicitSolution for serial runs or its sub-type ParallelSolution for. More...

Function/Subroutine Documentation

create_ems_solution()

class(basesolutiontype) function, pointer, public solutionfactorymodule::create_ems_solution	(	character(len=*)	sim_mode,
		character(len=*)	filename,
		integer(i4b)	sol_id
	)

Definition at line 54 of file SolutionFactory.F90.

    character(len=*) :: sim_mode
    character(len=*) :: filename
    integer(I4B) :: sol_id
    class(BaseSolutionType), pointer :: base_sol
    class(ExplicitSolutionType), pointer :: exp_sol => null()
!#if defined(__WITH_MPI__)
!    class(ParallelSolutionType), pointer :: par_sol => null()
!#endif
 
    if (sim_mode == 'SEQUENTIAL') then
      allocate (exp_sol)
!#if defined(__WITH_MPI__)
!    else if (sim_mode == 'PARALLEL') then
!      allocate (par_sol)
!      exp_sol => par_sol
!#endif
    else
      call ustop('Unsupported simulation mode for creating solution: '&
                 &//trim(sim_mode))
    end if
 
    call create_explicit_solution(exp_sol, filename, sol_id)
    base_sol => exp_sol
 

Here is the call graph for this function:

Here is the caller graph for this function:

create_ims_solution()

class(basesolutiontype) function, pointer, public solutionfactorymodule::create_ims_solution	(	character(len=*)	sim_mode,
		character(len=*)	filename,
		integer(i4b)	sol_id
	)

Definition at line 24 of file SolutionFactory.F90.

    character(len=*) :: sim_mode
    character(len=*) :: filename
    integer(I4B) :: sol_id
    class(BaseSolutionType), pointer :: base_sol
    class(NumericalSolutionType), pointer :: num_sol => null()
#if defined(__WITH_MPI__)
    class(ParallelSolutionType), pointer :: par_sol => null()
#endif
 
    if (sim_mode == 'SEQUENTIAL') then
      allocate (num_sol)
#if defined(__WITH_MPI__)
    else if (sim_mode == 'PARALLEL') then
      allocate (par_sol)
      num_sol => par_sol
#endif
    else
      call ustop('Unsupported simulation mode for creating solution: '&
                 &//trim(sim_mode))
    end if
 
    call create_numerical_solution(num_sol, filename, sol_id)
    base_sol => num_sol
 

Here is the call graph for this function:

Here is the caller graph for this function: