TYPE UFIData
CHARACTER(len=MaxNameLength) :: ZoneName =' ' ! Name of zone
INTEGER :: ZonePtr =0 ! Pointer to the zone number for this statement
INTEGER :: ZoneEquipPtr = 0 ! Pointer to zone equip for this UFAD zone
REAL(r64) :: DiffusersPerZone =0.0d0 ! Number of diffusers in this zone
REAL(r64) :: PowerPerPlume =0.0d0 ! Power in each plume [W]
REAL(r64) :: DiffArea =0.0d0 ! Effective area of a diffuser [m2]
REAL(r64) :: DiffAngle =0.0d0 ! angle between diffuser slots and vertical (degrees)
REAL(r64) :: HeatSrcHeight =0.0d0 ! height of heat source above floor [m]
REAL(r64) :: ThermostatHeight =0.0d0 ! Height of thermostat/ temperature control sensor [m]
REAL(r64) :: ComfortHeight =0.0d0 ! Height at which air temperature is measured for
! comfort purposes [m]
REAL(r64) :: TempTrigger =0.0d0 ! Minimum temperature difference between TOC TMX
! for stratification [deltaC]
INTEGER :: DiffuserType =0 ! 1=Swirl, 2=variable area, 3=displacement, 4=linear bar grille, 5=custom
REAL(r64) :: TransHeight =0.0d0 ! user specified transition height [m]
LOGICAL :: CalcTransHeight =.FALSE. ! flag to calc trans height or use user specified input
REAL(r64) :: A_Kc =0.0d0 ! Coefficient A in Formula Kc = A*Gamma**B + C + D*Gamma + E*Gamma**2
REAL(r64) :: B_Kc =0.0d0 ! Coefficient A in Formula Kc = A*Gamma**B + C + D*Gamma + E*Gamma**2
REAL(r64) :: C_Kc =0.0d0 ! Coefficient A in Formula Kc = A*Gamma**B + C + D*Gamma + E*Gamma**2
REAL(r64) :: D_Kc =0.0d0 ! Coefficient A in Formula Kc = A*Gamma**B + C + D*Gamma + E*Gamma**2
REAL(r64) :: E_Kc =0.0d0 ! Coefficient A in Formula Kc = A*Gamma**B + C + D*Gamma + E*Gamma**2
END TYPE UFIData