Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(in) | :: | RunFlag | |||
integer, | intent(in) | :: | Num |
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 UpdateCTGeneratorRecords(RunFlag, Num)
! SUBROUTINE INFORMATION:
! AUTHOR: Dan Fisher
! DATE WRITTEN: October 1998
! PURPOSE OF THIS SUBROUTINE:
! reporting
! METHODOLOGY EMPLOYED: na
! REFERENCES: na
! USE STATEMENTS: na
IMPLICIT NONE
! SUBROUTINE ARGUMENT DEFINITIONS:
LOGICAL, INTENT(IN) :: RunFlag ! TRUE if Generator operating
INTEGER, INTENT(IN) :: Num ! Generator number
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: HeatRecInletNode
INTEGER :: HeatRecOutletNode
IF (CTGenerator(Num)%HeatRecActive) THEN
HeatRecInletNode = CTGenerator(Num)%HeatRecInletNodeNum
HeatRecOutletNode = CTGenerator(Num)%HeatRecOutletNodeNum
! Node(HeatRecOutletNode)%MassFlowRate = CTGenerator(Num)%HeatRecMdot
Node(HeatRecOutletNode)%Temp = CTGenerator(Num)%HeatRecOutletTemp
! Node(HeatRecOutletNode)%MassFlowRateMaxAvail = Node(HeatRecInletNode)%MassFlowRateMaxAvail
! Node(HeatRecOutletNode)%MassFlowRateMinAvail = Node(HeatRecInletNode)%MassFlowRateMinAvail
ENDIF
CTGeneratorReport(Num)%PowerGen = CTGenerator(Num)%ElecPowerGenerated
CTGeneratorReport(Num)%EnergyGen = CTGenerator(Num)%ElecEnergyGenerated
CTGeneratorReport(Num)%QExhaustRecovered = CTGenerator(Num)%QExhaustRecovered
CTGeneratorReport(Num)%QLubeOilRecovered = CTGenerator(Num)%QLubeOilRecovered
CTGeneratorReport(Num)%ExhaustEnergyRec = CTGenerator(Num)%ExhaustEnergyRec
CTGeneratorReport(Num)%LubeOilEnergyRec = CTGenerator(Num)%LubeOilEnergyRec
CTGeneratorReport(Num)%QTotalHeatRecovered = CTGenerator(Num)%QTotalHeatRecovered
CTGeneratorReport(Num)%TotalHeatEnergyRec = CTGenerator(Num)%TotalHeatEnergyRec
CTGeneratorReport(Num)%FuelEnergyUseRate = CTGenerator(Num)%FuelEnergyUseRate
CTGeneratorReport(Num)%FuelEnergy = CTGenerator(Num)%FuelEnergy
CTGeneratorReport(Num)%FuelMdot = CTGenerator(Num)%FuelMdot
CTGeneratorReport(Num)%ExhaustStackTemp = CTGenerator(Num)%ExhaustStackTemp
CTGeneratorReport(Num)%HeatRecInletTemp = CTGenerator(Num)%HeatRecInletTemp
CTGeneratorReport(Num)%HeatRecOutletTemp = CTGenerator(Num)%HeatRecOutletTemp
CTGeneratorReport(Num)%HeatRecMdot = CTGenerator(Num)%HeatRecMdot
RETURN
END SUBROUTINE UpdateCTGeneratorRecords