Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
integer, | public | :: | ZonePtr | = | 0 | ||
real(kind=r64), | public | :: | NumberOfPeople | = | 0.0d0 | ||
integer, | public | :: | NumberOfPeoplePtr | = | -1 | ||
logical, | public | :: | EMSPeopleOn | = | .FALSE. | ||
real(kind=r64), | public | :: | EMSNumberOfPeople | = | 0.0D0 | ||
integer, | public | :: | ActivityLevelPtr | = | -1 | ||
real(kind=r64), | public | :: | FractionRadiant | = | 0.0d0 | ||
real(kind=r64), | public | :: | FractionConvected | = | 0.0d0 | ||
real(kind=r64), | public | :: | NomMinNumberPeople | = | 0.d0 | ||
real(kind=r64), | public | :: | NomMaxNumberPeople | = | 0.d0 | ||
integer, | public | :: | WorkEffPtr | = | -1 | ||
integer, | public | :: | ClothingPtr | = | -1 | ||
integer, | public | :: | ClothingMethodPtr | = | -1 | ||
integer, | public | :: | ClothingType | = | -1 | ||
integer, | public | :: | AirVelocityPtr | = | -1 | ||
logical, | public | :: | Fanger | = | .false. | ||
logical, | public | :: | Pierce | = | .false. | ||
logical, | public | :: | KSU | = | .false. | ||
logical, | public | :: | AdaptiveASH55 | = | .false. | ||
logical, | public | :: | AdaptiveCEN15251 | = | .false. | ||
integer, | public | :: | MRTCalcType | = | 0 | ||
integer, | public | :: | SurfacePtr | = | -1 | ||
character(len=MaxNameLength), | public | :: | AngleFactorListName | = | ' ' | ||
integer, | public | :: | AngleFactorListPtr | = | -1 | ||
real(kind=r64), | public | :: | UserSpecSensFrac | = | 0.0d0 | ||
logical, | public | :: | Show55Warning | = | .false. | ||
real(kind=r64), | public | :: | CO2RateFactor | = | 0.0d0 | ||
real(kind=r64), | public | :: | NumOcc | = | 0.0d0 | ||
real(kind=r64), | public | :: | TemperatureInZone | = | 0.0d0 | ||
real(kind=r64), | public | :: | RelativeHumidityInZone | = | 0.0d0 | ||
real(kind=r64), | public | :: | RadGainRate | = | 0.0d0 | ||
real(kind=r64), | public | :: | ConGainRate | = | 0.0d0 | ||
real(kind=r64), | public | :: | SenGainRate | = | 0.0d0 | ||
real(kind=r64), | public | :: | LatGainRate | = | 0.0d0 | ||
real(kind=r64), | public | :: | TotGainRate | = | 0.0d0 | ||
real(kind=r64), | public | :: | CO2GainRate | = | 0.0d0 | ||
real(kind=r64), | public | :: | RadGainEnergy | = | 0.0d0 | ||
real(kind=r64), | public | :: | ConGainEnergy | = | 0.0d0 | ||
real(kind=r64), | public | :: | SenGainEnergy | = | 0.0d0 | ||
real(kind=r64), | public | :: | LatGainEnergy | = | 0.0d0 | ||
real(kind=r64), | public | :: | TotGainEnergy | = | 0.0d0 | ||
integer, | public | :: | AirVelErrIndex | = | 0 | ||
real(kind=r64), | public | :: | TimeNotMetASH5580 | = | 0.0d0 | ||
real(kind=r64), | public | :: | TimeNotMetASH5590 | = | 0.0d0 | ||
real(kind=r64), | public | :: | TimeNotMetCEN15251CatI | = | 0.0d0 | ||
real(kind=r64), | public | :: | TimeNotMetCEN15251CatII | = | 0.0d0 | ||
real(kind=r64), | public | :: | TimeNotMetCEN15251CatIII | = | 0.0d0 |
TYPE PeopleData
CHARACTER(len=MaxNameLength) :: Name =' ' ! PEOPLE object name
INTEGER :: ZonePtr = 0 ! Pointer to the zone number for this people statement
REAL(r64) :: NumberOfPeople = 0.0d0 ! Maximum number of people for this statement
INTEGER :: NumberOfPeoplePtr = -1 ! Pointer to schedule for number of people
LOGICAL :: EMSPeopleOn = .FALSE. !EMS actuating number of people if .TRUE.
REAL(r64) :: EMSNumberOfPeople = 0.0D0 ! Value EMS is directing to use for override
! Note that the schedule and maximum number was kept for people since it seemed likely that
! users would want to assign the same schedule to multiple people statements.
INTEGER :: ActivityLevelPtr =-1 ! Pointer to schedule for activity level
REAL(r64) :: FractionRadiant = 0.0d0 ! Percentage (fraction 0.0-1.0) of sensible heat gain from people
! that is radiant
REAL(r64) :: FractionConvected = 0.0d0 ! Percentage (fraction 0.0-1.0) of sensible heat gain from people
! that is convective
REAL(r64) :: NomMinNumberPeople =0.d0 ! Nominal Minimum Number of People (min sch X number of people)
REAL(r64) :: NomMaxNumberPeople =0.d0 ! Nominal Maximum Number of People (min sch X number of people)
INTEGER :: WorkEffPtr =-1 ! Pointer to schedule for work efficiency
INTEGER :: ClothingPtr =-1 ! Pointer to schedule for clothing insulation
INTEGER :: ClothingMethodPtr =-1
INTEGER :: ClothingType =-1 ! Name of clothing type
INTEGER :: AirVelocityPtr =-1 ! Pointer to schedule for air velocity in zone
LOGICAL :: Fanger =.false. ! True when Fanger calculation to be performed
LOGICAL :: Pierce =.false. ! True when Pierce 2-node calculation to be performed
LOGICAL :: KSU =.false. ! True when KSU 2-node calculation to be performed
LOGICAL :: AdaptiveASH55 =.false. ! True when ASHRAE Standard 55 adaptive comfort calculation
! to be performed
LOGICAL :: AdaptiveCEN15251 =.false. ! True when CEN Standard 15251 adaptive comfort calculation
! to be performed
INTEGER :: MRTCalcType = 0 ! MRT calculation type (See MRT Calculation type parameters)
INTEGER :: SurfacePtr =-1 ! Pointer to the name of surface
CHARACTER(len=MaxNameLength) :: AngleFactorListName=' ' ! Name of angle factor list
INTEGER :: AngleFactorListPtr =-1 ! Pointer to the name of angle factor list
REAL(r64) :: UserSpecSensFrac = 0.0d0 ! User specified sensible fraction
LOGICAL :: Show55Warning = .false. ! show the warning messages about ASHRAE 55-2004
REAL(r64) :: CO2RateFactor = 0.0d0 ! Carbon Dioxide Generation Rate [m3/s-W]
! Report variables
REAL(r64) :: NumOcc = 0.0d0 ! Number of occupants []
REAL(r64) :: TemperatureInZone = 0.0d0 ! Temperature in zone (C)
REAL(r64) :: RelativeHumidityInZone = 0.0d0 ! Relative humidity in zone
REAL(r64) :: RadGainRate = 0.0d0 ! Radiant heat gain [W]
REAL(r64) :: ConGainRate = 0.0d0 ! Convective heat gain [W]
REAL(r64) :: SenGainRate = 0.0d0 ! Sensible heat gain [W]
REAL(r64) :: LatGainRate = 0.0d0 ! Latent heat gain [W]
REAL(r64) :: TotGainRate = 0.0d0 ! Total heat gain [W]
REAL(r64) :: CO2GainRate = 0.0d0 ! Carbon Dioxide Gain Rate [m3/s]
REAL(r64) :: RadGainEnergy = 0.0d0 ! Radiant heat gain [J]
REAL(r64) :: ConGainEnergy = 0.0d0 ! Convective heat gain [J]
REAL(r64) :: SenGainEnergy = 0.0d0 ! Sensible heat gain [J]
REAL(r64) :: LatGainEnergy = 0.0d0 ! Latent heat gain [J]
REAL(r64) :: TotGainEnergy = 0.0d0 ! Total heat gain [J]
! Air velocity check during run time for thermal comfort control
INTEGER :: AirVelErrIndex = 0 ! Air velocity error index
! For AdaptiveComfort tabular report
REAL(r64) :: TimeNotMetASH5580 = 0.0d0
REAL(r64) :: TimeNotMetASH5590 = 0.0d0
REAL(r64) :: TimeNotMetCEN15251CatI = 0.0d0
REAL(r64) :: TimeNotMetCEN15251CatII = 0.0d0
REAL(r64) :: TimeNotMetCEN15251CatIII = 0.0d0
END TYPE PeopleData