| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | UnitType | = | ' ' | ||
| integer, | public | :: | UnitType_Num | = | 0 | ||
| integer, | public | :: | ZoneEquipType | = | 0 | ||
| integer, | public | :: | SchedPtr | = | 0 | ||
| real(kind=r64), | public | :: | MaxCoolAirVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxHeatAirVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxNoCoolHeatAirVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxCoolAirMassFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxHeatAirMassFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxNoCoolHeatAirMassFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CoolOutAirVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatOutAirVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | NoCoolHeatOutAirVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CoolOutAirMassFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatOutAirMassFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | NoCoolHeatOutAirMassFlow | = | 0.0d0 | ||
| integer, | public | :: | AirInNode | = | 0 | ||
| integer, | public | :: | AirOutNode | = | 0 | ||
| integer, | public | :: | OutsideAirNode | = | 0 | ||
| integer, | public | :: | AirReliefNode | = | 0 | ||
| character(len=MaxNameLength), | public | :: | OAMixType | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | OAMixName | = | ' ' | ||
| integer, | public | :: | OAMixIndex | = | 0 | ||
| character(len=MaxNameLength), | public | :: | FanName | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | FanType | = | ' ' | ||
| integer, | public | :: | FanType_Num | = | 0 | ||
| integer, | public | :: | FanIndex | = | 0 | ||
| integer, | public | :: | FanSchedPtr | = | 0 | ||
| integer, | public | :: | FanAvailSchedPtr | = | 0 | ||
| character(len=MaxNameLength), | public | :: | DXCoolCoilName | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | DXCoolCoilType | = | ' ' | ||
| integer, | public | :: | DXCoolCoilType_Num | = | 0 | ||
| integer, | public | :: | CoolCoilCompIndex | = | 0 | ||
| integer, | public | :: | DXCoolCoilIndexNum | = | 0 | ||
| integer, | public | :: | CondenserNodeNum | = | 0 | ||
| integer, | public | :: | DXHeatCoilIndexNum | = | 0 | ||
| character(len=MaxNameLength), | public | :: | DXHeatCoilName | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | DXHeatCoilType | = | ' ' | ||
| integer, | public | :: | DXHeatCoilType_Num | = | 0 | ||
| integer, | public | :: | DXHeatCoilIndex | = | 0 | ||
| character(len=MaxNameLength), | public | :: | ACHeatCoilName | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | ACHeatCoilType | = | ' ' | ||
| real(kind=r64), | public | :: | ACHeatCoilCap | = | 0.0d0 | ||
| integer, | public | :: | ACHeatCoilIndex | = | 0 | ||
| integer, | public | :: | HWCoilAirInletNode | = | 0 | ||
| integer, | public | :: | HWCoilSteamInletNode | = | 0 | ||
| integer, | public | :: | HWCoilSteamOutletNode | = | 0 | ||
| character(len=MaxNameLength), | public | :: | SuppHeatCoilName | = | ' ' | ||
| integer, | public | :: | SuppHeatCoilType_Num | = | 0 | ||
| integer, | public | :: | ACHeatCoilType_Num | = | 0 | ||
| integer, | public | :: | SuppHeatCoilIndex | = | 0 | ||
| integer, | public | :: | SupHeatCoilCap | = | 0 | ||
| integer, | public | :: | SupCoilAirInletNode | = | 0 | ||
| character(len=MaxNameLength), | public | :: | SuppHeatCoilType | = | ' ' | ||
| real(kind=r64), | public | :: | MaxSATSupHeat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxOATSupHeat | = | 0.0d0 | ||
| integer, | public | :: | OpMode | = | 0 | ||
| integer, | public | :: | FanPlace | = | 0 | ||
| real(kind=r64), | public | :: | CoolConvergenceTol | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatConvergenceTol | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MinOATCompressor | = | 0.0d0 | ||
| integer, | public | :: | IterErrIndex | = | 0 | ||
| character(len=MaxNameLength), | public | :: | AvailManagerListName | = | ' ' | ||
| integer, | public | :: | WaterCyclingMode | = | 0 | ||
| integer, | public | :: | PTObjectIndex | = | 0 | ||
| real(kind=r64), | public | :: | MaxONOFFCyclesperHour | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HPTimeConstant | = | 0.0d0 | ||
| real(kind=r64), | public | :: | OnCyclePowerFraction | = | 0.0d0 | ||
| real(kind=r64), | public | :: | FanDelayTime | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignHeatingCapacity | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignCoolingCapacity | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignSuppHeatingCapacity | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotHeatEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotHeatEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotCoolEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotCoolEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SensHeatEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SensHeatEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SensCoolEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SensCoolEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LatHeatEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LatHeatEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LatCoolEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LatCoolEnergy | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ElecPower | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ElecConsumption | = | 0.0d0 | ||
| real(kind=r64), | public | :: | FanPartLoadRatio | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CompPartLoadRatio | = | 0.0d0 | ||
| integer, | public | :: | LastMode | = | 0 | ||
| integer, | public | :: | AirFlowControl | = | 0 | ||
| real(kind=r64), | public | :: | CompPartLoadFrac | = | 0.0d0 | ||
| integer, | public | :: | HotWaterControlNode | = | 0 | ||
| integer, | public | :: | PlantCoilOutletNode | = | 0 | ||
| integer, | public | :: | LoopNum | = | 0 | ||
| integer, | public | :: | LoopSide | = | 0 | ||
| integer, | public | :: | BranchNum | = | 0 | ||
| integer, | public | :: | CompNum | = | 0 | ||
| real(kind=r64), | public | :: | MaxHeatCoilFluidFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxSuppCoilFluidFlow | = | 0.0d0 | ||
| integer, | public | :: | HotWaterCoilMaxIterIndex | = | 0 | ||
| integer, | public | :: | HotWaterCoilMaxIterIndex2 | = | 0 | ||
| real(kind=r64), | public | :: | ActualFanVolFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatingSpeedRatio | = | 1.0d0 | ||
| real(kind=r64), | public | :: | CoolingSpeedRatio | = | 1.0d0 | ||
| real(kind=r64), | public | :: | NoHeatCoolSpeedRatio | = | 1.0d0 | ||
| integer, | public | :: | AvailStatus | = | 0 | ||
| integer, | public | :: | HeatCoolMode | = | 0 | ||
| integer, | public | :: | NumOfSpeedCooling | = | 0 | ||
| integer, | public | :: | NumOfSpeedHeating | = | 0 | ||
| real(kind=r64), | public | :: | IdleSpeedRatio | = | 0.0d0 | ||
| real(kind=r64), | public | :: | IdleVolumeAirRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | IdleMassFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | FanVolFlow | = | 0.0d0 | ||
| logical, | public | :: | CheckFanFlow | = | .TRUE. | ||
| real(kind=r64), | public | :: | HeatVolumeFlowRate(MaxSpedLevels) | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatMassFlowRate(MaxSpedLevels) | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CoolVolumeFlowRate(MaxSpedLevels) | = | 0.0d0 | ||
| real(kind=r64), | public | :: | CoolMassFlowRate(MaxSpedLevels) | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MSHeatingSpeedRatio(MaxSpedLevels) | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MSCoolingSpeedRatio(MaxSpedLevels) | = | 0.0d0 | ||
| integer, | public | :: | CompSpeedNum | = | 0 | ||
| real(kind=r64), | public | :: | CompSpeedRatio | = | 0.0d0 | ||
| integer, | public | :: | ErrIndexCyc | = | 0 | ||
| integer, | public | :: | ErrIndexVar | = | 0 |
TYPE PTUnitData
! input data
CHARACTER(len=MaxNameLength) :: Name =' ' ! name of unit
CHARACTER(len=MaxNameLength) :: UnitType =' ' ! type of unit
INTEGER :: UnitType_Num = 0 ! paramter equivalent to type of unit
INTEGER :: ZoneEquipType = 0 ! Type of PT unit
INTEGER :: SchedPtr = 0 ! index number to availability schedule
REAL(r64) :: MaxCoolAirVolFlow = 0.0d0 ! supply air volumetric flow rate during cooling operation [m3/s]
REAL(r64) :: MaxHeatAirVolFlow = 0.0d0 ! supply air volumetric flow rate during heating operation [m3/s]
REAL(r64) :: MaxNoCoolHeatAirVolFlow = 0.0d0 ! supply air volumetric flow rate when no cooling or heating [m3/s]
REAL(r64) :: MaxCoolAirMassFlow = 0.0d0 ! supply air mass flow rate during cooling operation [kg/s]
REAL(r64) :: MaxHeatAirMassFlow = 0.0d0 ! supply air mass flow rate during heating operation [kg/s]
REAL(r64) :: MaxNoCoolHeatAirMassFlow = 0.0d0 ! supply air mass flow rate when no cooling or heating [kg/s]
REAL(r64) :: CoolOutAirVolFlow = 0.0d0 ! OA volumetric flow rate during cooling operation [m3/s]
REAL(r64) :: HeatOutAirVolFlow = 0.0d0 ! OA volumetric flow rate during heating operation [m3/s]
REAL(r64) :: NoCoolHeatOutAirVolFlow = 0.0d0 ! OA volumetric flow rate when no cooling or heating [m3/s]
REAL(r64) :: CoolOutAirMassFlow = 0.0d0 ! OA mass flow rate during cooling operation [kg/s]
REAL(r64) :: HeatOutAirMassFlow = 0.0d0 ! OA mass flow rate during heating operation [kg/s]
REAL(r64) :: NoCoolHeatOutAirMassFlow = 0.0d0 ! OA mass flow rate when no cooling or heating [kg/s]
INTEGER :: AirInNode = 0 ! inlet air node number
INTEGER :: AirOutNode = 0 ! outlet air node number
INTEGER :: OutsideAirNode = 0 ! OAmixer outside air node number
INTEGER :: AirReliefNode = 0 ! OAmixer relief air node number
CHARACTER(len=MaxNameLength) :: OAMixType = ' ' ! type of outside air mixer
CHARACTER(len=MaxNameLength) :: OAMixName = ' ' ! name of OAmixer
INTEGER :: OAMixIndex = 0
CHARACTER(len=MaxNameLength) :: FanName = ' ' ! name of fan
CHARACTER(len=MaxNameLength) :: FanType = ' ' ! type of fan
INTEGER :: FanType_Num = 0 ! fan type number (see DataHVACGlobals)
INTEGER :: FanIndex = 0 ! index number to fan
INTEGER :: FanSchedPtr = 0 ! index number to fan operating mode schedule
INTEGER :: FanAvailSchedPtr = 0 ! index to fan availability schedule
CHARACTER(len=MaxNameLength) :: DXCoolCoilName = ' ' ! name of DX cooling coil
CHARACTER(len=MaxNameLength) :: DXCoolCoilType = ' ' ! type of DX cooling coil,Coil:DX:CoolingBypassFactorEmpirical or
! 'CoilSystem:Cooling:DX:HeatExchangerAssisted'
INTEGER :: DXCoolCoilType_Num = 0 ! numeric equivalent for DX cooling coil type
INTEGER :: CoolCoilCompIndex = 0 ! cooling coil index number (index for DX coil or HX Assisted object)
INTEGER :: DXCoolCoilIndexNum = 0 ! actual DX cooling coil index number
INTEGER :: CondenserNodeNum = 0 ! DX cooling coil condenser node number
INTEGER :: DXHeatCoilIndexNum = 0 ! actual DX heating coil index number
CHARACTER(len=MaxNameLength) :: DXHeatCoilName = ' ' ! name of DX heating coil
CHARACTER(len=MaxNameLength) :: DXHeatCoilType = ' ' ! type of DX heating coil,Coil:DX:HeatingEmpirical
INTEGER :: DXHeatCoilType_Num = 0 ! numeric equivalent for DX heating coil type
INTEGER :: DXHeatCoilIndex = 0 ! DX heating coil index number
CHARACTER(len=MaxNameLength) :: ACHeatCoilName = ' ' ! name of heating coil for PTAC
CHARACTER(len=MaxNameLength) :: ACHeatCoilType = ' ' ! type of heating coil for PTAC
REAL(r64) :: ACHeatCoilCap = 0.0d0 ! heating coil capacity for PTAC
INTEGER :: ACHeatCoilIndex = 0 ! heating coil index number for PTAC
INTEGER :: HWCoilAirInletNode = 0 ! air outlet node number of HW coil for PTAC
INTEGER :: HWCoilSteamInletNode = 0 ! steam inlet node number of HW coil for PTAC and HP
INTEGER :: HWCoilSteamOutletNode = 0 ! steam inlet node number of HW coil for PTAC and HP
CHARACTER(len=MaxNameLength) :: SuppHeatCoilName = ' ' ! name of supplemental heating coil
INTEGER :: SuppHeatCoilType_Num = 0 ! numeric equivalent for supplemental heating coil type
INTEGER :: ACHeatCoilType_Num = 0 ! numeric equivalent for PTAC heating coil type
INTEGER :: SuppHeatCoilIndex = 0 ! supplemental heater index number
INTEGER :: SupHeatCoilCap = 0 ! supplemental heater coil capacity [W]
INTEGER :: SupCoilAirInletNode = 0 ! air inlet node for supplemental coil for HP
CHARACTER(len=MaxNameLength) :: SuppHeatCoilType = ' ' ! supplemental heater coil type
REAL(r64) :: MaxSATSupHeat = 0.0d0 ! maximum supply air temperature from supplemental heater [C]
REAL(r64) :: MaxOATSupHeat = 0.0d0 ! maximum outdoor air temp for supplemental heater operation [C]
INTEGER :: OpMode =0 ! mode of operation; 1=cycling fan, cycling compressor, 2=continuous fan, cycling compresor
INTEGER :: FanPlace =0 ! fan placement; 1=blow through, 2=draw through
REAL(r64) :: CoolConvergenceTol = 0.0d0 ! Convergence tolerance, fraction (ZoneLoad - Equip Output)/ZoneLoad
REAL(r64) :: HeatConvergenceTol = 0.0d0 ! Convergence tolerance, fraction (ZoneLoad - Equip Output)/ZoneLoad
REAL(r64) :: MinOATCompressor = 0.0d0 ! Minimum OAT for compressor operation [C]
INTEGER :: IterErrIndex = 0 ! index for recurring warnings
CHARACTER(len=MaxNameLength) :: AvailManagerListName = ' ' ! Name of an availability manager list object
INTEGER :: WaterCyclingMode = 0 ! Heat Pump Coil water flow mode; See definitions in DataHVACGlobals,
! 1=water cycling, 2=water constant, 3=water constant on demand (old mode)
INTEGER :: PTObjectIndex = 0 ! index for PT unit
! Water source HP specific variables
REAL(r64) :: MaxONOFFCyclesperHour =0.0d0 ! Maximum ON/OFF Cycling Rate [cycles/hr]
REAL(r64) :: HPTimeConstant =0.0d0 ! Heat Pump Time Constant [s]
REAL(r64) :: OnCyclePowerFraction =0.0d0 ! Fraction of on-cycle power use [~]
! supplemental heating coil operation
REAL(r64) :: FanDelayTime =0.0d0 ! Fan delay time, time delay for the HP's fan to
! shut off after compressor cycle off [s]
REAL(r64) :: DesignHeatingCapacity =0.0d0 ! Nominal Capacity of Heating Coil [W]
REAL(r64) :: DesignCoolingCapacity =0.0d0 ! Nominal Capacity of Cooling Coil [W]
REAL(r64) :: DesignSuppHeatingCapacity =0.0d0 ! Nominal Capacity of Supplemental Heating Coil [W]
! Report data
REAL(r64) :: TotHeatEnergyRate = 0.0d0 ! total heating output [W]
REAL(r64) :: TotHeatEnergy = 0.0d0 ! total heating output [J]
REAL(r64) :: TotCoolEnergyRate = 0.0d0 ! total cooling output [W]
REAL(r64) :: TotCoolEnergy = 0.0d0 ! total cooling output [J]
REAL(r64) :: SensHeatEnergyRate = 0.0d0 ! sensible heating output [W]
REAL(r64) :: SensHeatEnergy = 0.0d0 ! sensible heating output [J]
REAL(r64) :: SensCoolEnergyRate = 0.0d0 ! sensible cooling output [W]
REAL(r64) :: SensCoolEnergy = 0.0d0 ! sensible cooling output [J]
REAL(r64) :: LatHeatEnergyRate = 0.0d0 ! latent heating output [W]
REAL(r64) :: LatHeatEnergy = 0.0d0 ! latent heating output [J]
REAL(r64) :: LatCoolEnergyRate = 0.0d0 ! latent cooling output [W]
REAL(r64) :: LatCoolEnergy = 0.0d0 ! latent cooling output [J]
REAL(r64) :: ElecPower = 0.0d0 ! electricity consumed [W]
REAL(r64) :: ElecConsumption = 0.0d0 ! electricity consumed [J]
REAL(r64) :: FanPartLoadRatio = 0.0d0 ! fan part-load ratio for time step
REAL(r64) :: CompPartLoadRatio = 0.0d0 ! compressor part-load ratio for time step
INTEGER :: LastMode = 0 ! last mode of operation, coolingmode or heatingmode
INTEGER :: AirFlowControl = 0 ! fan control mode, UseCompressorOnFlow or UseCompressorOffFlow
REAL(r64) :: CompPartLoadFrac = 0.0d0 ! compressor part load ratio
INTEGER :: HotWaterControlNode = 0 ! control node for simple water heating coil
INTEGER :: PlantCoilOutletNode = 0 ! outlet node for water coil
INTEGER :: LoopNum = 0 ! plant loop index for water heating coil
INTEGER :: LoopSide = 0 ! plant loop side index for water heating coil
INTEGER :: BranchNum = 0 ! plant loop branch index for water heating coil
INTEGER :: CompNum = 0 ! plant loop component index for water heating coil
REAL(r64) :: MaxHeatCoilFluidFlow = 0.0d0 ! water or steam mass flow rate for heating coil [kg/s]
REAL(r64) :: MaxSuppCoilFluidFlow = 0.0d0 ! water or steam mass flow rate supp. heating coil [kg/s]
Integer :: HotWaterCoilMaxIterIndex = 0 ! Index to recurring warning message
Integer :: HotWaterCoilMaxIterIndex2 = 0 ! Index to recurring warning message
REAL(r64) :: ActualFanVolFlowRate = 0.0d0 ! Volumetric flow rate from fan object
REAL(r64) :: HeatingSpeedRatio = 1.0d0 ! Fan speed ratio in heating mode
REAL(r64) :: CoolingSpeedRatio = 1.0d0 ! Fan speed ratio in cooling mode
REAL(r64) :: NoHeatCoolSpeedRatio = 1.0d0 ! Fan speed ratio when no cooling or heating
INTEGER :: AvailStatus = 0
! starting added varibles for variable speed water source heat pump, Bo Shen, ORNL, March 2012
INTEGER :: HeatCoolMode = 0 ! System operating mode (0 = floating, 1 = cooling, 2 = heating)
INTEGER :: NumOfSpeedCooling =0 ! The number of speeds for cooling
INTEGER :: NumOfSpeedHeating =0 ! The number of speeds for heating
REAL(r64):: IdleSpeedRatio = 0.0d0 !idle air fan ratio
REAL(r64):: IdleVolumeAirRate = 0.0d0 ! idle air flow rate
REAL(r64):: IdleMassFlowRate = 0.0d0 ! idle air flow rate
REAL(r64):: FanVolFlow = 0.0d0 ! fan volumetric flow rate
LOGICAL :: CheckFanFlow = .TRUE. ! Supply airflow check
REAL(r64):: HeatVolumeFlowRate(MaxSpedLevels) = 0.0d0 ! Supply air volume flow rate during heating operation
REAL(r64):: HeatMassFlowRate(MaxSpedLevels) = 0.0d0 ! Supply air mass flow rate during heating operation
REAL(r64):: CoolVolumeFlowRate(MaxSpedLevels) = 0.0d0 ! Supply air volume flow rate during cooling operation
REAL(r64):: CoolMassFlowRate(MaxSpedLevels) = 0.0d0 ! Supply air mass flow rate during cooling operation
REAL(r64):: MSHeatingSpeedRatio(MaxSpedLevels) = 0.0d0 ! Fan speed ratio in heating mode
REAL(r64):: MSCoolingSpeedRatio(MaxSpedLevels) = 0.0d0 ! Fan speed ratio in cooling mode
INTEGER :: CompSpeedNum = 0
REAL(r64):: CompSpeedRatio = 0.0d0
INTEGER :: ErrIndexCyc = 0
INTEGER :: ErrIndexVar = 0
! end of the additional variables for variable speed water source heat pump
END TYPE PTUnitData