initialize_holder_vhcs Module Subroutine

module subroutine initialize_holder_vhcs(self, input, i_material)

Arguments

Type IntentOptional Attributes Name
class(holder_vhcs), intent(inout) :: self
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: i_material

Called by

proc~~initialize_holder_vhcs~~CalledByGraph proc~initialize_holder_vhcs initialize_holder_vhcs interface~initialize_holder_vhcs holder_vhcs%initialize_holder_vhcs interface~initialize_holder_vhcs->proc~initialize_holder_vhcs

Source Code

    module subroutine initialize_holder_vhcs(self, input, i_material)
        implicit none
        class(holder_vhcs), intent(inout) :: self
        type(type_input), intent(in) :: input
        integer(int32), intent(in) :: i_material

        select case (input%basic%materials(i_material)%phase)
        case (3)
            if (input%basic%materials(i_material)%is_frozen) then
                self%p = type_vhc_3phase_apparent(input, i_material)
            else
                self%p = type_vhc_3phase(input, i_material)
            end if
        end select

    end subroutine initialize_holder_vhcs