inout_read_conditions Module Subroutine

module subroutine inout_read_conditions(self)

Load the boundary/initial conditions from the JSON file

Arguments

Type IntentOptional Attributes Name
class(type_input), intent(inout) :: self

Calls

proc~~inout_read_conditions~~CallsGraph proc~inout_read_conditions inout_read_conditions destroy destroy proc~inout_read_conditions->destroy initialize initialize proc~inout_read_conditions->initialize load load proc~inout_read_conditions->load print_error_message print_error_message proc~inout_read_conditions->print_error_message proc~read_conditions_boundary_conditions read_conditions_boundary_conditions proc~inout_read_conditions->proc~read_conditions_boundary_conditions proc~read_conditions_initial_conditions read_conditions_initial_conditions proc~inout_read_conditions->proc~read_conditions_initial_conditions proc~read_conditions_time_control read_conditions_time_control proc~inout_read_conditions->proc~read_conditions_time_control proc~read_conditions_boundary_conditions->destroy proc~read_conditions_boundary_conditions->print_error_message get get proc~read_conditions_boundary_conditions->get info info proc~read_conditions_boundary_conditions->info proc~error_message error_message proc~read_conditions_boundary_conditions->proc~error_message proc~join join proc~read_conditions_boundary_conditions->proc~join proc~read_conditions_boundary_conditions_hydraulic read_conditions_boundary_conditions_hydraulic proc~read_conditions_boundary_conditions->proc~read_conditions_boundary_conditions_hydraulic proc~read_conditions_boundary_conditions_thermal read_conditions_boundary_conditions_thermal proc~read_conditions_boundary_conditions->proc~read_conditions_boundary_conditions_thermal to_string to_string proc~read_conditions_boundary_conditions->to_string proc~read_conditions_initial_conditions->proc~join proc~read_conditions_initial_conditions_hydraulic read_conditions_initial_conditions_hydraulic proc~read_conditions_initial_conditions->proc~read_conditions_initial_conditions_hydraulic proc~read_conditions_initial_conditions_porosity read_conditions_initial_conditions_porosity proc~read_conditions_initial_conditions->proc~read_conditions_initial_conditions_porosity proc~read_conditions_initial_conditions_thermal read_conditions_initial_conditions_thermal proc~read_conditions_initial_conditions->proc~read_conditions_initial_conditions_thermal proc~read_conditions_time_control_boundary_time_points read_conditions_time_control_boundary_time_points proc~read_conditions_time_control->proc~read_conditions_time_control_boundary_time_points proc~read_conditions_time_control_simulation_period read_conditions_time_control_simulation_period proc~read_conditions_time_control->proc~read_conditions_time_control_simulation_period proc~read_conditions_time_control_time_stepping read_conditions_time_control_time_stepping proc~read_conditions_time_control->proc~read_conditions_time_control_time_stepping log_error log_error proc~error_message->log_error proc~read_conditions_boundary_conditions_hydraulic->destroy proc~read_conditions_boundary_conditions_hydraulic->get proc~read_conditions_boundary_conditions_hydraulic->proc~error_message proc~read_conditions_boundary_conditions_hydraulic->proc~join proc~read_conditions_boundary_conditions_thermal->destroy proc~read_conditions_boundary_conditions_thermal->get proc~read_conditions_boundary_conditions_thermal->proc~error_message proc~read_conditions_boundary_conditions_thermal->proc~join proc~read_conditions_initial_conditions_hydraulic->destroy proc~read_conditions_initial_conditions_hydraulic->get proc~read_conditions_initial_conditions_hydraulic->proc~error_message proc~read_conditions_initial_conditions_hydraulic->proc~join proc~read_conditions_initial_conditions_hydraulic->proc~read_conditions_boundary_conditions_hydraulic proc~read_conditions_initial_conditions_hydraulic->to_string proc~read_conditions_initial_conditions_porosity->destroy proc~read_conditions_initial_conditions_porosity->get proc~read_conditions_initial_conditions_porosity->proc~error_message proc~read_conditions_initial_conditions_porosity->proc~join proc~read_conditions_initial_conditions_thermal->destroy proc~read_conditions_initial_conditions_thermal->get proc~read_conditions_initial_conditions_thermal->proc~error_message proc~read_conditions_initial_conditions_thermal->proc~join proc~read_conditions_initial_conditions_thermal->proc~read_conditions_boundary_conditions_thermal proc~read_conditions_initial_conditions_thermal->to_string proc~read_conditions_time_control_boundary_time_points->destroy proc~read_conditions_time_control_boundary_time_points->get proc~read_conditions_time_control_boundary_time_points->proc~error_message proc~read_conditions_time_control_boundary_time_points->proc~join proc~read_conditions_time_control_simulation_period->destroy proc~read_conditions_time_control_simulation_period->get proc~read_conditions_time_control_simulation_period->proc~error_message proc~read_conditions_time_control_simulation_period->proc~join proc~read_conditions_time_control_time_stepping->destroy proc~read_conditions_time_control_time_stepping->get proc~read_conditions_time_control_time_stepping->proc~error_message proc~read_conditions_time_control_time_stepping->proc~join

Called by

proc~~inout_read_conditions~~CalledByGraph proc~inout_read_conditions inout_read_conditions interface~inout_read_conditions type_input%inout_read_conditions interface~inout_read_conditions->proc~inout_read_conditions proc~initialize_type_input type_input%initialize_type_input proc~initialize_type_input->interface~inout_read_conditions

Source Code

    module subroutine inout_read_conditions(self)
        !> Load the boundary/initial conditions from the JSON file
        implicit none
        class(type_input), intent(inout) :: self
        type(json_file) :: json

        call json%initialize()
        call json%load(filename=self%conditions_file_name)
        call json%print_error_message(output_unit)

        call read_conditions_time_control(self, json)
        call read_conditions_boundary_conditions(self, json)
        call read_conditions_initial_conditions(self, json)

        call json%destroy()
        call json%print_error_message(output_unit)

    end subroutine inout_read_conditions