calc_sph_3 Module Function

pure elemental module function calc_sph_3(specific_heat_soil, phi_soil, specific_heat_water, phi_water, specific_heat_ice, phi_ice) result(specific_heat)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: specific_heat_soil
real(kind=real64), intent(in) :: phi_soil
real(kind=real64), intent(in) :: specific_heat_water
real(kind=real64), intent(in) :: phi_water
real(kind=real64), intent(in) :: specific_heat_ice
real(kind=real64), intent(in) :: phi_ice

Return Value real(kind=real64)


Called by

proc~~calc_sph_3~~CalledByGraph proc~calc_sph_3 calc_sph_3 interface~calc_sph_3 Calc_SPH_3 interface~calc_sph_3->proc~calc_sph_3 proc~calc_sph_gauss_point_3phase calc_sph_gauss_point_3phase proc~calc_sph_gauss_point_3phase->interface~calc_sph_3 interface~calc_sph_gauss_point_3phase type_sph_3phase%calc_sph_gauss_point_3phase interface~calc_sph_gauss_point_3phase->proc~calc_sph_gauss_point_3phase

Source Code

    module pure elemental function calc_sph_3(specific_heat_soil, phi_soil, &
                                              specific_heat_water, phi_water, &
                                              specific_heat_ice, phi_ice) result(specific_heat)
        implicit none
        real(real64), intent(in) :: specific_heat_soil
        real(real64), intent(in) :: phi_soil
        real(real64), intent(in) :: specific_heat_water
        real(real64), intent(in) :: phi_water
        real(real64), intent(in) :: specific_heat_ice
        real(real64), intent(in) :: phi_ice
        real(real64) :: specific_heat

        specific_heat = specific_heat_soil * phi_soil &
                        + specific_heat_water * phi_water &
                        + specific_heat_ice * phi_ice

    end function calc_sph_3