calc_vhc_gauss_point_3phase_ptr Module Function

module function calc_vhc_gauss_point_3phase_ptr(self, state, DEN, LatentHeat, dQi_dT) result(VHC)

Arguments

Type IntentOptional Attributes Name
class(type_vhc_3phase), intent(in) :: self
type(type_gauss_point_state), intent(in) :: state
class(abst_den), intent(in), optional, pointer :: DEN
real(kind=real64), intent(in), optional :: LatentHeat
real(kind=real64), intent(in), optional :: dQi_dT

Return Value real(kind=real64)


Calls

proc~~calc_vhc_gauss_point_3phase_ptr~~CallsGraph proc~calc_vhc_gauss_point_3phase_ptr calc_vhc_gauss_point_3phase_ptr interface~calc_vhc_3 calc_vhc_3 proc~calc_vhc_gauss_point_3phase_ptr->interface~calc_vhc_3 proc~calc_vhc_3 calc_vhc_3 interface~calc_vhc_3->proc~calc_vhc_3

Called by

proc~~calc_vhc_gauss_point_3phase_ptr~~CalledByGraph proc~calc_vhc_gauss_point_3phase_ptr calc_vhc_gauss_point_3phase_ptr interface~calc_vhc_gauss_point_3phase_ptr type_vhc_3phase%calc_vhc_gauss_point_3phase_ptr interface~calc_vhc_gauss_point_3phase_ptr->proc~calc_vhc_gauss_point_3phase_ptr

Source Code

    module function calc_vhc_gauss_point_3phase_ptr(self, state, DEN, LatentHeat, dQi_dT) result(VHC)
        implicit none
        class(type_vhc_3phase), intent(in) :: self
        type(type_gauss_point_state), intent(in) :: state
        class(abst_den), pointer, intent(in), optional :: DEN
        real(real64), intent(in), optional :: LatentHeat
        real(real64), intent(in), optional :: dQi_dT
        real(real64) :: VHC

        real(real64) :: phi1, phi2, phi3

        phi1 = 1.0d0 - state%porosity
        phi2 = state%water_content
        phi3 = 1.0d0 - phi1 - phi2

        VHC = calc_vhc_3(self%material1, phi1, self%material2, phi2, self%material3, phi3)
    end function calc_vhc_gauss_point_3phase_ptr