Issue1576 Heat pump model integration

IBPSA/Fluid/Chillers/ModularReversible/BaseClasses/RefrigerantCycle.mo

@@ -0,0 +1,199 @@
+within IBPSA.Fluid.Chillers.ModularReversible.BaseClasses;
+model RefrigerantCycle "Refrigerant cycle model of a chiller"
+  extends
+    IBPSA.Fluid.HeatPumps.ModularReversible.BaseClasses.PartialModularRefrigerantCycle;
+  replaceable model RefrigerantCycleChillerCooling =
+      IBPSA.Fluid.Chillers.ModularReversible.RefrigerantCycle.BaseClasses.NoCooling
+      (useInChi=true)
+    constrainedby
+    IBPSA.Fluid.Chillers.ModularReversible.RefrigerantCycle.BaseClasses.PartialChillerCycle
+    "Replaceable model for refrigerant cycle of a chiller in main operation mode"
+    annotation (choicesAllMatching=true);
+
+  replaceable model RefrigerantCycleChillerHeating =
+      IBPSA.Fluid.HeatPumps.ModularReversible.RefrigerantCycle.BaseClasses.NoHeating
+      (useInHeaPum=true)
+    constrainedby
+    IBPSA.Fluid.HeatPumps.ModularReversible.RefrigerantCycle.BaseClasses.PartialHeatPumpCycle
+    "Replaceable model for refrigerant cycle of a chiller in reversed operation mode"
+    annotation (Dialog(enable=use_rev),choicesAllMatching=true);
+
+  RefrigerantCycleChillerCooling refCycChiCoo
+    "Refrigerant cycle instance for cooling"
+    annotation (Placement(transformation(extent={{21,40},{60,80}}, rotation=0)));
+  RefrigerantCycleChillerHeating refCycChiHea
+    "Refrigerant cycle instance for heating"
+    annotation (Placement(transformation(extent={{-80,38},{-39,80}}, rotation=0)));
+
+  Modelica.Blocks.Math.Gain gainEva(final k=-1)
+    "Negate QEva to match definition of heat flow direction" annotation (Placement(
+        transformation(extent={{-10,-10},{10,10}},
+                                               rotation=180,
+        origin={-22,12})));
+  Modelica.Blocks.Math.Gain gainCon(final k=-1)
+    "Negate QCon to match definition of heat flow direction" annotation (
+      Placement(transformation(
+        extent={{-10,-10},{10,10}},
+        rotation=0,
+        origin={30,-8})));
+protected
+  IBPSA.Utilities.IO.Strings.StringPassThrough strPasThr
+    "String pass through to enable conditional string data";
+  IBPSA.Utilities.IO.Strings.Constant conStrSou(
+    final k=refCycChiCoo.datSou)
+   "Constant String data source";
+initial algorithm
+  assert(
+    strPasThr.y ==refCycChiCoo.datSou,
+    "Data sources for reversible operation are not equal!
+    Only continue if this is intended",
+    AssertionLevel.warning);
+equation
+  if use_rev then
+    connect(refCycChiHea.datSouOut, strPasThr.u);
+  else
+    connect(conStrSou.y, strPasThr.u);
+  end if;
+
+  connect(pasTrhModSet.u, sigBus.coo);
+
+  connect(refCycChiCoo.PEle, swiPEle.u1) annotation (Line(points={{40.5,38},{40,
+          38},{40,8},{8,8},{8,-58}}, color={0,0,127}));
+  connect(refCycChiHea.PEle, swiPEle.u3) annotation (Line(
+      points={{-59.5,35.9},{-58,35.9},{-58,26},{-24,26},{-24,-58},{-8,-58}},
+      color={0,0,127},
+      pattern=LinePattern.Dash));
+  connect(sigBus,refCycChiHea.sigBus)  annotation (Line(
+      points={{0,102},{0,92},{-59.295,92},{-59.295,80.84}},
+      color={255,204,51},
+      thickness=0.5));
+  connect(sigBus,refCycChiCoo.sigBus)  annotation (Line(
+      points={{0,102},{0,92},{40.695,92},{40.695,80.8}},
+      color={255,204,51},
+      thickness=0.5));
+
+  connect(refCycChiCoo.QEva_flow, gainEva.u) annotation (Line(points={{56.1,38},
+          {56.1,26},{14,26},{14,12},{-10,12}},           color={0,0,127}));
+  connect(gainEva.y, swiQEva.u1) annotation (Line(points={{-33,12},{-50,12},{-50,
+          8},{-58,8}}, color={0,0,127}));
+  connect(refCycChiHea.QEva_flow, swiQEva.u3) annotation (Line(
+      points={{-43.1,35.9},{-42,35.9},{-42,-10},{-52,-10},{-52,-8},{-58,-8}},
+      color={0,0,127},
+      pattern=LinePattern.Dash));
+  connect(refCycChiHea.QCon_flow, gainCon.u) annotation (Line(
+      points={{-75.9,35.9},{-74,35.9},{-74,20},{-34,20},{-34,-8},{18,-8}},
+      color={0,0,127},
+      pattern=LinePattern.Dash));
+  connect(gainCon.y, swiQCon.u3) annotation (Line(
+      points={{41,-8},{58,-8}},
+      color={0,0,127},
+      pattern=LinePattern.Dash));
+  connect(refCycChiCoo.QCon_flow, swiQCon.u1) annotation (Line(points={{24.9,38},
+          {24.9,36},{24,36},{24,24},{50,24},{50,8},{58,8}}, color={0,0,127}));
+  connect(swiPEle.u2, sigBus.coo) annotation (Line(points={{2.22045e-15,-58},{2.22045e-15,
+          -2},{0,-2},{0,102}}, color={255,0,255}), Text(
+      string="%second",
+      index=1,
+      extent={{-3,6},{-3,6}},
+      horizontalAlignment=TextAlignment.Right));
+  connect(swiQEva.u2, sigBus.coo) annotation (Line(points={{-58,0},{0,0},{0,102}},
+        color={255,0,255}), Text(
+      string="%second",
+      index=1,
+      extent={{6,3},{6,3}},
+      horizontalAlignment=TextAlignment.Left));
+  connect(swiQCon.u2, sigBus.coo) annotation (Line(points={{58,0},{0,0},{0,102}},
+        color={255,0,255}), Text(
+      string="%second",
+      index=1,
+      extent={{-6,3},{-6,3}},
+      horizontalAlignment=TextAlignment.Right));
+  annotation (Icon(coordinateSystem(preserveAspectRatio=false), graphics={
+        Rectangle(
+          extent={{-100,100},{100,-100}},
+          lineColor={238,46,47},
+          fillColor={0,0,0},
+          fillPattern=FillPattern.Solid),
+        Ellipse(
+          extent={{-24,88},{22,44}},
+          lineColor={28,108,200},
+          lineThickness=0.5),
+        Line(
+          points={{-16,82},{20,74}},
+          color={28,108,200},
+          thickness=0.5),
+        Line(
+          points={{-18,52},{20,58}},
+          color={28,108,200},
+          thickness=0.5),
+        Rectangle(
+          extent={{-98,40},{-60,-28}},
+          lineColor={28,108,200},
+          lineThickness=0.5),
+        Line(
+          points={{-20,-60},{-20,-70},{-20,-80},{20,-60},{20,-80},{-20,-60}},
+          color={28,108,200},
+          thickness=0.5),
+        Line(
+          points={{-122,34},{-66,34},{-82,10},{-66,-22},{-120,-22}},
+          color={28,108,200},
+          thickness=0.5),
+        Rectangle(
+          extent={{60,40},{98,-28}},
+          lineColor={28,108,200},
+          lineThickness=0.5),
+        Line(
+          points={{120,34},{64,34},{80,10},{64,-22},{118,-22}},
+          color={28,108,200},
+          thickness=0.5),
+        Line(
+          points={{-80,40},{-80,68},{-24,68}},
+          color={28,108,200},
+          thickness=0.5),
+        Line(
+          points={{22,66},{80,66},{80,40}},
+          color={28,108,200},
+          thickness=0.5),
+        Line(
+          points={{78,-28},{78,-70}},
+          color={28,108,200},
+          thickness=0.5),
+        Line(
+          points={{78,-70},{62,-70},{20,-70}},
+          color={28,108,200},
+          thickness=0.5),
+        Line(
+          points={{-80,-26},{-80,-68},{-20,-68}},
+          color={28,108,200},
+          thickness=0.5),
+        Text(
+          extent={{-151,147},{149,107}},
+          textColor={0,0,255},
+          fillPattern=FillPattern.HorizontalCylinder,
+          fillColor={0,127,255},
+          textString="%name")}), Diagram(coordinateSystem(preserveAspectRatio=false)),
+    Documentation(revisions="<html><ul>
+  <li>
+    <i>May 22, 2019&#160;</i> by Julian Matthes:<br/>
+    First implementation (see issue <a href=
+    \"https://github.com/RWTH-EBC/AixLib/issues/715\">AixLib #715</a>)
+  </li>
+</ul>
+</html>", info="<html>
+<p>
+  Modular refrigerant cycle model for chiller applications used in
+  the model <a href=\"modelica://IBPSA.Fluid.Chillers.ModularReversible.ModularReversible\">
+  IBPSA.Fluid.Chillers.ModularReversible.ModularReversible</a> and extending models
+  of the modular approach.
+</p>
+<p>
+  This model adds the replaceable model approaches for cooling and heating data
+  to the partial refrigerant cylce.
+</p>
+<p>
+  Further, an asseration warning is raised if the model approaches or
+  sources for performance data differ. This indicates that they are not
+  for the same device.
+</p>
+</html>"));
+end RefrigerantCycle;

IBPSA/Fluid/Chillers/ModularReversible/BaseClasses/package.mo

@@ -0,0 +1,11 @@
+within IBPSA.Fluid.Chillers.ModularReversible;
+package BaseClasses "Package with base classes for IBPSA.Fluid.Chillers.ModularReversible"
+  extends Modelica.Icons.BasesPackage;
+
+  annotation (preferredView="info", Documentation(info="<html>
+<p>
+This package contains base classes that are used to construct the models in
+<a href=\"modelica://IBPSA.Fluid.Chillers.ModularReversible\">IBPSA.Fluid.Chillers.ModularReversible</a>.
+</p>
+</html>"));
+end BaseClasses;

IBPSA/Fluid/Chillers/ModularReversible/BaseClasses/package.order

@@ -0,0 +1 @@
+RefrigerantCycle

IBPSA/Fluid/Chillers/ModularReversible/Controls/Safety/OperationalEnvelope.mo

@@ -0,0 +1,66 @@
+within IBPSA.Fluid.Chillers.ModularReversible.Controls.Safety;
+model OperationalEnvelope
+  "Indicates if the chiller operation is within a defined envelope"
+  extends
+    HeatPumps.ModularReversible.Controls.Safety.BaseClasses.PartialOperationalEnvelope;
+  Modelica.Blocks.Logical.Not notCoo "=true for heating" annotation (Placement(
+        transformation(
+        extent={{-10,-10},{10,10}},
+        rotation=0,
+        origin={-50,0})));
+equation
+  if use_TAmbSidOut then
+    connect(bouMapCoo.TAmbSid, sigBus.TConOutMea) annotation (Line(points={{-84.8,
+            -62},{-104,-62},{-104,-73},{-119,-73}},
+                                              color={0,0,127}));
+    connect(bouMapHea.TAmbSid, sigBus.TConOutMea) annotation (Line(points={{-84.8,
+            58},{-94,58},{-94,-72},{-104,-72},{-104,-73},{-119,-73}},
+                                                                color={0,0,127}));
+  else
+    connect(bouMapCoo.TAmbSid, sigBus.TConInMea) annotation (Line(points={{-84.8,-62},
+            {-104,-62},{-104,-73},{-119,-73}},color={0,0,127}));
+    connect(bouMapHea.TAmbSid, sigBus.TConInMea) annotation (Line(points={{-84.8,58},
+            {-94,58},{-94,-72},{-104,-72},{-104,-73},{-119,-73}},
+                                                                color={0,0,127}));
+  end if;
+  if use_TUseSidOut then
+    connect(bouMapHea.TUseSid, sigBus.TEvaOutMea) annotation (Line(points={{-84.2,
+            82},{-94,82},{-94,-73},{-119,-73}},   color={0,0,127}));
+    connect(bouMapCoo.TUseSid, sigBus.TEvaOutMea) annotation (Line(points={{-84.2,
+            -38},{-104,-38},{-104,-73},{-119,-73}}, color={0,0,127}));
+  else
+    connect(bouMapHea.TUseSid, sigBus.TEvaInMea) annotation (Line(points={{-84.2,82},
+            {-94,82},{-94,-73},{-119,-73}},       color={0,0,127}));
+    connect(bouMapCoo.TUseSid, sigBus.TEvaInMea) annotation (Line(points={{-84.2,-38},
+            {-104,-38},{-104,-73},{-119,-73}},      color={0,0,127}));
+  end if;
+  connect(notCoo.y, swiHeaCoo.u2)
+    annotation (Line(points={{-39,0},{-6,0}}, color={255,0,255}));
+  connect(notCoo.u, sigBus.coo) annotation (Line(points={{-62,0},{-92,0},{-92,-73},
+          {-119,-73}}, color={255,0,255}), Text(
+      string="%second",
+      index=1,
+      extent={{-6,3},{-6,3}},
+      horizontalAlignment=TextAlignment.Right));
+  annotation (Diagram(coordinateSystem(extent={{-120,-120},{120,120}})),
+    Documentation(revisions="<html><ul>
+  <li>
+    <i>November 26, 2018</i> by Fabian Wuellhorst:<br/>
+    First implementation (see issue <a href=
+    \"https://github.com/RWTH-EBC/AixLib/issues/577\">AixLib #577</a>)
+  </li>
+</ul>
+</html>", info="<html>
+<p>
+  Model to check if the operating conditions of a chiller are inside
+  the given boundaries. If not, the heat pump or chiller will switch off.
+</p>
+<p>
+  Read the documentation of
+  <a href=\"modelica://IBPSA.Fluid.HeatPumps.ModularReversible.Controls.Safety.BaseClasses.PartialOperationalEnvelope\">
+  IBPSA.Fluid.HeatPumps.ModularReversible.Controls.Safety.BaseClasses.PartialOperationalEnvelope</a>
+  for more information.
+</p>
+
+</html>"));
+end OperationalEnvelope;

IBPSA/Fluid/Chillers/ModularReversible/Controls/Safety/package.mo

@@ -0,0 +1,36 @@
+within IBPSA.Fluid.Chillers.ModularReversible.Controls;
+package Safety "Contains typical safety controllers for chillers"
+  extends Modelica.Icons.Package;
+
+  annotation (Icon(graphics={
+        Ellipse(
+          extent={{-48,-12},{48,80}},
+          lineColor={0,0,0},
+          fillColor={91,91,91},
+          fillPattern=FillPattern.Solid),
+        Ellipse(
+          extent={{-36,0},{36,68}},
+          lineColor={0,0,0},
+          fillColor={255,255,255},
+          fillPattern=FillPattern.Solid),
+        Rectangle(
+          extent={{-60,34},{60,-66}},
+          lineColor={0,0,0},
+          fillColor={91,91,91},
+          fillPattern=FillPattern.Solid),
+        Rectangle(
+          extent={{-10,-16},{10,-56}},
+          lineColor={0,0,0},
+          fillColor={255,255,255},
+          fillPattern=FillPattern.Solid),
+        Ellipse(
+          extent={{-14,-26},{16,2}},
+          lineColor={0,0,0},
+          fillColor={255,255,255},
+          fillPattern=FillPattern.Solid)}), Documentation(info="<html>
+<p>
+  Package with safety controls typically
+  applied in chiller devices.
+</p>
+</html>"));
+end Safety;

IBPSA/Fluid/Chillers/ModularReversible/Controls/Safety/package.order

@@ -0,0 +1 @@
+OperationalEnvelope

IBPSA/Fluid/Chillers/ModularReversible/Controls/package.mo

@@ -0,0 +1,13 @@
+within IBPSA.Fluid.Chillers.ModularReversible;
+package Controls "Package of control sequences"
+  extends Modelica.Icons.VariantsPackage;
+
+  annotation (
+    preferredView="info",
+    Documentation(
+      info="<html>
+<p>
+This package contains control sequences.
+</p>
+</html>"));
+end Controls;

IBPSA/Fluid/Chillers/ModularReversible/Controls/package.order

@@ -0,0 +1 @@
+Safety

IBPSA/Fluid/Chillers/ModularReversible/Data/TableData2D/EN14511/Carrier30XWP1012_1MW.mo

@@ -0,0 +1,49 @@
+within IBPSA.Fluid.Chillers.ModularReversible.Data.TableData2D.EN14511;
+record Carrier30XWP1012_1MW
+  "Carrier 30XW-P 1012 with roughly 1 MW cooling output"
+  extends IBPSA.Fluid.Chillers.ModularReversible.Data.TableData2D.Generic(
+    tabQEva_flow=[0,298.15,303.15,308.15,313.15,318.15; 278.15,1003000,968000,
+        932000,894000,854000; 280.15,1054000,1035000,995000,954000,911000; 283.15,
+        1102000,1120000,1096000,1050000,1002000; 288.15,1181000,1199000,1226000,
+        1227000,1170000; 291.15,1227000,1244000,1275000,1311000,1278000],
+    tabPEle=[0,298.15,303.15,308.15,313.15,318.15; 278.15,158954,181955,208036,
+        237766,271111; 280.15,159215,182218,208159,237905,271131; 283.15,159479,
+        182708,208762,238095,271545; 288.15,160462,183333,209573,239648,272727;
+        291.15,161024,183752,210396,240550,274249],
+    mCon_flow_nominal=49.85,
+    mEva_flow_nominal=49.85,
+    dpCon_nominal=32000,
+    dpEva_nominal=44000,
+    tabLowBou=[293.15,276.15; 323.15,276.15],
+    devIde="Carrier30XWP1012",
+    use_TConOutForOpeEnv=true,
+    use_TEvaOutForOpeEnv=true,
+    use_TConOutForTab=false,
+    use_TEvaOutForTab=true);
+
+  annotation (
+    Icon(coordinateSystem(preserveAspectRatio=false)),
+    Diagram(coordinateSystem(preserveAspectRatio=false)),
+    Documentation(info="<html>
+<p>
+  Performance data for Daikin FTXM20R_RXM20R for the cooling mode.
+</p>
+<p>
+  Boundaries are for dry-bulb temperature.
+</p>
+<h4>References</h4>
+<p>
+Carrier, Water-Cooled Liquid Chillers Pro-Dialog plus, 30XW- 30XWHDaikin
+<a href=\"http://www.carrier.com.kw/pdf/pdf/Chilled%20Water%20Products/30XW.pdf\">
+http://www.carrier.com.kw/pdf/pdf/Chilled%20Water%20Products/30XW.pdf</a>
+</p>
+</html>", revisions="<html>
+<ul>
+<li>
+  <i>October 2, 2022</i> by Fabian Wuellhorst:<br/>
+  First implementation (see issue <a href=
+  \"https://github.com/ibpsa/modelica-ibpsa/issues/1576\">#1576</a>)
+</li>
+</ul>
+</html>"));
+end Carrier30XWP1012_1MW;