calc_impedance_exponential Function

pure elemental function calc_impedance_exponential(omega, q_ice) result(impedance)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: omega
real(kind=real64), intent(in) :: q_ice

Return Value real(kind=real64)


Called by

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

Source Code

    pure elemental function calc_impedance_exponential(omega, q_ice) result(impedance)
        implicit none
        real(real64), intent(in) :: omega
        real(real64), intent(in) :: q_ice
        real(real64) :: impedance

        impedance = 10.0d0**(-omega * q_ice)

    end function calc_impedance_exponential