TYPE LightsData
CHARACTER(len=MaxNameLength) :: Name =' ' ! LIGHTS object name
INTEGER :: ZonePtr = 0 ! Which zone lights are in
INTEGER :: SchedPtr =-1 ! Schedule for lights
REAL(r64) :: DesignLevel = 0.0d0 ! design level for lights [W]
LOGICAL :: EMSLightsOn = .FALSE. !EMS actuating Lighting power if .TRUE.
REAL(r64) :: EMSLightingPower = 0.0D0 ! Value EMS is directing to use for override
REAL(r64) :: FractionReturnAir = 0.0d0 ! Percentage (fraction 0.0-1.0) of sensible heat gain that is return air
REAL(r64) :: FractionRadiant = 0.0d0 ! Percentage (fraction 0.0-1.0) of sensible heat gain that is radiant
REAL(r64) :: FractionShortWave = 0.0d0 ! Percentage (fraction 0.0-1.0) of sensible heat gain that is short wave
REAL(r64) :: FractionReplaceable = 0.0d0 ! Percentage (fraction 0.0-1.0) of sensible heat gain that is replaceable
REAL(r64) :: FractionConvected = 0.0d0 ! Percentage (fraction 0.0-1.0) of sensible heat gain that is convective
LOGICAL :: FractionReturnAirIsCalculated= .false.
REAL(r64) :: FractionReturnAirPlenTempCoeff1 =0.0d0
REAL(r64) :: FractionReturnAirPlenTempCoeff2 =0.0d0
REAL(r64) :: NomMinDesignLevel =0.d0 ! Nominal Minimum Design Level (min sch X design level)
REAL(r64) :: NomMaxDesignLevel =0.d0 ! Nominal Maximum Design Level (max sch X design level)
LOGICAL :: ManageDemand =.FALSE. ! Flag to indicate whether to use demand limiting
REAL(r64) :: DemandLimit = 0.0d0 ! Demand limit set by demand manager [W]
! Report variables
REAL(r64) :: Power = 0.0d0 ! Electric power [W]
REAL(r64) :: RadGainRate = 0.0d0 ! Radiant heat gain [W]
REAL(r64) :: VisGainRate = 0.0d0 ! Visible heat gain [W]
REAL(r64) :: ConGainRate = 0.0d0 ! Convective heat gain [W]
REAL(r64) :: RetAirGainRate = 0.0d0 ! Return air heat gain [W]
REAL(r64) :: TotGainRate = 0.0d0 ! Total heat gain [W]
REAL(r64) :: Consumption = 0.0d0 ! Electric consumption [J]
REAL(r64) :: RadGainEnergy = 0.0d0 ! Radiant heat gain [J]
REAL(r64) :: VisGainEnergy = 0.0d0 ! Visible heat gain [J]
REAL(r64) :: ConGainEnergy = 0.0d0 ! Convective heat gain [J]
REAL(r64) :: RetAirGainEnergy = 0.0d0 ! Return air heat gain [J]
REAL(r64) :: TotGainEnergy = 0.0d0 ! Total heat gain [J]
CHARACTER(len=MaxNameLength) :: EndUseSubcategory = ' ' !user defined name for the end use category
REAL(r64) :: SumConsumption = 0.0d0 ! sum of electric consumption [J] for reporting
REAL(r64) :: SumTimeNotZeroCons = 0.0d0 ! sum of time of positive electric consumption [hr]
END TYPE LightsData