| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| logical, | public | :: | Available | = | .false. | ||
| logical, | public | :: | ON | = | .false. | ||
| real(kind=r64), | public | :: | MaxGlheFlowRate | = | 0.0d0 | ||
| integer, | public | :: | MaxSimYears | = | 0 | ||
| integer, | public | :: | GlheInletNodeNum | = | 0 | ||
| integer, | public | :: | GlheOutletNodeNum | = | 0 | ||
| integer, | public | :: | NumBoreholes | = | 0 | ||
| real(kind=r64), | public | :: | BoreholeLength | = | 0.0d0 | ||
| real(kind=r64), | public | :: | BoreholeRadius | = | 0.0d0 | ||
| real(kind=r64), | public | :: | KGround | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CpRhoGround | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TempGround | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignMassFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | KGrout | = | 0.0d0 | ||
| real(kind=r64), | public | :: | KPipe | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PipeOutDia | = | 0.0d0 | ||
| real(kind=r64), | public | :: | UtubeDist | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PipeThick | = | 0.0d0 | ||
| real(kind=r64), | public | :: | gReferenceRatio | = | 0.0d0 | ||
| integer, | public | :: | NPairs | = | 0 | ||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | QnMonthlyAgg | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | QnHr | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | QnSubHr | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | LNTTS | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | GFNC | |||
| integer, | public | :: | AGG | = | 0 | ||
| integer, | public | :: | SubAGG | = | 0 | ||
| integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | LastHourN | |||
| integer, | public | :: | LoopNum | = | 0 | ||
| integer, | public | :: | LoopSideNum | = | 0 | ||
| integer, | public | :: | BranchNum | = | 0 | ||
| integer, | public | :: | CompNum | = | 0 |
TYPE GlheSpecs
CHARACTER(len=MaxNameLength) :: Name =' ' ! user identifier
LOGICAL :: Available =.false. ! need an array of logicals--load identifiers of available equipment
LOGICAL :: ON =.false. ! simulate the machine at it's operating part load ratio
REAL(r64) :: MaxGlheFlowRate =0.0d0 ! design nominal capacity of Pump
INTEGER :: MaxSimYears =0 ! maximum length of simulation (years)
INTEGER :: GlheInletNodeNum =0 ! Node number on the inlet side of the plant
INTEGER :: GlheOutletNodeNum =0 ! Node number on the outlet side of the plant
INTEGER :: NumBoreholes =0
REAL(r64) :: BoreholeLength =0.0d0
REAL(r64) :: BoreholeRadius =0.0d0
REAL(r64) :: KGround =0.0d0 ! Thermal conductivity of the ground [W/(mK)]
REAL(r64) :: CpRhoGround =0.0d0 ! Specific heat capacity of ground [J/Kg/K]
REAL(r64) :: TempGround =0.0d0 ! The far field temperature of the ground [°C]
REAL(r64) :: DesignFlow =0.0d0 ! Design volumetric flow rate [m3/S]
REAL(r64) :: DesignMassFlow =0.0d0 ! Design mass flow rate [kg/S]
REAL(r64) :: KGrout =0.0d0 ! Grout thermal conductivity [W/(mK)]
REAL(r64) :: KPipe =0.0d0 ! Thermal Conductivity of the U tube [W/(mK)]
REAL(r64) :: PipeOutDia =0.0d0 ! Outer diameter of the Pipe [m]
REAL(r64) :: UtubeDist =0.0d0 ! Distance between the legs of the Utube [m]
REAL(r64) :: PipeThick =0.0d0 ! Thickness of the pipe wall
REAL(r64) :: gReferenceRatio =0.0d0 ! Reference ratio for developing g-functions [-]
INTEGER :: NPairs =0 ! Number of pairs of Lntts and Gfunc
REAL(r64),ALLOCATABLE,DIMENSION(:) :: QnMonthlyAgg ! Monthly aggregated normalised heat extraction/rejection rate [W/m]
REAL(r64),ALLOCATABLE,DIMENSION(:) :: QnHr ! Hourly aggregated normalised heat extraction/rejection rate [W/m]
REAL(r64),ALLOCATABLE,DIMENSION(:) :: QnSubHr ! Contains the subhourly heat extraction/rejection rate normalised
! by the total active length of bore holes [W/m]
REAL(r64),ALLOCATABLE,DIMENSION(:) :: LNTTS ! natural log of Non Dimensional Time Ln(t/ts)
REAL(r64),ALLOCATABLE,DIMENSION(:) :: GFNC ! G-function ( Non Dimensional temperature response factors)
INTEGER :: AGG =0 ! Minimum Hourly Histroy required
INTEGER :: SubAGG =0 ! Minimum subhourly History
INTEGER,ALLOCATABLE,DIMENSION(:) :: LastHourN ! Stores the Previous hour's N for past hours
! until the minimum subhourly history
!loop topology variables
INTEGER :: LoopNum =0
INTEGER :: LoopSideNum =0
INTEGER :: BranchNum =0
INTEGER :: CompNum =0
END TYPE GlheSpecs