calc_vhc_3a Module Function

module function calc_vhc_3a(VHC_soil, phi_soil, VHC_water, phi_water, VHC_ice, phi_ice, Lf, DEN_ice, dQi_dT) result(VHC)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: VHC_soil
real(kind=real64), intent(in) :: phi_soil
real(kind=real64), intent(in) :: VHC_water
real(kind=real64), intent(in) :: phi_water
real(kind=real64), intent(in) :: VHC_ice
real(kind=real64), intent(in) :: phi_ice
real(kind=real64), intent(in) :: Lf
real(kind=real64), intent(in) :: DEN_ice
real(kind=real64), intent(in) :: dQi_dT

Return Value real(kind=real64)


Called by

proc~~calc_vhc_3a~~CalledByGraph proc~calc_vhc_3a calc_vhc_3a interface~calc_vhc_3a calc_vhc_3a interface~calc_vhc_3a->proc~calc_vhc_3a proc~calc_vhc_gauss_point_3phase_apparent_holder calc_vhc_gauss_point_3phase_apparent_holder proc~calc_vhc_gauss_point_3phase_apparent_holder->interface~calc_vhc_3a proc~calc_vhc_gauss_point_3phase_apparent_ptr calc_vhc_gauss_point_3phase_apparent_ptr proc~calc_vhc_gauss_point_3phase_apparent_ptr->interface~calc_vhc_3a interface~calc_vhc_gauss_point_3phase_apparent_holder type_vhc_3phase_apparent%calc_vhc_gauss_point_3phase_apparent_holder interface~calc_vhc_gauss_point_3phase_apparent_holder->proc~calc_vhc_gauss_point_3phase_apparent_holder interface~calc_vhc_gauss_point_3phase_apparent_ptr type_vhc_3phase_apparent%calc_vhc_gauss_point_3phase_apparent_ptr interface~calc_vhc_gauss_point_3phase_apparent_ptr->proc~calc_vhc_gauss_point_3phase_apparent_ptr

Source Code

    module function calc_vhc_3a(VHC_soil, phi_soil, VHC_water, phi_water, &
                                VHC_ice, phi_ice, Lf, DEN_ice, dQi_dT) result(VHC)
        implicit none
        real(real64), intent(in) :: VHC_soil
        real(real64), intent(in) :: phi_soil
        real(real64), intent(in) :: VHC_water
        real(real64), intent(in) :: phi_water
        real(real64), intent(in) :: VHC_ice
        real(real64), intent(in) :: phi_ice
        real(real64), intent(in) :: Lf
        real(real64), intent(in) :: DEN_ice
        real(real64), intent(in) :: dQi_dT
        real(real64) :: VHC

        VHC = VHC_soil * phi_soil + VHC_water * phi_water + VHC_ice * phi_ice - Lf * DEN_ice * dQi_dT

    end function calc_vhc_3a