modelGFunction_100boreholes
g-Function calculation for a field of 10 by 10 boreholes
Extends from Modelica.Icons.Example.
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.SIunits.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.SIunits.Height | hBor | 150 | Borehole length |
| Modelica.SIunits.Height | dBor | 4 | Borehole buried depth |
| Modelica.SIunits.Radius | rBor | 0.075 | Borehole radius |
| Modelica.SIunits.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.SIunits.Time | tGFun | ||
| Real | dspline | ||
| Modelica.SIunits.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.SIunits.Time | t1 | Previous value of time for interpolation | |
| Modelica.SIunits.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
-
March 20, 2018, by Massimo Cimmino:
First implementation.