Save file parameters.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(simulation_object), | intent(inout) | :: | self | Simulation object. |
||
| character(len=*), | intent(in) | :: | file_name | File name. |
subroutine save_file_parameters(self, file_name)
!< Save file parameters.
class(simulation_object), intent(inout) :: self !< Simulation object.
character(*), intent(in) :: file_name !< File name.
type(file_ini) :: fini !< Simulation parameters ini file handler.
! call self%files_collection%save_into_file(fini=fini)
call self%adimensionals%save_into_file(fini=fini)
call self%free_conditions%save_into_file(fini=fini)
call self%solver%save_into_file(fini=fini)
call self%time%save_into_file(fini=fini)
call fini%save(filename=trim(adjustl(file_name)))
endsubroutine save_file_parameters