Initialize conservative.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(conservative_compressible), | intent(inout) | :: | self | Conservative. |
||
| class(conservative_object), | intent(in), | optional | :: | initial_state | Initial state. |
subroutine initialize(self, initial_state)
!< Initialize conservative.
class(conservative_compressible), intent(inout) :: self !< Conservative.
class(conservative_object), intent(in), optional :: initial_state !< Initial state.
if (present(initial_state)) then
select type(initial_state)
class is(conservative_compressible)
self = initial_state
endselect
else
call self%destroy
endif
endsubroutine initialize