Merge pull request RWTH-EBC#1543 from RWTH-EBC/1542-boiler-pressure-d…

…rop-improvement

1542 boiler pressure drop improvement

AixLib/DataBase/Boiler/General/BoilerTwoPointBaseDataDefinition.mo

@@ -8,8 +8,10 @@ record BoilerTwoPointBaseDataDefinition
     "Name of boiler";
   parameter SI.Volume volume
     "Water volume of boiler";
-  parameter Real pressureDrop
-    "Pressure drop coefficient, delta_p[Pa] = PD*Q_flow[m^3/s]^2";
+  parameter Real a
+    "Pressure drop coefficient, dp_nominal[Pa] = a*V_flow_nominal[m^3/s]^n";
+  parameter Real n=2
+    "Pressure drop exponent (typical value is 2), dp_nominal[Pa] = a*V_flow_nominal[m^2/s]^n";
   parameter SI.Power Q_nom
     "Nominal heat power / thermal load, refering to net (inferior) calorific value";
   parameter SI.Power Q_min

AixLib/DataBase/Boiler/General/Boiler_Virtual_1kW.mo

@@ -3,7 +3,7 @@ record Boiler_Virtual_1kW "Boiler virtual 1kW"
   extends BoilerTwoPointBaseDataDefinition(
     name="VirtualBoiler_1kW",
     volume=0.00076,
-    pressureDrop=10218000000.0,
+    a=10218000000.0,
     Q_nom=1000,
     Q_min=100,
     eta=[0.3,0.93; 1.0,0.93]);

AixLib/DataBase/Boiler/General/Boiler_Vitocrossal200_311kW.mo

@@ -4,7 +4,7 @@ record Boiler_Vitocrossal200_311kW
   extends BoilerTwoPointBaseDataDefinition(
     name="Vitocrossal200_311kW",
     volume=279/1000,
-    pressureDrop = 4000/(7.79e-3)^2,
+    a = 4000/(7.79e-3)^2,
     Q_nom = 326000,
     Q_min = 326000*0.33,
     eta = [0.3, (0.973+0.989)/2;

AixLib/DataBase/Boiler/General/Boiler_Vitodens300W_13kW.mo

@@ -4,7 +4,8 @@ record Boiler_Vitodens300W_13kW
   extends BoilerTwoPointBaseDataDefinition(
     name="Vitodens300W_13kW",
     volume=0.0076,
-    pressureDrop=10218000000.0,
+    a=1.3819E+10,
+    n=2.0330,
     Q_nom=16700,
     Q_min=3600,
     eta=[0.3,1.061; 1.0,0.954]);

AixLib/DataBase/Boiler/General/Boiler_Vitogas200F_11kW.mo

@@ -3,7 +3,8 @@ record Boiler_Vitogas200F_11kW "Gas-fired boiler Viessmann Vitogas200-F 11kW"
   extends BoilerTwoPointBaseDataDefinition(
     name="Vitogas200F_11kW",
     volume=0.0076,
-    pressureDrop=10218000000.0,
+    a=1.3819E+10,
+    n=2.0330,
     Q_nom=12100,
     Q_min=3630,
     eta=[0.3,0.93; 1.0,0.93]);
@@ -26,7 +27,7 @@ record Boiler_Vitogas200F_11kW "Gas-fired boiler Viessmann Vitogas200-F 11kW"
   </li>
   <li>Manufacturer: Viessmann
   </li>
-  <li>Broschure: Vitogas 200-F; 5/2010
+  <li>Broschure: Vitogas 200-F; 4/2014; 541039
   </li>
 </ul>
 </html>"));

AixLib/DataBase/Boiler/General/Boiler_Vitogas200F_15kW.mo

@@ -3,7 +3,8 @@ record Boiler_Vitogas200F_15kW "Gas-fired boiler Viessmann Vitogas200-F 15kW"
   extends BoilerTwoPointBaseDataDefinition(
     name="Vitogas200F_15kW",
     volume=0.0076,
-    pressureDrop=10218000000.0,
+    a=1.3819E+10,
+    n=2.0330,
     Q_nom=16600,
     Q_min=4980,
     eta=[0.3,0.93; 1.0,0.93]);

AixLib/DataBase/Boiler/General/Boiler_Vitogas200F_18kW.mo

@@ -3,7 +3,8 @@ record Boiler_Vitogas200F_18kW "Gas-fired boiler Viessmann Vitogas200-F 18kW"
   extends BoilerTwoPointBaseDataDefinition(
     name="Vitogas200F_18kW",
     volume=0.0097,
-    pressureDrop=7853000000.0,
+    a=9.5289E+10,
+    n=2.0226,
     Q_nom=19900,
     Q_min=5970,
     eta=[0.3,0.93; 1.0,0.93]);
@@ -26,7 +27,7 @@ record Boiler_Vitogas200F_18kW "Gas-fired boiler Viessmann Vitogas200-F 18kW"
   </li>
   <li>Manufacturer: Viessmann
   </li>
-  <li>Broschure: Vitogas 200-F; 5/2010
+  <li>Broschure: 4/2014; 541039
   </li>
 </ul>
 </html>"));

AixLib/DataBase/Boiler/General/Boiler_Vitogas200F_22kW.mo

@@ -3,7 +3,8 @@ record Boiler_Vitogas200F_22kW "Gas-fired boiler Viessmann Vitogas200-F 22kW"
   extends BoilerTwoPointBaseDataDefinition(
     name="Vitogas200F_22kW",
     volume=0.0097,
-    pressureDrop=7853000000.0,
+    a=9.5289E+10,
+    n=2.0226,
     Q_nom=24300,
     Q_min=7290,
     eta=[0.3,0.93; 1.0,0.93]);
@@ -26,7 +27,7 @@ record Boiler_Vitogas200F_22kW "Gas-fired boiler Viessmann Vitogas200-F 22kW"
   </li>
   <li>Manufacturer: Viessmann
   </li>
-  <li>Broschure: Vitogas 200-F; 5/2010
+  <li>Broschure: Vitogas 200-F; 4/2014; 541039
   </li>
 </ul>
 </html>"));

AixLib/DataBase/Boiler/General/Boiler_Vitogas200F_29kW.mo

@@ -3,7 +3,8 @@ record Boiler_Vitogas200F_29kW "Gas-fired boiler Viessmann Vitogas200-F 29kW"
   extends BoilerTwoPointBaseDataDefinition(
     name="Vitogas200F_29kW",
     volume=0.0117,
-    pressureDrop=6411000000.0,
+    a=3.3262E+9,
+    n=1.9265,
     Q_nom=32000,
     Q_min=9600,
     eta=[0.3,0.93; 1.0,0.93]);
@@ -26,7 +27,7 @@ record Boiler_Vitogas200F_29kW "Gas-fired boiler Viessmann Vitogas200-F 29kW"
   </li>
   <li>Manufacturer: Viessmann
   </li>
-  <li>Broschure: Vitogas 200-F; 5/2010
+  <li>Broschure: Vitogas 200-F; 4/2014; 541039
   </li>
 </ul>
 </html>"));

AixLib/DataBase/Boiler/General/Boiler_Vitogas200F_35kW.mo

@@ -3,7 +3,8 @@ record Boiler_Vitogas200F_35kW "Gas-fired boiler Viessmann Vitogas200-F 35kW"
   extends BoilerTwoPointBaseDataDefinition(
     name="Vitogas200F_35kW",
     volume=0.0138,
-    pressureDrop=4009000000.0,
+    a=4.0370E+9,
+    n=1.9884,
     Q_nom=38600,
     Q_min=11580,
     eta=[0.3,0.93; 1.0,0.93]);
@@ -26,7 +27,7 @@ record Boiler_Vitogas200F_35kW "Gas-fired boiler Viessmann Vitogas200-F 35kW"
   </li>
   <li>Manufacturer: Viessmann
   </li>
-  <li>Broschure: Vitogas 200-F; 5/2010
+  <li>Broschure: Vitogas 200-F; 4/2014; 541039
   </li>
 </ul>
 </html>"));

AixLib/DataBase/Boiler/General/Boiler_Vitogas200F_42kW.mo

@@ -3,7 +3,8 @@ record Boiler_Vitogas200F_42kW "Gas-fired boiler Viessmann Vitogas200-F 42kW"
   extends BoilerTwoPointBaseDataDefinition(
     name="Vitogas200F_42kW",
     volume=0.0159,
-    pressureDrop=4009000000.0,
+    a=4.0370E+9,
+    n=1.9884,
     Q_nom=46400,
     Q_min=13920,
     eta=[0.3,0.93; 1.0,0.93]);
@@ -26,7 +27,7 @@ record Boiler_Vitogas200F_42kW "Gas-fired boiler Viessmann Vitogas200-F 42kW"
   </li>
   <li>Manufacturer: Viessmann
   </li>
-  <li>Broschure: Vitogas 200-F; 5/2010
+  <li>Broschure: Vitogas 200-F; 4/2014; 541039
   </li>
 </ul>
 </html>"));

AixLib/DataBase/Boiler/General/Boiler_Vitogas200F_48kW.mo

@@ -2,8 +2,9 @@ within AixLib.DataBase.Boiler.General;
 record Boiler_Vitogas200F_48kW "Gas-fired boiler Viessmann Vitogas200-F 48kW"
   extends BoilerTwoPointBaseDataDefinition(
     name="Vitogas200F_48kW",
-    volume=0.0159,
-    pressureDrop=3240000000.0,
+    volume=0.0179,
+    a=3.3169E+9,
+    n=1.9986,
     Q_nom=53000,
     Q_min=15900,
     eta=[0.3,0.93; 1.0,0.93]);
@@ -26,7 +27,7 @@ record Boiler_Vitogas200F_48kW "Gas-fired boiler Viessmann Vitogas200-F 48kW"
   </li>
   <li>Manufacturer: Viessmann
   </li>
-  <li>Broschure: Vitogas 200-F; 5/2010
+  <li>Broschure: Vitogas 200-F; 4/2014; 541039
   </li>
 </ul>
 </html>"));

AixLib/DataBase/Boiler/General/Boiler_Vitogas200F_60kW.mo

@@ -2,8 +2,9 @@ within AixLib.DataBase.Boiler.General;
 record Boiler_Vitogas200F_60kW "Gas-fired boiler Viessmann Vitogas200-F 60kW"
   extends BoilerTwoPointBaseDataDefinition(
     name="Vitogas200F_60kW",
-    volume=0.0159,
-    pressureDrop=3240000000.0,
+    volume=0.0219,
+    a=3.3169E+9,
+    n=1.9986,
     Q_nom=66200,
     Q_min=19860,
     eta=[0.3,0.93; 1.0,0.93]);
@@ -26,7 +27,7 @@ record Boiler_Vitogas200F_60kW "Gas-fired boiler Viessmann Vitogas200-F 60kW"
   </li>
   <li>Manufacturer: Viessmann
   </li>
-  <li>Broschure: Vitogas 200-F; 5/2010
+  <li>Broschure: Vitogas 200-F; 4/2014; 541039
   </li>
 </ul>
 </html>"));

AixLib/Fluid/BoilerCHP/BaseClasses/PartialHeatGenerator.mo

@@ -30,8 +30,8 @@ partial model PartialHeatGenerator "Partial model for heat generators"
     "Start value of pressure"
     annotation (Dialog(tab="Advanced", group="Initialization"));
 
-  parameter Modelica.Units.SI.PressureDifference dp_nominal=m_flow_nominal^2*a/
-      (rho_default^2) "Pressure drop at nominal mass flow rate"
+  parameter Modelica.Units.SI.PressureDifference dp_nominal=a*(m_flow_nominal/rho_default)^n
+      "Pressure drop at nominal mass flow rate"
     annotation (Dialog(group="Nominal condition"));
   parameter Boolean from_dp=false
     "= true, use m_flow = f(dp) else dp = f(m_flow)"
@@ -42,7 +42,9 @@ partial model PartialHeatGenerator "Partial model for heat generators"
   parameter Real deltaM=0.3
     "Fraction of nominal mass flow rate where transition to turbulent occurs"
     annotation (Dialog(tab="Advanced", group="Pressure drop"));
-  parameter Real a "Coefficient of old approach from model Modelica.Fluid.Fittings.GenericResistances.VolumeFlowRate. Recalculated to dp_nominal based on IBPSA approach."
+  parameter Real a "Coefficient of volume flow rate dependent nominal pressure drop, dp_nominal=a*V_flow_nominal^n."
+  annotation (Dialog(tab="Advanced", group="Pressure drop"));
+  parameter Real n=2 "Exponent of volume flow rate dependent nominal pressure drop, dp_nominal=a*V_flow_nominal^n."
   annotation (Dialog(tab="Advanced", group="Pressure drop"));
   Sensors.TemperatureTwoPort senTCold(
     redeclare final package Medium = Medium,
@@ -96,7 +98,10 @@ partial model PartialHeatGenerator "Partial model for heat generators"
     final m_flow_nominal=m_flow_nominal,
     final show_T=false,
     final allowFlowReversal=allowFlowReversal,
-    final dp_nominal=dp_nominal)
+    final dp_nominal=dp_nominal,
+    final deltaM=deltaM,
+    final from_dp=from_dp,
+    final linearized=linearized)
     "Pressure drop"
     annotation (Placement(transformation(extent={{-20,-90},{0,-70}})));
   parameter Modelica.Units.SI.Density rho_default=Medium.density_pTX(

AixLib/Fluid/BoilerCHP/Boiler.mo

@@ -1,6 +1,7 @@
 within AixLib.Fluid.BoilerCHP;
 model Boiler "Boiler with internal and external control"
-  extends AixLib.Fluid.BoilerCHP.BaseClasses.PartialHeatGenerator(a=paramBoiler.pressureDrop,
+  extends AixLib.Fluid.BoilerCHP.BaseClasses.PartialHeatGenerator(a=paramBoiler.a,
+                                      n=paramBoiler.n,
                                       vol(energyDynamics=energyDynamics,
                                           V=paramBoiler.volume));
 

AixLib/Fluid/BoilerCHP/BoilerNoControl.mo

@@ -1,6 +1,7 @@
-within AixLib.Fluid.BoilerCHP;
+within AixLib.Fluid.BoilerCHP;
 model BoilerNoControl "Boiler model with physics only"
-  extends AixLib.Fluid.BoilerCHP.BaseClasses.PartialHeatGenerator(a=paramBoiler.pressureDrop,
+  extends AixLib.Fluid.BoilerCHP.BaseClasses.PartialHeatGenerator(a=paramBoiler.a,
+                                      n=paramBoiler.n,
                                      vol(energyDynamics=Modelica.Fluid.Types.Dynamics.FixedInitial,
                                          final V=V));
 
@@ -196,8 +197,8 @@ equation
 <p>
   <br/>
   Assumptions for predefined parameter values (based on <i><a href=
-  \"http://www.viessmann.com/web/netherlands/nl_tdis.nsf/39085ab6c8b4f206c1257195003fd054/8A84BA9E240BA23DC12575210055DB56/$file/5811_009-DE_Simplex-PS.pdf\">
-  Vissmann data cheat</a></i>):
+  \"http:static.viessmann.com/resources/technical_documents/DE/de/VDP/5811009VDP00001_1.pdf?#pagemode=bookmarks&amp;zoom=page-fit&amp;view=Fit\">
+  Vissmann data cheat 5811009</a></i>):
 </p>
 <p>
   G: a heat loss of 0.3 % of nominal power at a temperature difference