modelGFunction_100boreholes
g-Function calculation for a field of 10 by 10 boreholes
Extends from Modelica.Icons.Example (Icon for runnable examples).
Information
This example checks the implementation of functions that evaluate the g-function of a borefield of 100 boreholes in a 10 by 10 configuration.
Parameters
| Type | Name | Default | Description |
|---|---|---|---|
| Integer | nBor | 100 | Number of boreholes |
| Modelica.Units.SI.Position[nBor,2] | cooBor | {{7.5*mod(i - 1, 10), 7.5*floor((i - 1)/10)} for i in 1:nBor} | Coordinates of boreholes |
| Modelica.Units.SI.Height | hBor | 150 | Borehole length |
| Modelica.Units.SI.Height | dBor | 4 | Borehole buried depth |
| Modelica.Units.SI.Radius | rBor | 0.075 | Borehole radius |
| Modelica.Units.SI.ThermalDiffusivity | aSoi | 1e-6 | Ground thermal diffusivity used in g-function evaluation |
| Integer | nSeg | 12 | Number of line source segments per borehole |
| Integer | nTimSho | 26 | Number of time steps in short time region |
| Integer | nTimLon | 50 | Number of time steps in long time region |
| Real | ttsMax | exp(5) | Maximum non-dimensional time for g-function calculation |
| Integer | nTimTot | nTimSho + nTimLon | |
| Real | gFun | ||
| Real | lntts | ||
| Modelica.Units.SI.Time | tGFun | ||
| Real | dspline | ||
| Integer | nClu | 5 | Number of clusters to be generated |
| Integer[nBor] | labels | Cluster label associated with each data point | |
| Integer[nClu] | cluSiz | Size of the clusters | |
| Modelica.Units.SI.Time | ts | hBor^2/(9*aSoi) | Bore field characteristic time |
Components
| Type | Name | Default | Description |
|---|---|---|---|
| Real | gFun_int | Interpolated value of g-function | |
| Real | lntts_int | Non-dimensional logarithmic time for interpolation | |
| Integer | k | Current interpolation interval | |
| Modelica.Units.SI.Time | t1 | Previous value of time for interpolation | |
| Modelica.Units.SI.Time | t2 | Next value of time for interpolation | |
| Real | gFun1 | Previous g-function value for interpolation | |
| Real | gFun2 | Next g-function value for interpolation |
Revisions
-
June 9, 2022, by Massimo Cimmino:
Added parameters to define the number of clusters for the method of Prieto and Cimmino (2021). -
March 20, 2018, by Massimo Cimmino:
First implementation.