Changeset 661 for Modelica/branches/maintenance/2.2.2/Modelica/Thermal/FluidHeatFlow.mo

Timestamp:

10/10/2007 03:35:53 PM (15 months ago)

Author:

otter

Message:

Fixed minor unit errors reported by Sven Erik
(requires Advanced.DeduceUnits = true; default = false, i.e.,
these errors are only reported with DeduceUnits=true).

Files:

• Modelica/branches/maintenance/2.2.2/Modelica/Thermal/FluidHeatFlow.mo (modified) (2 diffs)

Modelica/branches/maintenance/2.2.2/Modelica/Thermal/FluidHeatFlow.mo

@@ -1 +1 @@
 within Modelica.Thermal;
+
 
 package FluidHeatFlow 
@@ -1393 +1394 @@
         "Part of friction losses fed to medium";
     protected 
+      constant Modelica.SIunits.VolumeFlowRate unitVolumeFlowRate = 1;
       constant Real small = Modelica.Constants.small;
-      constant Modelica.SIunits.VolumeFlowRate smallVolumeFlowRate = eps;
+      constant Modelica.SIunits.VolumeFlowRate smallVolumeFlowRate = eps*unitVolumeFlowRate;
       constant Real eps = Modelica.Constants.eps;
       Real yLim = max(min(y,y1),0) "Limited valve opening";