load_file_parameters Subroutine

  1. off_simulation_object.f90
  2. off_simulation_object
  3. load_file_parameters

private subroutine load_file_parameters(self, file_name, go_on_fail)

Load file parameters.

Arguments

Type IntentOptional AttributesName
class(simulation_object), intent(inout) :: self

Simulation object.
character(len=*), intent(in) :: file_name

File name.
logical, intent(in), optional :: go_on_fail

Go on if load fails.

Source Code

load_file_parameters

Source Code

   subroutine load_file_parameters(self, file_name, go_on_fail)
   !< Load file parameters.
   class(simulation_object), intent(inout)        :: self        !< Simulation object.
   character(*),             intent(in)           :: file_name   !< File name.
   logical,                  intent(in), optional :: go_on_fail  !< Go on if load fails.
   logical                                        :: go_on_fail_ !< Go on if load fails, local variable.
   type(file_ini)                                 :: fini        !< Simulation parameters ini file handler.

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

   call fini%load(filename=file_name, error=self%error%status)
   call self%error%check(message='failed to load "'//trim(adjustl(file_name))//'"', is_severe=.not.go_on_fail_)
   if (self%error%status /=0 ) then
      write(stderr, '(A)') 'Using default simulation parameters values'
      return
   endif

   call self%file_grid%load_file_name_from_file(fini=fini, section_name='files', option_name='grid', go_on_fail=go_on_fail)
   ! call self%files_collection%load_from_file(fini=fini, go_on_fail=go_on_fail_)
   call self%adimensionals%load_from_file(fini=fini, go_on_fail=go_on_fail_)
   call self%free_conditions%load_from_file(fini=fini, go_on_fail=go_on_fail_)
   call self%solver%load_from_file(fini=fini, go_on_fail=go_on_fail_)
   call self%time%load_from_file(fini=fini, go_on_fail=go_on_fail_)
   endsubroutine load_file_parameters

All Procedures

adim_assign_adim allocate_blocks block_assign_block block_d_assign_block_d cell_assign_cell cells_number cells_number check cli_parse cli_parse cli_parse close compute_extents compute_faces_metrics compute_metrics compute_metrics compute_reference_values compute_space_operator compute_volumes correct_metrics cp create_linspace description description description description description description description description description destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy err_assign_err face_assign_face file_assign_file free_assign_free grid_d_assign_grid_d initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize_unix initialize_windows integrate interpolate_at_nodes iolength iolength iopos_block_nodes is_the_end load_file_grid load_file_name_from_file load_file_parameters load_from_file load_from_file load_from_file load_from_file load_from_file load_from_file load_from_file load_grid_dimensions_from_file load_input_files load_nodes_from_file load_nodes_from_file mkdir node_assign_node node_to_center nodes_number nodes_number nullify_normals open os_assign_os parse_command_line_interface progress rm save_file_grid save_file_grid save_file_grid_tec save_file_grid_vtk save_file_name_into_file save_file_parameters save_grid_dimensions_into_file save_into_file save_into_file save_into_file save_into_file save_into_file save_into_file save_into_file save_nodes_into_file save_nodes_into_file set_command_line_interface set_stop solver_assign_solver time_assign_time update