Destroy simulation data.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(simulation_object), | intent(inout) | :: | self | Simulation data. |
elemental subroutine destroy(self)
!< Destroy simulation data.
class(simulation_object), intent(inout) :: self !< Simulation data.
call self%error%destroy
call self%cli%free
call self%adimensionals%destroy
call self%file_grid%destroy
call self%free_conditions%destroy
call self%os%destroy
call self%solver%destroy
call self%time%destroy
call self%grid_dimensions%destroy
if (allocated(self%blocks)) then
call self%blocks%destroy
deallocate(self%blocks)
endif
self%is_cli_parsed = .false.
self%file_parameters = ''
self%is_output_verbose = .false.
self%go_on_fail = .false.
endsubroutine destroy