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.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=r64), | intent(in) | :: | MyLoad | |||
logical, | intent(in) | :: | RunFlag | |||
integer, | intent(in) | :: | ChillNum |
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 UpdateGasAbsorberHeatRecords(MyLoad,RunFlag,ChillNum)
! SUBROUTINE INFORMATION:
! AUTHOR Jason Glazer
! DATE WRITTEN March 2001
! PURPOSE OF THIS SUBROUTINE:
! reporting
! METHODOLOGY EMPLOYED: na
! REFERENCES: na
! USE STATEMENTS: na
USE DataHVACGlobals, ONLY : TimeStepSys
IMPLICIT NONE
! SUBROUTINE ARGUMENT DEFINITIONS:
REAL(r64),INTENT(IN) :: MyLoad ! current load
LOGICAL, INTENT(IN) :: RunFlag ! TRUE if Absorber operating
INTEGER, INTENT(IN) :: ChillNum ! Absorber number
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: lHeatReturnNodeNum ! absorber steam inlet node number, water side
INTEGER :: lHeatSupplyNodeNum ! absorber steam outlet node number, water side
! BEGIN ROUTINE
lHeatReturnNodeNum = GasAbsorber(ChillNum)%HeatReturnNodeNum
lHeatSupplyNodeNum = GasAbsorber(ChillNum)%HeatSupplyNodeNum
IF (MyLoad==0 .OR. .NOT. RunFlag)THEN
!set node temperatures
Node(lHeatSupplyNodeNum)%Temp = Node(lHeatReturnNodeNum)%Temp
!set node flow rates
!Update Outlet Conditions so that same as Inlet, so component
!can be bypassed if necessary
!FlowResolver/EnforceSplitterContinuity will determine flow
!received, whether component is running or not.
!
! Node(lHeatReturnNodeNum)%MassFlowRate = GasAbsorberReport(ChillNum)%HotWaterFlowRate
! Node(lHeatSupplyNodeNum)%MassFlowRate = GasAbsorberReport(ChillNum)%HotWaterFlowRate
ELSE
!set node temperatures
Node(lHeatSupplyNodeNum)%Temp = GasAbsorberReport(ChillNum)%HotWaterSupplyTemp
! !set node flow rates; for these load based models
! !assume that the sufficient evaporator flow rate available
! Node(lHeatReturnNodeNum)%MassFlowRate = GasAbsorberReport(ChillNum)%HotWaterFlowRate
! Node(lHeatSupplyNodeNum)%MassFlowRate = GasAbsorberReport(ChillNum)%HotWaterFlowRate
END IF
! convert power to energy and instantaneous use to use over the time step
GasAbsorberReport(ChillNum)%HeatingEnergy = GasAbsorberReport(ChillNum)%HeatingLoad * TimeStepSys * SecInHour
GasAbsorberReport(ChillNum)%FuelEnergy = GasAbsorberReport(ChillNum)%FuelUseRate * TimeStepSys * SecInHour
GasAbsorberReport(ChillNum)%HeatFuelEnergy = GasAbsorberReport(ChillNum)%HeatFuelUseRate * TimeStepSys * SecInHour
GasAbsorberReport(ChillNum)%ElectricEnergy = GasAbsorberReport(ChillNum)%ElectricPower * TimeStepSys * SecInHour
GasAbsorberReport(ChillNum)%HeatElectricEnergy = GasAbsorberReport(ChillNum)%HeatElectricPower * TimeStepSys * SecInHour
!
! Node(lHeatSupplyNodeNum)%MassFlowRateMaxAvail = Node(lHeatReturnNodeNum)%MassFlowRateMaxAvail
! Node(lHeatSupplyNodeNum)%MassFlowRateMinAvail = Node(lHeatReturnNodeNum)%MassFlowRateMinAvail
RETURN
END SUBROUTINE UpdateGasAbsorberHeatRecords