| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | ZonePtr | = | 0 | ||
| integer, | public | :: | SchedPtr | = | 0 | ||
| character(len=MaxNameLength), | public | :: | SchedName | = | ' ' | ||
| real(kind=r64), | public | :: | DesignLevel | = | 0.0D0 | ||
| real(kind=r64), | public | :: | MinTemperature | = | 0.0D0 | ||
| real(kind=r64), | public | :: | MaxTemperature | = | 0.0D0 | ||
| real(kind=r64), | public | :: | DelTemperature | = | 0.0D0 | ||
| integer, | public | :: | FanType | = | 0 | ||
| real(kind=r64), | public | :: | FanPressure | = | 0.0D0 | ||
| real(kind=r64), | public | :: | FanEfficiency | = | 0.0D0 | ||
| real(kind=r64), | public | :: | FanPower | = | 0.0D0 | ||
| real(kind=r64), | public | :: | GroundTempz1z2t | = | 0.0D0 | ||
| real(kind=r64), | public | :: | InsideAirTemp | = | 0.0D0 | ||
| real(kind=r64), | public | :: | AirTemp | = | 0.0D0 | ||
| real(kind=r64), | public | :: | r1 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | r2 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | r3 | = | 0.0D0 | ||
| real(kind=r64), | public | :: | PipeLength | = | 0.0D0 | ||
| real(kind=r64), | public | :: | PipeThermCond | = | 0.0D0 | ||
| real(kind=r64), | public | :: | z | = | 0.0D0 | ||
| real(kind=r64), | public | :: | SoilThermDiff | = | 0.0D0 | ||
| real(kind=r64), | public | :: | SoilThermCond | = | 0.0D0 | ||
| real(kind=r64), | public | :: | AverSoilSurTemp | ||||
| real(kind=r64), | public | :: | ApmlSoilSurTemp | ||||
| integer, | public | :: | SoilSurPhaseConst | ||||
| real(kind=r64), | public | :: | ConstantTermCoef | = | 0.0D0 | ||
| real(kind=r64), | public | :: | TemperatureTermCoef | = | 0.0D0 | ||
| real(kind=r64), | public | :: | VelocityTermCoef | = | 0.0D0 | ||
| real(kind=r64), | public | :: | VelocitySQTermCoef | = | 0.0D0 |
TYPE EarthTubeData
INTEGER :: ZonePtr =0
INTEGER :: SchedPtr =0
CHARACTER(len=MaxNameLength) :: SchedName =' '
REAL(r64) :: DesignLevel =0.0D0
REAL(r64) :: MinTemperature =0.0D0
REAL(r64) :: MaxTemperature =0.0D0
REAL(r64) :: DelTemperature =0.0D0
INTEGER :: FanType =0
REAL(r64) :: FanPressure =0.0D0
REAL(r64) :: FanEfficiency =0.0D0
REAL(r64) :: FanPower =0.0D0
REAL(r64) :: GroundTempz1z2t =0.0D0 ! ground temp between z1 and z2 at time t
REAL(r64) :: InsideAirTemp =0.0D0
REAL(r64) :: AirTemp =0.0D0
REAL(r64) :: r1 =0.0D0 ! Inner Pipe Radius (m)
REAL(r64) :: r2 =0.0D0 ! Pipe Thickness (m)
REAL(r64) :: r3 =0.0D0 ! Distance between Pipe Outer Surface and Undistubed Soil (m)
REAL(r64) :: PipeLength =0.0D0 ! Entire Pipe Length
REAL(r64) :: PipeThermCond =0.0D0 ! Pipe Thermal Conductivity
REAL(r64) :: z =0.0D0 ! Depth under the Ground Surface (m)
REAL(r64) :: SoilThermDiff =0.0D0 ! Soil Thermal Diffusivity
REAL(r64) :: SoilThermCond =0.0D0 ! Soil Thermal Conductivity
REAL(r64) :: AverSoilSurTemp ! Average Soil Surface Temperature
REAL(r64) :: ApmlSoilSurTemp ! Amplitude of Soil Surface Temperature
INTEGER :: SoilSurPhaseConst ! Phase constant of Soil Surface
REAL(r64) :: ConstantTermCoef =0.0D0
REAL(r64) :: TemperatureTermCoef =0.0D0
REAL(r64) :: VelocityTermCoef =0.0D0
REAL(r64) :: VelocitySQTermCoef =0.0D0
END TYPE EarthTubeData