Calculate_HCF_mu_Exponential Module Function

module function Calculate_HCF_mu_Exponential(Temperature) result(Viscosity)

Arguments

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

Return Value real(kind=real64)


Called by

proc~~calculate_hcf_mu_exponential~~CalledByGraph proc~calculate_hcf_mu_exponential Calculate_HCF_mu_Exponential interface~calculate_hcf_mu_exponential Calculate_HCF_mu_Exponential interface~calculate_hcf_mu_exponential->proc~calculate_hcf_mu_exponential

Source Code

    module function Calculate_HCF_mu_Exponential(Temperature) result(Viscosity)
        !$omp declare simd uniform(Temperature)
        implicit none
        real(real64), intent(in) :: Temperature
        real(real64) :: Viscosity

        Viscosity = 2.1d-6 * exp(1808.5d0 / (Temperature + 273.15d0))

    end function Calculate_HCF_mu_Exponential