calc_kflh_base Module Function

pure elemental module function calc_kflh_base(self, state) result(kflh)

Arguments

Type IntentOptional Attributes Name
class(type_hcf_base), intent(in) :: self
type(type_state), intent(in) :: state

Return Value real(kind=real64)


Calls

proc~~calc_kflh_base~~CallsGraph proc~calc_kflh_base calc_kflh_base calc_kr calc_kr proc~calc_kflh_base->calc_kr

Called by

proc~~calc_kflh_base~~CalledByGraph proc~calc_kflh_base calc_kflh_base interface~calc_kflh_base type_hcf_base%calc_kflh_base interface~calc_kflh_base->proc~calc_kflh_base

Source Code

    module pure elemental function calc_kflh_base(self, state) result(kflh)
        implicit none
        class(type_hcf_base), intent(in) :: self
        type(type_state), intent(in) :: state
        real(real64) :: kflh

        kflh = self%k_s * self%base%calc_kr(state%pressure)

    end function calc_kflh_base