TYPE,PUBLIC :: ElectricRadiantSystemData
! 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
CHARACTER(len=MaxNameLength) :: SurfListName = ' ' ! Name of surface/surface list that is the radiant system
INTEGER :: NumOfSurfaces = 0 ! Number of surfaces included in this radiant system (coordinated control)
INTEGER, ALLOCATABLE, &
DIMENSION(:) :: SurfacePtr ! Pointer to the surface(s) in the Surface derived type
CHARACTER(len=MaxNameLength), &
ALLOCATABLE, DIMENSION(:) :: SurfaceName ! Name of surfaces that are the radiant system (can be one or more)
REAL(r64), ALLOCATABLE, &
DIMENSION(:) :: SurfacePowerFrac ! Fraction of total power input to surface
REAL(r64) :: TotalSurfaceArea = 0.0d0 ! Total surface area for all surfaces that are part of this radiant system
REAL(r64) :: MaxElecPower = 0.0d0 ! Maximum electric power that can be supplied to surface, Watts
INTEGER :: ControlType = 0 ! Control type for the system (MAT, MRT, Op temp, ODB, OWB)
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
! Other parameters
! Report data
REAL(r64) :: ElecPower = 0.0d0 ! heating sent to panel in Watts
REAL(r64) :: ElecEnergy = 0.0d0 ! heating sent to panel in Joules
REAL(r64) :: HeatPower = 0.0d0 ! heating sent to panel in Watts (same as ElecPower)
REAL(r64) :: HeatEnergy = 0.0d0 ! heating sent to panel in Joules (same as ElecEnergy)
END TYPE ElectricRadiantSystemData