| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | SchedName | = | ' ' | ||
| integer, | public | :: | SchedPtr | = | 0 | ||
| character(len=MaxNameLength), | public | :: | ZoneName | = | ' ' | ||
| integer, | public | :: | ZonePtr | = | 0 | ||
| integer, | public | :: | ZoneNodeNum | = | 0 | ||
| character(len=MaxNameLength), | public | :: | UnitControlType | = | ' ' | ||
| integer, | public | :: | ControlType | = | 0 | ||
| integer, | public | :: | AirInletNode | = | 0 | ||
| integer, | public | :: | AirOutletNode | = | 0 | ||
| character(len=MaxNameLength), | public | :: | SFanName | = | ' ' | ||
| integer, | public | :: | SFan_Index | = | 0 | ||
| integer, | public | :: | SFanType | = | 0 | ||
| integer, | public | :: | SFanAvailSchedPtr | = | 0 | ||
| integer, | public | :: | FanPlace | = | 0 | ||
| real(kind=r64), | public | :: | FanCorTemp | = | 0.0d0 | ||
| logical, | public | :: | FanEffect | = | .FALSE. | ||
| integer, | public | :: | SFanOutletNode | = | 0 | ||
| character(len=MaxNameLength), | public | :: | ExtFanName | = | ' ' | ||
| integer, | public | :: | ExtFan_Index | = | 0 | ||
| integer, | public | :: | ExtFanType | = | 0 | ||
| integer, | public | :: | ExtFanAvailSchedPtr | = | 0 | ||
| logical, | public | :: | ExtFan | = | .FALSE. | ||
| character(len=MaxNameLength), | public | :: | OutAirSchedName | = | ' ' | ||
| integer, | public | :: | OutAirSchedPtr | = | 0 | ||
| integer, | public | :: | OutsideAirNode | = | 0 | ||
| real(kind=r64), | public | :: | OutAirVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | OutAirMassFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ExtAirVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ExtAirMassFlow | = | 0.0d0 | ||
| character(len=MaxNameLength), | public | :: | ExtAirSchedName | = | ' ' | ||
| integer, | public | :: | ExtOutAirSchedPtr | = | 0 | ||
| real(kind=r64), | public | :: | MaxAirMassFlow | = | 0.0d0 | ||
| character(len=MaxNameLength), | public | :: | HiCtrlTempSched | = | ' ' | ||
| integer, | public | :: | HiCtrlTempSchedPtr | = | 0 | ||
| character(len=MaxNameLength), | public | :: | LoCtrlTempSched | = | ' ' | ||
| integer, | public | :: | LoCtrlTempSchedPtr | = | 0 | ||
| integer, | public | :: | OperatingMode | = | 0 | ||
| integer, | public | :: | ControlCompTypeNum | = | 0 | ||
| integer, | public | :: | CompErrIndex | = | 0 | ||
| real(kind=r64), | public | :: | AirMassFlow | = | 0.0d0 | ||
| integer, | public | :: | UnBalancedErrCount | = | 0 | ||
| integer, | public | :: | UnBalancedErrIndex | = | 0 | ||
| integer, | public | :: | NumComponents | = | 0 | ||
| character(len=MaxNameLength), | public | :: | ComponentListName | = | ' ' | ||
| real(kind=r64), | public | :: | CompOutSetTemp | = | 0.0d0 | ||
| integer, | public | :: | AvailStatus | = | 0 | ||
| character(len=MaxNameLength), | public | :: | AvailManagerListName | = | ' ' | ||
| type(OAEquipList), | public, | ALLOCATABLE, DIMENSION(:) | :: | OAEquip | |||
| real(kind=r64), | public | :: | TotCoolingRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotCoolingEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SensCoolingRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SensCoolingEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LatCoolingRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LatCoolingEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ElecFanRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ElecFanEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SensHeatingEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SensHeatingRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LatHeatingEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LatHeatingRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotHeatingEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotHeatingRate | = | 0.0d0 |
TYPE OAUnitData
! Input data
CHARACTER(len=MaxNameLength) :: Name =' ' ! name of unit
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 :: ZoneNodeNum = 0 ! index of zone air node in node structure
CHARACTER(len=MaxNameLength) :: UnitControlType = ' ' ! Control type for the system
! (Neutral and setpoint temperatrue)
INTEGER :: ControlType =0 ! Unit Control type indicator
INTEGER :: AirInletNode = 0 ! inlet air node number
INTEGER :: AirOutletNode = 0 ! outlet air node number
CHARACTER(len=MaxNameLength) :: SFanName =' ' ! name of supply fan
INTEGER :: SFan_Index =0 ! index in fan structure
INTEGER :: SFanType =0 ! type of fan in cFanTypes
INTEGER :: SFanAvailSchedPtr =0 ! supply fan availability sched from fan object
INTEGER :: FanPlace =0 ! fan placement; blow through and draw through
REAL(r64) :: FanCorTemp =0.0d0 ! correction temperature
LOGICAL :: FanEffect =.FALSE. ! .TRUE. if unit has a fan type of draw through
INTEGER :: SFanOutletNode = 0 ! supply fan outlet node number
CHARACTER(len=MaxNameLength) :: ExtFanName =' ' ! name of exhaust fan
INTEGER :: ExtFan_Index =0 ! index in fan structure
INTEGER :: ExtFanType =0 ! type of fan in cFanTypes
INTEGER :: ExtFanAvailSchedPtr =0 ! exhaust fan availability sched from fan object
LOGICAL :: ExtFan =.FALSE. ! true if there is an exhaust fan
CHARACTER(len=MaxNameLength) :: OutAirSchedName =' ' ! schedule of fraction for outside air (all controls)
INTEGER :: OutAirSchedPtr =0 ! index to schedule
INTEGER :: OutsideAirNode =0 ! outside air node number
REAL(r64) :: OutAirVolFlow =0.0d0 ! m3/s
REAL(r64) :: OutAirMassFlow =0.0d0 ! kg/s
REAL(r64) :: ExtAirVolFlow =0.0d0 ! m3/s
REAL(r64) :: ExtAirMassFlow =0.0d0 ! kg/s
CHARACTER(len=MaxNameLength) :: ExtAirSchedName =' ' ! schedule of fraction for exhaust air
INTEGER :: ExtOutAirSchedPtr =0 ! index to schedule
REAL(r64) :: MaxAirMassFlow =0.0d0 ! kg/s
CHARACTER(len=MaxNameLength) :: HiCtrlTempSched = ' ' ! Schedule name for the High Control Air temperature
INTEGER :: HiCtrlTempSchedPtr = 0 ! Schedule index for the High Control Air temperature
CHARACTER(len=MaxNameLength) :: LoCtrlTempSched = ' ' ! Schedule name for the Low Control Air temperature
INTEGER :: LoCtrlTempSchedPtr = 0 ! Schedule index for the Low Control Air temperature
INTEGER :: OperatingMode =0 ! operating condition( NeutralMode, HeatingMode, CoolingMode)
INTEGER :: ControlCompTypeNum =0
INTEGER :: CompErrIndex =0
REAL(r64) :: AirMassFlow =0.0d0 ! kg/s
INTEGER :: UnBalancedErrCount =0 ! Counter for recurring warning message
INTEGER :: UnBalancedErrIndex =0 ! Index to recurring warning message
INTEGER :: NumComponents = 0
CHARACTER(len=MaxNameLength) :: ComponentListName = ' '
REAL(r64) :: CompOutSetTemp =0.0d0 ! component outlet setpoint temperature
INTEGER :: AvailStatus =0
CHARACTER(len=MaxNameLength) :: AvailManagerListName = ' ' ! Name of an availability manager list object
TYPE(OAEquipList), &
ALLOCATABLE,DIMENSION(:) :: OAEquip
! Report data
REAL(r64) :: TotCoolingRate =0.0d0 ! Rate of total cooling delivered to the zone [W]
REAL(r64) :: TotCoolingEnergy =0.0d0 ! Total cooling energy delivered by the OAU supply air to the zone [J]
REAL(r64) :: SensCoolingRate =0.0d0 ! Rate of sensible cooling delivered to the zone [W]
REAL(r64) :: SensCoolingEnergy =0.0d0 ! Sensible cooling energy delivered by the OAU supply air to the zone [J]
REAL(r64) :: LatCoolingRate =0.0d0 ! Rate of latent cooling delivered to the zone [W]
REAL(r64) :: LatCoolingEnergy =0.0d0 ! Latent cooling energy delivered by the OAU supply air to the zone [J]
REAL(r64) :: ElecFanRate =0.0d0 ! Total electric use rate (power) for supply/exhaust fans [W]
REAL(r64) :: ElecFanEnergy =0.0d0 ! Electric energy use for supply fan and exhaust fan [J]
REAL(r64) :: SensHeatingEnergy =0.0d0 ! sensible heating energy delivered by the ERV supply air to the zone [J]
REAL(r64) :: SensHeatingRate =0.0d0 ! rate of sensible heating delivered to the zone [W]
REAL(r64) :: LatHeatingEnergy =0.0d0 ! latent heating energy delivered by the ERV supply air to the zone [J]
REAL(r64) :: LatHeatingRate =0.0d0 ! rate of latent heating delivered to the zone [W]
REAL(r64) :: TotHeatingEnergy =0.0d0 ! total heating energy delivered by the ERV supply air to the zone [J]
REAL(r64) :: TotHeatingRate =0.0d0 ! rate of total heating delivered to the zone [W]
END TYPE OAUnitData