calc_mu_exponential Function

pure elemental function calc_mu_exponential(temperature) result(viscosity)

Arguments

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

Return Value real(kind=real64)


Called by

proc~~calc_mu_exponential~~CalledByGraph proc~calc_mu_exponential calc_mu_exponential proc~calc_viscosity_exp calc_viscosity_exp proc~calc_viscosity_exp->proc~calc_mu_exponential interface~calc_viscosity_exp type_hcf_viscosity_exp%calc_viscosity_exp interface~calc_viscosity_exp->proc~calc_viscosity_exp

Source Code

    pure elemental function calc_mu_exponential(temperature) result(viscosity)
        implicit none
        real(real64), intent(in) :: temperature
        real(real64) :: viscosity

        viscosity = 2.1d-6 * exp(1808.5d0 / (temperature + 273.15d0))

    end function calc_mu_exponential