load_from_file Subroutine

   subroutine load_from_file(self, fini, go_on_fail)
   !< Load from file.
   class(non_dimensional_numbers_object), intent(inout)        :: self        !< Non dimensional numbers.
   type(file_ini),                        intent(in)           :: fini        !< Simulation parameters ini file handler.
   logical,                               intent(in), optional :: go_on_fail  !< Go on if load fails.
   logical                                                     :: go_on_fail_ !< Go on if load fails, local variable.

   go_on_fail_ = .true. ; if (present(go_on_fail)) go_on_fail_ = go_on_fail

   call fini%get(section_name=INI_SECTION_NAME, option_name='Re', val=self%Re, error=self%error%status)
   if (.not.go_on_fail_) call self%error%check(message='failed to load ['//INI_SECTION_NAME//'].(Re)', is_severe=.not.go_on_fail_)

   call fini%get(section_name=INI_SECTION_NAME, option_name='Fr', val=self%Fr, error=self%error%status)
   if (.not.go_on_fail_) call self%error%check(message='failed to load ['//INI_SECTION_NAME//'].(Fr)', is_severe=.not.go_on_fail_)

   call fini%get(section_name=INI_SECTION_NAME, option_name='We', val=self%We, error=self%error%status)
   if (.not.go_on_fail_) call self%error%check(message='failed to load ['//INI_SECTION_NAME//'].(We)', is_severe=.not.go_on_fail_)

   call fini%get(section_name=INI_SECTION_NAME, option_name='Ma', val=self%Ma, error=self%error%status)
   if (.not.go_on_fail_) call self%error%check(message='failed to load ['//INI_SECTION_NAME//'].(Me)', is_severe=.not.go_on_fail_)

   call fini%get(section_name=INI_SECTION_NAME, option_name='Pr', val=self%Pr, error=self%error%status)
   if (.not.go_on_fail_) call self%error%check(message='failed to load ['//INI_SECTION_NAME//'].(Pr)', is_severe=.not.go_on_fail_)

   call self%compute_reference_values
   endsubroutine load_from_file