Nodes of different colours represent the following:
Solid arrows point from a parent (sub)module to the submodule which is descended from it. Dashed arrows point from a module being used to the module or program unit using it. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
SUBROUTINE GetWatertoAirHPInput
! SUBROUTINE INFORMATION:
! AUTHOR Hui Jin
! DATE WRITTEN Oct 2000
! MODIFIED Dan Fisher, Kenneth Tang (Jan 2004)
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Obtains input data for HPs and stores it in HP data structures
! METHODOLOGY EMPLOYED:
! Uses "Get" routines to read in data.
! REFERENCES:
! na
! USE STATEMENTS:
USE InputProcessor
USE NodeInputManager
USE BranchNodeConnections, ONLY: TestCompSet
USE FluidProperties, ONLY : CheckFluidPropertyName, FindGlycol
USE GlobalNames, ONLY: VerifyUniqueCoilName
USE PlantUtilities, ONLY: RegisterPlantCompDesignFlow
USE OutputReportPredefined
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
! na
! SUBROUTINE PARAMETER DEFINITIONS:
CHARACTER (len=*), PARAMETER :: RoutineName='GetWatertoAirHPInput: ' ! include trailing blank space
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: HPNum ! The Water to Air HP that you are currently loading input into
INTEGER :: NumCool
INTEGER :: NumHeat
INTEGER :: WatertoAirHPNum
INTEGER :: NumFluids
INTEGER :: NumAlphas
INTEGER :: NumParams
INTEGER :: NumNums
INTEGER :: MaxNums=0 ! Maximum number of numeric input fields
INTEGER :: MaxAlphas=0 ! Maximum number of alpha input fields
INTEGER :: IOSTAT
LOGICAL :: ErrorsFound = .false. ! If errors detected in input
LOGICAL :: IsNotOK ! Flag to verify name
LOGICAL :: IsBlank ! Flag for blank name
LOGICAL :: errflag
CHARACTER (len=MaxNameLength) :: CurrentModuleObject ! for ease in getting objects
CHARACTER(len=MaxNameLength), ALLOCATABLE, DIMENSION(:) :: AlphArray ! Alpha input items for object
CHARACTER(len=MaxNameLength), ALLOCATABLE, DIMENSION(:) :: cAlphaFields ! Alpha field names
CHARACTER(len=MaxNameLength), ALLOCATABLE, DIMENSION(:) :: cNumericFields ! Numeric field names
REAL(r64), ALLOCATABLE, DIMENSION(:) :: NumArray ! Numeric input items for object
LOGICAL, ALLOCATABLE, DIMENSION(:) :: lAlphaBlanks ! Logical array, alpha field input BLANK = .true.
LOGICAL, ALLOCATABLE, DIMENSION(:) :: lNumericBlanks ! Logical array, numeric field input BLANK = .true.
! FLOW
NumCool = GetNumObjectsFound('Coil:Cooling:WaterToAirHeatPump:ParameterEstimation')
NumHeat = GetNumObjectsFound('Coil:Heating:WaterToAirHeatPump:ParameterEstimation')
NumWatertoAirHPs = NumCool+NumHeat
HPNum= 0
IF(NumWatertoAirHPs <= 0) THEN
CALL ShowSevereError('No Equipment found in SimWatertoAirHP')
ErrorsFound=.true.
END IF
! Allocate Arrays
IF (NumWatertoAirHPs.GT.0) THEN
ALLOCATE(WatertoAirHP(NumWatertoAirHPs))
ALLOCATE(CheckEquipName(NumWatertoAirHPs))
CheckEquipName=.true.
ENDIF
CALL GetObjectDefMaxArgs('Coil:Cooling:WaterToAirHeatPump:ParameterEstimation',NumParams,NumAlphas,NumNums)
MaxNums=MAX(MaxNums,NumNums)
MaxAlphas=MAX(MaxAlphas,NumAlphas)
CALL GetObjectDefMaxArgs('Coil:Heating:WaterToAirHeatPump:ParameterEstimation',NumParams,NumAlphas,NumNums)
MaxNums=MAX(MaxNums,NumNums)
MaxAlphas=MAX(MaxAlphas,NumAlphas)
ALLOCATE(AlphArray(MaxAlphas))
AlphArray=' '
ALLOCATE(cAlphaFields(MaxAlphas))
cAlphaFields=' '
ALLOCATE(lAlphaBlanks(MaxAlphas))
lAlphaBlanks=.TRUE.
ALLOCATE(cNumericFields(MaxNums))
cNumericFields=' '
ALLOCATE(lNumericBlanks(MaxNums))
lNumericBlanks=.TRUE.
ALLOCATE(NumArray(MaxNums))
NumArray=0.0d0
! Get the data for detailed cooling Heat Pump
CurrentModuleObject = 'Coil:Cooling:WaterToAirHeatPump:ParameterEstimation'
DO WatertoAirHPNum = 1, NumCool
HPNum= HPNum + 1
CALL GetObjectItem(CurrentModuleObject,HPNum,AlphArray,NumAlphas, &
NumArray,NumNums,IOSTAT,&
NumBlank=lNumericBlanks,AlphaBlank=lAlphaBlanks, &
AlphaFieldNames=cAlphaFields,NumericFieldNames=cNumericFields)
IsNotOK=.false.
IsBlank=.false.
CALL VerifyName(AlphArray(1),WatertoAirHP%Name,HPNum-1, ISNotOK,ISBlank,TRIM(CurrentModuleObject)//' Name')
IF (IsNotOK) THEN
ErrorsFound=.true.
IF (IsBlank) AlphArray(1)='xxxxx'
ENDIF
CALL VerifyUniqueCoilName(CurrentModuleObject,AlphArray(1),errflag,TRIM(CurrentModuleObject)//' Name')
IF (errflag) THEN
ErrorsFound=.true.
ENDIF
WatertoAirHP(HPNum)%Name = TRIM(AlphArray(1))
WatertoAirHP(HPNum)%WatertoAirHPType = 'COOLING'
WatertoAirHP(HPNum)%WAHPPlantTypeOfNum = TypeOf_CoilWAHPCoolingParamEst
WatertoAirHP(HPNum)%Refrigerant = TRIM(AlphArray(3))
WatertoAirHP(HPNum)%DesignWaterVolFlowRate = NumArray(1)
WatertoAirHP(HPNum)%CoolingCapacity = NumArray(2)
WatertoAirHP(HPNum)%Twet_Rated=NumArray(3)
WatertoAirHP(HPNum)%Gamma_Rated=NumArray(4)
WatertoAirHP(HPNum)%HighPressCutOff=NumArray(5)
WatertoAirHP(HPNum)%LowPressCutOff=NumArray(6)
WatertoAirHP(HPNum)%WaterInletNodeNum = &
GetOnlySingleNode(AlphArray(4),ErrorsFound,TRIM(CurrentModuleObject),AlphArray(1), &
NodeType_Water,NodeConnectionType_Inlet,2,ObjectIsNotParent)
WatertoAirHP(HPNum)%WaterOutletNodeNum = &
GetOnlySingleNode(AlphArray(5),ErrorsFound,TRIM(CurrentModuleObject),AlphArray(1), &
NodeType_Water,NodeConnectionType_Outlet,2,ObjectIsNotParent)
WatertoAirHP(HPNum)%AirInletNodeNum = &
GetOnlySingleNode(AlphArray(6),ErrorsFound,TRIM(CurrentModuleObject),AlphArray(1), &
NodeType_Air,NodeConnectionType_Inlet,1,ObjectIsNotParent)
WatertoAirHP(HPNum)%AirOutletNodeNum = &
GetOnlySingleNode(AlphArray(7),ErrorsFound,TRIM(CurrentModuleObject),AlphArray(1), &
NodeType_Air,NodeConnectionType_Outlet,1,ObjectIsNotParent)
!2010-01-13 ESL: Jason Glazer noted that these were out of order previously, but they are good now
WatertoAirHP(HPNum)%LoadSideTotalUACoeff=NumArray(7)
WatertoAirHP(HPNum)%LoadSideOutsideUACoeff=NumArray(8)
IF ((WatertoAirHP(HPNum)%LoadSideOutsideUACoeff .LT. rTinyValue) .OR. &
(WatertoAirHP(HPNum)%LoadSideTotalUACoeff .LT. rTinyValue)) THEN
CALL ShowSevereError('Input problem for '//TRIM(CurrentModuleObject)//'='//TRIM(WatertoAirHP(HPNum)%Name))
CALL ShowContinueError(' One or both load side UA values entered are below tolerance, likely zero or blank.')
CALL ShowContinueError(' Verify inputs, as the parameter syntax for this object went through a change with')
CALL ShowContinueError(' the release of EnergyPlus version 5.')
ErrorsFound = .TRUE.
END IF
WatertoAirHP(HPNum)%SuperheatTemp=NumArray(9)
WatertoAirHP(HPNum)%PowerLosses=NumArray(10)
WatertoAirHP(HPNum)%LossFactor=NumArray(11)
SELECT CASE (AlphArray(2))
CASE ('RECIPROCATING')
WaterToAirHP(HPNum)%CompressorType=CompressorType_Reciprocating
WatertoAirHP(HPNum)%CompPistonDisp=NumArray(12)
WatertoAirHP(HPNum)%CompSucPressDrop=NumArray(13)
WatertoAirHP(HPNum)%CompClearanceFactor=NumArray(14)
CASE ('ROTARY')
WaterToAirHP(HPNum)%CompressorType=CompressorType_Rotary
WatertoAirHP(HPNum)%CompPistonDisp=NumArray(12)
WatertoAirHP(HPNum)%CompSucPressDrop=NumArray(13)
CASE ('SCROLL')
WaterToAirHP(HPNum)%CompressorType=CompressorType_Scroll
WatertoAirHP(HPNum)%RefVolFlowRate=NumArray(15)
WatertoAirHP(HPNum)%VolumeRatio=NumArray(16)
WatertoAirHP(HPNum)%LeakRateCoeff=NumArray(17)
CASE DEFAULT
CALL ShowSevereError(RoutineName//'Invalid '//TRIM(cAlphaFields(2))//' ('// &
TRIM(AlphArray(2))//') entered.'//TRIM(CurrentModuleObject)//'='//TRIM(WatertoAirHP(HPNum)%Name))
ErrorsFound=.true.
END SELECT
WatertoAirHP(HPNum)%SourceSideUACoeff=NumArray(18)
WatertoAirHP(HPNum)%SourceSideHTR1=NumArray(19)
WatertoAirHP(HPNum)%SourceSideHTR2=NumArray(20)
CALL TestCompSet(TRIM(CurrentModuleObject),AlphArray(1),AlphArray(4),AlphArray(5),'Water Nodes')
CALL TestCompSet(TRIM(CurrentModuleObject),AlphArray(1),AlphArray(6),AlphArray(7),'Air Nodes')
CALL SetupOutputVariable('Cooling Coil Electric Energy [J]', &
WatertoAirHP(HPNum)%Energy,'System','Summed',WatertoAirHP(HPNum)%Name, &
ResourceTypeKey='Electric',EndUseKey='Cooling',GroupKey='System')
CALL SetupOutputVariable('Cooling Coil Total Cooling Energy [J]', &
WatertoAirHP(HPNum)%EnergyLoadTotal,'System','Summed',WatertoAirHP(HPNum)%Name, &
ResourceTypeKey='ENERGYTRANSFER',EndUseKey='COOLINGCOILS',GroupKey='System')
CALL SetupOutputVariable('Cooling Coil Sensible Cooling Energy [J]', &
WatertoAirHP(HPNum)%EnergySensible,'System','Summed',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Latent Cooling Energy [J]', &
WatertoAirHP(HPNum)%EnergyLatent,'System','Summed',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Source Side Heat Transfer Energy [J]', &
WatertoAirHP(HPNum)%EnergySource,'System','Summed',WatertoAirHP(HPNum)%Name, &
ResourceTypeKey='PLANTLOOPCOOLINGDEMAND',EndUseKey='COOLINGCOILS',GroupKey='System')
! save the design source side flow rate for use by plant loop sizing algorithms
CALL RegisterPlantCompDesignFlow(WatertoAirHP(HPNum)%WaterInletNodeNum,0.5d0*WatertoAirHP(HPNum)%DesignWaterVolFlowRate)
!create predefined report entries
CALL PreDefTableEntry(pdchCoolCoilType,WatertoAirHP(HPNum)%Name,CurrentModuleObject)
CALL PreDefTableEntry(pdchCoolCoilTotCap,WatertoAirHP(HPNum)%Name,WatertoAirHP(HPNum)%CoolingCapacity)
CALL PreDefTableEntry(pdchCoolCoilSensCap,WatertoAirHP(HPNum)%Name,'-')
CALL PreDefTableEntry(pdchCoolCoilLatCap,WatertoAirHP(HPNum)%Name,'-')
CALL PreDefTableEntry(pdchCoolCoilSHR,WatertoAirHP(HPNum)%Name,'-')
CALL PreDefTableEntry(pdchCoolCoilNomEff,WatertoAirHP(HPNum)%Name,'-')
END DO
CurrentModuleObject = 'Coil:Heating:WaterToAirHeatPump:ParameterEstimation'
DO WatertoAirHPNum = 1, NumHeat
HPNum= HPNum + 1
CALL GetObjectItem(CurrentModuleObject,WatertoAirHPNum,AlphArray,NumAlphas, &
NumArray,NumNums,IOSTAT,&
NumBlank=lNumericBlanks,AlphaBlank=lAlphaBlanks, &
AlphaFieldNames=cAlphaFields,NumericFieldNames=cNumericFields)
IsNotOK=.false.
IsBlank=.false.
CALL VerifyName(AlphArray(1),WatertoAirHP%Name,HPNum-1, ISNotOK,ISBlank,TRIM(CurrentModuleObject)//' Name')
IF (IsNotOK) THEN
ErrorsFound=.true.
IF (IsBlank) AlphArray(1)='xxxxx'
ENDIF
CALL VerifyUniqueCoilName(CurrentModuleObject,AlphArray(1),errflag,TRIM(CurrentModuleObject)//' Name')
IF (errflag) THEN
ErrorsFound=.true.
ENDIF
WatertoAirHP(HPNum)%Name = TRIM(AlphArray(1))
WatertoAirHP(HPNum)%WatertoAirHPType = 'HEATING'
WatertoAirHP(HPNum)%WAHPPlantTypeOfNum = TypeOf_CoilWAHPHeatingParamEst
WatertoAirHP(HPNum)%Refrigerant = TRIM(AlphArray(3))
WatertoAirHP(HPNum)%DesignWaterVolFlowRate = NumArray(1)
WatertoAirHP(HPNum)%HeatingCapacity = NumArray(2)
WatertoAirHP(HPNum)%HighPressCutOff=NumArray(3)
WatertoAirHP(HPNum)%LowPressCutOff=NumArray(4)
WatertoAirHP(HPNum)%WaterInletNodeNum = &
GetOnlySingleNode(AlphArray(4),ErrorsFound,TRIM(CurrentModuleObject),AlphArray(1), &
NodeType_Water,NodeConnectionType_Inlet,2,ObjectIsNotParent)
WatertoAirHP(HPNum)%WaterOutletNodeNum = &
GetOnlySingleNode(AlphArray(5),ErrorsFound,TRIM(CurrentModuleObject),AlphArray(1), &
NodeType_Water,NodeConnectionType_Outlet,2,ObjectIsNotParent)
WatertoAirHP(HPNum)%AirInletNodeNum = &
GetOnlySingleNode(AlphArray(6),ErrorsFound,TRIM(CurrentModuleObject),AlphArray(1), &
NodeType_Air,NodeConnectionType_Inlet,1,ObjectIsNotParent)
WatertoAirHP(HPNum)%AirOutletNodeNum = &
GetOnlySingleNode(AlphArray(7),ErrorsFound,TRIM(CurrentModuleObject),AlphArray(1), &
NodeType_Air,NodeConnectionType_Outlet,1,ObjectIsNotParent)
WatertoAirHP(HPNum)%LoadSideTotalUACoeff=NumArray(5)
IF (WatertoAirHP(HPNum)%LoadSideTotalUACoeff .LT. rTinyValue) THEN
CALL ShowSevereError('Input problem for '//TRIM(CurrentModuleObject)//'='//TRIM(WatertoAirHP(HPNum)%Name))
CALL ShowContinueError(' Load side UA value is less than tolerance, likely zero or blank.')
CALL ShowContinueError(' Verify inputs, as the parameter syntax for this object went through a change with')
CALL ShowContinueError(' the release of EnergyPlus version 5.')
ErrorsFound = .TRUE.
END IF
WatertoAirHP(HPNum)%SuperheatTemp=NumArray(6)
WatertoAirHP(HPNum)%PowerLosses=NumArray(7)
WatertoAirHP(HPNum)%LossFactor=NumArray(8)
SELECT CASE (AlphArray(2))
CASE ('RECIPROCATING')
WaterToAirHP(HPNum)%CompressorType=CompressorType_Reciprocating
WatertoAirHP(HPNum)%CompPistonDisp=NumArray(9)
WatertoAirHP(HPNum)%CompSucPressDrop=NumArray(10)
WatertoAirHP(HPNum)%CompClearanceFactor=NumArray(11)
CASE ('ROTARY')
WaterToAirHP(HPNum)%CompressorType=CompressorType_Rotary
WatertoAirHP(HPNum)%CompPistonDisp=NumArray(9)
WatertoAirHP(HPNum)%CompSucPressDrop=NumArray(10)
CASE ('SCROLL')
WaterToAirHP(HPNum)%CompressorType=CompressorType_Scroll
WatertoAirHP(HPNum)%RefVolFlowRate=NumArray(12)
WatertoAirHP(HPNum)%VolumeRatio=NumArray(13)
WatertoAirHP(HPNum)%LeakRateCoeff=NumArray(14)
CASE DEFAULT
CALL ShowSevereError(RoutineName//'Invalid '//TRIM(cAlphaFields(2))//' ('// &
TRIM(AlphArray(2))//') entered.'//TRIM(CurrentModuleObject)//'='//TRIM(WatertoAirHP(HPNum)%Name))
ErrorsFound=.true.
END SELECT
WatertoAirHP(HPNum)%SourceSideUACoeff = NumArray(15)
WatertoAirHP(HPNum)%SourceSideHTR1 = NumArray(16)
WatertoAirHP(HPNum)%SourceSideHTR2 = NumArray(17)
CALL TestCompSet(TRIM(CurrentModuleObject),AlphArray(1),AlphArray(4),AlphArray(5),'Water Nodes')
CALL TestCompSet(TRIM(CurrentModuleObject),AlphArray(1),AlphArray(6),AlphArray(7),'Air Nodes')
CALL SetupOutputVariable('Heating Coil Electric Energy [J]', &
WatertoAirHP(HPNum)%Energy,'System','Summed',WatertoAirHP(HPNum)%Name, &
ResourceTypeKey='Electric',EndUseKey='Heating',GroupKey='System')
CALL SetupOutputVariable('Heating Coil Heating Energy [J]', &
WatertoAirHP(HPNum)%EnergyLoadTotal,'System','Summed',WatertoAirHP(HPNum)%Name, &
ResourceTypeKey='ENERGYTRANSFER',EndUseKey='HEATINGCOILS',GroupKey='System')
CALL SetupOutputVariable('Heating Coil Source Side Heat Transfer Energy [J]', &
WatertoAirHP(HPNum)%EnergySource,'System','Summed',WatertoAirHP(HPNum)%Name, &
ResourceTypeKey='PLANTLOOPHEATINGDEMAND',EndUseKey='HEATINGCOILS',GroupKey='System')
! save the design source side flow rate for use by plant loop sizing algorithms
CALL RegisterPlantCompDesignFlow(WatertoAirHP(HPNum)%WaterInletNodeNum,0.5d0*WatertoAirHP(HPNum)%DesignWaterVolFlowRate)
!create predefined report entries
CALL PreDefTableEntry(pdchHeatCoilType,WatertoAirHP(HPNum)%Name,CurrentModuleObject)
CALL PreDefTableEntry(pdchHeatCoilNomCap,WatertoAirHP(HPNum)%Name,WatertoAirHP(HPNum)%HeatingCapacity)
CALL PreDefTableEntry(pdchHeatCoilNomEff,WatertoAirHP(HPNum)%Name,'-')
END DO
DEALLOCATE(AlphArray)
DEALLOCATE(cAlphaFields)
DEALLOCATE(lAlphaBlanks)
DEALLOCATE(cNumericFields)
DEALLOCATE(lNumericBlanks)
DEALLOCATE(NumArray)
IF (ErrorsFound) THEN
CALL ShowFatalError(RoutineName//'Errors found getting input. Program terminates.')
ENDIF
DO HPNum=1,NumWatertoAirHPs
IF ( WatertoAirHP(HPNum)%WAHPPlantTypeOfNum == TypeOf_CoilWAHPCoolingParamEst) THEN
! COOLING COIL: Setup Report variables for the Heat Pump
CALL SetupOutputVariable('Cooling Coil Electric Power [W]', &
WatertoAirHP(HPNum)%Power,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Total Cooling Rate [W]', &
WatertoAirHP(HPNum)%QLoadTotal,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Sensible Cooling Rate [W]', &
WatertoAirHP(HPNum)%QSensible,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Latent Cooling Rate [W]', &
WatertoAirHP(HPNum)%QLatent,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Source Side Heat Transfer Rate [W]', &
WatertoAirHP(HPNum)%QSource,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Part Load Ratio []', &
WatertoAirHP(HPNum)%PartLoadRatio,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Runtime Fraction []', &
WatertoAirHP(HPNum)%RunFrac,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Air Mass Flow Rate [kg/s]', &
WatertoAirHP(HPNum)%OutletAirMassFlowRate,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Air Inlet Temperature [C]', &
WatertoAirHP(HPNum)%InletAirDBTemp,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Air Inlet Humidity Ratio [kgWater/kgDryAir]', &
WatertoAirHP(HPNum)%InletAirHumRat,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Air Outlet Temperature [C]', &
WatertoAirHP(HPNum)%OutletAirDBTemp,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Air Outlet Humidity Ratio [kgWater/kgDryAir]', &
WatertoAirHP(HPNum)%OutletAirHumRat,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Source Side Mass Flow Rate [kg/s]', &
WatertoAirHP(HPNum)%OutletWaterMassFlowRate,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Source Side Inlet Temperature [C]', &
WatertoAirHP(HPNum)%InletWaterTemp,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Cooling Coil Source Side Outlet Temperature [C]', &
WatertoAirHP(HPNum)%OutletWaterTemp,'System','Average',WatertoAirHP(HPNum)%Name)
ELSEIF (WatertoAirHP(HPNum)%WAHPPlantTypeOfNum == TypeOf_CoilWAHPHeatingParamEst) THEN
! HEATING COIL Setup Report variables for the Heat Pump
CALL SetupOutputVariable('Heating Coil Electric Power [W]', &
WatertoAirHP(HPNum)%Power,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Heating Rate [W]', &
WatertoAirHP(HPNum)%QLoadTotal,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Sensible Heating Rate [W]', &
WatertoAirHP(HPNum)%QSensible,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Source Side Heat Transfer Rate [W]', &
WatertoAirHP(HPNum)%QSource,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Part Load Ratio []', &
WatertoAirHP(HPNum)%PartLoadRatio,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Runtime Fraction []', &
WatertoAirHP(HPNum)%RunFrac,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Air Mass Flow Rate [kg/s]', &
WatertoAirHP(HPNum)%OutletAirMassFlowRate,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Air Inlet Temperature [C]', &
WatertoAirHP(HPNum)%InletAirDBTemp,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Air Inlet Humidity Ratio [kgWater/kgDryAir]', &
WatertoAirHP(HPNum)%InletAirHumRat,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Air Outlet Temperature [C]', &
WatertoAirHP(HPNum)%OutletAirDBTemp,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Air Outlet Humidity Ratio [kgWater/kgDryAir]', &
WatertoAirHP(HPNum)%OutletAirHumRat,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Source Side Mass Flow Rate [kg/s]', &
WatertoAirHP(HPNum)%OutletWaterMassFlowRate,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Source Side Inlet Temperature [C]', &
WatertoAirHP(HPNum)%InletWaterTemp,'System','Average',WatertoAirHP(HPNum)%Name)
CALL SetupOutputVariable('Heating Coil Source Side Outlet Temperature [C]', &
WatertoAirHP(HPNum)%OutletWaterTemp,'System','Average',WatertoAirHP(HPNum)%Name)
ENDIF
END DO
RETURN
END SUBROUTINE GetWatertoAirHPInput