initialize_type_ic_laplace Module Subroutine

module subroutine initialize_type_ic_laplace(self, input, initial_target)

Arguments

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

Called by

proc~~initialize_type_ic_laplace~~CalledByGraph proc~initialize_type_ic_laplace initialize_type_ic_laplace interface~initialize_type_ic_laplace type_ic_laplace%initialize_type_ic_laplace interface~initialize_type_ic_laplace->proc~initialize_type_ic_laplace

Source Code

    module subroutine initialize_type_ic_laplace(self, input, initial_target)
        implicit none
        class(type_ic_laplace), 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
        case ('hydraulic')
            self%type = input%conditions%initial_conditions%hydraulic%type
        case ('porosity')

        end select
    end subroutine initialize_type_ic_laplace