Buildings.Fluids.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.Fluids.HeatExchangers.CoolingTowers.Examples.BaseClasses.PartialStaticTwoPortCoolingTower

Parameters

Type	Name	Default	Description
PartialStaticTwoPortCoolingTower	tow	redeclare Buildings.Fluids.H...	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]

Modelica definition

partial model PartialStaticTwoPortCoolingTower
 package Medium_W = Buildings.Media.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.Fluids.HeatExchangers.CoolingTowers.BaseClasses.PartialStaticTwoPortCoolingTower
    tow(   redeclare package Medium = Medium_W) "Cooling tower";
  Modelica_Fluid.Sources.Boundary_pT sin_1(             T=283.15, redeclare 
      package Medium = Medium_W,
    p=101325,
    nPorts=1);
  Modelica_Fluid.Sources.Boundary_pT sou_1(
    redeclare package Medium = Medium_W,
    nPorts=1,
    use_p_in=true,
    use_T_in=true,
    p=101335,
    T=293.15);
    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";
  inner Modelica_Fluid.System system;
equation 
  connect(TWat.y, sou_1.T_in);
  connect(PWatIn.y, sou_1.p_in);
  connect(res_1.port_a, tow.port_b);
  connect(sou_1.ports[1], tow.port_a);
  connect(res_1.port_b, sin_1.ports[1]);
end PartialStaticTwoPortCoolingTower;

Buildings.Fluids.HeatExchangers.CoolingTowers.Examples.BaseClasses.PartialStaticTwoPortCoolingTowerWetBulb

Parameters

Type	Name	Default	Description
PartialStaticTwoPortCoolingTower	tow	redeclare Buildings.Fluids.H...	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]

Modelica definition

model PartialStaticTwoPortCoolingTowerWetBulb 
  "Partial test model for cooling tower with wet bulb temperature as potential for heat transfer"
  import Buildings;
  extends PartialStaticTwoPortCoolingTower;
 package Medium_A = Buildings.Media.PerfectGases.MoistAir;
    Modelica.Blocks.Sources.Constant phi(k=0.5) "Relative air humidity";
  Buildings.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;