Buildings.Fluid.HeatExchangers.CoolingTowers.Examples.BaseClasses

Information

Package Content

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

Buildings.Fluid.HeatExchangers.CoolingTowers.Examples.BaseClasses.PartialStaticTwoPortCoolingTower

Parameters

Type	Name	Default	Description
FixedApproach	tow	redeclare FixedApproach tow(...	Cooling tower
Nominal condition
MassFlowRate	mWat_flow_nominal	0.15	Design air flow rate [kg/s]

Modelica definition

partial model PartialStaticTwoPortCoolingTower
 package Medium_W = Buildings.Media.ConstantPropertyLiquidWater;

  parameter Modelica.SIunits.MassFlowRate mWat_flow_nominal = 0.15 
    "Design air flow rate";

  Modelica.Blocks.Sources.Constant TWat(k=273.15 + 35) "Water temperature";
  replaceable FixedApproach tow(
           redeclare package Medium = Medium_W, m_flow_nominal=mWat_flow_nominal,
    dp_nominal=10) "Cooling tower";
  Buildings.Fluid.Sources.Boundary_pT sin_1(             T=283.15, redeclare 
      package Medium = Medium_W,
    p=101325,
    nPorts=1);
  Buildings.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);
    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(sou_1.ports[1], tow.port_a);
  connect(tow.port_b, sin_1.ports[1]);
end PartialStaticTwoPortCoolingTower;

Buildings.Fluid.HeatExchangers.CoolingTowers.Examples.BaseClasses.PartialStaticTwoPortCoolingTowerWetBulb

Information

Parameters

Type	Name	Default	Description
Nominal condition
MassFlowRate	mWat_flow_nominal	0.15	Design air flow rate [kg/s]

Connectors

Type	Name	Description
Bus	weaBus

Modelica definition

model PartialStaticTwoPortCoolingTowerWetBulb 
  "Partial test model for cooling tower with wet bulb temperature as potential for heat transfer"
  import Buildings;
  extends PartialStaticTwoPortCoolingTower(redeclare Buildings.Fluid.HeatExchangers.CoolingTowers.FixedApproach
      tow);
 package Medium_A = Buildings.Media.PerfectGases.MoistAir;
  Buildings.Utilities.Psychrometrics.TWetBul_TDryBulXi wetBulTem(
                                                        redeclare package
      Medium = Medium_A) "Model for wet bulb temperature";
  Buildings.BoundaryConditions.WeatherData.ReaderTMY3 weaDat(filNam=
        "Resources/weatherdata/USA_CA_San.Francisco.Intl.AP.724940_TMY3.mos");
  Buildings.BoundaryConditions.WeatherData.Bus weaBus;
equation 
  connect(wetBulTem.TWetBul, tow.TAir);
  connect(TOut.y, wetBulTem.TDryBul);
  connect(weaDat.weaBus, weaBus);
  connect(weaBus.relHum, wetBulTem.Xi[1]);
  connect(weaBus.pAtm, wetBulTem.p);
end PartialStaticTwoPortCoolingTowerWetBulb;