SUBROUTINE GetCTGeneratorResults(GeneratorType, GeneratorIndex, &
GeneratorPower, GeneratorEnergy, ThermalPower, ThermalEnergy)
! SUBROUTINE INFORMATION:
! AUTHOR B Griffith
! DATE WRITTEN March 2008
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! get some results for load center's aggregation
! METHODOLOGY EMPLOYED:
! <description>
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: GeneratorType ! type of Generator
INTEGER, INTENT(IN) :: GeneratorIndex
REAL(r64), INTENT(OUT) :: GeneratorPower ! electrical power
REAL(r64), INTENT(OUT) :: GeneratorEnergy ! electrical energy
REAL(r64), INTENT(OUT) :: ThermalPower ! heat power
REAL(r64), INTENT(OUT) :: ThermalEnergy ! heat energy
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
GeneratorPower = CTGeneratorReport(GeneratorIndex)%PowerGen
GeneratorEnergy = CTGeneratorReport(GeneratorIndex)%EnergyGen
ThermalPower = CTGeneratorReport(GeneratorIndex)%QTotalHeatRecovered
ThermalEnergy = CTGeneratorReport(GeneratorIndex)%TotalHeatEnergyRec
RETURN
END SUBROUTINE GetCTGeneratorResults