Initialize solver.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(riemann_solver_compressible_roe), | intent(inout) | :: | self | Solver. |
||
| character(len=*), | intent(in), | optional | :: | config | Configuration for solver algorithm. |
subroutine initialize(self, config)
!< Initialize solver.
class(riemann_solver_compressible_roe), intent(inout) :: self !< Solver.
character(len=*), intent(in), optional :: config !< Configuration for solver algorithm.
character(len=:), allocatable :: config_ !< Configuration for solver algorithm, local variable.
config_ = 'up23' ; if (present(config)) config_ = config
! call self%solver_pvl%initialize(config=config_)
endsubroutine initialize