Buildings.HeatExchangers.CoolingTowers.Examples.BaseClasses

Package Content

Name	Description
PartialStaticTwoPortCoolingTower
PartialStaticTwoPortCoolingTowerWetBulb	Partial test model for cooling tower with wet bulb temperature as potential for heat transfer

Buildings.HeatExchangers.CoolingTowers.Examples.BaseClasses.PartialStaticTwoPortCoolingTower

Parameters

Type	Name	Default	Description
replaceable package Medium_W		Modelica.Media.Water.Constan...
PartialStaticTwoPortCoolingTower	tow	redeclare Buildings.HeatExch...	Cooling tower
Nominal condition
MassFlowRate	mWat0_flow	0.15	Design air flow rate [kg/s]
MassFlowRate	mAir0_flow	1.64*1.2	Design air flow rate [kg/s]

Connectors

Type	Name	Description
replaceable package Medium_W

Modelica definition

partial model PartialStaticTwoPortCoolingTower 
 package Medium_W = Modelica.Media.Water.ConstantPropertyLiquidWater;
  
  parameter Modelica.SIunits.MassFlowRate mWat0_flow = 0.15 
    "Design air flow rate";
  parameter Modelica.SIunits.MassFlowRate mAir0_flow = 1.64*1.2 
    "Design air flow rate";
  
  Modelica.Blocks.Sources.Constant TWat(k=273.15 + 35) "Water temperature";
  replaceable Buildings.HeatExchangers.CoolingTowers.BaseClasses.PartialStaticTwoPortCoolingTower
    tow(   redeclare package Medium = Medium_W) "Cooling tower";
  Modelica_Fluid.Sources.PrescribedBoundary_pTX sin_1(T=283.15, redeclare 
      package Medium = Medium_W,
    p=101325);
  Modelica_Fluid.Sources.PrescribedBoundary_pTX sou_1(
    T=293.15,
    p=101335,
    redeclare package Medium = Medium_W);
    Fluids.FixedResistances.FixedResistanceDpM res_1(
    from_dp=true,
    dp0=10,
    redeclare package Medium = Medium_W,
    m0_flow=mWat0_flow,
    dh=0.005);
    Modelica.Blocks.Sources.Constant PWatIn(k=101335);
  Modelica.Blocks.Sources.Sine TOut(amplitude=10, offset=293.15) 
    "Outside air temperature";
equation 
  connect(TWat.y, sou_1.T_in);
  connect(sin_1.port, res_1.port_b);
  connect(PWatIn.y, sou_1.p_in);
  connect(tow.port_a, sou_1.port);
  connect(res_1.port_a, tow.port_b);
end PartialStaticTwoPortCoolingTower;

Buildings.HeatExchangers.CoolingTowers.Examples.BaseClasses.PartialStaticTwoPortCoolingTowerWetBulb

Parameters

Type	Name	Default	Description
PartialStaticTwoPortCoolingTower	tow	redeclare Buildings.HeatExch...	Cooling tower
replaceable package Medium_A		Buildings.Media.PerfectGases...
Nominal condition
MassFlowRate	mWat0_flow	0.15	Design air flow rate [kg/s]
MassFlowRate	mAir0_flow	1.64*1.2	Design air flow rate [kg/s]

Connectors

Type	Name	Description
replaceable package Medium_A

Modelica definition

model PartialStaticTwoPortCoolingTowerWetBulb 
  "Partial test model for cooling tower with wet bulb temperature as potential for heat transfer" 
  extends PartialStaticTwoPortCoolingTower;
 package Medium_A = Buildings.Media.PerfectGases.MoistAir;
    Modelica.Blocks.Sources.Constant phi(k=0.5) "Relative air humidity";
  Utilities.Psychrometrics.WetBulbTemperature wetBulTem(redeclare package 
      Medium = Medium_A) "Model for wet bulb temperature";
    Modelica.Blocks.Sources.Constant PAtm(k=101325) "Atmospheric pressure";
equation 
  connect(PAtm.y, wetBulTem.p);
  connect(TOut.y, wetBulTem.TDryBul);
  connect(phi.y, wetBulTem.phi);
  connect(wetBulTem.TWetBul, tow.TAir);
end PartialStaticTwoPortCoolingTowerWetBulb;