@@ -6,39 +6,54 @@ model MerkelEnergyPlus
66 package MediumAir = Buildings.Media.Air "Air medium model" ;
77 package MediumWat = Buildings.Media.Water "Water medium model" ;
88
9- parameter Modelica.Units.SI.Density denWat = MediumWat.density(
9+ parameter Modelica.Units.SI.Density rhoWat = MediumWat.density(
1010 MediumWat.setState_pTX(
11- MediumWat.p_default,
12- MediumWat.T_default,
13- MediumWat.X_default)) "Default density of water" ;
11+ MediumWat.p_default,
12+ MediumWat.T_default,
13+ MediumWat.X_default)) "Default density of water" ;
14+ parameter Modelica.Units.SI.Density rhoAir= MediumAir.density(
15+ MediumAir.setState_pTX(
16+ MediumAir.p_default,
17+ MediumAir.T_default,
18+ MediumAir.X_default)) "Default density of air" ;
1419
15- // Cooling tower parameters
20+ // Cooling tower parameters - values quoted from EnergyPlus
1621 parameter Modelica.Units.SI.PressureDifference dp_nominal= 6000
1722 "Nominal pressure difference of cooling tower" ;
18- parameter Modelica.Units.SI.VolumeFlowRate VWat_flow_nominal= 0.00109181
23+ parameter Modelica.Units.SI.VolumeFlowRate VWat_flow_nominal= 0.00109317
1924 "Nominal volumetric flow rate of water (medium 2)" ;
20- parameter Modelica.Units.SI.MassFlowRate m_flow_nominal= VWat_flow_nominal*
21- denWat "Nominal mass flow rate of water (medium 2)" ;
22- parameter Real ratWatAir_nominal = 1.61599
23- "Nominal water-to-air ratio" ;
24- parameter Modelica.Units.SI.Temperature TAirInWB_nominal= 18.85 + 273.15
25+ parameter Modelica.Units.SI.VolumeFlowRate VAir_flow_nominal= 0.561240
26+ "Nominal volumetric flow rate of air (medium 1)" ;
27+ parameter Modelica.Units.SI.Temperature TAirInWB_nominal= 25.60 + 273.15
2528 "Nominal outdoor wetbulb temperature" ;
26- parameter Modelica.Units.SI.Temperature TWatIn_nominal= 34.16 + 273.15
27- "Nominal water inlet temperature" ;
29+ parameter Modelica.Units.SI.TemperatureDifference TRan= 5.50
30+ "Range temperature (difference between water in and out)" ;
31+ parameter Modelica.Units.SI.TemperatureDifference TApp= 3.90
32+ "Approach temperature (difference between water out and wetbulb)" ;
2833 parameter Modelica.Units.SI.Temperature TWatOut_initial= 33.019 + 273.15
2934 "Nominal water inlet temperature" ;
30- parameter Modelica.Units.SI.HeatFlowRate Q_flow_nominal= - 20286.37455
31- "Nominal heat transfer, positive" ;
32- parameter Modelica.Units.SI.ThermalConductance UA_nominal_EP= 2011.28668
33- "Nominal heat transfer, positive" ;
34- parameter Modelica.Units.SI.Power PFan_nominal= 213.00693 "Nominal fan power" ;
35+ parameter Modelica.Units.SI.Power PFan_nominal= 213.27113 "Nominal fan power" ;
3536
3637 parameter Real r_VEnePlu[:] = {0 ,0.1 ,0.2 ,0.3 ,0.4 ,0.5 ,0.6 ,0.7 ,0.8 ,0.9 ,1 }
3738 "Fan control signal" ;
3839 parameter Real r_PEnePlu[:] = {0 ,0.020982275 ,0.027843038 ,0.046465108 ,
3940 0.082729139 ,0.142515786 ,0.231705701 ,0.356179538 ,0.521817952 ,0.734501596 ,1 }
4041 "Fan power output as a function of the signal" ;
4142
43+ // Values calculated from principals
44+ final parameter Modelica.Units.SI.MassFlowRate mWat_flow_nominal=
45+ VWat_flow_nominal* rhoWat
46+ "Nominal mass flow rate of water (medium 2)" ;
47+ final parameter Modelica.Units.SI.MassFlowRate mAir_flow_nominal=
48+ VAir_flow_nominal* rhoAir
49+ "Nominal mass flow rate of air (medium 1)" ;
50+ final parameter Real ratWatAir_nominal = mWat_flow_nominal/ mAir_flow_nominal
51+ "Nominal water-to-air ratio" ;
52+ final parameter Modelica.Units.SI.Temperature TWatIn_nominal= TWatOut_nominal + TRan
53+ "Nominal water inlet temperature" ;
54+ final parameter Modelica.Units.SI.Temperature TWatOut_nominal= TAirInWB_nominal + TApp
55+ "Nominal water outlet temperature, 29.5 in EnergyPlus" ;
56+
4257 Modelica.Blocks.Sources.CombiTimeTable datRea(
4358 tableOnFile= true ,
4459 fileName= ModelicaServices.ExternalReferences.loadResource(
@@ -55,11 +70,11 @@ model MerkelEnergyPlus
5570 dp_nominal= dp_nominal,
5671 energyDynamics= Modelica.Fluid.Types.Dynamics.FixedInitial,
5772 T_start= TWatOut_initial,
58- m_flow_nominal= m_flow_nominal ,
73+ m_flow_nominal= mWat_flow_nominal ,
5974 ratWatAir_nominal= ratWatAir_nominal,
6075 TAirInWB_nominal= TAirInWB_nominal,
6176 TWatIn_nominal= TWatIn_nominal,
62- TWatOut_nominal= TWatIn_nominal + Q_flow_nominal / (m_flow_nominal * Buildings.Utilities.Psychrometrics.Constants.cpWatLiq) ,
77+ TWatOut_nominal= TWatOut_nominal ,
6378 PFan_nominal= PFan_nominal,
6479 yMin= 0.1 ,
6580 fraFreCon= 0.1 ,
@@ -156,6 +171,13 @@ outlet are equal to the state variables of the model.
156171</html>" , revisions="<html>
157172<ul>
158173<li>
174+ April 30, 2025, by Kathryn Hinkelman:<br/>
175+ Corrected the wetbulb value <code>TAirInWB_nominal</code> and
176+ added intermediate equations from E+ to model.<br/>
177+ This is for
178+ <a href=\" https://github.com/lbl-srg/modelica-buildings/issues/4189\">#4189</a>.
179+ </li>
180+ <li>
159181December 23, 2019, by Kathryn Hinkelman:<br/>
160182First implementation.
161183</li>
0 commit comments