Initialize solver.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(riemann_solver_compressible_pvl), | intent(inout) | :: | self | Solver. |
||
| character(len=*), | intent(in), | optional | :: | config | Configuration for solver algorithm. |
subroutine initialize(self, config)
!< Initialize solver.
class(riemann_solver_compressible_pvl), intent(inout) :: self !< Solver.
character(len=*), intent(in), optional :: config !< Configuration for solver algorithm.
character(len=:), allocatable :: config_ !< Configuration for solver algorithm, local var.
! self%compute_waves_ => compute_waves_u23
! self%solve_ => solve_u23
config_ = '' ; if (present(config)) config_ = config
select case(config_)
case('u23')
case('up23')
case('upr23')
endselect
endsubroutine initialize