calc_thc_3 Module Function

module function calc_thc_3(lambda_soil, phi_soil, lambda_water, phi_water, lambda_ice, phi_ice) result(lambda)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: lambda_soil
real(kind=real64), intent(in) :: phi_soil
real(kind=real64), intent(in) :: lambda_water
real(kind=real64), intent(in) :: phi_water
real(kind=real64), intent(in) :: lambda_ice
real(kind=real64), intent(in) :: phi_ice

Return Value real(kind=real64)


Called by

proc~~calc_thc_3~~CalledByGraph proc~calc_thc_3 calc_thc_3 interface~calc_thc_3 calc_thc_3 interface~calc_thc_3->proc~calc_thc_3 proc~calc_thc_gauss_point_3phase calc_thc_gauss_point_3phase proc~calc_thc_gauss_point_3phase->interface~calc_thc_3 interface~calc_thc_gauss_point_3phase type_thc_3phase%calc_thc_gauss_point_3phase interface~calc_thc_gauss_point_3phase->proc~calc_thc_gauss_point_3phase

Source Code

    module function calc_thc_3(lambda_soil, phi_soil, &
                               lambda_water, phi_water, &
                               lambda_ice, phi_ice) result(lambda)
        implicit none
        real(real64), intent(in) :: lambda_soil
        real(real64), intent(in) :: phi_soil
        real(real64), intent(in) :: lambda_water
        real(real64), intent(in) :: phi_water
        real(real64), intent(in) :: lambda_ice
        real(real64), intent(in) :: phi_ice
        real(real64) :: lambda

        lambda = lambda_soil**phi_soil &
                 * lambda_water**phi_water &
                 * lambda_ice**phi_ice

    end function calc_thc_3