Calculate_HCF_mu_Exponential_Supercooled Module Function

module function Calculate_HCF_mu_Exponential_Supercooled(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_supercooled~~CalledByGraph proc~calculate_hcf_mu_exponential_supercooled Calculate_HCF_mu_Exponential_Supercooled interface~calculate_hcf_mu_exponential_supercooled Calculate_HCF_mu_Exponential_Supercooled interface~calculate_hcf_mu_exponential_supercooled->proc~calculate_hcf_mu_exponential_supercooled

Source Code

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

        Viscosity = 1.3788d-4 * ((273.15d0 + Temperature) / 225.66d0 - 1.0d0)**(-1.6438d0)

    end function Calculate_HCF_mu_Exponential_Supercooled