dpchsd Function

private pure function dpchsd(s1, s2, h1, h2)

inline function for weighted average of slopes.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: s1
real(kind=wp), intent(in) :: s2
real(kind=wp), intent(in) :: h1
real(kind=wp), intent(in) :: h2

Return Value real(kind=wp)


Called by

proc~~dpchsd~~CalledByGraph proc~dpchsd pchip_module::dpchsd proc~dpchcs pchip_module::dpchcs proc~dpchcs->proc~dpchsd proc~dpchic pchip_module::dpchic proc~dpchic->proc~dpchcs

Source Code

   pure function dpchsd(s1,s2,h1,h2)

   real(wp),intent(in) :: s1, s2, h1, h2
   real(wp) :: dpchsd

   dpchsd = (h2/(h1+h2))*s1 + (h1/(h1+h2))*s2

   end function dpchsd