Buildings.Fluid.HeatExchangers.Boreholes.Examples

Example files for borehole heat exchanger

Information

Extends from Modelica.Icons.ExamplesPackage (Icon for packages containing runnable examples).

Package Content

NameDescription
Buildings.Fluid.HeatExchangers.Boreholes.Examples.UTube UTube Model that tests the borehole model


Buildings.Fluid.HeatExchangers.Boreholes.Examples.UTube Buildings.Fluid.HeatExchangers.Boreholes.Examples.UTube

Model that tests the borehole model

Buildings.Fluid.HeatExchangers.Boreholes.Examples.UTube

Information

This example illustrates modeling a full borehole heat exchanger having two pipes symetricaled spaced.

Extends from Modelica.Icons.Example (Icon for runnable examples).

Modelica definition

model UTube "Model that tests the borehole model"
  extends Modelica.Icons.Example;
 package Medium = Buildings.Media.ConstantPropertyLiquidWater;
  Buildings.Fluid.HeatExchangers.Boreholes.UTube borHol(
    redeclare each package Medium = Medium,
    hBor=150,
    dp_nominal=10000,
    dT_dz=0.0015,
    samplePeriod=604800,
    m_flow_nominal=0.3,
    redeclare each Buildings.HeatTransfer.Data.BoreholeFilling.Bentonite matFil,
    redeclare Buildings.HeatTransfer.Data.Soil.Sandstone matSoi,
    TExt0_start=283.15,
    TFil0_start=283.15) "Borehole heat exchanger";
      inner Modelica.Fluid.System system;
  Sources.Boundary_ph sin(nPorts=1, redeclare package Medium = Medium) "Sink";
  Sources.MassFlowSource_T sou(
    nPorts=1,
    redeclare package Medium = Medium,
    use_m_flow_in=true,
    T=298.15) "Source";
  Modelica.Blocks.Sources.Pulse pulse(
    amplitude=0.3,
    period=365*86400,
    startTime=365*86400/4);
equation 
  connect(sou.ports[1], borHol.port_a);
  connect(borHol.port_b, sin.ports[1]);
  connect(pulse.y, sou.m_flow_in);
end UTube;

Automatically generated Thu Dec 8 16:34:03 2011.