| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | InletNode | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | OutletNode | = | ' ' | ||
| real(kind=r64), | public | :: | DesignMassFlowRate | = | 0.d0 | ||
| real(kind=r64), | public | :: | DesignCapacity | = | 0.d0 | ||
| real(kind=r64), | public | :: | Depth | = | 0.0d0 | ||
| real(kind=r64), | public | :: | Area | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TubeInDiameter | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TubeOutDiameter | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TubeConductivity | = | 0.0d0 | ||
| real(kind=r64), | public | :: | GrndConductivity | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CircuitLength | = | 0.0d0 | ||
| real(kind=r64), | public | :: | BulkTemperature | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PastBulkTemperature | = | 0.0d0 | ||
| integer, | public | :: | NumCircuits | = | 0 | ||
| integer, | public | :: | InletNodeNum | = | 0 | ||
| integer, | public | :: | OutletNodeNum | = | 0 | ||
| integer, | public | :: | FrozenErrIndex | = | 0 | ||
| integer, | public | :: | ConsecutiveFrozen | = | 0 | ||
| integer, | public | :: | LoopNum | = | 0 | ||
| integer, | public | :: | LoopSideNum | = | 0 | ||
| integer, | public | :: | BranchNum | = | 0 | ||
| integer, | public | :: | CompNum | = | 0 |
TYPE PondGroundHeatExchangerData
! Input data
CHARACTER(len=MaxNameLength) :: Name =' ' ! name of pond GHE
CHARACTER(len=MaxNameLength) :: InletNode =' ' ! pond inlet fluid node
CHARACTER(len=MaxNameLength) :: OutletNode =' ' ! pond outlet fluid node
REAL(r64) :: DesignMassFlowRate =0.d0 ! design flow rate of circulating fluid
REAL(r64) :: DesignCapacity =0.d0 ! design cooling capacity of pond at
REAL(r64) :: Depth =0.0d0 ! depth of pond
REAL(r64) :: Area =0.0d0 ! area of pond
REAL(r64) :: TubeInDiameter =0.0d0 ! hydronic tube inside diameter
REAL(r64) :: TubeOutDiameter =0.0d0 ! hydronic tube outside diameter
REAL(r64) :: TubeConductivity =0.0d0 ! hydronic tube thermal conductivity
REAL(r64) :: GrndConductivity =0.0d0 ! ground thermal conductivity
REAL(r64) :: CircuitLength =0.0d0 ! length of each circuit
REAL(r64) :: BulkTemperature =0.0d0 ! current pond bulk temperature
REAL(r64) :: PastBulkTemperature =0.0d0 ! past pond bulk temperature
INTEGER :: NumCircuits =0 ! number of circuits in total
INTEGER :: InletNodeNum =0 ! inlet node number
INTEGER :: OutletNodeNum =0 ! oulet node number
INTEGER :: FrozenErrIndex =0 ! for recurring warnings
INTEGER :: ConsecutiveFrozen =0 ! count of time steps consecutive frozen
!loop topology variables
INTEGER :: LoopNum =0
INTEGER :: LoopSideNum =0
INTEGER :: BranchNum =0
INTEGER :: CompNum =0
END TYPE PondGroundHeatExchangerData