Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
integer, | public | :: | RealZonePtr | = | 0 | ||
character(len=MaxNameLength), | public | :: | RealZoneName | = | ' ' | ||
integer, | public | :: | SchedPtr | = | 0 | ||
character(len=MaxNameLength), | public | :: | SchedName | = | ' ' | ||
real(kind=r64), | public | :: | AbsorberWallWidth | = | 0.0d0 | ||
real(kind=r64), | public | :: | AirOutletCrossArea | = | 0.0d0 | ||
real(kind=r64), | public | :: | DischargeCoeff | = | 0.0d0 | ||
integer, | public | :: | TotZoneToDistrib | = | 0 | ||
integer, | public, | ALLOCATABLE, DIMENSION(:) | :: | ZonePtr | |||
character(len=MaxNameLength), | public, | ALLOCATABLE, DIMENSION(:) | :: | ZoneName | |||
real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | DistanceThermChimInlet | |||
real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | RatioThermChimAirFlow | |||
real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | EachAirInletCrossArea |
TYPE ThermalChimneyData
CHARACTER(len=MaxNameLength) :: Name =' '
INTEGER :: RealZonePtr =0
CHARACTER(len=MaxNameLength) :: RealZoneName =' '
INTEGER :: SchedPtr =0
CHARACTER(len=MaxNameLength) :: SchedName =' '
REAL(r64) :: AbsorberWallWidth =0.0d0
REAL(r64) :: AirOutletCrossArea =0.0d0
REAL(r64) :: DischargeCoeff =0.0d0
INTEGER :: TotZoneToDistrib =0
INTEGER, ALLOCATABLE, DIMENSION(:) :: ZonePtr !
CHARACTER(len=MaxNameLength), &
ALLOCATABLE, DIMENSION(:) :: ZoneName !
REAL(r64) , ALLOCATABLE, DIMENSION(:) :: DistanceThermChimInlet !
REAL(r64) , ALLOCATABLE, DIMENSION(:) :: RatioThermChimAirFlow
REAL(r64) , ALLOCATABLE, DIMENSION(:) :: EachAirInletCrossArea
END TYPE ThermalChimneyData