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 UpdateICEngineGeneratorRecords(RunFlag, Num)
! SUBROUTINE INFORMATION:
! AUTHOR: Dan Fisher
! DATE WRITTEN: October 2000
! 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 (ICEngineGenerator(Num)%HeatRecActive) THEN
HeatRecInletNode = ICEngineGenerator(Num)%HeatRecInletNodeNum
HeatRecOutletNode = ICEngineGenerator(Num)%HeatRecOutletNodeNum
! Node(HeatRecOutletNode)%MassFlowRate = ICEngineGenerator(Num)%HeatRecMdotActual
Node(HeatRecOutletNode)%Temp = ICEngineGenerator(Num)%HeatRecOutletTemp
! Node(HeatRecOutletNode)%MassFlowRateMaxAvail = Node(HeatRecInletNode)%MassFlowRateMaxAvail
! Node(HeatRecOutletNode)%MassFlowRateMinAvail = Node(HeatRecInletNode)%MassFlowRateMinAvail
ENDIF
ICEngineGeneratorReport(Num)%PowerGen = ICEngineGenerator(Num)%ElecPowerGenerated
ICEngineGeneratorReport(Num)%QJacketRecovered = ICEngineGenerator(Num)%QJacketRecovered
ICEngineGeneratorReport(Num)%QLubeOilRecovered = ICEngineGenerator(Num)%QLubeOilRecovered
ICEngineGeneratorReport(Num)%QExhaustRecovered = ICEngineGenerator(Num)%QExhaustRecovered
ICEngineGeneratorReport(Num)%QTotalHeatRecovered = ICEngineGenerator(Num)%QTotalHeatRecovered
ICEngineGeneratorReport(Num)%FuelEnergyUseRate = ICEngineGenerator(Num)%FuelEnergyUseRate
ICEngineGeneratorReport(Num)%EnergyGen = ICEngineGenerator(Num)%ElecEnergyGenerated
ICEngineGeneratorReport(Num)%JacketEnergyRec = ICEngineGenerator(Num)%JacketEnergyRec
ICEngineGeneratorReport(Num)%LubeOilEnergyRec = ICEngineGenerator(Num)%LubeOilEnergyRec
ICEngineGeneratorReport(Num)%ExhaustEnergyRec = ICEngineGenerator(Num)%ExhaustEnergyRec
ICEngineGeneratorReport(Num)%TotalHeatEnergyRec = ICEngineGenerator(Num)%TotalHeatEnergyRec
ICEngineGeneratorReport(Num)%FuelEnergy = ICEngineGenerator(Num)%FuelEnergy
ICEngineGeneratorReport(Num)%FuelMdot = ICEngineGenerator(Num)%FuelMdot
ICEngineGeneratorReport(Num)%ExhaustStackTemp = ICEngineGenerator(Num)%ExhaustStackTemp
ICEngineGeneratorReport(Num)%HeatRecInletTemp = ICEngineGenerator(Num)%HeatRecInletTemp
ICEngineGeneratorReport(Num)%HeatRecOutletTemp = ICEngineGenerator(Num)%HeatRecOutletTemp
ICEngineGeneratorReport(Num)%HeatRecMdot = ICEngineGenerator(Num)%HeatRecMdotActual
RETURN
END SUBROUTINE UpdateICEngineGeneratorRecords