calc_impedance_exp Module Function

pure elemental module function calc_impedance_exp(self, q_ice) result(kr)

Arguments

Type IntentOptional Attributes Name
class(type_hcf_impedance_exp), intent(in) :: self
real(kind=real64), intent(in) :: q_ice

Return Value real(kind=real64)


Calls

proc~~calc_impedance_exp~~CallsGraph proc~calc_impedance_exp calc_impedance_exp proc~calc_impedance_exponential calc_impedance_exponential proc~calc_impedance_exp->proc~calc_impedance_exponential

Called by

proc~~calc_impedance_exp~~CalledByGraph proc~calc_impedance_exp calc_impedance_exp interface~calc_impedance_exp type_hcf_impedance_exp%calc_impedance_exp interface~calc_impedance_exp->proc~calc_impedance_exp

Source Code

    module pure elemental function calc_impedance_exp(self, q_ice) result(kr)
        implicit none
        class(type_hcf_impedance_exp), intent(in) :: self
        real(real64), intent(in) :: q_ice
        real(real64) :: kr

        kr = calc_impedance_exponential(self%omega, q_ice)

    end function calc_impedance_exp