| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | '' | ||
| integer, | public | :: | Dome | = | 0 | ||
| integer, | public | :: | Diffuser | = | 0 | ||
| integer, | public | :: | Construction | = | 0 | ||
| real(kind=r64), | public | :: | Diameter | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotLength | = | 0.0d0 | ||
| real(kind=r64), | public | :: | Reff | = | 0.0d0 | ||
| integer, | public | :: | NumOfTZones | = | 0 | ||
| integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | TZone | |||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | TZoneLength | |||
| real(kind=r64), | public | :: | AspectRatio | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ReflectVis | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ReflectSol | = | 0.0d0 | ||
| real(kind=r64), | public, | DIMENSION(NumOfAngles) | :: | PipeTransVisBeam | = | 0.0d0 | |
| real(kind=r64), | public, | DIMENSION(NumOfAngles) | :: | PipeTransSolBeam | = | 0.0d0 | |
| real(kind=r64), | public | :: | TransSolIso | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TransSolHorizon | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ExtLength | = | 0.0d0 | ||
| real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | TZoneHeatGain | |||
| real(kind=r64), | public | :: | TransmittedSolar | = | 0.0d0 | ||
| real(kind=r64), | public | :: | PipeAbsorbedSolar | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatGain | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatLoss | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TransVisBeam | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TransSolBeam | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TransVisDiff | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TransSolDiff | = | 0.0d0 |
TYPE TDDPipeData
! Input variables
CHARACTER(len=MaxNameLength) :: Name = '' ! Name of TDD pipe
INTEGER :: Dome = 0 ! Pointer to the dome object
INTEGER :: Diffuser = 0 ! Pointer to the diffuser object
INTEGER :: Construction = 0 ! Pointer to the construction object
REAL(r64) :: Diameter = 0.0d0 ! Pipe diameter
REAL(r64) :: TotLength = 0.0d0 ! Total length of pipe, including exterior
REAL(r64) :: Reff = 0.0d0 ! Effective R value between TDD:DOME and TDD:DIFFUSER
INTEGER :: NumOfTZones = 0 ! Number of transition zone
INTEGER, ALLOCATABLE, DIMENSION(:) :: TZone ! Pointers to transition zones
REAL(r64), ALLOCATABLE, DIMENSION(:) :: TZoneLength ! Length of pipe in each transition zone
! Calculated variables
REAL(r64) :: AspectRatio = 0.0d0 ! Aspect ratio, length / diameter
REAL(r64) :: ReflectVis = 0.0d0 ! Visible reflectance of surface
REAL(r64) :: ReflectSol = 0.0d0 ! Solar reflectance of surface
REAL(r64), DIMENSION(NumOfAngles) :: PipeTransVisBeam = 0.0d0 ! Table of beam visible transmittance vs. cosine angle
REAL(r64), DIMENSION(NumOfAngles) :: PipeTransSolBeam = 0.0d0 ! Table of beam solar transmittance vs. cosine angle
REAL(r64) :: TransSolIso = 0.0d0 ! Diffuse isotropic solar transmittance (constant)
REAL(r64) :: TransSolHorizon = 0.0d0 ! Diffuse horizon solar transmittance (constant)
REAL(r64) :: ExtLength = 0.0d0 ! Exterior exposed length of pipe
REAL(r64), ALLOCATABLE, DIMENSION(:) :: TZoneHeatGain ! convection gain to transition zones
! Report variables
REAL(r64) :: TransmittedSolar = 0.0d0 ! Solar transmitted by the TDD [W]
REAL(r64) :: PipeAbsorbedSolar = 0.0d0 ! Solar absorbed in the walls of the pipe [W]
REAL(r64) :: HeatGain = 0.0d0 ! Solar heat gain [W]
REAL(r64) :: HeatLoss = 0.0d0 ! Solar heat loss [W]
REAL(r64) :: TransVisBeam = 0.0d0 ! TDD visible transmittance
REAL(r64) :: TransSolBeam = 0.0d0 ! TDD beam solar transmittance
REAL(r64) :: TransVisDiff = 0.0d0 ! TDD diffuse visible transmittance
REAL(r64) :: TransSolDiff = 0.0d0 ! TDD diffuse solar transmittance
END TYPE TDDPipeData