Merge pull request #2734 from thorade/issue2719_Eucken_R

Issue2719 modified Eucken R in J/kg.K
modelica · Oct 15, 2018 · 317b113 · 317b113
2 parents 04ff7ce + dfed6b3
commit 317b113
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Modelica/Media/IdealGases/Common/Functions.mo b/Modelica/Media/IdealGases/Common/Functions.mo
@@ -263,8 +263,8 @@ transform the formula to SI units:
     output Modelica.Media.Interfaces.Types.ThermalConductivity lambda
       "Thermal conductivity [W/(m.k)]";
   algorithm
-    lambda := if method == 1 then eta*(Cp - data.R + (9/4)*data.R) else eta*(Cp
-       - data.R)*(1.32 + 1.77/((Cp/Modelica.Constants.R) - 1.0));
+    lambda := if method == 1 then eta*(Cp - data.R + (9/4)*data.R)
+                             else eta*(Cp - data.R)*(1.32 + 1.77/((Cp/data.R) - 1.0));
     annotation (smoothOrder=2,
                 Documentation(info="<html>
 <p>