| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=r64), | private, | parameter | :: | HrsPerDay | = | 24.d0 | |
| real(kind=r64), | private, | parameter | :: | HrsPerMonth | = | 730.0d0 | |
| integer, | private, | parameter | :: | MaxTSinHr | = | 60 | |
| integer, | private | :: | NumVerticalGlhes | = | 0 | ||
| integer, | private | :: | N | = | 1 | ||
| real(kind=r64), | private | :: | CurrentSimTime | = | 0.0d0 | ||
| real(kind=r64), | private | :: | GlheOutletTemp | = | 0.0d0 | ||
| real(kind=r64), | private | :: | GlheInletTemp | = | 0.0d0 | ||
| real(kind=r64), | private | :: | GlheMassFlowRate | = | 0.0d0 | ||
| real(kind=r64), | private | :: | QGlhe | = | 0.0d0 | ||
| real(kind=r64), | private | :: | GlheRB | = | 0.0d0 | ||
| real(kind=r64), | private | :: | GlheAveFluidTemp | = | 0.0d0 | ||
| real(kind=r64), | private | :: | GlheBoreholeTemp | = | 0.0d0 | ||
| integer, | private | :: | LocHourofDay | = | 0 | ||
| integer, | private | :: | LocDayofSim | = | 0 | ||
| real(kind=r64), | private, | SAVE, ALLOCATABLE, DIMENSION(:) | :: | LastQnSubHr | |||
| real(kind=r64), | private | :: | MDotActual | ||||
| real(kind=r64), | private, | ALLOCATABLE, DIMENSION(:) | :: | PrevTimeSteps | |||
| type(GlheSpecs), | private, | ALLOCATABLE, DIMENSION(:) | :: | VerticalGlhe | |||
| type(ReportVars), | private, | ALLOCATABLE, DIMENSION(:) | :: | VerticalGlheReport | |||
| logical, | private, | ALLOCATABLE, DIMENSION(:) | :: | CheckEquipName | 
| 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 | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=r64), | public | :: | GlheBoreholeTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | GlheMassFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | GlheOutletTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | GlheInletTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | GlheAveFluidTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | QGlhe | = | 0.0d0 | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | GlheType | |||
| character(len=*), | intent(in) | :: | GlheName | |||
| integer, | intent(inout) | :: | CompIndex | |||
| logical, | intent(in) | :: | RunFlag | |||
| logical, | intent(in) | :: | FirstIteration | |||
| logical, | intent(in) | :: | InitLoopEquip | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | GlheNum | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | GlheNum | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | GlheNum | |||
| real(kind=r64), | intent(out) | :: | ResistanceBhole | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | GlheNum | |||
| real(kind=r64), | intent(in) | :: | LnTTsVal | |||
| real(kind=r64), | intent(out) | :: | GfuncVal | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | GlheNum | |||
| logical, | intent(in) | :: | RunFlag | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| logical | :: | RunFlag | ||||
| integer | :: | Num |