calc_kflh_impedance_viscosity Module Function

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

Arguments

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

Return Value real(kind=real64)


Calls

proc~~calc_kflh_impedance_viscosity~~CallsGraph proc~calc_kflh_impedance_viscosity calc_kflh_impedance_viscosity calc_impedance calc_impedance proc~calc_kflh_impedance_viscosity->calc_impedance calc_viscosity calc_viscosity proc~calc_kflh_impedance_viscosity->calc_viscosity

Called by

proc~~calc_kflh_impedance_viscosity~~CalledByGraph proc~calc_kflh_impedance_viscosity calc_kflh_impedance_viscosity interface~calc_kflh_impedance_viscosity type_hcf_impedance_viscosity%calc_kflh_impedance_viscosity interface~calc_kflh_impedance_viscosity->proc~calc_kflh_impedance_viscosity

Source Code

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

        kflh = self%k_s * self%impedance%calc_impedance(state%ice_content) & !&
                        * self%viscosity%calc_viscosity(state%temperature)

    end function calc_kflh_impedance_viscosity