Save into file.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(solver_object), | intent(inout) | :: | self | Solver object. |
||
| type(file_ini), | intent(inout) | :: | fini | Simulation parameters ini file handler. |
subroutine save_into_file(self, fini)
!< Save into file.
class(solver_object), intent(inout) :: self !< Solver object.
type(file_ini), intent(inout) :: fini !< Simulation parameters ini file handler.
call fini%add(section_name=INI_SECTION_NAME, option_name='time_integrator', val=self%time_integrator, error=self%error%status)
call fini%add(section_name=INI_SECTION_NAME, option_name='convective_operator', val=self%convective_operator, &
error=self%error%status)
call fini%add(section_name=INI_SECTION_NAME, option_name='diffusive_operator', val=self%diffusive_operator, &
error=self%error%status)
call fini%add(section_name=INI_SECTION_NAME, option_name='turbulence_model', val=self%turbulence_model, error=self%error%status)
call fini%add(section_name=INI_SECTION_NAME, option_name='artificial_viscosity', val=self%artificial_viscosity, &
error=self%error%status)
call fini%add(section_name=INI_SECTION_NAME, option_name='residuals_tolerance', val=self%residuals_tolerance, &
error=self%error%status)
call fini%add(section_name=INI_SECTION_NAME, option_name='pseudo_compressibility', val=self%pseudo_compressibility, &
error=self%error%status)
call fini%add(section_name=INI_SECTION_NAME, option_name='chimera_forcing', val=self%chimera_forcing, error=self%error%status)
endsubroutine save_into_file