| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | AvaiSchedule | = | ' ' | ||
| integer, | public | :: | AvaiSchedPtr | = | 0 | ||
| integer, | public | :: | AirInletNodeNum | = | 0 | ||
| integer, | public | :: | AirOutletNodeNum | = | 0 | ||
| character(len=MaxNameLength), | public | :: | AirInletNodeName | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | AirOutletNodeName | = | ' ' | ||
| integer, | public | :: | ControlZoneNum | = | 0 | ||
| integer, | public | :: | ZoneSequenceCoolingNum | = | 0 | ||
| integer, | public | :: | ZoneSequenceHeatingNum | = | 0 | ||
| character(len=MaxNameLength), | public | :: | ControlZoneName | ||||
| integer, | public | :: | NodeNumofControlledZone | = | 0 | ||
| real(kind=r64), | public | :: | FlowFraction | = | 0.0d0 | ||
| character(len=MaxNameLength), | public | :: | FanName | = | ' ' | ||
| integer, | public | :: | FanType | = | 0 | ||
| integer, | public | :: | FanNum | = | 0 | ||
| integer, | public | :: | FanPlaceType | = | 0 | ||
| integer, | public | :: | FanInletNode | = | 0 | ||
| integer, | public | :: | FanOutletNode | = | 0 | ||
| real(kind=r64), | public | :: | FanVolFlow | = | 0.0d0 | ||
| character(len=MaxNameLength), | public | :: | FanSchedule | = | ' ' | ||
| integer, | public | :: | FanSchedPtr | = | 0 | ||
| integer, | public | :: | OpMode | = | 0 | ||
| character(len=MaxNameLength), | public | :: | DXHeatCoilName | = | ' ' | ||
| integer, | public | :: | HeatCoilType | = | 0 | ||
| integer, | public | :: | HeatCoilNum | = | 0 | ||
| integer, | public | :: | DXHeatCoilIndex | = | 0 | ||
| real(kind=r64), | public | :: | MinOATCompressor | = | 0.0d0 | ||
| character(len=MaxNameLength), | public | :: | HeatCoilName | = | ' ' | ||
| integer, | public | :: | HeatCoilIndex | = | 0 | ||
| character(len=MaxNameLength), | public | :: | DXCoolCoilName | = | ' ' | ||
| integer, | public | :: | CoolCoilType | = | 0 | ||
| integer, | public | :: | CoolCoilNum | = | 0 | ||
| integer, | public | :: | DXCoolCoilIndex | = | 0 | ||
| character(len=MaxNameLength), | public | :: | SuppHeatCoilName | = | ' ' | ||
| integer, | public | :: | SuppHeatCoilType | = | 0 | ||
| integer, | public | :: | SuppHeatCoilNum | = | 0 | ||
| real(kind=r64), | public | :: | DesignSuppHeatingCapacity | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SuppMaxAirTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SuppMaxOATemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | AuxOnCyclePower | = | 0.0d0 | ||
| real(kind=r64), | public | :: | AuxOffCyclePower | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignHeatRecFlowRate | = | 0.0d0 | ||
| logical, | public | :: | HeatRecActive | = | .False. | ||
| character(len=MaxNameLength), | public | :: | HeatRecName | = | ' ' | ||
| integer, | public | :: | HeatRecInletNodeNum | = | 0 | ||
| integer, | public | :: | HeatRecOutletNodeNum | = | 0 | ||
| real(kind=r64), | public | :: | MaxHeatRecOutletTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignHeatRecMassFlowRate | = | 0.0d0 | ||
| integer, | public | :: | HRLoopNum | = | 0 | ||
| integer, | public | :: | HRLoopSideNum | = | 0 | ||
| integer, | public | :: | HRBranchNum | = | 0 | ||
| integer, | public | :: | HRCompNum | = | 0 | ||
| real(kind=r64), | public | :: | AuxElecPower | = | 0.0d0 | ||
| real(kind=r64), | public | :: | IdleVolumeAirRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | IdleMassFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | IdleSpeedRatio | = | 0.0d0 | ||
| integer, | public | :: | NumOfSpeedCooling | = | 0 | ||
| integer, | public | :: | NumOfSpeedHeating | = | 0 | ||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | HeatVolumeFlowRate | |||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | HeatMassFlowRate | |||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | CoolVolumeFlowRate | |||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | CoolMassFlowRate | |||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | HeatingSpeedRatio | |||
| real(kind=r64), | public, | DIMENSION(:), ALLOCATABLE | :: | CoolingSpeedRatio | |||
| logical, | public | :: | CheckFanFlow | = | .TRUE. | ||
| integer, | public | :: | LastMode | = | 0 | ||
| integer, | public | :: | HeatCoolMode | = | 0 | ||
| integer, | public | :: | AirLoopNumber | = | 0 | ||
| integer, | public | :: | NumControlledZones | = | 0 | ||
| integer, | public | :: | ZoneInletNode | = | 0 | ||
| real(kind=r64), | public | :: | CompPartLoadRatio | = | 0.0d0 | ||
| real(kind=r64), | public | :: | FanPartLoadRatio | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotCoolEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | TotHeatEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SensCoolEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | SensHeatEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LatCoolEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LatHeatEnergyRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ElecPower | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LoadMet | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatRecoveryRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatRecoveryInletTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatRecoveryOutletTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatRecoveryMassFlowRate | = | 0.0d0 | ||
| integer, | public | :: | AirFlowControl | = | 0 | ||
| integer, | public | :: | ErrIndexCyc | = | 0 | ||
| integer, | public | :: | ErrIndexVar | = | 0 | ||
| real(kind=r64), | public | :: | LoadLoss | = | 0.0d0 | ||
| integer, | public | :: | SuppCoilAirInletNode | = | 0 | ||
| integer, | public | :: | SuppCoilAirOutletNode | = | 0 | ||
| integer, | public | :: | SuppHeatCoilType_Num | = | 0 | ||
| integer, | public | :: | SuppHeatCoilIndex | = | 0 | ||
| integer, | public | :: | SuppCoilControlNode | = | 0 | ||
| real(kind=r64), | public | :: | MaxSuppCoilFluidFlow | = | 0.0d0 | ||
| integer, | public | :: | SuppCoilOutletNode | = | 0 | ||
| integer, | public | :: | CoilAirInletNode | = | 0 | ||
| integer, | public | :: | CoilControlNode | = | 0 | ||
| real(kind=r64), | public | :: | MaxCoilFluidFlow | = | 0.0d0 | ||
| integer, | public | :: | CoilOutletNode | = | 0 | ||
| integer, | public | :: | HotWaterCoilControlNode | = | 0 | ||
| integer, | public | :: | HotWaterCoilOutletNode | = | 0 | ||
| character(len=MaxNameLength), | public | :: | HotWaterCoilName | = | ' ' | ||
| integer, | public | :: | HotWaterCoilNum | = | 0 | ||
| integer, | public | :: | LoopNum | = | 0 | ||
| integer, | public | :: | LoopSide | = | 0 | ||
| integer, | public | :: | BranchNum | = | 0 | ||
| integer, | public | :: | CompNum | = | 0 | ||
| integer, | public | :: | SuppLoopNum | = | 0 | ||
| integer, | public | :: | SuppLoopSide | = | 0 | ||
| integer, | public | :: | SuppBranchNum | = | 0 | ||
| integer, | public | :: | SuppCompNum | = | 0 | ||
| integer, | public | :: | HotWaterLoopNum | = | 0 | ||
| integer, | public | :: | HotWaterLoopSide | = | 0 | ||
| integer, | public | :: | HotWaterBranchNum | = | 0 | ||
| integer, | public | :: | HotWaterCompNum | = | 0 | ||
| integer, | public | :: | HotWaterCoilMaxIterIndex | = | 0 | ||
| integer, | public | :: | HotWaterCoilMaxIterIndex2 | = | 0 | ||
| integer, | public | :: | StageNum | = | 0 | ||
| logical, | public | :: | Staged | = | .FALSE. | ||
| integer, | public | :: | CoolCountAvail | = | 0 | ||
| integer, | public | :: | CoolIndexAvail | = | 0 | ||
| integer, | public | :: | HeatCountAvail | = | 0 | ||
| integer, | public | :: | HeatIndexAvail | = | 0 |
TYPE MSHeatPumpData
! Some variables in this type are arrays (dimension=MaxSpeed) to support the number of speeds
CHARACTER(len=MaxNameLength) :: Name =' ' ! Name of the engine driven heat pump
CHARACTER(len=MaxNameLength) :: AvaiSchedule =' ' ! Availability Schedule name
INTEGER :: AvaiSchedPtr = 0 ! Pointer to the correct schedule
INTEGER :: AirInletNodeNum = 0 ! Node number of the heat pump air inlet
INTEGER :: AirOutletNodeNum = 0 ! Node number of the heat pump air inlet
CHARACTER(len=MaxNameLength) :: AirInletNodeName =' ' ! Node name of the heat pump air inlet
CHARACTER(len=MaxNameLength) :: AirOutletNodeName =' ' ! Node name of the heat pump air outlet
INTEGER :: ControlZoneNum = 0 ! Controlling zone or thermostat location
INTEGER :: ZoneSequenceCoolingNum =0 ! Index to cooling sequence/priority for this zone
INTEGER :: ZoneSequenceHeatingNum =0 ! Index to heating sequence/priority for this zone
CHARACTER(len=MaxNameLength) :: ControlZoneName ! Controlled zone name
INTEGER :: NodeNumofControlledZone =0 ! Controlled zone node number
REAL(r64) :: FlowFraction =0.0d0 ! Fraction of the total volume flow that goes through the controlling zone
CHARACTER(len=MaxNameLength) :: FanName =' ' ! Name of supply air fan
INTEGER :: FanType = 0 ! Supply fan type
INTEGER :: FanNum = 0 ! Supply fan number
INTEGER :: FanPlaceType = 0 ! Supply air fan placement: 1 Blow through; 2 Draw through
INTEGER :: FanInletNode = 0 ! Fan Inlet node
INTEGER :: FanOutletNode = 0 ! Fan Outlet node
REAL(r64) :: FanVolFlow =0.0d0 ! Supply fan volumetric flow rate
CHARACTER(len=MaxNameLength) :: FanSchedule =' ' ! Supply air fan operating mode schedule name
INTEGER :: FanSchedPtr = 0 ! Pointer to the Supply air fan operating mode schedule
INTEGER :: OpMode = 0 ! mode of operation; 1=cycling fan, cycling compressor; 2=continuous fan, cycling compresor
CHARACTER(len=MaxNameLength) :: DXHeatCoilName =' ' ! COIL:DX:MultiSpeed:Heating name
INTEGER :: HeatCoilType = 0 ! Heating coil type: 1 COIL:DX:MultiSpeed:Heating only
INTEGER :: HeatCoilNum = 0 ! Heating coil number
INTEGER :: DXHeatCoilIndex = 0 ! DX heating coil index number
REAL(r64) :: MinOATCompressor =0.0d0 ! Minimum outdoor dry-bulb temperature for compressor operation
CHARACTER(len=MaxNameLength) :: HeatCoilName =' ' ! Coil:Electric:MultiSpeed:Heating OR Coil:Gas:MultiSpeed:Heating name
INTEGER :: HeatCoilIndex = 0 ! heating coil index number (Coil:Electric:MultiSpeed:Heating OR Coil:Gas:MultiSpeed:Heating)
CHARACTER(len=MaxNameLength) :: DXCoolCoilName =' ' ! COIL:DX:MultiSpeed:Cooling name
INTEGER :: CoolCoilType = 0 ! Cooling coil type: 1 COIL:DX:MultiSpeed:Cooling only
INTEGER :: CoolCoilNum = 0 ! Cooling coil number
INTEGER :: DXCoolCoilIndex = 0 ! DX cooling coil index number
CHARACTER(len=MaxNameLength) :: SuppHeatCoilName =' ' ! Supplymental heating coil name
INTEGER :: SuppHeatCoilType = 0 ! Supplymental heating coil type: 1 Gas; 2 Electric; 3 Recovery
INTEGER :: SuppHeatCoilNum = 0 ! Supplymental heating coil number
REAL(r64) :: DesignSuppHeatingCapacity = 0.0d0 ! Supplemental heating coil design capacity
REAL(r64) :: SuppMaxAirTemp = 0.0d0 ! Maximum supply air temperature from supplemental heater
REAL(r64) :: SuppMaxOATemp = 0.0d0 ! Maximum outdoor dry-bulb temperature for supplemental heater operation
REAL(r64) :: AuxOnCyclePower =0.0d0 ! Auxiliary On-Cycle Electric Power
REAL(r64) :: AuxOffCyclePower =0.0d0 ! Auxiliary Off-Cycle Electric Power
REAL(r64) :: DesignHeatRecFlowRate =0.0d0 ! Design water volume flow rate through heat recovery loop [m3/s]
LOGICAL :: HeatRecActive = .False. ! True when entered Heat Rec Vol Flow Rate > 0
CHARACTER(len=MaxNameLength) :: HeatRecName =' ' ! heat recovery water inlet name
INTEGER :: HeatRecInletNodeNum = 0 ! Node number on heat recovery water inlet
INTEGER :: HeatRecOutletNodeNum = 0 ! Node number on heat recovery water outlet
REAL(r64) :: MaxHeatRecOutletTemp =0.0d0 ! Maximum outlet water temperature for heat recovery
REAL(r64) :: DesignHeatRecMassFlowRate = 0.0d0 ! Design water mass flow rate through heat recovery loop [kg/s]
INTEGER :: HRLoopNum = 0 ! plant loop number for heat recovery
INTEGER :: HRLoopSideNum = 0 ! Plant loop side for heat recovery
INTEGER :: HRBranchNum = 0 ! plant loop branch for heat recovery
INTEGER :: HRCompNum = 0 ! plant loop component for heat recovery
REAL(r64) :: AuxElecPower =0.0d0 ! Auxiliary Electric Power
REAL(r64) :: IdleVolumeAirRate =0.0d0 ! Supply air volumetric flow rate when no cooling or heating is needed
REAL(r64) :: IdleMassFlowRate =0.0d0 ! Supply air mass flow rate when no cooling or heating is needed
REAL(r64) :: IdleSpeedRatio =0.0d0 ! Fan speed ratio in idle mode
INTEGER :: NumOfSpeedCooling =0 ! The number of speeds for cooling
INTEGER :: NumOfSpeedHeating =0 ! The number of speeds for heating
REAL(r64), DIMENSION(:), ALLOCATABLE :: HeatVolumeFlowRate ! Supply air volume flow rate during heating operation
REAL(r64), DIMENSION(:), ALLOCATABLE :: HeatMassFlowRate ! Supply air mass flow rate during heating operation
REAL(r64), DIMENSION(:), ALLOCATABLE :: CoolVolumeFlowRate ! Supply air volume flow rate during cooling operation
REAL(r64), DIMENSION(:), ALLOCATABLE :: CoolMassFlowRate ! Supply air mass flow rate during cooling operation
REAL(r64), DIMENSION(:), ALLOCATABLE :: HeatingSpeedRatio ! Fan speed ratio in heating mode
REAL(r64), DIMENSION(:), ALLOCATABLE :: CoolingSpeedRatio ! Fan speed ratio in cooling mode
LOGICAL :: CheckFanFlow = .TRUE. ! Supply airflow check
INTEGER :: LastMode = 0 ! MSHP operation mode
INTEGER :: HeatCoolMode = 0 ! System operating mode (0 = floating, 1 = cooling, 2 = heating)
INTEGER :: AirLoopNumber = 0 ! Air loop served by the engine driven heat pump system
INTEGER :: NumControlledZones = 0 ! Number of controlled zones for this system
INTEGER :: ZoneInletNode = 0 ! Zone inlet node number in the controlled zone
REAL(r64) :: CompPartLoadRatio =0.0d0 ! Compressor part load ratio
REAL(r64) :: FanPartLoadRatio =0.0d0 ! Fan part load ratio
REAL(r64) :: TotCoolEnergyRate =0.0d0 ! Total cooling enertgy rate
REAL(r64) :: TotHeatEnergyRate =0.0d0 ! Total heating enertgy rate
REAL(r64) :: SensCoolEnergyRate =0.0d0 ! Sensible cooling enertgy rate
REAL(r64) :: SensHeatEnergyRate =0.0d0 ! Sensible heating enertgy rate
REAL(r64) :: LatCoolEnergyRate =0.0d0 ! Latent cooling enertgy rate
REAL(r64) :: LatHeatEnergyRate =0.0d0 ! Latent heating enertgy rate
REAL(r64) :: ElecPower =0.0d0 ! Electric power (fan + supplemental electric coil)
REAL(r64) :: LoadMet =0.0d0 ! met system load
REAL(r64) :: HeatRecoveryRate =0.0d0 ! Heat recovery rate [W]
REAL(r64) :: HeatRecoveryInletTemp =0.0d0 ! Inlet temperature for heat recovery rate [C]
REAL(r64) :: HeatRecoveryOutletTemp =0.0d0 ! Outlet temperature for heat recovery rate [C]
REAL(r64) :: HeatRecoveryMassFlowRate=0.0d0 ! Mass flow rate for heat recovery rate [kg/s]
INTEGER :: AirFlowControl = 0 ! fan control mode, UseCompressorOnFlow or UseCompressorOffFlow
INTEGER :: ErrIndexCyc = 0 ! Error index at low speed
INTEGER :: ErrIndexVar = 0 ! Error index at high speed
REAL(r64) :: LoadLoss =0.0d0 ! Air distribution system loss
INTEGER :: SuppCoilAirInletNode =0 ! air inlet node number of supplemental heating coil
INTEGER :: SuppCoilAirOutletNode =0 ! air outlet node number of supplemental heating coil
INTEGER :: SuppHeatCoilType_Num =0 ! Numeric Equivalent for Supplemental Heat Coil Type
INTEGER :: SuppHeatCoilIndex =0 ! Index to supplemental heater
INTEGER :: SuppCoilControlNode =0 ! control node for simple water and steam heating coil
REAL(r64) :: MaxSuppCoilFluidFlow =0.0d0 ! water or steam mass flow rate for supplemental heating coil [kg/s]
INTEGER :: SuppCoilOutletNode =0 ! outlet node for hot water and steam supplemental heating coil
INTEGER :: CoilAirInletNode =0 ! air inlet node number of supplemental heating coil
INTEGER :: CoilControlNode =0 ! control node for simple water and steam heating coil
REAL(r64) :: MaxCoilFluidFlow =0.0d0 ! water or steam mass flow rate for supplemental heating coil [kg/s]
INTEGER :: CoilOutletNode =0 ! outlet node for hot water and steam supplemental heating coil
INTEGER :: HotWaterCoilControlNode =0
INTEGER :: HotWaterCoilOutletNode =0
CHARACTER(len=MaxNameLength) :: HotWaterCoilName =' '
INTEGER :: HotWaterCoilNum =0
INTEGER :: LoopNum =0 ! plant loop index for hot water and steam heating coil
INTEGER :: LoopSide =0 ! plant loop side index for hot water and steam heating coil
INTEGER :: BranchNum =0 ! plant loop branch index for water and steam heating coil
INTEGER :: CompNum =0 ! plant loop component index for hot water and steam heating coil
INTEGER :: SuppLoopNum =0 ! plant loop index for hot water and steam supplemental heating coil
INTEGER :: SuppLoopSide =0 ! plant loop side index for hot water and steam supplemental heating coil
INTEGER :: SuppBranchNum =0 ! plant loop branch index for water and steam supplemental heating coil
INTEGER :: SuppCompNum =0 ! plant loop component index for hot water and steam supplemental heating coil
INTEGER :: HotWaterLoopNum =0 ! plant loop index for hot water and steam heating coil
INTEGER :: HotWaterLoopSide =0 ! plant loop side index for hot water and steam heating coil
INTEGER :: HotWaterBranchNum =0 ! plant loop branch index for water and steam heating coil
INTEGER :: HotWaterCompNum =0 ! plant loop component index for hot water and steam heating coil
Integer :: HotWaterCoilMaxIterIndex =0 ! Index to recurring warning message
Integer :: HotWaterCoilMaxIterIndex2 =0 ! Index to recurring warning message
Integer :: StageNum =0 ! Stage number specified by staged thermostat
LOGICAL :: Staged = .FALSE. ! Using Staged thermostat
INTEGER :: CoolCountAvail =0 ! Counter used to minimize the occurrence of output warnings
INTEGER :: CoolIndexAvail =0 ! Index used to minimize the occurrence of output warnings
INTEGER :: HeatCountAvail =0 ! Counter used to minimize the occurrence of output warnings
INTEGER :: HeatIndexAvail =0 ! Index used to minimize the occurrence of output warnings
END TYPE MSHeatPumpData