TYPE HighTempRadiantSystemData
! Input data
CHARACTER(len=MaxNameLength) :: Name =' ' ! name of hydronic radiant system
CHARACTER(len=MaxNameLength) :: SchedName =' ' ! availability schedule
INTEGER :: SchedPtr =0 ! index to schedule
CHARACTER(len=MaxNameLength) :: ZoneName =' ' ! Name of zone the system is serving
INTEGER :: ZonePtr =0 ! Point to this zone in the Zone derived type
INTEGER :: HeaterType =0 ! Type of heater (gas or electric)
REAL(r64) :: MaxPowerCapac =0.0d0 ! Maximum capacity of the radiant heater in Watts
REAL(r64) :: CombustionEffic =0.0d0 ! Combustion efficiency (only valid for a gas heater)
REAL(r64) :: FracRadiant =0.0d0 ! Fraction of heater power that is given off as radiant heat
REAL(r64) :: FracLatent =0.0d0 ! Fraction of heater power that is given off as latent heat
REAL(r64) :: FracLost =0.0d0 ! Fraction of heater power that is lost to the outside environment
REAL(r64) :: FracConvect =0.0d0 ! Fraction of heater power that is given off as convective heat
! (by definition this is 1 minus the sum of all other fractions)
INTEGER :: ControlType =0 ! Control type for the system (MAT, MRT, or op temp)
REAL(r64) :: ThrottlRange =0.0d0 ! Throttling range for heating [C]
CHARACTER(len=MaxNameLength) :: SetptSched =' ' ! Schedule name for the zone setpoint temperature
INTEGER :: SetptSchedPtr =0 ! Schedule index for the zone setpoint temperature
REAL(r64) :: FracDistribPerson =0.0d0 ! Fraction of fraction radiant incident on a "person" in the space
INTEGER :: TotSurfToDistrib =0 ! Total number of surfaces the heater sends radiation to
CHARACTER(len=MaxNameLength), &
ALLOCATABLE, DIMENSION(:) :: SurfaceName ! Surface name in the list of surfaces heater sends radiation to
INTEGER, ALLOCATABLE, DIMENSION(:) :: SurfacePtr ! Surface number in the list of surfaces heater sends radiation to
REAL(r64), ALLOCATABLE, DIMENSION(:) :: FracDistribToSurf ! Fraction of fraction radiant incident on the surface
! Other parameters
! Report data
REAL(r64) :: ElecPower =0.0d0 ! system electric consumption in Watts
REAL(r64) :: ElecEnergy =0.0d0 ! system electric consumption in Joules
REAL(r64) :: GasPower =0.0d0 ! system gas consumption in Watts
REAL(r64) :: GasEnergy =0.0d0 ! system gas consumption in Joules
REAL(r64) :: HeatPower =0.0d0 ! actual heating sent to zone (convective and radiative) in Watts
REAL(r64) :: HeatEnergy =0.0d0 ! actual heating sent to zone (convective and radiative) in Joules
END TYPE HighTempRadiantSystemData