initialize_type_ic_uniform Module Subroutine

module subroutine initialize_type_ic_uniform(self, input, initial_target)

Arguments

Type IntentOptional Attributes Name
class(type_ic_uniform), intent(inout) :: self
type(type_input), intent(in) :: input
character(len=*), intent(in) :: initial_target

Called by

proc~~initialize_type_ic_uniform~~CalledByGraph proc~initialize_type_ic_uniform initialize_type_ic_uniform interface~initialize_type_ic_uniform type_ic_uniform%initialize_type_ic_uniform interface~initialize_type_ic_uniform->proc~initialize_type_ic_uniform

Source Code

    module subroutine initialize_type_ic_uniform(self, input, initial_target)
        implicit none
        class(type_ic_uniform), intent(inout) :: self
        type(type_input), intent(in) :: input
        character(*), intent(in) :: initial_target

        select case (trim(adjustl(initial_target)))
        case ('thermal')
            self%type = input%conditions%initial_conditions%thermal%type
            self%value = input%conditions%initial_conditions%thermal%value
        case ('hydraulic')
            self%type = input%conditions%initial_conditions%hydraulic%type
            self%value = input%conditions%initial_conditions%hydraulic%value
        case ('porosity')
            self%type = input%conditions%initial_conditions%porosity%type
            self%value = input%conditions%initial_conditions%porosity%value
        end select
    end subroutine initialize_type_ic_uniform