model ElectricChillerParallel "Example to test the chiller cooling plant" extends Modelica.Icons.Example; package Medium=Buildings.Media.Water "Medium model for water"; // chiller and cooling tower replaceable parameter Buildings.Fluid.Chillers.Data.ElectricEIR.ElectricEIRChiller_York_YT_1055kW_5_96COP_Vanes perChi "Performance data of chiller"; parameter Modelica.Units.SI.MassFlowRate mCHW_flow_nominal=18.3 "Nominal chilled water mass flow rate"; parameter Modelica.Units.SI.MassFlowRate mCW_flow_nominal=34.7 "Nominal condenser water mass flow rate"; parameter Modelica.Units.SI.PressureDifference dpCHW_nominal=44.8*1000 "Nominal chilled water side pressure"; parameter Modelica.Units.SI.PressureDifference dpCW_nominal=46.2*1000 "Nominal condenser water side pressure"; parameter Modelica.Units.SI.Power QChi_nominal=mCHW_flow_nominal*4200*(6.67 - 18.56) "Nominal cooling capaciaty (Negative means cooling)"; parameter Modelica.Units.SI.MassFlowRate mMin_flow=0.03 "Minimum mass flow rate of single chiller"; parameter Modelica.Units.SI.TemperatureDifference dTApp=3 "Approach temperature"; parameter Modelica.Units.SI.Power PFan_nominal=5000 "Fan power"; // control settings parameter Modelica.Units.SI.Pressure dpSetPoi=68900 "Differential pressure setpoint"; parameter Modelica.Units.SI.Temperature TCHWSet=273.15 + 8 "Chilled water temperature setpoint"; parameter Modelica.Units.SI.Time tWai=30 "Waiting time"; // pumps parameter Buildings.Fluid.Movers.Data.Generic perCHWPum( pressure=Buildings.Fluid.Movers.BaseClasses.Characteristics.flowParameters( V_flow=mCHW_flow_nominal/1000*{0.2,0.6,0.8,1.0}, dp=(dpCHW_nominal+dpSetPoi+18000+30000)*{1.5,1.3,1.0,0.6})) "Performance data for chilled water pumps"; parameter Buildings.Fluid.Movers.Data.Generic perCWPum( pressure=Buildings.Fluid.Movers.BaseClasses.Characteristics.flowParameters( V_flow=mCW_flow_nominal/1000*{0.2,0.6,1.0,1.2}, dp=(dpCW_nominal+60000+6000)*{1.2,1.1,1.0,0.6})) "Performance data for condenser water pumps"; parameter Modelica.Units.SI.Pressure dpCHWPumVal_nominal=6000 "Nominal pressure drop of chilled water pump valve"; parameter Modelica.Units.SI.Pressure dpCWPumVal_nominal=6000 "Nominal pressure drop of chilled water pump valve"; parameter Modelica.Units.SI.PressureDifference dpCooTowVal_nominal=6000 "Nominal pressure difference of the cooling tower valve"; replaceable Buildings.Experimental.DHC.Plants.Cooling.ElectricChillerParallel pla( perChi=perChi, dTApp=dTApp, perCHWPum=perCHWPum, perCWPum=perCWPum, mCHW_flow_nominal=mCHW_flow_nominal, dpCHW_nominal=dpCHW_nominal, QChi_nominal=QChi_nominal, mMin_flow=mMin_flow, mCW_flow_nominal=mCW_flow_nominal, dpCW_nominal=dpCW_nominal, TAirInWB_nominal=298.7, TCW_nominal=308.15, dT_nominal=5.56, TMin=288.15, PFan_nominal=PFan_nominal, dpCooTowVal_nominal=dpCooTowVal_nominal, dpCHWPumVal_nominal=dpCHWPumVal_nominal, dpCWPumVal_nominal=dpCWPumVal_nominal, tWai=tWai, dpSetPoi=dpSetPoi, energyDynamics=Modelica.Fluid.Types.Dynamics.FixedInitial) "District cooling plant"; Buildings.BoundaryConditions.WeatherData.ReaderTMY3 weaDat( final computeWetBulbTemperature=true, filNam=Modelica.Utilities.Files.loadResource( "modelica://Buildings/Resources/weatherdata/USA_CA_San.Francisco.Intl.AP.724940_TMY3.mos")) "Weather data"; Modelica.Blocks.Sources.BooleanConstant on "On signal of the plant"; Modelica.Blocks.Sources.Constant TCHWSupSet( k=TCHWSet) "Chilled water supply temperature setpoint"; Fluid.MixingVolumes.MixingVolume vol( nPorts=3, redeclare package Medium=Medium, m_flow_nominal=pla.numChi*mCHW_flow_nominal, V=0.5, energyDynamics=Modelica.Fluid.Types.Dynamics.FixedInitial) "Mixing volume"; Modelica.Thermal.HeatTransfer.Sources.PrescribedHeatFlow fixHeaFlo( T_ref=293.15) "Fixed heat flow rate"; Fluid.FixedResistances.PressureDrop res( redeclare package Medium=Medium, m_flow_nominal=pla.numChi*mCHW_flow_nominal, dp_nominal(displayUnit="kPa") = 1000000) "Flow resistance"; Modelica.Blocks.Sources.Sine loaVar( amplitude=913865, f=1/126900, offset=913865, startTime(displayUnit="h") = 21600) "Variable demand load"; Fluid.Sensors.RelativePressure senRelPre(redeclare package Medium = Medium); equation connect(TCHWSupSet.y,pla.TCHWSupSet); connect(fixHeaFlo.port,vol.heatPort); connect(pla.port_bSerCoo,vol.ports[1]); connect(vol.ports[2],res.port_a); connect(res.port_b,pla.port_aSerCoo); connect(on.y,pla.on); connect(weaDat.weaBus,pla.weaBus); connect(fixHeaFlo.Q_flow,loaVar. y); connect(res.port_b, senRelPre.port_b); connect(vol.ports[3], senRelPre.port_a); connect(senRelPre.p_rel, pla.dpMea); end ElectricChillerParallel;