SUBROUTINE SetupReportInput
! SUBROUTINE INFORMATION:
! AUTHOR Richard Raustad, FSEC
! DATE WRITTEN Oct/Nov 2004
! MODIFIED Hudson, ORNL July 2007, Stovall, ORNL, 2008 and 09
! MODIFIED Fricke, ORNL, Fall 2011, added transcritical CO2 refrigeration system variables
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Set up the report variables.
! METHODOLOGY EMPLOYED:
! REFERENCES:
! na
! USE STATEMENTS:
USE DataInterfaces
USE DataHeatBalance, ONLY: Zone, IntGainTypeOf_RefrigerationCase, &
IntGainTypeOf_RefrigerationSystemSuctionPipe, &
IntGainTypeOf_RefrigerationCompressorRack, &
IntGainTypeOf_RefrigerationSystemAirCooledCondenser, &
IntGainTypeOf_RefrigerationSecondaryReceiver, &
IntGainTypeOf_RefrigerationSecondaryPipe, &
IntGainTypeOf_RefrigerationWalkIn, &
IntGainTypeOf_RefrigerationTransSysAirCooledGasCooler, &
IntGainTypeOf_RefrigerationTransSysSuctionPipeMT, &
IntGainTypeOf_RefrigerationTransSysSuctionPipeLT
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
! LOGICAL, SAVE :: MyBeginEnvrnFlag = .TRUE.
! INTEGER :: SystemID
INTEGER :: CaseNum = 0
INTEGER :: CoilNum = 0
INTEGER :: SecondNum = 0
INTEGER :: WalkInNum = 0
INTEGER :: RackNum = 0
INTEGER :: RefrigSysNum = 0
INTEGER :: CompNum = 0
INTEGER :: CompIndex = 0
INTEGER :: CondNum = 0
INTEGER :: GCNum = 0
INTEGER :: SubcoolNum = 0
INTEGER :: ZoneID = 0
CHARACTER(len=MaxNameLength) :: Walkin_and_zone_name =' ' ! concat name for walk-in/zone credit reporting
IF(NumSimulationCases > 0) THEN
! Setup Report Variables for simulated Refrigerated Case (do not report unused cases)
! CurrentModuleObject='Refrigeration:Case'
DO CaseNum=1,NumSimulationCases
IF(RefrigCase(CaseNum)%NumSysAttach == 1) THEN
CALL SetupOutputVariable('Refrigeration Case Evaporator Total Cooling Rate [W]', &
RefrigCase(CaseNum)%TotalCoolingLoad,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Evaporator Total Cooling Energy [J]', &
RefrigCase(CaseNum)%TotalCoolingEnergy,'Zone','Sum',&
RefrigCase(CaseNum)%Name,ResourceTypeKey='ENERGYTRANSFER', &
EndUseKey='REFRIGERATION',GroupKey='Building',ZoneKey=RefrigCase(CaseNum)%ZoneName)
CALL SetupOutputVariable('Refrigeration Case Evaporator Sensible Cooling Rate [W]', &
RefrigCase(CaseNum)%SensCoolingEnergyRate,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Evaporator Sensible Cooling Energy [J]', &
RefrigCase(CaseNum)%SensCoolingEnergy,'Zone','Sum',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Evaporator Latent Cooling Rate [W]', &
RefrigCase(CaseNum)%LatCoolingEnergyRate,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Evaporator Latent Cooling Energy [J]', &
RefrigCase(CaseNum)%LatCoolingEnergy,'Zone','Sum',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Zone Sensible Cooling Rate [W]', &
RefrigCase(CaseNum)%SensZoneCreditCoolRate,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Zone Sensible Cooling Energy [J]', &
RefrigCase(CaseNum)%SensZoneCreditCool,'Zone','Sum',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Zone Sensible Heating Rate [W]', &
RefrigCase(CaseNum)%SensZoneCreditHeatRate,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Zone Sensible Heating Energy [J]', &
RefrigCase(CaseNum)%SensZoneCreditHeat,'Zone','Sum',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Zone Latent Rate [W]', &
RefrigCase(CaseNum)%LatZoneCreditRate,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Zone Latent Energy [J]', &
RefrigCase(CaseNum)%LatZoneCredit,'Zone','Sum',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Return Air Sensible Cooling Rate [W]', &
RefrigCase(CaseNum)%SensHVACCreditCoolRate,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Return Air Sensible Cooling Energy [J]', &
RefrigCase(CaseNum)%SensHVACCreditCool,'Zone','Sum',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Return Air Sensible Heating Rate [W]', &
RefrigCase(CaseNum)%SensHVACCreditHeatRate,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Return Air Sensible Heating Energy [J]', &
RefrigCase(CaseNum)%SensHVACCreditHeat,'Zone','Sum',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Return Air Latent Rate [W]', &
RefrigCase(CaseNum)%LatHVACCreditRate,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Return Air Latent Energy [J]', &
RefrigCase(CaseNum)%LatHVACCredit,'Zone','Sum',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Evaporator Fan Electric Power [W]', &
RefrigCase(CaseNum)%ElecFanPower,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Evaporator Fan Electric Energy [J]', &
RefrigCase(CaseNum)%ElecFanConsumption,'Zone','Sum',&
RefrigCase(CaseNum)%Name,ResourceTypeKey='ELECTRICITY', &
EndUseKey='REFRIGERATION',GroupKey='Building',ZoneKey=RefrigCase(CaseNum)%ZoneName, &
EndUseSubKey='General')
CALL SetupOutputVariable('Refrigeration Case Lighting Electric Power [W]', &
RefrigCase(CaseNum)%ElecLightingPower,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Lighting Electric Energy [J]', &
RefrigCase(CaseNum)%ElecLightingConsumption,'Zone','Sum',&
RefrigCase(CaseNum)%Name,ResourceTypeKey='ELECTRICITY', &
EndUseKey='REFRIGERATION',GroupKey='Building',ZoneKey=RefrigCase(CaseNum)%ZoneName, &
EndUseSubKey='General')
! Report defrost energy curve value only for cases having electric or hot-gas defrost with temperature termination
IF(RefrigCase(CaseNum)%DefrostType == DefElectricTerm .OR. &
RefrigCase(CaseNum)%DefrostType == DefHotFluidTerm )THEN
CALL SetupOutputVariable('Refrigeration Case Defrost Energy Correction Curve Value []', &
RefrigCase(CaseNum)%DefEnergyCurveValue,'Zone','Average',RefrigCase(CaseNum)%Name)
END IF
CALL SetupOutputVariable('Refrigeration Case Latent Credit Curve Value []', RefrigCase(CaseNum)%LatEnergyCurveValue, &
'Zone','Average',RefrigCase(CaseNum)%Name)
! Report only for cases having anti-sweat heaters
IF (RefrigCase(CaseNum)%AntiSweatControlType > ASNone) THEN
CALL SetupOutputVariable('Refrigeration Case Anti Sweat Electric Power [W]', &
RefrigCase(CaseNum)%ElecAntiSweatPower,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Anti Sweat Electric Energy [J]', &
RefrigCase(CaseNum)%ElecAntiSweatConsumption,'Zone','Sum',&
RefrigCase(CaseNum)%Name,ResourceTypeKey='ELECTRICITY', &
EndUseKey='REFRIGERATION',GroupKey='Building',ZoneKey=RefrigCase(CaseNum)%ZoneName, &
EndUseSubKey='General')
END IF
! Report only for cases using electric defrost
IF (RefrigCase(CaseNum)%DefrostType == DefElectric .OR. RefrigCase(CaseNum)%DefrostType == DefElectricOnDemand .OR. &
RefrigCase(CaseNum)%DefrostType == DefElectricTerm ) THEN
CALL SetupOutputVariable('Refrigeration Case Defrost Electric Power [W]', &
RefrigCase(CaseNum)%ElecDefrostPower,'Zone','Average',&
RefrigCase(CaseNum)%Name)
CALL SetupOutputVariable('Refrigeration Case Defrost Electric Energy [J]', &
RefrigCase(CaseNum)%ElecDefrostConsumption,'Zone','Sum',&
RefrigCase(CaseNum)%Name,ResourceTypeKey='ELECTRICITY', &
EndUseKey='REFRIGERATION',GroupKey='Building',ZoneKey=RefrigCase(CaseNum)%ZoneName, &
EndUseSubKey='General')
END IF
!register refrigeration case credits as internal gains
IF (RefrigCase(CaseNum)%ActualZoneNum > 0) THEN
CALL SetupZoneInternalGain(RefrigCase(CaseNum)%ActualZoneNum, &
'Refrigeration:Case', &
RefrigCase(CaseNum)%Name , &
IntGainTypeOf_RefrigerationCase, &
ConvectionGainRate = RefrigCase(CaseNum)%SensZoneCreditRate , &
ReturnAirConvectionGainRate = RefrigCase(CaseNum)%SensHVACCreditRate , &
LatentGainRate = RefrigCase(CaseNum)%LatZoneCreditRate , &
ReturnAirLatentGainRate = RefrigCase(CaseNum)%LatHVACCreditRate )
ENDIF
END IF !END IF (.NOT. RefrigCase(CaseNum)%unusedCase)
END DO
END IF !NumSimulationCases > 0
IF(NumSimulationWalkIns > 0) THEN
! Setup Report Variables for simulated Walk In (do not report unused WalkIns)
! CurrentModuleObject='Refrigeration:WalkIn'
DO WalkInNum=1,NumSimulationWalkIns
IF( WalkIn( WalkInNum)%NumSysAttach == 1) THEN !ensure no unuseds reported
CALL SetupOutputVariable('Refrigeration Walk In Evaporator Total Cooling Rate [W]', &
WalkIn( WalkInNum)%TotalCoolingLoad,'Zone','Average',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Evaporator Total Cooling Energy [J]', &
WalkIn( WalkInNum)%TotalCoolingEnergy,'Zone','Sum',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Evaporator Sensible Cooling Rate [W]', &
WalkIn( WalkInNum)%TotSensCoolingEnergyRate,'Zone','Average',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Evaporator Sensible Cooling Energy [J]', &
WalkIn( WalkInNum)%TotSensCoolingEnergy,'Zone','Sum',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Evaporator Latent Cooling Rate [W]', &
WalkIn( WalkInNum)%TotLatCoolingEnergyRate,'Zone','Average',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Evaporator Latent Cooling Energy [J]', &
WalkIn( WalkInNum)%TotLatCoolingEnergy,'Zone','Sum',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Ancillary Electric Power [W]', &
WalkIn( WalkInNum)%TotalElecPower,'Zone','Average',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Ancillary Electric Energy [J]', &
WalkIn( WalkInNum)%TotalElecConsumption,'Zone','Sum',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Fan Electric Power [W]', &
WalkIn( WalkInNum)%ElecFanPower,'Zone','Average',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Fan Electric Energy [J]', &
WalkIn( WalkInNum)%ElecFanConsumption,'Zone','Sum',&
WalkIn( WalkInNum)%Name,ResourceTypeKey='ELECTRICITY', &
EndUseKey='REFRIGERATION',GroupKey='Building', &
EndUseSubKey='General')
CALL SetupOutputVariable('Refrigeration Walk In Lighting Electric Power [W]', &
WalkIn( WalkInNum)%ElecLightingPower,'Zone','Average',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Lighting Electric Energy [J]', &
WalkIn( WalkInNum)%ElecLightingConsumption,'Zone','Sum',&
WalkIn( WalkInNum)%Name,ResourceTypeKey='ELECTRICITY', &
EndUseKey='REFRIGERATION',GroupKey='Building', &
EndUseSubKey='General')
CALL SetupOutputVariable('Refrigeration Walk In Heater Electric Power [W]', &
WalkIn( WalkInNum)%ElecHeaterPower,'Zone','Average',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Heater Electric Energy [J]', &
WalkIn( WalkInNum)%ElecHeaterConsumption,'Zone','Sum',&
WalkIn( WalkInNum)%Name,ResourceTypeKey='ELECTRICITY', &
EndUseKey='REFRIGERATION',GroupKey='Building', &
EndUseSubKey='General')
! Report only for WalkIns using electric defrost
IF ( WalkIn( WalkInNum)%DefrostType == WalkInDefrostElec) THEN
CALL SetupOutputVariable('Refrigeration Walk In Defrost Electric Power [W]', &
WalkIn( WalkInNum)%ElecDefrostPower,'Zone','Average',&
WalkIn( WalkInNum)%Name)
CALL SetupOutputVariable('Refrigeration Walk In Defrost Electric Energy [J]', &
WalkIn( WalkInNum)%ElecDefrostConsumption,'Zone','Sum',&
WalkIn( WalkInNum)%Name,ResourceTypeKey='ELECTRICITY', &
EndUseKey='REFRIGERATION',GroupKey='Building', &
EndUseSubKey='General')
END IF
! Report walkin variables that are specified for each zone exposed to the walkin
! For "IDOut" variable in SetupOutputVariable, need to create a single name that includes
! both the walk-in name and the zone name - see "Walkin_and_zone_name" concatination
! This new variable name is important if using an rvi file!
DO ZoneID = 1,WalkIn(WalkInNum)%NumZones
Walkin_and_zone_name = TRIM(WalkIn(WalkInNum)%Name)//'InZone'//TRIM(WalkIn(WalkInNum)%ZoneName(ZoneID))
CALL SetupOutputVariable('Refrigeration Walk In Zone Sensible Cooling Rate [W]', &
WalkIn( WalkInNum)%SensZoneCreditCoolRate(ZoneID),'Zone','Average',&
Walkin_and_zone_name)
CALL SetupOutputVariable('Refrigeration Walk In Zone Sensible Cooling Energy [J]', &
WalkIn( WalkInNum)%SensZoneCreditCool(ZoneID),'Zone','Sum',&
Walkin_and_zone_name)
CALL SetupOutputVariable('Refrigeration Walk In Zone Sensible Heating Rate [W]', &
WalkIn( WalkInNum)%SensZoneCreditHeatRate(ZoneID),'Zone','Average',&
Walkin_and_zone_name)
CALL SetupOutputVariable('Refrigeration Walk In Zone Sensible Heating Energy [J]', &
WalkIn( WalkInNum)%SensZoneCreditHeat(ZoneID),'Zone','Sum',&
Walkin_and_zone_name)
CALL SetupOutputVariable('Refrigeration Walk In Zone Latent Rate [W]', &
WalkIn( WalkInNum)%LatZoneCreditRate(ZoneID),'Zone','Average',&
Walkin_and_zone_name)
CALL SetupOutputVariable('Refrigeration Walk In Zone Latent Energy [J]', &
WalkIn( WalkInNum)%LatZoneCredit(ZoneID),'Zone','Sum',&
Walkin_and_zone_name)
IF(WalkIn(WalkInNum)%ZoneNum(ZoneID) > 0)&
CALL SetupZoneInternalGain(WalkIn(WalkInNum)%ZoneNum(ZoneID) , &
'Refrigeration:WalkIn', &
Walkin_and_zone_name , &
IntGainTypeOf_RefrigerationWalkIn, &
ConvectionGainRate = WalkIn(WalkInNum)%SensZoneCreditRate(ZoneID), &
LatentGainRate = WalkIn(WalkInNum)%LatZoneCreditRate(ZoneID) )
END DO ! ZoneID
END IF !(.NOT. WalkIn( WalkInNum)%unusedWalkIn)
END DO ! NumSimulationWalkIns
END IF ! NumSimulationWalkIns > 0
IF(NumSimulationRefrigAirChillers > 0) THEN
! Setup Report Variables for simulated Warehouse coils (do not report unused warehouse coils)
! CurrentModuleObject='Refrigeration:AirChiller'
DO CoilNum=1,NumSimulationRefrigAirChillers
IF( WarehouseCoil(CoilNum)%NumSysAttach == 1) THEN !ensure no unuseds reported
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Total Cooling Rate [W]', &
WarehouseCoil(CoilNum)%TotalCoolingLoad,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Total Cooling Energy [J]', &
WarehouseCoil(CoilNum)%TotalCoolingEnergy,'HVAC','Sum',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Sensible Cooling Rate [W]', &
WarehouseCoil(CoilNum)%SensCoolingEnergyRate,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Sensible Cooling Energy [J]', &
WarehouseCoil(CoilNum)%SensCoolingEnergy,'HVAC','Sum',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Latent Cooling Rate [W]', &
WarehouseCoil(CoilNum)%LatCreditRate,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Latent Cooling Energy [J]', &
WarehouseCoil(CoilNum)%LatCreditEnergy,'HVAC','Sum',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Water Removed Mass Flow Rate [kg/s]', &
WarehouseCoil(CoilNum)%LatKgPerS_ToZone,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Total Electric Power [W]', &
WarehouseCoil(CoilNum)%TotalElecPower,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Total Electric Energy [J]', &
WarehouseCoil(CoilNum)%TotalElecConsumption,'HVAC','Sum',&
WarehouseCoil(CoilNum)%Name) !components are metered seperately
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Fan Electric Power [W]', &
WarehouseCoil(CoilNum)%ElecFanPower,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Fan Electric Energy [J]', &
WarehouseCoil(CoilNum)%ElecFanConsumption,'HVAC','Sum',&
WarehouseCoil(CoilNum)%Name,ResourceTypeKey='ELECTRICITY', &
EndUseKey='REFRIGERATION',GroupKey='Building', &
EndUseSubKey='General')
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Heater Electric Power [W]', &
WarehouseCoil(CoilNum)%ElecHeaterPower,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Heater Electric Energy [J]', &
WarehouseCoil(CoilNum)%ElecHeaterConsumption,'HVAC','Sum',&
WarehouseCoil(CoilNum)%Name,ResourceTypeKey='ELECTRICITY', &
EndUseKey='REFRIGERATION',GroupKey='Building', &
EndUseSubKey='General')
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Sensible Heat Ratio []', &
WarehouseCoil(CoilNum)%SensHeatRatio,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Frost Accumulation Mass [Kg]', &
WarehouseCoil(CoilNum)%KgFrost,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Zone Total Cooling Rate [W]', &
WarehouseCoil(CoilNum)%ReportTotalCoolCreditRate,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Zone Total Cooling Energy [J]', &
WarehouseCoil(CoilNum)%ReportTotalCoolCreditEnergy,'HVAC','Sum',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Zone Sensible Cooling Rate [W]', &
WarehouseCoil(CoilNum)%ReportSensCoolCreditRate,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Zone Sensible Cooling Energy [J]', &
WarehouseCoil(CoilNum)%ReportSensCoolCreditEnergy,'HVAC','Sum',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Zone Heating Rate [W]', &
WarehouseCoil(CoilNum)%ReportHeatingCreditRate,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Zone Heating Energy [J]', &
WarehouseCoil(CoilNum)%ReportHeatingCreditEnergy,'HVAC','Sum',&
WarehouseCoil(CoilNum)%Name)
! Report only for Warehouse coils using electric defrost
IF ( WarehouseCoil(CoilNum)%DefrostType == DefrostElec) THEN
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Defrost Electric Power [W]', &
WarehouseCoil(CoilNum)%ElecDefrostPower,'HVAC','Average',&
WarehouseCoil(CoilNum)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Defrost Electric Energy [J]', &
WarehouseCoil(CoilNum)%ElecDefrostConsumption,'HVAC','Sum',&
WarehouseCoil(CoilNum)%Name,ResourceTypeKey='ELECTRICITY', &
EndUseKey='REFRIGERATION',GroupKey='Building', &
EndUseSubKey='General')
END IF ! electric defrost coil
END IF !(.NOT. WarehouseCoil(CoilNum)%unusedWarehouseCoil)
END DO ! NumSimulationWarehouseCoils
END IF ! NumSimulationRefrigAirChillers > 0
!There are no report variables for Chiller sets because they are
! used to pass the demand to the coils, but are NOT used to provide the
! cooling energy to the zone (because more than one set may cool a zone)
! Report sum of all refrigeration interactions with each zone
DO ZoneID = 1,NumOfZones
IF (RefrigPresentInZone(ZoneID))THEN
IF(HaveCasesOrWalkins)THEN
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Total Sensible Cooling Rate [W]', &
RefrigCaseCredit(ZoneID)%SenCaseCreditToZone,'Zone','Average', &
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Total Sensible Cooling Energy [J]', &
CaseWIZoneReport(ZoneID)%SenCaseCreditToZoneEnergy,'Zone','Sum',&
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Heating Rate [W]', &
CaseWIZoneReport(ZoneID)%HeatingToZoneRate,'Zone','Average', &
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Heating Energy [J]', &
CaseWIZoneReport(ZoneID)%HeatingToZoneEnergy,'Zone','Sum',&
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Sensible Cooling Rate [W]', &
CaseWIZoneReport(ZoneID)%SenCoolingToZoneRate,'Zone','Average', &
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Sensible Cooling Energy [J]', &
CaseWIZoneReport(ZoneID)%SenCoolingToZoneEnergy,'Zone','Sum',&
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Total Latent Cooling Rate [W]', &
CaseWIZoneReport(ZoneID)%LatCoolingToZoneRate,'Zone','Average',&
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Total Latent Cooling Energy [J]', &
CaseWIZoneReport(ZoneID)%LatCoolingToZoneEnergy,'Zone','Sum',&
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Total Cooling Rate [W]', &
CaseWIZoneReport(ZoneID)%TotCoolingToZoneRate,'Zone','Average',&
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Total Cooling Energy [J]', &
CaseWIZoneReport(ZoneID)%TotCoolingToZoneEnergy,'Zone','Sum',&
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Total Heat Transfer Rate [W]', &
CaseWIZoneReport(ZoneID)%TotHtXferToZoneRate,'Zone','Average',&
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Case and Walk In Total Heat Transfer Energy [J]', &
CaseWIZoneReport(ZoneID)%TotHtXferToZoneEnergy,'Zone','Sum',&
Zone(ZoneID)%Name)
END IF !HaveCasesOrWalkIns
IF(HaveChillers)THEN
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Sensible Heat Transfer Rate [W]', &
CoilSysCredit(ZoneID)%SenCreditToZoneRate,'HVAC','Average', &
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Sensible Heat Transfer Energy [J]', &
CoilSysCredit(ZoneID)%SenCreditToZoneEnergy,'HVAC','Sum',Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Sensible Cooling Rate [W]', &
CoilSysCredit(ZoneID)%ReportSenCoolingToZoneRate,'HVAC','Average', &
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Sensible Cooling Energy [J]', &
CoilSysCredit(ZoneID)%ReportSenCoolingToZoneEnergy,'HVAC','Sum',Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Latent Cooling Rate [W]', &
CoilSysCredit(ZoneID)%ReportLatCreditToZoneRate,'HVAC','Average',Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Latent Cooling Energy [J]', &
CoilSysCredit(ZoneID)%ReportLatCreditToZoneEnergy,'HVAC','Sum',Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Water Removed Mass Flow Rate [Kg/s]', &
CoilSysCredit(ZoneID)%ReportH20RemovedKgPerS_FromZoneRate,'HVAC','Average',Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Total Cooling Rate [W]', &
CoilSysCredit(ZoneID)%ReportTotCoolingToZoneRate,'HVAC','Average',Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Total Cooling Energy [J]', &
CoilSysCredit(ZoneID)%ReportTotCoolingToZoneEnergy,'HVAC','Sum',Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Heating Rate [W]', &
CoilSysCredit(ZoneID)%ReportHeatingToZoneRate,'HVAC','Average', &
Zone(ZoneID)%Name)
CALL SetupOutputVariable('Refrigeration Zone Air Chiller Heating Energy [J]', &
CoilSysCredit(ZoneID)%ReportHeatingToZoneEnergy,'HVAC','Sum',Zone(ZoneID)%Name)
END IF !HaveChillers
END IF !RefrigPresentInZone(ZoneID)
END DO ! ZoneID
IF(NumSimulationSecondarySystems > 0)THEN
! CurrentModuleObject='Refrigeration:SecondarySystem'
DO SecondNum=1,NumSimulationSecondarySystems
IF(Secondary(SecondNum)%NumSysAttach == 1) THEN
IF(Secondary(SecondNum)%CoilFlag) THEN !secondary system serves chillers and is solved on HVAC time step
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Pump Electric Power [W]', &
Secondary(SecondNum)%PumpPowerTotal,'HVAC','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Pump Electric Energy [J]', &
Secondary(SecondNum)%PumpElecEnergyTotal,'HVAC','Sum',&
Secondary(SecondNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Secondary(SecondNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Load Heat Transfer Rate [W]', &
Secondary(SecondNum)%TotalRefrigLoad,'HVAC','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Load Heat Transfer Energy [J]', &
Secondary(SecondNum)%TotalRefrigEnergy,'HVAC','Sum',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Total Heat Transfer Rate [W]', &
Secondary(SecondNum)%TotalCoolingLoad,'HVAC','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Total Heat Transfer Energy [J]', &
Secondary(SecondNum)%TotalCoolingEnergy,'HVAC','Sum',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Estimated Refrigerant Inventory Mass [kg]', &
Secondary(SecondNum)%RefInventory,'HVAC','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Volume Flow Rate [m3/s]', &
Secondary(SecondNum)%FlowVolActual,'HVAC','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Pipe Heat Gain Rate [W]', &
Secondary(SecondNum)%DistPipeHeatGain,'HVAC','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Pipe Heat Gain Energy [J]', &
Secondary(SecondNum)%DistPipeHeatGainEnergy,'HVAC','Sum',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Receiver Heat Gain Rate [W]', &
Secondary(SecondNum)%ReceiverHeatGain,'HVAC','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Secondary Loop Receiver Heat Gain Energy [J]', &
Secondary(SecondNum)%ReceiverHeatGainEnergy,'HVAC','Sum',&
Secondary(SecondNum)%Name)
ELSE !Secondary loop serves cases and walk-ins on zone(load) time step
CALL SetupOutputVariable('Refrigeration Secondary Loop Pump Electric Power [W]', &
Secondary(SecondNum)%PumpPowerTotal,'Zone','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Secondary Loop Pump Electric Energy [J]', &
Secondary(SecondNum)%PumpElecEnergyTotal,'Zone','Sum',&
Secondary(SecondNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Secondary(SecondNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Secondary Loop Load Heat Transfer Rate [W]', &
Secondary(SecondNum)%TotalRefrigLoad,'Zone','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Secondary Loop Load Heat Transfer Energy [J]', &
Secondary(SecondNum)%TotalRefrigEnergy,'Zone','Sum',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Secondary Loop Total Heat Transfer Rate [W]', &
Secondary(SecondNum)%TotalCoolingLoad,'Zone','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Secondary Loop Total Heat Transfer Energy [J]', &
Secondary(SecondNum)%TotalCoolingEnergy,'Zone','Sum',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Secondary Loop Estimated Refrigerant Inventory Mass [kg]', &
Secondary(SecondNum)%RefInventory,'Zone','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Secondary Loop Volume Flow Rate [m3/s]', &
Secondary(SecondNum)%FlowVolActual,'Zone','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Secondary Loop Pipe Heat Gain Rate [W]', &
Secondary(SecondNum)%DistPipeHeatGain,'Zone','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Secondary Loop Pipe Heat Gain Energy [J]', &
Secondary(SecondNum)%DistPipeHeatGainEnergy,'Zone','Sum',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Secondary Loop Receiver Heat Gain Rate [W]', &
Secondary(SecondNum)%ReceiverHeatGain,'Zone','Average',&
Secondary(SecondNum)%Name)
CALL SetupOutputVariable('Refrigeration Secondary Loop Receiver Heat Gain Energy [J]', &
Secondary(SecondNum)%ReceiverHeatGainEnergy,'Zone','Sum',&
Secondary(SecondNum)%Name)
END IF !NOT coilflag so on Zone timestep
IF (Secondary(SecondNum)%ReceiverZoneNum > 0) THEN
CALL SetupZoneInternalGain(Secondary(SecondNum)%ReceiverZoneNum, &
'Refrigeration:SecondarySystem:Receiver', &
Secondary(SecondNum)%Name , &
IntGainTypeOf_RefrigerationSecondaryReceiver, &
ConvectionGainRate = Secondary(SecondNum)%ReceiverZoneHeatGain )
ENDIF
IF (Secondary(SecondNum)%DistPipeZoneNum > 0 ) THEN
CALL SetupZoneInternalGain(Secondary(SecondNum)%DistPipeZoneNum, &
'Refrigeration:SecondarySystem:Pipe', &
Secondary(SecondNum)%Name , &
IntGainTypeOf_RefrigerationSecondaryPipe, &
ConvectionGainRate = Secondary(SecondNum)%DistPipeZoneHeatGain )
ENDIF
END IF ! not an unused
END DO ! NumSimulationSecondarySystems
END IF ! NumSimulationSecondarySystems > 0
! Setup Report Variables for Refrigeration Compressor Rack
IF(NumRefrigeratedRacks > 0) THEN
! CurrentModuleObject='Refrigeration:CompressorRack'
DO RackNum=1,NumRefrigeratedRacks
IF(RefrigRack(RackNum)%CoilFlag) THEN !rack serves chillers and is solved on HVAC time step
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Electric Power [W]', &
RefrigRack(RackNum)%RackCompressorPower,'HVAC','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Electric Energy [J]', &
RefrigRack(RackNum)%RackElecConsumption,'HVAC','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Condenser Fan Electric Power [W]', &
RefrigRack(RackNum)%ActualCondenserFanPower,'HVAC','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Condenser Fan Electric Energy [J]', &
RefrigRack(RackNum)%CondenserFanConsumption,'HVAC','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Total Heat Transfer Rate [W]', &
RefrigRack(RackNum)%RackCapacity,'HVAC','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Total Heat Transfer Energy [J]', &
RefrigRack(RackNum)%RackCoolingEnergy,'HVAC','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='ENERGYTRANSFER',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack COP [W/W]', RefrigRack(RackNum)%RackCompressorCOP, &
'HVAC','Average',RefrigRack(RackNum)%Name)
IF(RefrigRack(RackNum)%CondenserType==RefrigCondenserTypeEvap) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Evaporative Condenser Pump Electric Power [W]', &
RefrigRack(RackNum)%ActualEvapPumpPower,'HVAC','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Evaporative Condenser Pump Electric Energy [J]', &
RefrigRack(RackNum)%EvapPumpConsumption,'HVAC','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Evaporative Condenser Basin Heater Electric Power [W]',&
RefrigRack(RackNum)%BasinHeaterPower,'HVAC','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Evaporative Condenser '// &
'Basin Heater Electric Energy [J]', &
RefrigRack(RackNum)%BasinHeaterConsumption,'HVAC','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Evaporative Condenser Water Volume Flow Rate [m3/s]', &
RefrigRack(RackNum)%EvapWaterConsumpRate,'HVAC','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Evaporative Condenser Water Volume [m3]', &
RefrigRack(RackNum)%EvapWaterConsumption,'HVAC','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='Water',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
END IF !Evap condenser
IF(RefrigRack(RackNum)%HeatRejectionLocation == LocationZone) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Zone Sensible Heating Rate [W]', &
RefrigRack(RackNum)%SensZoneCreditHeatRate,'HVAC','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Zone Sensible Heating Energy [J]', &
RefrigRack(RackNum)%SensZoneCreditHeat,'HVAC','Sum',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Return Air Sensible Heating Rate [W]', &
RefrigRack(RackNum)%SensHVACCreditHeatRate,'HVAC','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller Compressor Rack Return Air Sensible Heating Energy [J]', &
RefrigRack(RackNum)%SensHVACCreditHeat,'HVAC','Sum',&
RefrigRack(RackNum)%Name)
CALL SetupZoneInternalGain(RefrigCase(RefrigRack(RackNum)%CaseNum(1))%ActualZoneNum, &
'Refrigeration:CompressorRack', &
RefrigRack(RackNum)%Name , &
IntGainTypeOf_RefrigerationCompressorRack, &
ConvectionGainRate = RefrigRack(RackNum)%SensZoneCreditHeatRate , &
ReturnAirConvectionGainRate = RefrigRack(RackNum)%SensHVACCreditHeatRate )
END IF !LocationZone
ELSE ! Rack serves cases and walkins on zone (load) time step
CALL SetupOutputVariable('Refrigeration Compressor Rack Electric Power [W]', &
RefrigRack(RackNum)%RackCompressorPower,'Zone','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Rack Electric Energy [J]', &
RefrigRack(RackNum)%RackElecConsumption,'Zone','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Compressor Rack Condenser Fan Electric Power [W]', &
RefrigRack(RackNum)%ActualCondenserFanPower,'Zone','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Rack Condenser Fan Electric Energy [J]', &
RefrigRack(RackNum)%CondenserFanConsumption,'Zone','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Compressor Rack Total Heat Transfer Rate [W]', &
RefrigRack(RackNum)%RackCapacity,'Zone','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Rack Total Heat Transfer Energy [J]', &
RefrigRack(RackNum)%RackCoolingEnergy,'Zone','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='ENERGYTRANSFER',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Compressor Rack COP [W/W]', RefrigRack(RackNum)%RackCompressorCOP, &
'Zone','Average',RefrigRack(RackNum)%Name)
IF(RefrigRack(RackNum)%CondenserType==RefrigCondenserTypeEvap) THEN
CALL SetupOutputVariable('Refrigeration Compressor Rack Evaporative Condenser Pump Electric Power [W]', &
RefrigRack(RackNum)%ActualEvapPumpPower,'Zone','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Rack Evaporative Condenser Pump Electric Energy [J]', &
RefrigRack(RackNum)%EvapPumpConsumption,'Zone','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Compressor Rack Evaporative Condenser Basin Heater Electric Power [W]', &
RefrigRack(RackNum)%BasinHeaterPower,'Zone','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Rack Evaporative Condenser Basin Heater Electric Energy [J]', &
RefrigRack(RackNum)%BasinHeaterConsumption,'Zone','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Compressor Rack Evaporative Condenser Water Volume Flow Rate [m3/s]', &
RefrigRack(RackNum)%EvapWaterConsumpRate,'Zone','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Rack Evaporative Condenser Water Volume [m3]', &
RefrigRack(RackNum)%EvapWaterConsumption,'Zone','Sum',&
RefrigRack(RackNum)%Name, &
ResourceTypeKey='Water',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=RefrigRack(RackNum)%EndUseSubcategory)
END IF !condenser evap
IF(RefrigRack(RackNum)%HeatRejectionLocation == LocationZone) THEN
CALL SetupOutputVariable('Refrigeration Compressor Rack Zone Sensible Heating Rate [W]', &
RefrigRack(RackNum)%SensZoneCreditHeatRate,'Zone','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Rack Zone Sensible Heating Energy [J]', &
RefrigRack(RackNum)%SensZoneCreditHeat,'Zone','Sum',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Rack Return Air Sensible Heating Rate [W]', &
RefrigRack(RackNum)%SensHVACCreditHeatRate,'Zone','Average',&
RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Rack Return Air Sensible Heating Energy [J]', &
RefrigRack(RackNum)%SensHVACCreditHeat,'Zone','Sum',&
RefrigRack(RackNum)%Name)
CALL SetupZoneInternalGain(RefrigCase(RefrigRack(RackNum)%CaseNum(1))%ActualZoneNum, &
'Refrigeration:CompressorRack', &
RefrigRack(RackNum)%Name , &
IntGainTypeOf_RefrigerationCompressorRack, &
ConvectionGainRate = RefrigRack(RackNum)%SensZoneCreditHeatRate , &
ReturnAirConvectionGainRate = RefrigRack(RackNum)%SensHVACCreditHeatRate )
END IF !location zone
END IF ! Serves coils or case/walkin loads
IF(RefrigRack(RackNum)%CondenserType==RefrigCondenserTypeWater) THEN !on HVAC time step no matter what
CALL SetupOutputVariable('Refrigeration Compressor Rack Condenser Mass Flow Rate [kg/s]', &
RefrigRack(RackNum)%MassFlowRate, 'HVAC','Average',RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Rack Condenser Heat Transfer Rate [W]', &
RefrigRack(RackNum)%CondLoad, 'HVAC','Average',RefrigRack(RackNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Rack Condenser Heat Transfer Energy [J]', &
RefrigRack(RackNum)%CondEnergy, 'HVAC','Sum',RefrigRack(RackNum)%Name, &
ResourceTypeKey='ENERGYTRANSFER',EndUseKey='Heating',GroupKey='Plant')
END IF !Condenser cooling water
END DO !Refrigerated Racks
END IF !NumRefrigeratedRacks > 0
IF(NumRefrigSystems > 0)THEN
! CurrentModuleObject='Refrigeration:System'
DO RefrigSysNum=1,NumRefrigSystems
IF(System(RefrigSysNum)%CoilFlag) THEN !system serves chillers and is solved on HVAC time step
IF (System(RefrigSysNum)%NumStages == 1) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Compressor Electric Power [W]', &
System(RefrigSysNum)%TotCompPower,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Compressor Electric Energy [J]', &
System(RefrigSysNum)%TotCompElecConsump,'HVAC','Sum',&
System(RefrigSysNum)%Name)
ELSE IF (System(RefrigSysNum)%NumStages == 2) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Low Stage Compressor Electric Power [W]', &
System(RefrigSysNum)%TotCompPower,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Low Stage Compressor Electric Energy [J]', &
System(RefrigSysNum)%TotCompElecConsump,'HVAC','Sum',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total High Stage Compressor Electric Power [W]', &
System(RefrigSysNum)%TotHiStageCompPower,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total High Stage Compressor Electric Energy [J]', &
System(RefrigSysNum)%TotHiStageCompElecConsump,'HVAC','Sum',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Low and High Stage Compressor Electric Energy [J]', &
System(RefrigSysNum)%TotCompElecConsumpTwoStage,'HVAC','Sum',&
System(RefrigSysNum)%Name)
END IF ! NumStages
CALL SetupOutputVariable('Refrigeration Air Chiller System Average Compressor COP [W/W]', &
System(RefrigSysNum)%AverageCompressorCOP,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Air Chiller Heat Transfer Rate [W]', &
System(RefrigSysNum)%TotalCoolingLoad,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Case and Walk In Heat Transfer Energy [J]', &
System(RefrigSysNum)%TotalCoolingEnergy,'HVAC','Sum',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Transferred Load Heat Transfer Rate [W]', &
System(RefrigSysNum)%TotTransferLoad,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Transferred Load Heat Transfer Energy [J]', &
System(RefrigSysNum)%TotTransferEnergy,'HVAC','Sum',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Suction Pipe Heat Gain Rate [W]', &
System(RefrigSysNum)%PipeHeatLoad,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Suction Pipe Heat Gain Energy [J]', &
System(RefrigSysNum)%PipeHeatEnergy,'HVAC','Sum',&
System(RefrigSysNum)%Name)
IF (System(RefrigSysNum)%NumStages == 1) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Compressor Heat Transfer Rate [W]', &
System(RefrigSysNum)%TotCompCapacity,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Compressor Heat Transfer Energy [J]', &
System(RefrigSysNum)%TotCompCoolingEnergy,'HVAC','Sum',&
System(RefrigSysNum)%Name) !indiv compressors go to meter, not system sum
ELSE IF (System(RefrigSysNum)%NumStages == 2) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Low Stage Compressor Heat Transfer Rate [W]', &
System(RefrigSysNum)%TotCompCapacity,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total Low Stage Compressor Heat Transfer Energy [J]', &
System(RefrigSysNum)%TotCompCoolingEnergy,'HVAC','Sum',&
System(RefrigSysNum)%Name) !indiv compressors go to meter, not system sum
CALL SetupOutputVariable('Refrigeration Air Chiller System Total High Stage Compressor Heat Transfer Rate [W]', &
System(RefrigSysNum)%TotHiStageCompCapacity,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Total High Stage Compressor Heat Transfer Energy [J]', &
System(RefrigSysNum)%TotHiStageCompCoolingEnergy,'HVAC','Sum',&
System(RefrigSysNum)%Name) !indiv compressors go to meter, not system sum
END IF ! NumStages
CALL SetupOutputVariable('Refrigeration Air Chiller System Net Rejected Heat Transfer Rate [W]', &
System(RefrigSysNum)%NetHeatRejectLoad,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Net Rejected Heat Transfer Energy [J]', &
System(RefrigSysNum)%NetHeatRejectEnergy,'HVAC','Sum',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Estimated Refrigerant Inventory Mass [kg]', &
System(RefrigSysNum)%RefInventory,'HVAC','Average',&
System(RefrigSysNum)%Name)
IF (System(RefrigSysNum)%NumStages == 1) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Estimated Refrigerant Mass Flow Rate [kg/s]', &
System(RefrigSysNum)%RefMassFlowComps,'HVAC','Average',&
System(RefrigSysNum)%Name)
ELSE IF (System(RefrigSysNum)%NumStages == 2) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Estimated Low Stage Refrigerant Mass Flow Rate [kg/s]', &
System(RefrigSysNum)%RefMassFlowComps,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Estimated High Stage Refrigerant Mass Flow Rate [kg/s]', &
System(RefrigSysNum)%RefMassFlowHiStageComps,'HVAC','Average',&
System(RefrigSysNum)%Name)
END IF ! NumStages
IF(System(RefrigSysNum)%NumStages == 2) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Intercooler Temperature [C]', &
System(RefrigSysNum)%TIntercooler,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Intercooler Pressure [Pa]', &
System(RefrigSysNum)%PIntercooler,'HVAC','Average',&
System(RefrigSysNum)%Name)
END IF
CALL SetupOutputVariable('Refrigeration Air Chiller System Condensing Temperature [C]', &
System(RefrigSysNum)%TCondense,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Evaporating Temperature [C]', &
System(RefrigSysNum)%TEvapNeeded,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Suction Temperature [C]', &
System(RefrigSysNum)%TCompIn,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System TXV Liquid Temperature [C]', &
System(RefrigSysNum)%TLiqInActual,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Liquid Suction Subcooler Heat Transfer Rate [W]', &
System(RefrigSysNum)%LSHXTrans,'HVAC','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Liquid Suction Subcooler Heat Transfer Energy [J]', &
System(RefrigSysNum)%LSHXTransEnergy,'HVAC','Sum',&
System(RefrigSysNum)%Name)
ELSE ! NOT System(SysNum)%CoilFlag, so serving loads on zone timestep
IF (System(RefrigSysNum)%NumStages == 1) THEN
CALL SetupOutputVariable('Refrigeration System Total Compressor Electric Power [W]', &
System(RefrigSysNum)%TotCompPower,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total Compressor Electric Energy [J]', &
System(RefrigSysNum)%TotCompElecConsump,'Zone','Sum',&
System(RefrigSysNum)%Name)
ELSE IF (System(RefrigSysNum)%NumStages == 2)THEN
CALL SetupOutputVariable('Refrigeration System Total Low Stage Compressor Electric Power [W]', &
System(RefrigSysNum)%TotCompPower,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total Low Stage Compressor Electric Energy [J]', &
System(RefrigSysNum)%TotCompElecConsump,'Zone','Sum',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total High Stage Compressor Electric Power [W]', &
System(RefrigSysNum)%TotHiStageCompPower,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total High Stage Compressor Electric Energy [J]', &
System(RefrigSysNum)%TotHiStageCompElecConsump,'Zone','Sum',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total Low and High Stage Compressor Electric Energy [J]', &
System(RefrigSysNum)%TotCompElecConsumpTwoStage,'Zone','Sum',&
System(RefrigSysNum)%Name)
END IF ! NumStages
CALL SetupOutputVariable('Refrigeration System Average Compressor COP [W/W]', &
System(RefrigSysNum)%AverageCompressorCOP,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total Cases and Walk Ins Heat Transfer Rate [W]', &
System(RefrigSysNum)%TotalCoolingLoad,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total Cases and Walk Ins Heat Transfer Energy [J]', &
System(RefrigSysNum)%TotalCoolingEnergy,'Zone','Sum',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total Transferred Load Heat Transfer Rate [W]', &
System(RefrigSysNum)%TotTransferLoad,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total Transferred Load Heat Transfer Energy [J]', &
System(RefrigSysNum)%TotTransferEnergy,'Zone','Sum',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total Suction Pipe Heat Gain Rate [W]', &
System(RefrigSysNum)%PipeHeatLoad,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total Suction Pipe Heat Gain Energy [J]', &
System(RefrigSysNum)%PipeHeatEnergy,'Zone','Sum',&
System(RefrigSysNum)%Name)
IF (System(RefrigSysNum)%NumStages == 1) THEN
CALL SetupOutputVariable('Refrigeration System Total Compressor Heat Transfer Rate [W]', &
System(RefrigSysNum)%TotCompCapacity,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total Compressor Heat Transfer Energy [J]', &
System(RefrigSysNum)%TotCompCoolingEnergy,'Zone','Sum',&
System(RefrigSysNum)%Name) !indiv compressors go to meter, not system sum
ELSE IF (System(RefrigSysNum)%NumStages == 2)THEN
CALL SetupOutputVariable('Refrigeration System Total Low Stage Compressor Heat Transfer Rate [W]', &
System(RefrigSysNum)%TotCompCapacity,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total Low Stage Compressor Heat Transfer Energy [J]', &
System(RefrigSysNum)%TotCompCoolingEnergy,'Zone','Sum',&
System(RefrigSysNum)%Name) !indiv compressors go to meter, not system sum
CALL SetupOutputVariable('Refrigeration System Total High Stage Compressor Heat Transfer Rate [W]', &
System(RefrigSysNum)%TotHiStageCompCapacity,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Total High Stage Compressor Heat Transfer Energy [J]', &
System(RefrigSysNum)%TotHiStageCompCoolingEnergy,'Zone','Sum',&
System(RefrigSysNum)%Name) !indiv compressors go to meter, not system sum
END IF ! NumStages
CALL SetupOutputVariable('Refrigeration System Net Rejected Heat Transfer Rate [W]', &
System(RefrigSysNum)%NetHeatRejectLoad,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Net Rejected Heat Transfer Energy [J]', &
System(RefrigSysNum)%NetHeatRejectEnergy,'Zone','Sum',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Estimated Refrigerant Inventory Mass [kg]', &
System(RefrigSysNum)%RefInventory,'Zone','Average',&
System(RefrigSysNum)%Name)
IF (System(RefrigSysNum)%NumStages == 1) THEN
CALL SetupOutputVariable('Refrigeration System Estimated Refrigerant Mass Flow Rate [kg/s]', &
System(RefrigSysNum)%RefMassFlowComps,'Zone','Average',&
System(RefrigSysNum)%Name)
ELSE IF (System(RefrigSysNum)%NumStages == 2)THEN
CALL SetupOutputVariable('Refrigeration System Estimated Low Stage Refrigerant Mass Flow Rate [kg/s]', &
System(RefrigSysNum)%RefMassFlowComps,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Estimated High Stage Refrigerant Mass Flow Rate [kg/s]', &
System(RefrigSysNum)%RefMassFlowHiStageComps,'Zone','Average',&
System(RefrigSysNum)%Name)
END IF ! NumStages
IF(System(RefrigSysNum)%NumStages == 2) THEN
CALL SetupOutputVariable('Refrigeration System Intercooler Temperature [C]', &
System(RefrigSysNum)%TIntercooler,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Intercooler Pressure [Pa]', &
System(RefrigSysNum)%PIntercooler,'Zone','Average',&
System(RefrigSysNum)%Name)
END IF
CALL SetupOutputVariable('Refrigeration System Condensing Temperature [C]', &
System(RefrigSysNum)%TCondense,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Evaporating Temperature [C]', &
System(RefrigSysNum)%TEvapNeeded,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Suction Pipe Suction Temperature [C]', &
System(RefrigSysNum)%TCompIn,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Thermostatic Expansion Valve Liquid Temperature [C]', &
System(RefrigSysNum)%TLiqInActual,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Liquid Suction Subcooler Heat Transfer Rate [W]', &
System(RefrigSysNum)%LSHXTrans,'Zone','Average',&
System(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration System Liquid Suction Subcooler Heat Transfer Energy [J]', &
System(RefrigSysNum)%LSHXTransEnergy,'Zone','Sum',&
System(RefrigSysNum)%Name)
END IF !system(coilflag)
IF (System(RefrigSysNum)%SystemRejectHeatToZone) THEN
IF(Condenser( System(RefrigSysNum)%CondenserNum(1) )%InletAirZoneNum > 0) &
CALL SetupZoneInternalGain(Condenser( System(RefrigSysNum)%CondenserNum(1) )%InletAirZoneNum, &
'Refrigeration:System:Condenser:AirCooled', &
System(RefrigSysNum)%Name , &
IntGainTypeOf_RefrigerationSystemAirCooledCondenser, &
ConvectionGainRate = System(RefrigSysNum)%NetHeatRejectLoad )
IF (System(RefrigSysNum)%SuctionPipeActualZoneNum > 0) &
CALL SetupZoneInternalGain(System(RefrigSysNum)%SuctionPipeActualZoneNum, &
'Refrigeration:System:SuctionPipe', &
System(RefrigSysNum)%Name , &
IntGainTypeOf_RefrigerationSystemSuctionPipe, &
ConvectionGainRate = System(RefrigSysNum)%PipeHeatLoad )
ENDIF
END DO ! numrefrigsystems
!Report Compressor ENERGY here, not on system level for meters.
DO CompNum=1,NumSimulationCompressors
! CurrentModuleObject='Refrigeration:Compressor'
IF(Compressor(CompNum)%NumSysAttach == 1) THEN !only set up reports for compressors that are used once and only once
IF(Compressor(CompNum)%CoilFlag) THEN !Compressor serving system with chillers on HVAC time step
CALL SetupOutputVariable('Refrigeration Air Chiller System Compressor Electric Power [W]', &
Compressor(CompNum)%Power,'HVAC','Average',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Compressor Electric Energy [J]', &
Compressor(CompNum)%ElecConsumption,'HVAC','Sum',&
Compressor(CompNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Compressor(CompNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Air Chiller System Compressor Heat Transfer Rate [W]', &
Compressor(CompNum)%Capacity,'HVAC','Average',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Compressor Heat Transfer Energy [J]', &
Compressor(CompNum)%CoolingEnergy,'HVAC','Sum',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Compressor Runtime Fraction []', &
Compressor(CompNum)%LoadFactor, 'HVAC','Average',&
Compressor(CompNum)%Name)
ELSE ! serve cases/walkins on zone time step
CALL SetupOutputVariable('Refrigeration Compressor Electric Power [W]', &
Compressor(CompNum)%Power,'Zone','Average',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Electric Energy [J]', &
Compressor(CompNum)%ElecConsumption,'Zone','Sum',&
Compressor(CompNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Compressor(CompNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Compressor Heat Transfer Rate [W]', &
Compressor(CompNum)%Capacity,'Zone','Average',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Heat Transfer Energy [J]', &
Compressor(CompNum)%CoolingEnergy,'Zone','Sum',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Runtime Fraction []', &
Compressor(CompNum)%LoadFactor, 'Zone','Average',&
Compressor(CompNum)%Name)
END IF ! Serve coils on HVAC time step or cases/walkins on Zone time step
END IF ! NumSysAttach
END DO !Compnum on NumSimulationCompressors
! Report Variables for Refrigeration Condensers
DO CondNum=1,NumRefrigCondensers
! CurrentModuleObject='Refrigeration:Condenser:*'
IF(Condenser(Condnum)%CoilFlag) THEN !Condenser serving system with chillers on HVAC time step
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Heat Transfer Rate [W]', &
Condenser(Condnum)%CondLoad, 'HVAC','Average',Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Heat Transfer Energy [J]', &
Condenser(Condnum)%CondEnergy, 'HVAC','Sum',Condenser(Condnum)%Name)
IF(Condenser(CondNum)%CondenserType /= RefrigCondenserTypeCascade)THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Total Recovered Heat Transfer Rate [W]', &
Condenser(Condnum)%TotalHeatRecoveredLoad, 'HVAC','Average',Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Total Recovered Heat Transfer Energy [J]', &
Condenser(Condnum)%TotalHeatRecoveredEnergy, 'HVAC','Sum',Condenser(Condnum)%Name)
CALL SetupOutputVariable( &
'Refrigeration Air Chiller System Condenser Non Refrigeration Recovered Heat Transfer Rate [W]', &
Condenser(Condnum)%ExternalHeatRecoveredLoad, 'HVAC','Average',Condenser(Condnum)%Name)
CALL SetupOutputVariable( &
'Refrigeration Air Chiller System Condenser Non Refrigeration Recovered Heat Transfer Energy [J]', &
Condenser(Condnum)%ExternalEnergyRecovered, 'HVAC','Sum',Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Defrost Recovered Heat Transfer Rate [W]', &
Condenser(Condnum)%InternalHeatRecoveredLoad, 'HVAC','Average',Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Defrost Recovered Heat Transfer Energy [J]', &
Condenser(Condnum)%InternalEnergyRecovered, 'HVAC','Sum',Condenser(Condnum)%Name)
END IF !not cascade because recovered energy on cascade systems passed up to higher temperature system
IF(Condenser(Condnum)%CondenserType==RefrigCondenserTypeAir) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Fan Electric Power [W]', &
Condenser(Condnum)%ActualFanPower,'HVAC','Average',&
Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Fan Electric Energy [J]', &
Condenser(Condnum)%FanElecEnergy,'HVAC','Sum',&
Condenser(Condnum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Condenser(Condnum)%EndUseSubcategory)
END IF !Air cooled
IF(Condenser(Condnum)%CondenserType==RefrigCondenserTypeEvap) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Fan Electric Power [W]', &
Condenser(Condnum)%ActualFanPower,'HVAC','Average',&
Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Fan Electric Energy [J]', &
Condenser(Condnum)%FanElecEnergy,'HVAC','Sum',&
Condenser(Condnum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Condenser(Condnum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Pump Electric Power [W]', &
Condenser(Condnum)%ActualEvapPumpPower,'HVAC','Average',&
Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Pump Electric Energy [J]', &
Condenser(Condnum)%EvapPumpConsumption,'HVAC','Sum',&
Condenser(Condnum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Condenser(Condnum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Basin Heater Electric Power [W]', &
Condenser(Condnum)%BasinHeaterPower,'HVAC','Average',&
Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Basin Heater Electric Energy [J]', &
Condenser(Condnum)%BasinHeaterConsumption,'HVAC','Sum',&
Condenser(Condnum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Condenser(Condnum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Evaporated Water Volume Flow Rate [m3/s]', &
Condenser(Condnum)%EvapWaterConsumpRate,'HVAC','Average',&
Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Evaporated Water Volume [m3]', &
Condenser(Condnum)%EvapWaterConsumption,'HVAC','Sum',&
Condenser(Condnum)%Name, &
ResourceTypeKey='Water',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Condenser(Condnum)%EndUseSubcategory)
END IF !Evaporative Condenser Variables
IF(Condenser(Condnum)%CondenserType==RefrigCondenserTypeWater) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Condenser Fluid Mass Flow Rate [kg/s]', &
Condenser(Condnum)%MassFlowRate, 'HVAC','Average',Condenser(Condnum)%Name)
END IF !Water-cooled Condenser variables
ELSE !Serving loads/systems with cases and walkins on zone time step
CALL SetupOutputVariable('Refrigeration System Condenser Heat Transfer Rate [W]', &
Condenser(Condnum)%CondLoad, 'Zone','Average',Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration System Condenser Heat Transfer Energy [J]', &
Condenser(Condnum)%CondEnergy, 'Zone','Sum',Condenser(Condnum)%Name)
IF(Condenser(CondNum)%CondenserType /= RefrigCondenserTypeCascade)THEN
CALL SetupOutputVariable('Refrigeration System Condenser Total Recovered Heat Transfer Rate [W]', &
Condenser(Condnum)%TotalHeatRecoveredLoad, 'Zone','Average',Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration System Condenser Total Recovered Heat Transfer Energy [J]', &
Condenser(Condnum)%TotalHeatRecoveredEnergy, 'Zone','Sum',Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration System Condenser Non Refrigeration Recovered Heat Transfer Rate [W]', &
Condenser(Condnum)%ExternalHeatRecoveredLoad, 'Zone','Average',Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration System Condenser Non Refrigeration Recovered Heat Transfer Energy [J]', &
Condenser(Condnum)%ExternalEnergyRecovered, 'Zone','Sum',Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration System Condenser Defrost Recovered Heat Transfer Rate [W]', &
Condenser(Condnum)%InternalHeatRecoveredLoad, 'Zone','Average',Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration System Condenser Defrost Recovered Heat Transfer Energy [J]', &
Condenser(Condnum)%InternalEnergyRecovered, 'Zone','Sum',Condenser(Condnum)%Name)
END IF !not cascade because recovered energy on cascade systems passed up to higher temperature system
IF(Condenser(Condnum)%CondenserType==RefrigCondenserTypeAir) THEN
CALL SetupOutputVariable('Refrigeration System Condenser Fan Electric Power [W]', &
Condenser(Condnum)%ActualFanPower,'Zone','Average',&
Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration System Condenser Fan Electric Energy [J]', &
Condenser(Condnum)%FanElecEnergy,'Zone','Sum',&
Condenser(Condnum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Condenser(Condnum)%EndUseSubcategory)
END IF !Air cooled
IF(Condenser(Condnum)%CondenserType==RefrigCondenserTypeEvap) THEN
CALL SetupOutputVariable('Refrigeration System Condenser Fan Electric Power [W]', &
Condenser(Condnum)%ActualFanPower,'Zone','Average',&
Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration System Condenser Fan Electric Energy [J]', &
Condenser(Condnum)%FanElecEnergy,'Zone','Sum',&
Condenser(Condnum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Condenser(Condnum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration System Condenser Pump Electric Power [W]', &
Condenser(Condnum)%ActualEvapPumpPower,'Zone','Average',&
Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration System Condenser Pump Electric Energy [J]', &
Condenser(Condnum)%EvapPumpConsumption,'Zone','Sum',&
Condenser(Condnum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Condenser(Condnum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration System Condenser Basin Heater Electric Power [W]', &
Condenser(Condnum)%BasinHeaterPower,'Zone','Average',&
Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration System Condenser Basin Heater Electric Energy [J]', &
Condenser(Condnum)%BasinHeaterConsumption,'Zone','Sum',&
Condenser(Condnum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Condenser(Condnum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration System Condenser Evaporated Water Volume Flow Rate [m3/s]', &
Condenser(Condnum)%EvapWaterConsumpRate,'Zone','Average',&
Condenser(Condnum)%Name)
CALL SetupOutputVariable('Refrigeration System Condenser Evaporated Water Volume [m3]', &
Condenser(Condnum)%EvapWaterConsumption,'Zone','Sum',&
Condenser(Condnum)%Name, &
ResourceTypeKey='Water',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Condenser(Condnum)%EndUseSubcategory)
END IF !Evaporative Condenser Variables
IF(Condenser(Condnum)%CondenserType==RefrigCondenserTypeWater) THEN
CALL SetupOutputVariable('Refrigeration System Condenser Water Mass Flow Rate [kg/s]', &
Condenser(Condnum)%MassFlowRate, 'HVAC','Average',Condenser(Condnum)%Name)
END IF !Water-cooled Condenser variables
END IF ! Condenser%CoilFlag to distinguish HVAC vs Zone time steps
END DO !Condnum on Numrefrigcondensers
IF (NumSimulationSubcoolers > 0) THEN
DO SubcoolNum=1,NumSimulationSubcoolers
! CurrentModuleObject='Refrigeration:Subcooler'
IF(Subcooler(SubcoolNum)%CoilFlag) THEN !Subcooler serving system with chillers on HVAC time step
IF(Subcooler(SubcoolNum)%Subcoolertype == Mechanical) THEN
CALL SetupOutputVariable('Refrigeration Air Chiller System Mechanical Subcooler Heat Transfer Rate [W]', &
Subcooler(SubcoolNum)%MechSCTransLoad,'Zone','Average',&
Subcooler(SubcoolNum)%Name)
CALL SetupOutputVariable('Refrigeration Air Chiller System Mechanical Subcooler Heat Transfer Energy [J]', &
Subcooler(SubcoolNum)%MechSCTransEnergy,'Zone','Sum',&
Subcooler(SubcoolNum)%Name)
END IF
ELSE ! Subcooler on system serving cases and/or walkins
IF(Subcooler(SubcoolNum)%Subcoolertype == Mechanical) THEN
CALL SetupOutputVariable('Refrigeration System Mechanical Subcooler Heat Transfer Rate [W]', &
Subcooler(SubcoolNum)%MechSCTransLoad,'HVAC','Average',&
Subcooler(SubcoolNum)%Name)
CALL SetupOutputVariable('Refrigeration System Mechanical Subcooler Heat Transfer Energy [J]', &
Subcooler(SubcoolNum)%MechSCTransEnergy,'HVAC','Sum',&
Subcooler(SubcoolNum)%Name)
END IF
END IF !Subcoolers on system serving chillers
END DO !Subcoolnum on NumSimulationSubcoolers
END IF ! NumSimulationSubcoolers > 0
END IF !NumRefrigSystems > 0
IF(NumTransRefrigSystems > 0)THEN
! CurrentModuleObject='Refrigeration:TranscriticalSystem'
DO RefrigSysNum=1,NumTransRefrigSystems
! for both SingleStage and TwoStage systems (medium temperature loads present)
CALL SetupOutputVariable('Refrigeration Transcritical System Total High Pressure Compressor Electric Power [W]', &
TransSystem(RefrigSysNum)%TotCompPowerHP,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Total High Pressure Compressor Electric Energy [J]', &
TransSystem(RefrigSysNum)%TotCompElecConsumpHP,'Zone','Sum',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Total Compressor Electric Energy [J]', &
TransSystem(RefrigSysNum)%TotCompElecConsump,'Zone','Sum',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Average COP [W/W]', &
TransSystem(RefrigSysNum)%AverageCompressorCOP,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable( &
'Refrigeration Transcritical System Medium Temperature Cases and Walk Ins Heat Transfer Rate [W]', &
TransSystem(RefrigSysNum)%TotalCoolingLoadMT,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable( &
'Refrigeration Transcritical System Medium Temperature Cases and Walk Ins Heat Transfer Energy [J]', &
TransSystem(RefrigSysNum)%TotalCoolingEnergyMT,'Zone','Sum',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Total Cases and Walk Ins Heat Transfer Energy [J]', &
TransSystem(RefrigSysNum)%TotalCoolingEnergy,'Zone','Sum',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Medium Temperature Suction Pipe Heat Transfer Rate [W]', &
TransSystem(RefrigSysNum)%PipeHeatLoadMT,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Medium Temperature Suction Pipe Heat Transfer Energy [J]', &
TransSystem(RefrigSysNum)%PipeHeatEnergyMT,'Zone','Sum',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System High Pressure Compressor Heat Transfer Rate [W]', &
TransSystem(RefrigSysNum)%TotCompCapacityHP,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System High Pressure Compressor Heat Transfer Energy [J]', &
TransSystem(RefrigSysNum)%TotCompCoolingEnergyHP,'Zone','Sum',&
TransSystem(RefrigSysNum)%Name) !indiv compressors go to meter, not system sum
CALL SetupOutputVariable('Refrigeration Transcritical System Net Rejected Heat Transfer Rate [W]', &
TransSystem(RefrigSysNum)%NetHeatRejectLoad,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Net Rejected Heat Transfer Energy [J]', &
TransSystem(RefrigSysNum)%NetHeatRejectEnergy,'Zone','Sum',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Estimated Refrigerant Inventory Mass [kg]', &
TransSystem(RefrigSysNum)%RefInventory,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Refrigerant Mass Flow Rate [kg/s]', &
TransSystem(RefrigSysNum)%RefMassFlowComps,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Medium Temperature Evaporating Temperature [C]', &
TransSystem(RefrigSysNum)%TEvapNeededMT,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Medium Temperature Suction Temperature [C]', &
TransSystem(RefrigSysNum)%TCompInHP,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
IF (TransSystem(RefrigSysNum)%TransSysType == 2 ) THEN ! for TwoStage system only (low temperature loads present)
CALL SetupOutputVariable('Refrigeration Transcritical System Low Pressure Compressor Electric Power [W]', &
TransSystem(RefrigSysNum)%TotCompPowerLP,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Low Pressure Compressor Electric Energy [J]', &
TransSystem(RefrigSysNum)%TotCompElecConsumpLP,'Zone','Sum',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable( &
'Refrigeration Transcritical System Low Temperature Cases and Walk Ins Heat Transfer Rate [W]', &
TransSystem(RefrigSysNum)%TotalCoolingLoadLT,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable( &
'Refrigeration Transcritical System Low Temperature Cases and Walk Ins Heat Transfer Energy [J]', &
TransSystem(RefrigSysNum)%TotalCoolingEnergyLT,'Zone','Sum',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Low Temperature Suction Pipe Heat Transfer Rate [W]', &
TransSystem(RefrigSysNum)%PipeHeatLoadLT,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Low Temperature Suction Pipe Heat Transfer Energy [J]', &
TransSystem(RefrigSysNum)%PipeHeatEnergyLT,'Zone','Sum',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Low Pressure Compressor Heat Transfer Rate [W]', &
TransSystem(RefrigSysNum)%TotCompCapacityLP,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Low Pressure Compressor Heat Transfer Energy [J]', &
TransSystem(RefrigSysNum)%TotCompCoolingEnergyLP,'Zone','Sum',&
TransSystem(RefrigSysNum)%Name) !indiv compressors go to meter, not system sum
CALL SetupOutputVariable('Refrigeration Transcritical System Low Temperature Evaporating Temperature [C]', &
TransSystem(RefrigSysNum)%TEvapNeededLT,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Low Temperature Suction Temperature [C]', &
TransSystem(RefrigSysNum)%TCompInLP,'Zone','Average',&
TransSystem(RefrigSysNum)%Name)
END IF ! (TransSystem(RefrigSysNum)%TransSysType == 2)
IF (TransSystem(RefrigSysNum)%SystemRejectHeatToZone) THEN
IF(GasCooler(TransSystem(RefrigSysNum)%GasCoolerNum(1))%InletAirZoneNum > 0) &
CALL SetupZoneInternalGain(GasCooler(TransSystem(RefrigSysNum)%GasCoolerNum(1))%InletAirZoneNum, &
'Refrigeration:TranscriticalSystem:GasCooler:AirCooled', &
TransSystem(RefrigSysNum)%Name, &
IntGainTypeOf_RefrigerationTransSysAirCooledGasCooler, &
ConvectionGainRate = TransSystem(RefrigSysNum)%NetHeatRejectLoad)
END IF ! (TransSystem(RefrigSysNum)%SystemRejectHeatToZone)
IF (TransSystem(RefrigSysNum)%SuctionPipeActualZoneNumMT > 0) THEN
CALL SetupZoneInternalGain(TransSystem(RefrigSysNum)%SuctionPipeActualZoneNumMT, &
'Refrigeration:TranscriticalSystem:SuctionPipeMT', &
TransSystem(RefrigSysNum)%Name, &
IntGainTypeOf_RefrigerationTransSysSuctionPipeMT, &
ConvectionGainRate = TransSystem(RefrigSysNum)%PipeHeatLoadMT)
END IF ! TransSystem(RefrigSysNum)%SuctionPipeActualZoneNumMT > 0
IF (TransSystem(RefrigSysNum)%SuctionPipeActualZoneNumLT > 0) THEN
CALL SetupZoneInternalGain(TransSystem(RefrigSysNum)%SuctionPipeActualZoneNumLT, &
'Refrigeration:TranscriticalSystem:SuctionPipeLT', &
TransSystem(RefrigSysNum)%Name, &
IntGainTypeOf_RefrigerationTransSysSuctionPipeLT, &
ConvectionGainRate = TransSystem(RefrigSysNum)%PipeHeatLoadLT)
END IF ! TransSystem(RefrigSysNum)%SuctionPipeActualZoneNumLT > 0
!Report Compressor ENERGY here, not on system level for meters.
! LP compressors
DO CompIndex=1,TransSystem(RefrigSysNum)%NumCompressorsLP
CompNum=TransSystem(RefrigSysNum)%CompressornumLP(CompIndex)
! CurrentModuleObject='Refrigeration:Compressor'
IF(Compressor(CompNum)%NumSysAttach == 1) THEN !only set up reports for compressors that are used once and only once
CALL SetupOutputVariable('Refrigeration Compressor Electric Power [W]', &
Compressor(CompNum)%Power,'Zone','Average',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Electric Energy [J]', &
Compressor(CompNum)%ElecConsumption,'Zone','Sum',&
Compressor(CompNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Compressor(CompNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Compressor Heat Transfer Rate [W]', &
Compressor(CompNum)%Capacity,'Zone','Average',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Heat Transfer Energy [J]', &
Compressor(CompNum)%CoolingEnergy,'Zone','Sum',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Runtime Fraction []', &
Compressor(CompNum)%LoadFactor, 'Zone','Average',&
Compressor(CompNum)%Name)
END IF ! NumSysAttach
END DO !TransSystem(RefrigSysNum)%NumCompressorsLP
! HP compressors
DO CompIndex=1,TransSystem(RefrigSysNum)%NumCompressorsHP
CompNum=TransSystem(RefrigSysNum)%CompressornumHP(CompIndex)
! CurrentModuleObject='Refrigeration:Compressor'
IF(Compressor(CompNum)%NumSysAttach == 1) THEN !only set up reports for compressors that are used once and only once
CALL SetupOutputVariable('Refrigeration Compressor Electric Power [W]', &
Compressor(CompNum)%Power,'Zone','Average',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Electric Energy [J]', &
Compressor(CompNum)%ElecConsumption,'Zone','Sum',&
Compressor(CompNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=Compressor(CompNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Compressor Heat Transfer Rate [W]', &
Compressor(CompNum)%Capacity,'Zone','Average',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Heat Transfer Energy [J]', &
Compressor(CompNum)%CoolingEnergy,'Zone','Sum',&
Compressor(CompNum)%Name)
CALL SetupOutputVariable('Refrigeration Compressor Runtime Fraction []', &
Compressor(CompNum)%LoadFactor, 'Zone','Average',&
Compressor(CompNum)%Name)
END IF ! NumSysAttach
END DO !TransSystem(RefrigSysNum)%NumCompressorsHP
END DO ! NumTransRefrigSystems
END IF ! (NumTransRefrigSystems > 0)
IF (NumSimulationGasCooler > 0) THEN
DO GCNum=1,NumSimulationGasCooler
! CurrentModuleObject='Refrigeration:GasCooler:AirCooled'
CALL SetupOutputVariable('Refrigeration Transcritical System Gas Cooler Heat Transfer Rate [W]', &
GasCooler(GCNum)%GasCoolerLoad, 'Zone','Average',GasCooler(GCNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Gas Cooler Heat Transfer Energy [J]', &
GasCooler(GCNum)%GasCoolerEnergy, 'Zone','Sum',GasCooler(GCNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Gas Cooler Fan Electric Power [W]', &
GasCooler(GCNum)%ActualFanPower,'Zone','Average',&
GasCooler(GCNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Gas Cooler Fan Electric Energy [J]', &
GasCooler(GCNum)%FanElecEnergy,'Zone','Sum',&
GasCooler(GCNum)%Name, &
ResourceTypeKey='ELECTRICITY',EndUseKey='REFRIGERATION',GroupKey='Plant', &
EndUseSubKey=GasCooler(GCNum)%EndUseSubcategory)
CALL SetupOutputVariable('Refrigeration Transcritical System Gas Cooler Outlet Temperature [C]', &
GasCooler(GCNum)%TGasCoolerOut,'Zone','Average',GasCooler(GCNum)%Name)
CALL SetupOutputVariable('Refrigeration Transcritical System Gas Cooler Outlet Pressure [Pa]', &
GasCooler(GCNum)%PGasCoolerOut,'Zone','Average',GasCooler(GCNum)%Name)
CALL SetupOutputVariable( &
'Refrigeration Transcritical System Gas Cooler Defrost Recovered Heat Transfer Rate [W]', &
GasCooler(GCNum)%InternalHeatRecoveredLoad, 'Zone','Average',GasCooler(GCNum)%Name)
CALL SetupOutputVariable( &
'Refrigeration Transcritical System Gas Cooler Defrost Recovered Heat Transfer Energy [J]', &
GasCooler(GCNum)%InternalEnergyRecovered, 'Zone','Sum',GasCooler(GCNum)%Name)
END DO ! GCNum on NumSimulationGasCooler
END IF ! (NumSimulationGasCooler >0)
RETURN
END SUBROUTINE SetupReportInput