construct_type_vhc_3phase_apparent Module Function

module function construct_type_vhc_3phase_apparent(input, material_id) result(property)

Arguments

Type IntentOptional Attributes Name
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: material_id

Return Value class(abst_vhc), allocatable


Called by

proc~~construct_type_vhc_3phase_apparent~~CalledByGraph proc~construct_type_vhc_3phase_apparent construct_type_vhc_3phase_apparent interface~construct_type_vhc_3phase_apparent construct_type_vhc_3phase_apparent interface~construct_type_vhc_3phase_apparent->proc~construct_type_vhc_3phase_apparent interface~type_vhc_3phase_apparent type_vhc_3phase_apparent interface~type_vhc_3phase_apparent->interface~construct_type_vhc_3phase_apparent

Source Code

    module function construct_type_vhc_3phase_apparent(input, material_id) result(property)
        implicit none
        class(abst_vhc), allocatable :: property
        type(type_input), intent(in) :: input
        integer(int32), intent(in) :: material_id

        if (allocated(property)) deallocate (property)
        allocate (type_vhc_3phase_apparent :: property)

        property%material_id = material_id

        property%material1 = input%basic%materials(material_id)%thermal%density(1) * &
                             input%basic%materials(material_id)%thermal%specific_heat(1)
        property%material2 = input%basic%materials(material_id)%thermal%density(2) * &
                             input%basic%materials(material_id)%thermal%specific_heat(2)
        property%material3 = input%basic%materials(material_id)%thermal%density(3) * &
                             input%basic%materials(material_id)%thermal%specific_heat(3)

    end function construct_type_vhc_3phase_apparent