calc_den_3 Module Function

module function calc_den_3(density_soil, phi_soil, density_water, phi_water, density_ice, phi_ice) result(density)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: density_soil
real(kind=real64), intent(in) :: phi_soil
real(kind=real64), intent(in) :: density_water
real(kind=real64), intent(in) :: phi_water
real(kind=real64), intent(in) :: density_ice
real(kind=real64), intent(in) :: phi_ice

Return Value real(kind=real64)


Called by

proc~~calc_den_3~~CalledByGraph proc~calc_den_3 calc_den_3 interface~calc_den_3 calc_den_3 interface~calc_den_3->proc~calc_den_3 proc~calc_den_gauss_point_3phase calc_den_gauss_point_3phase proc~calc_den_gauss_point_3phase->interface~calc_den_3 interface~calc_den_gauss_point_3phase type_den_3phase%calc_den_gauss_point_3phase interface~calc_den_gauss_point_3phase->proc~calc_den_gauss_point_3phase

Source Code

    module function calc_den_3(density_soil, phi_soil, &
                               density_water, phi_water, &
                               density_ice, phi_ice) result(density)
        implicit none
        real(real64), intent(in) :: density_soil
        real(real64), intent(in) :: phi_soil
        real(real64), intent(in) :: density_water
        real(real64), intent(in) :: phi_water
        real(real64), intent(in) :: density_ice
        real(real64), intent(in) :: phi_ice
        real(real64) :: density

        density = density_soil * phi_soil &
                  + density_water * phi_water &
                  + density_ice * phi_ice

    end function calc_den_3