read_conditions_initial_conditions Subroutine

subroutine read_conditions_initial_conditions(self, json)

Arguments

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

JSON parser

Calls

proc~~read_conditions_initial_conditions~~CallsGraph proc~read_conditions_initial_conditions read_conditions_initial_conditions proc~join join 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_initial_conditions_hydraulic->proc~join destroy destroy proc~read_conditions_initial_conditions_hydraulic->destroy get get proc~read_conditions_initial_conditions_hydraulic->get proc~error_message error_message proc~read_conditions_initial_conditions_hydraulic->proc~error_message proc~read_conditions_boundary_conditions_hydraulic read_conditions_boundary_conditions_hydraulic proc~read_conditions_initial_conditions_hydraulic->proc~read_conditions_boundary_conditions_hydraulic to_string to_string proc~read_conditions_initial_conditions_hydraulic->to_string proc~read_conditions_initial_conditions_porosity->proc~join 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_thermal->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_boundary_conditions_thermal read_conditions_boundary_conditions_thermal proc~read_conditions_initial_conditions_thermal->proc~read_conditions_boundary_conditions_thermal proc~read_conditions_initial_conditions_thermal->to_string log_error log_error proc~error_message->log_error proc~read_conditions_boundary_conditions_hydraulic->proc~join 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_thermal->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

Called by

proc~~read_conditions_initial_conditions~~CalledByGraph proc~read_conditions_initial_conditions read_conditions_initial_conditions proc~inout_read_conditions inout_read_conditions proc~inout_read_conditions->proc~read_conditions_initial_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

    subroutine read_conditions_initial_conditions(self, json)
        implicit none
        class(type_input) :: self
        type(json_file), intent(inout) :: json !! JSON parser

        character(:), allocatable :: key

        if (self%basic%analysis_controls%calculate_thermal) then
            key = join([initial_conditions, thermal])
            call read_conditions_initial_conditions_thermal(self%conditions%initial_conditions%thermal, json, key, &
                                                            self%conditions%num_boundaries)
        end if

        if (self%basic%analysis_controls%calculate_hydraulic) then
            key = join([initial_conditions, hydraulic])
            call read_conditions_initial_conditions_hydraulic(self%conditions%initial_conditions%hydraulic, json, key, &
                                                              self%conditions%num_boundaries)
        end if

        key = join([initial_conditions, porosity])
        call read_conditions_initial_conditions_porosity(self%conditions%initial_conditions%porosity, json, key, &
                                                         self%conditions%num_boundaries)

    end subroutine read_conditions_initial_conditions