SUBROUTINE GetMTGeneratorResults(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:
!
! 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 !unused1208
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 = MTGeneratorReport(GeneratorIndex)%PowerGen
GeneratorEnergy = MTGeneratorReport(GeneratorIndex)%EnergyGen
ThermalPower = MTGeneratorReport(GeneratorIndex)%QHeatRecovered
ThermalEnergy = MTGeneratorReport(GeneratorIndex)%ExhaustEnergyRec
RETURN
END SUBROUTINE GetMTGeneratorResults