SUBROUTINE CalcPollution
! SUBROUTINE INFORMATION:
! AUTHOR Richard Liesen
! DATE WRITTEN 1998
! MODIFIED na
! RE-ENGINEERED December 2003 RJL
! PURPOSE OF THIS SUBROUTINE:
! CalcPollution - Does the Pollutant Calculation
! METHODOLOGY EMPLOYED:
! NA
! REFERENCES:
! na
! USE STATEMENTS:
USE ScheduleManager, ONLY: GetCurrentScheduleValue
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
! na
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
REAL(r64) :: ElecValue
REAL(r64) :: NatGasValue
REAL(r64) :: FuelOil1Value
REAL(r64) :: FuelOil2Value
REAL(r64) :: CoalValue
REAL(r64) :: GasolineValue
REAL(r64) :: PropaneValue
REAL(r64) :: DieselValue
REAL(r64) :: OtherFuel1Value
REAL(r64) :: OtherFuel2Value
! Then the amount of Pollution produced by each fuel type is
! calculated in kgs.
! Input units for the coefficients is not standard and needs to be converted here.
! Most of the units are g/MJ, however water is in L/MJ and low level nuclear water is m3/MJ
! so only the energy has to be converted from J to MJ.
! For each pollution/fuel type, Schedule values are allowed. Thus, calculations are bundled.
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%CO2Pollution = 0.0d0
IF (Pollution%ElecCoef%CO2Sched == 0) THEN
ElecValue = Pollution%ElecCoef%CO2/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%CO2*GetCurrentScheduleValue(Pollution%ElecCoef%CO2Sched)/1000.0d0
ENDIF
Pollution%ElecComp%CO2Pollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%CO2Pollution = 0.0d0
IF (Pollution%NatGasCoef%CO2Sched == 0) THEN
NatGasValue = Pollution%NatGasCoef%CO2/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%CO2*GetCurrentScheduleValue(Pollution%NatGasCoef%CO2Sched)/1000.0d0
ENDIF
Pollution%NatGasComp%CO2Pollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%CO2Pollution = 0.0d0
IF (Pollution%FuelOil1Coef%CO2Sched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%CO2/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%CO2*GetCurrentScheduleValue(Pollution%FuelOil1Coef%CO2Sched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%CO2Pollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%CO2Pollution = 0.0d0
IF (Pollution%FuelOil2Coef%CO2Sched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%CO2/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%CO2*GetCurrentScheduleValue(Pollution%FuelOil2Coef%CO2Sched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%CO2Pollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%CO2Pollution = 0.0d0
IF (Pollution%CoalCoef%CO2Sched == 0) THEN
CoalValue = Pollution%CoalCoef%CO2/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%CO2*GetCurrentScheduleValue(Pollution%CoalCoef%CO2Sched)/1000.0d0
ENDIF
Pollution%CoalComp%CO2Pollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%CO2Pollution = 0.0d0
IF (Pollution%GasolineCoef%CO2Sched == 0) THEN
GasolineValue = Pollution%GasolineCoef%CO2/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%CO2*GetCurrentScheduleValue(Pollution%GasolineCoef%CO2Sched)/1000.0d0
ENDIF
Pollution%GasolineComp%CO2Pollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%CO2Pollution = 0.0d0
IF (Pollution%PropaneCoef%CO2Sched == 0) THEN
PropaneValue = Pollution%PropaneCoef%CO2/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%CO2*GetCurrentScheduleValue(Pollution%PropaneCoef%CO2Sched)/1000.0d0
ENDIF
Pollution%PropaneComp%CO2Pollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%CO2Pollution = 0.0d0
IF (Pollution%DieselCoef%CO2Sched == 0) THEN
DieselValue = Pollution%DieselCoef%CO2/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%CO2*GetCurrentScheduleValue(Pollution%DieselCoef%CO2Sched)/1000.0d0
ENDIF
Pollution%DieselComp%CO2Pollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%CO2Pollution = 0.0d0
IF (Pollution%OtherFuel1Coef%CO2Sched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%CO2/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%CO2*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%CO2Sched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%CO2Pollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%CO2Pollution = 0.0d0
IF (Pollution%OtherFuel2Coef%CO2Sched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%CO2/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%CO2*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%CO2Sched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%CO2Pollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
Pollution%CO2PollutTotal = Pollution%ElecComp%CO2Pollution + &
Pollution%NatGasComp%CO2Pollution + &
Pollution%FuelOil1Comp%CO2Pollution + &
Pollution%FuelOil2Comp%CO2Pollution + &
Pollution%CoalComp%CO2Pollution + &
Pollution%GasolineComp%CO2Pollution + &
Pollution%PropaneComp%CO2Pollution + &
Pollution%DieselComp%CO2Pollution + &
Pollution%OtherFuel1Comp%CO2Pollution + &
Pollution%OtherFuel2Comp%CO2Pollution
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%NOxPollution = 0.0d0
IF (Pollution%ElecCoef%NOxSched == 0) THEN
ElecValue = Pollution%ElecCoef%NOx/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%NOx*GetCurrentScheduleValue(Pollution%ElecCoef%NOxSched)/1000.0d0
ENDIF
Pollution%ElecComp%NOxPollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%NOxPollution = 0.0d0
IF (Pollution%NatGasCoef%NOxSched == 0) THEN
NatGasValue = Pollution%NatGasCoef%NOx/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%NOx*GetCurrentScheduleValue(Pollution%NatGasCoef%NOxSched)/1000.0d0
ENDIF
Pollution%NatGasComp%NOxPollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%NOxPollution = 0.0d0
IF (Pollution%FuelOil1Coef%NOxSched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%NOx/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%NOx*GetCurrentScheduleValue(Pollution%FuelOil1Coef%NOxSched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%NOxPollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%NOxPollution = 0.0d0
IF (Pollution%FuelOil2Coef%NOxSched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%NOx/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%NOx*GetCurrentScheduleValue(Pollution%FuelOil2Coef%NOxSched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%NOxPollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%NOxPollution = 0.0d0
IF (Pollution%CoalCoef%NOxSched == 0) THEN
CoalValue = Pollution%CoalCoef%NOx/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%NOx*GetCurrentScheduleValue(Pollution%CoalCoef%NOxSched)/1000.0d0
ENDIF
Pollution%CoalComp%NOxPollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%NOxPollution = 0.0d0
IF (Pollution%GasolineCoef%NOxSched == 0) THEN
GasolineValue = Pollution%GasolineCoef%NOx/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%NOx*GetCurrentScheduleValue(Pollution%GasolineCoef%NOxSched)/1000.0d0
ENDIF
Pollution%GasolineComp%NOxPollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%NOxPollution = 0.0d0
IF (Pollution%PropaneCoef%NOxSched == 0) THEN
PropaneValue = Pollution%PropaneCoef%NOx/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%NOx*GetCurrentScheduleValue(Pollution%PropaneCoef%NOxSched)/1000.0d0
ENDIF
Pollution%PropaneComp%NOxPollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%NOxPollution = 0.0d0
IF (Pollution%DieselCoef%NOxSched == 0) THEN
DieselValue = Pollution%DieselCoef%NOx/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%NOx*GetCurrentScheduleValue(Pollution%DieselCoef%NOxSched)/1000.0d0
ENDIF
Pollution%DieselComp%NOxPollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%NOxPollution = 0.0d0
IF (Pollution%OtherFuel1Coef%NOxSched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%NOx/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%NOx*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%NOxSched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%NOxPollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%NOxPollution = 0.0d0
IF (Pollution%OtherFuel2Coef%NOxSched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%NOx/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%NOx*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%NOxSched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%NOxPollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%CH4Pollution = 0.0d0
IF (Pollution%ElecCoef%CH4Sched == 0) THEN
ElecValue = Pollution%ElecCoef%CH4/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%CH4*GetCurrentScheduleValue(Pollution%ElecCoef%CH4Sched)/1000.0d0
ENDIF
Pollution%ElecComp%CH4Pollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%CH4Pollution = 0.0d0
IF (Pollution%NatGasCoef%CH4Sched == 0) THEN
NatGasValue = Pollution%NatGasCoef%CH4/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%CH4*GetCurrentScheduleValue(Pollution%NatGasCoef%CH4Sched)/1000.0d0
ENDIF
Pollution%NatGasComp%CH4Pollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%CH4Pollution = 0.0d0
IF (Pollution%FuelOil1Coef%CH4Sched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%CH4/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%CH4*GetCurrentScheduleValue(Pollution%FuelOil1Coef%CH4Sched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%CH4Pollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%CH4Pollution = 0.0d0
IF (Pollution%FuelOil2Coef%CH4Sched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%CH4/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%CH4*GetCurrentScheduleValue(Pollution%FuelOil2Coef%CH4Sched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%CH4Pollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%CH4Pollution = 0.0d0
IF (Pollution%CoalCoef%CH4Sched == 0) THEN
CoalValue = Pollution%CoalCoef%CH4/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%CH4*GetCurrentScheduleValue(Pollution%CoalCoef%CH4Sched)/1000.0d0
ENDIF
Pollution%CoalComp%CH4Pollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%CH4Pollution = 0.0d0
IF (Pollution%GasolineCoef%CH4Sched == 0) THEN
GasolineValue = Pollution%GasolineCoef%CH4/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%CH4*GetCurrentScheduleValue(Pollution%GasolineCoef%CH4Sched)/1000.0d0
ENDIF
Pollution%GasolineComp%CH4Pollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%CH4Pollution = 0.0d0
IF (Pollution%PropaneCoef%CH4Sched == 0) THEN
PropaneValue = Pollution%PropaneCoef%CH4/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%CH4*GetCurrentScheduleValue(Pollution%PropaneCoef%CH4Sched)/1000.0d0
ENDIF
Pollution%PropaneComp%CH4Pollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%CH4Pollution = 0.0d0
IF (Pollution%DieselCoef%CH4Sched == 0) THEN
DieselValue = Pollution%DieselCoef%CH4/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%CH4*GetCurrentScheduleValue(Pollution%DieselCoef%CH4Sched)/1000.0d0
ENDIF
Pollution%DieselComp%CH4Pollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%CH4Pollution = 0.0d0
IF (Pollution%OtherFuel1Coef%CH4Sched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%CH4/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%CH4*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%CH4Sched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%CH4Pollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%CH4Pollution = 0.0d0
IF (Pollution%OtherFuel2Coef%CH4Sched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%CH4/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%CH4*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%CH4Sched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%CH4Pollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
Pollution%CH4PollutTotal = Pollution%ElecComp%CH4Pollution + &
Pollution%NatGasComp%CH4Pollution + &
Pollution%FuelOil1Comp%CH4Pollution + &
Pollution%FuelOil2Comp%CH4Pollution + &
Pollution%CoalComp%CH4Pollution + &
Pollution%GasolineComp%CH4Pollution + &
Pollution%PropaneComp%CH4Pollution + &
Pollution%DieselComp%CH4Pollution + &
Pollution%OtherFuel1Comp%CH4Pollution + &
Pollution%OtherFuel1Comp%CH4Pollution
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%COPollution = 0.0d0
IF (Pollution%ElecCoef%COSched == 0) THEN
ElecValue = Pollution%ElecCoef%CO/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%CO*GetCurrentScheduleValue(Pollution%ElecCoef%COSched)/1000.0d0
ENDIF
Pollution%ElecComp%COPollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%COPollution = 0.0d0
IF (Pollution%NatGasCoef%COSched == 0) THEN
NatGasValue = Pollution%NatGasCoef%CO/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%CO*GetCurrentScheduleValue(Pollution%NatGasCoef%COSched)/1000.0d0
ENDIF
Pollution%NatGasComp%COPollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%COPollution = 0.0d0
IF (Pollution%FuelOil1Coef%COSched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%CO/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%CO*GetCurrentScheduleValue(Pollution%FuelOil1Coef%COSched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%COPollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%COPollution = 0.0d0
IF (Pollution%FuelOil2Coef%COSched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%CO/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%CO*GetCurrentScheduleValue(Pollution%FuelOil2Coef%COSched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%COPollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%COPollution = 0.0d0
IF (Pollution%CoalCoef%COSched == 0) THEN
CoalValue = Pollution%CoalCoef%CO/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%CO*GetCurrentScheduleValue(Pollution%CoalCoef%COSched)/1000.0d0
ENDIF
Pollution%CoalComp%COPollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%COPollution = 0.0d0
IF (Pollution%GasolineCoef%COSched == 0) THEN
GasolineValue = Pollution%GasolineCoef%CO/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%CO*GetCurrentScheduleValue(Pollution%GasolineCoef%COSched)/1000.0d0
ENDIF
Pollution%GasolineComp%COPollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%COPollution = 0.0d0
IF (Pollution%PropaneCoef%COSched == 0) THEN
PropaneValue = Pollution%PropaneCoef%CO/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%CO*GetCurrentScheduleValue(Pollution%PropaneCoef%COSched)/1000.0d0
ENDIF
Pollution%PropaneComp%COPollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%COPollution = 0.0d0
IF (Pollution%DieselCoef%COSched == 0) THEN
DieselValue = Pollution%DieselCoef%CO/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%CO*GetCurrentScheduleValue(Pollution%DieselCoef%COSched)/1000.0d0
ENDIF
Pollution%DieselComp%COPollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%COPollution = 0.0d0
IF (Pollution%OtherFuel1Coef%COSched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%CO/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%CO*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%COSched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%COPollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%COPollution = 0.0d0
IF (Pollution%OtherFuel2Coef%COSched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%CO/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%CO*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%COSched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%COPollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%N2OPollution = 0.0d0
IF (Pollution%ElecCoef%N2OSched == 0) THEN
ElecValue = Pollution%ElecCoef%N2O/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%N2O*GetCurrentScheduleValue(Pollution%ElecCoef%N2OSched)/1000.0d0
ENDIF
Pollution%ElecComp%N2OPollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%N2OPollution = 0.0d0
IF (Pollution%NatGasCoef%N2OSched == 0) THEN
NatGasValue = Pollution%NatGasCoef%N2O/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%N2O*GetCurrentScheduleValue(Pollution%NatGasCoef%N2OSched)/1000.0d0
ENDIF
Pollution%NatGasComp%N2OPollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%N2OPollution = 0.0d0
IF (Pollution%FuelOil1Coef%N2OSched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%N2O/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%N2O*GetCurrentScheduleValue(Pollution%FuelOil1Coef%N2OSched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%N2OPollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%N2OPollution = 0.0d0
IF (Pollution%FuelOil2Coef%N2OSched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%N2O/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%N2O*GetCurrentScheduleValue(Pollution%FuelOil2Coef%N2OSched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%N2OPollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%N2OPollution = 0.0d0
IF (Pollution%CoalCoef%N2OSched == 0) THEN
CoalValue = Pollution%CoalCoef%N2O/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%N2O*GetCurrentScheduleValue(Pollution%CoalCoef%N2OSched)/1000.0d0
ENDIF
Pollution%CoalComp%N2OPollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%N2OPollution = 0.0d0
IF (Pollution%GasolineCoef%N2OSched == 0) THEN
GasolineValue = Pollution%GasolineCoef%N2O/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%N2O*GetCurrentScheduleValue(Pollution%GasolineCoef%N2OSched)/1000.0d0
ENDIF
Pollution%GasolineComp%N2OPollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%N2OPollution = 0.0d0
IF (Pollution%PropaneCoef%N2OSched == 0) THEN
PropaneValue = Pollution%PropaneCoef%N2O/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%N2O*GetCurrentScheduleValue(Pollution%PropaneCoef%N2OSched)/1000.0d0
ENDIF
Pollution%PropaneComp%N2OPollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%N2OPollution = 0.0d0
IF (Pollution%DieselCoef%N2OSched == 0) THEN
DieselValue = Pollution%DieselCoef%N2O/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%N2O*GetCurrentScheduleValue(Pollution%DieselCoef%N2OSched)/1000.0d0
ENDIF
Pollution%DieselComp%N2OPollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%N2OPollution = 0.0d0
IF (Pollution%OtherFuel1Coef%N2OSched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%N2O/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%N2O*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%N2OSched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%N2OPollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%N2OPollution = 0.0d0
IF (Pollution%OtherFuel2Coef%N2OSched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%N2O/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%N2O*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%N2OSched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%N2OPollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
Pollution%N2OPollutTotal = Pollution%ElecComp%N2OPollution + &
Pollution%NatGasComp%N2OPollution + &
Pollution%FuelOil1Comp%N2OPollution + &
Pollution%FuelOil2Comp%N2OPollution + &
Pollution%CoalComp%N2OPollution + &
Pollution%GasolineComp%N2OPollution + &
Pollution%PropaneComp%N2OPollution + &
Pollution%DieselComp%N2OPollution + &
Pollution%OtherFuel1Comp%N2OPollution + &
Pollution%OtherFuel2Comp%N2OPollution
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%SO2Pollution = 0.0d0
IF (Pollution%ElecCoef%SO2Sched == 0) THEN
ElecValue = Pollution%ElecCoef%SO2/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%SO2*GetCurrentScheduleValue(Pollution%ElecCoef%SO2Sched)/1000.0d0
ENDIF
Pollution%ElecComp%SO2Pollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%SO2Pollution = 0.0d0
IF (Pollution%NatGasCoef%SO2Sched == 0) THEN
NatGasValue = Pollution%NatGasCoef%SO2/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%SO2*GetCurrentScheduleValue(Pollution%NatGasCoef%SO2Sched)/1000.0d0
ENDIF
Pollution%NatGasComp%SO2Pollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%SO2Pollution = 0.0d0
IF (Pollution%FuelOil1Coef%SO2Sched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%SO2/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%SO2*GetCurrentScheduleValue(Pollution%FuelOil1Coef%SO2Sched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%SO2Pollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%SO2Pollution = 0.0d0
IF (Pollution%FuelOil2Coef%SO2Sched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%SO2/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%SO2*GetCurrentScheduleValue(Pollution%FuelOil2Coef%SO2Sched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%SO2Pollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%SO2Pollution = 0.0d0
IF (Pollution%CoalCoef%SO2Sched == 0) THEN
CoalValue = Pollution%CoalCoef%SO2/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%SO2*GetCurrentScheduleValue(Pollution%CoalCoef%SO2Sched)/1000.0d0
ENDIF
Pollution%CoalComp%SO2Pollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%SO2Pollution = 0.0d0
IF (Pollution%GasolineCoef%SO2Sched == 0) THEN
GasolineValue = Pollution%GasolineCoef%SO2/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%SO2*GetCurrentScheduleValue(Pollution%GasolineCoef%SO2Sched)/1000.0d0
ENDIF
Pollution%GasolineComp%SO2Pollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%SO2Pollution = 0.0d0
IF (Pollution%PropaneCoef%SO2Sched == 0) THEN
PropaneValue = Pollution%PropaneCoef%SO2/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%SO2*GetCurrentScheduleValue(Pollution%PropaneCoef%SO2Sched)/1000.0d0
ENDIF
Pollution%PropaneComp%SO2Pollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%SO2Pollution = 0.0d0
IF (Pollution%DieselCoef%SO2Sched == 0) THEN
DieselValue = Pollution%DieselCoef%SO2/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%SO2*GetCurrentScheduleValue(Pollution%DieselCoef%SO2Sched)/1000.0d0
ENDIF
Pollution%DieselComp%SO2Pollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%SO2Pollution = 0.0d0
IF (Pollution%OtherFuel1Coef%SO2Sched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%SO2/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%SO2*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%SO2Sched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%SO2Pollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%SO2Pollution = 0.0d0
IF (Pollution%OtherFuel2Coef%SO2Sched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%SO2/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%SO2*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%SO2Sched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%SO2Pollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%PMPollution = 0.0d0
IF (Pollution%ElecCoef%PMSched == 0) THEN
ElecValue = Pollution%ElecCoef%PM/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%PM*GetCurrentScheduleValue(Pollution%ElecCoef%PMSched)/1000.0d0
ENDIF
Pollution%ElecComp%PMPollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%PMPollution = 0.0d0
IF (Pollution%NatGasCoef%PMSched == 0) THEN
NatGasValue = Pollution%NatGasCoef%PM/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%PM*GetCurrentScheduleValue(Pollution%NatGasCoef%PMSched)/1000.0d0
ENDIF
Pollution%NatGasComp%PMPollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%PMPollution = 0.0d0
IF (Pollution%FuelOil1Coef%PMSched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%PM/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%PM*GetCurrentScheduleValue(Pollution%FuelOil1Coef%PMSched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%PMPollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%PMPollution = 0.0d0
IF (Pollution%FuelOil2Coef%PMSched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%PM/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%PM*GetCurrentScheduleValue(Pollution%FuelOil2Coef%PMSched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%PMPollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%PMPollution = 0.0d0
IF (Pollution%CoalCoef%PMSched == 0) THEN
CoalValue = Pollution%CoalCoef%PM/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%PM*GetCurrentScheduleValue(Pollution%CoalCoef%PMSched)/1000.0d0
ENDIF
Pollution%CoalComp%PMPollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%PMPollution = 0.0d0
IF (Pollution%GasolineCoef%PMSched == 0) THEN
GasolineValue = Pollution%GasolineCoef%PM/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%PM*GetCurrentScheduleValue(Pollution%GasolineCoef%PMSched)/1000.0d0
ENDIF
Pollution%GasolineComp%PMPollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%PMPollution = 0.0d0
IF (Pollution%PropaneCoef%PMSched == 0) THEN
PropaneValue = Pollution%PropaneCoef%PM/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%PM*GetCurrentScheduleValue(Pollution%PropaneCoef%PMSched)/1000.0d0
ENDIF
Pollution%PropaneComp%PMPollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%PMPollution = 0.0d0
IF (Pollution%DieselCoef%PMSched == 0) THEN
DieselValue = Pollution%DieselCoef%PM/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%PM*GetCurrentScheduleValue(Pollution%DieselCoef%PMSched)/1000.0d0
ENDIF
Pollution%DieselComp%PMPollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%PMPollution = 0.0d0
IF (Pollution%OtherFuel1Coef%PMSched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%PM/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%PM*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%PMSched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%PMPollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%PMPollution = 0.0d0
IF (Pollution%OtherFuel2Coef%PMSched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%PM/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%PM*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%PMSched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%PMPollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%PM10Pollution = 0.0d0
IF (Pollution%ElecCoef%PM10Sched == 0) THEN
ElecValue = Pollution%ElecCoef%PM10/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%PM10*GetCurrentScheduleValue(Pollution%ElecCoef%PM10Sched)/1000.0d0
ENDIF
Pollution%ElecComp%PM10Pollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%PM10Pollution = 0.0d0
IF (Pollution%NatGasCoef%PM10Sched == 0) THEN
NatGasValue = Pollution%NatGasCoef%PM10/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%PM10*GetCurrentScheduleValue(Pollution%NatGasCoef%PM10Sched)/1000.0d0
ENDIF
Pollution%NatGasComp%PM10Pollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%PM10Pollution = 0.0d0
IF (Pollution%FuelOil1Coef%PM10Sched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%PM10/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%PM10*GetCurrentScheduleValue(Pollution%FuelOil1Coef%PM10Sched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%PM10Pollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%PM10Pollution = 0.0d0
IF (Pollution%FuelOil2Coef%PM10Sched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%PM10/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%PM10*GetCurrentScheduleValue(Pollution%FuelOil2Coef%PM10Sched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%PM10Pollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%PM10Pollution = 0.0d0
IF (Pollution%CoalCoef%PM10Sched == 0) THEN
CoalValue = Pollution%CoalCoef%PM10/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%PM10*GetCurrentScheduleValue(Pollution%CoalCoef%PM10Sched)/1000.0d0
ENDIF
Pollution%CoalComp%PM10Pollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%PM10Pollution = 0.0d0
IF (Pollution%GasolineCoef%PM10Sched == 0) THEN
GasolineValue = Pollution%GasolineCoef%PM10/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%PM10*GetCurrentScheduleValue(Pollution%GasolineCoef%PM10Sched)/1000.0d0
ENDIF
Pollution%GasolineComp%PM10Pollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%PM10Pollution = 0.0d0
IF (Pollution%PropaneCoef%PM10Sched == 0) THEN
PropaneValue = Pollution%PropaneCoef%PM10/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%PM10*GetCurrentScheduleValue(Pollution%PropaneCoef%PM10Sched)/1000.0d0
ENDIF
Pollution%PropaneComp%PM10Pollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%PM10Pollution = 0.0d0
IF (Pollution%DieselCoef%PM10Sched == 0) THEN
DieselValue = Pollution%DieselCoef%PM10/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%PM10*GetCurrentScheduleValue(Pollution%DieselCoef%PM10Sched)/1000.0d0
ENDIF
Pollution%DieselComp%PM10Pollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%PM10Pollution = 0.0d0
IF (Pollution%OtherFuel1Coef%PM10Sched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%PM10/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%PM10*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%PM10Sched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%PM10Pollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%PM10Pollution = 0.0d0
IF (Pollution%OtherFuel2Coef%PM10Sched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%PM10/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%PM10*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%PM10Sched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%PM10Pollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%PM25Pollution = 0.0d0
IF (Pollution%ElecCoef%PM25Sched == 0) THEN
ElecValue = Pollution%ElecCoef%PM25/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%PM25*GetCurrentScheduleValue(Pollution%ElecCoef%PM25Sched)/1000.0d0
ENDIF
Pollution%ElecComp%PM25Pollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%PM25Pollution = 0.0d0
IF (Pollution%NatGasCoef%PM25Sched == 0) THEN
NatGasValue = Pollution%NatGasCoef%PM25/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%PM25*GetCurrentScheduleValue(Pollution%NatGasCoef%PM25Sched)/1000.0d0
ENDIF
Pollution%NatGasComp%PM25Pollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%PM25Pollution = 0.0d0
IF (Pollution%FuelOil1Coef%PM25Sched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%PM25/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%PM25*GetCurrentScheduleValue(Pollution%FuelOil1Coef%PM25Sched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%PM25Pollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%PM25Pollution = 0.0d0
IF (Pollution%FuelOil2Coef%PM25Sched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%PM25/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%PM25*GetCurrentScheduleValue(Pollution%FuelOil2Coef%PM25Sched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%PM25Pollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%PM25Pollution = 0.0d0
IF (Pollution%CoalCoef%PM25Sched == 0) THEN
CoalValue = Pollution%CoalCoef%PM25/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%PM25*GetCurrentScheduleValue(Pollution%CoalCoef%PM25Sched)/1000.0d0
ENDIF
Pollution%CoalComp%PM25Pollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%PM25Pollution = 0.0d0
IF (Pollution%GasolineCoef%PM25Sched == 0) THEN
GasolineValue = Pollution%GasolineCoef%PM25/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%PM25*GetCurrentScheduleValue(Pollution%GasolineCoef%PM25Sched)/1000.0d0
ENDIF
Pollution%GasolineComp%PM25Pollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%PM25Pollution = 0.0d0
IF (Pollution%PropaneCoef%PM25Sched == 0) THEN
PropaneValue = Pollution%PropaneCoef%PM25/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%PM25*GetCurrentScheduleValue(Pollution%PropaneCoef%PM25Sched)/1000.0d0
ENDIF
Pollution%PropaneComp%PM25Pollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%PM25Pollution = 0.0d0
IF (Pollution%DieselCoef%PM25Sched == 0) THEN
DieselValue = Pollution%DieselCoef%PM25/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%PM25*GetCurrentScheduleValue(Pollution%DieselCoef%PM25Sched)/1000.0d0
ENDIF
Pollution%DieselComp%PM25Pollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%PM25Pollution = 0.0d0
IF (Pollution%OtherFuel1Coef%PM25Sched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%PM25/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%PM25*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%PM25Sched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%PM25Pollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%PM25Pollution = 0.0d0
IF (Pollution%OtherFuel2Coef%PM25Sched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%PM25/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%PM25*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%PM25Sched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%PM25Pollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%NH3Pollution = 0.0d0
IF (Pollution%ElecCoef%NH3Sched == 0) THEN
ElecValue = Pollution%ElecCoef%NH3/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%NH3*GetCurrentScheduleValue(Pollution%ElecCoef%NH3Sched)/1000.0d0
ENDIF
Pollution%ElecComp%NH3Pollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%NH3Pollution = 0.0d0
IF (Pollution%NatGasCoef%NH3Sched == 0) THEN
NatGasValue = Pollution%NatGasCoef%NH3/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%NH3*GetCurrentScheduleValue(Pollution%NatGasCoef%NH3Sched)/1000.0d0
ENDIF
Pollution%NatGasComp%NH3Pollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%NH3Pollution = 0.0d0
IF (Pollution%FuelOil1Coef%NH3Sched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%NH3/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%NH3*GetCurrentScheduleValue(Pollution%FuelOil1Coef%NH3Sched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%NH3Pollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%NH3Pollution = 0.0d0
IF (Pollution%FuelOil2Coef%NH3Sched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%NH3/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%NH3*GetCurrentScheduleValue(Pollution%FuelOil2Coef%NH3Sched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%NH3Pollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%NH3Pollution = 0.0d0
IF (Pollution%CoalCoef%NH3Sched == 0) THEN
CoalValue = Pollution%CoalCoef%NH3/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%NH3*GetCurrentScheduleValue(Pollution%CoalCoef%NH3Sched)/1000.0d0
ENDIF
Pollution%CoalComp%NH3Pollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%NH3Pollution = 0.0d0
IF (Pollution%GasolineCoef%NH3Sched == 0) THEN
GasolineValue = Pollution%GasolineCoef%NH3/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%NH3*GetCurrentScheduleValue(Pollution%GasolineCoef%NH3Sched)/1000.0d0
ENDIF
Pollution%GasolineComp%NH3Pollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%NH3Pollution = 0.0d0
IF (Pollution%PropaneCoef%NH3Sched == 0) THEN
PropaneValue = Pollution%PropaneCoef%NH3/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%NH3*GetCurrentScheduleValue(Pollution%PropaneCoef%NH3Sched)/1000.0d0
ENDIF
Pollution%PropaneComp%NH3Pollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%NH3Pollution = 0.0d0
IF (Pollution%DieselCoef%NH3Sched == 0) THEN
DieselValue = Pollution%DieselCoef%NH3/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%NH3*GetCurrentScheduleValue(Pollution%DieselCoef%NH3Sched)/1000.0d0
ENDIF
Pollution%DieselComp%NH3Pollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%NH3Pollution = 0.0d0
IF (Pollution%OtherFuel1Coef%NH3Sched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%NH3/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%NH3*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%NH3Sched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%NH3Pollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%NH3Pollution = 0.0d0
IF (Pollution%OtherFuel2Coef%NH3Sched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%NH3/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%NH3*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%NH3Sched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%NH3Pollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%NMVOCPollution = 0.0d0
IF (Pollution%ElecCoef%NMVOCSched == 0) THEN
ElecValue = Pollution%ElecCoef%NMVOC/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%NMVOC*GetCurrentScheduleValue(Pollution%ElecCoef%NMVOCSched)/1000.0d0
ENDIF
Pollution%ElecComp%NMVOCPollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%NMVOCPollution = 0.0d0
IF (Pollution%NatGasCoef%NMVOCSched == 0) THEN
NatGasValue = Pollution%NatGasCoef%NMVOC/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%NMVOC*GetCurrentScheduleValue(Pollution%NatGasCoef%NMVOCSched)/1000.0d0
ENDIF
Pollution%NatGasComp%NMVOCPollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%NMVOCPollution = 0.0d0
IF (Pollution%FuelOil1Coef%NMVOCSched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%NMVOC/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%NMVOC*GetCurrentScheduleValue(Pollution%FuelOil1Coef%NMVOCSched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%NMVOCPollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%NMVOCPollution = 0.0d0
IF (Pollution%FuelOil2Coef%NMVOCSched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%NMVOC/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%NMVOC*GetCurrentScheduleValue(Pollution%FuelOil2Coef%NMVOCSched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%NMVOCPollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%NMVOCPollution = 0.0d0
IF (Pollution%CoalCoef%NMVOCSched == 0) THEN
CoalValue = Pollution%CoalCoef%NMVOC/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%NMVOC*GetCurrentScheduleValue(Pollution%CoalCoef%NMVOCSched)/1000.0d0
ENDIF
Pollution%CoalComp%NMVOCPollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%NMVOCPollution = 0.0d0
IF (Pollution%GasolineCoef%NMVOCSched == 0) THEN
GasolineValue = Pollution%GasolineCoef%NMVOC/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%NMVOC*GetCurrentScheduleValue(Pollution%GasolineCoef%NMVOCSched)/1000.0d0
ENDIF
Pollution%GasolineComp%NMVOCPollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%NMVOCPollution = 0.0d0
IF (Pollution%PropaneCoef%NMVOCSched == 0) THEN
PropaneValue = Pollution%PropaneCoef%NMVOC/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%NMVOC*GetCurrentScheduleValue(Pollution%PropaneCoef%NMVOCSched)/1000.0d0
ENDIF
Pollution%PropaneComp%NMVOCPollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%NMVOCPollution = 0.0d0
IF (Pollution%DieselCoef%NMVOCSched == 0) THEN
DieselValue = Pollution%DieselCoef%NMVOC/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%NMVOC*GetCurrentScheduleValue(Pollution%DieselCoef%NMVOCSched)/1000.0d0
ENDIF
Pollution%DieselComp%NMVOCPollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%NMVOCPollution = 0.0d0
IF (Pollution%OtherFuel1Coef%NMVOCSched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%NMVOC/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%NMVOC*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%NMVOCSched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%NMVOCPollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%NMVOCPollution = 0.0d0
IF (Pollution%OtherFuel2Coef%NMVOCSched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%NMVOC/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%NMVOC*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%NMVOCSched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%NMVOCPollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%HgPollution = 0.0d0
IF (Pollution%ElecCoef%HgSched == 0) THEN
ElecValue = Pollution%ElecCoef%Hg/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%Hg*GetCurrentScheduleValue(Pollution%ElecCoef%HgSched)/1000.0d0
ENDIF
Pollution%ElecComp%HgPollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%HgPollution = 0.0d0
IF (Pollution%NatGasCoef%HgSched == 0) THEN
NatGasValue = Pollution%NatGasCoef%Hg/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%Hg*GetCurrentScheduleValue(Pollution%NatGasCoef%HgSched)/1000.0d0
ENDIF
Pollution%NatGasComp%HgPollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%HgPollution = 0.0d0
IF (Pollution%FuelOil1Coef%HgSched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%Hg/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%Hg*GetCurrentScheduleValue(Pollution%FuelOil1Coef%HgSched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%HgPollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%HgPollution = 0.0d0
IF (Pollution%FuelOil2Coef%HgSched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%Hg/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%Hg*GetCurrentScheduleValue(Pollution%FuelOil2Coef%HgSched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%HgPollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%HgPollution = 0.0d0
IF (Pollution%CoalCoef%HgSched == 0) THEN
CoalValue = Pollution%CoalCoef%Hg/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%Hg*GetCurrentScheduleValue(Pollution%CoalCoef%HgSched)/1000.0d0
ENDIF
Pollution%CoalComp%HgPollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%HgPollution = 0.0d0
IF (Pollution%GasolineCoef%HgSched == 0) THEN
GasolineValue = Pollution%GasolineCoef%Hg/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%Hg*GetCurrentScheduleValue(Pollution%GasolineCoef%HgSched)/1000.0d0
ENDIF
Pollution%GasolineComp%HgPollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%HgPollution = 0.0d0
IF (Pollution%PropaneCoef%HgSched == 0) THEN
PropaneValue = Pollution%PropaneCoef%Hg/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%Hg*GetCurrentScheduleValue(Pollution%PropaneCoef%HgSched)/1000.0d0
ENDIF
Pollution%PropaneComp%HgPollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%HgPollution = 0.0d0
IF (Pollution%DieselCoef%HgSched == 0) THEN
DieselValue = Pollution%DieselCoef%Hg/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%Hg*GetCurrentScheduleValue(Pollution%DieselCoef%HgSched)/1000.0d0
ENDIF
Pollution%DieselComp%HgPollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%HgPollution = 0.0d0
IF (Pollution%OtherFuel1Coef%HgSched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%Hg/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%Hg*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%HgSched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%HgPollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%HgPollution = 0.0d0
IF (Pollution%OtherFuel2Coef%HgSched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%Hg/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%Hg*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%HgSched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%HgPollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%PbPollution = 0.0d0
IF (Pollution%ElecCoef%PbSched == 0) THEN
ElecValue = Pollution%ElecCoef%Pb/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%Pb*GetCurrentScheduleValue(Pollution%ElecCoef%PbSched)/1000.0d0
ENDIF
Pollution%ElecComp%PbPollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%PbPollution = 0.0d0
IF (Pollution%NatGasCoef%PbSched == 0) THEN
NatGasValue = Pollution%NatGasCoef%Pb/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%Pb*GetCurrentScheduleValue(Pollution%NatGasCoef%PbSched)/1000.0d0
ENDIF
Pollution%NatGasComp%PbPollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%PbPollution = 0.0d0
IF (Pollution%FuelOil1Coef%PbSched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%Pb/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%Pb*GetCurrentScheduleValue(Pollution%FuelOil1Coef%PbSched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%PbPollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%PbPollution = 0.0d0
IF (Pollution%FuelOil2Coef%PbSched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%Pb/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%Pb*GetCurrentScheduleValue(Pollution%FuelOil2Coef%PbSched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%PbPollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%PbPollution = 0.0d0
IF (Pollution%CoalCoef%PbSched == 0) THEN
CoalValue = Pollution%CoalCoef%Pb/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%Pb*GetCurrentScheduleValue(Pollution%CoalCoef%PbSched)/1000.0d0
ENDIF
Pollution%CoalComp%PbPollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%PbPollution = 0.0d0
IF (Pollution%GasolineCoef%PbSched == 0) THEN
GasolineValue = Pollution%GasolineCoef%Pb/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%Pb*GetCurrentScheduleValue(Pollution%GasolineCoef%PbSched)/1000.0d0
ENDIF
Pollution%GasolineComp%PbPollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%PbPollution = 0.0d0
IF (Pollution%PropaneCoef%PbSched == 0) THEN
PropaneValue = Pollution%PropaneCoef%Pb/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%Pb*GetCurrentScheduleValue(Pollution%PropaneCoef%PbSched)/1000.0d0
ENDIF
Pollution%PropaneComp%PbPollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%PbPollution = 0.0d0
IF (Pollution%DieselCoef%PbSched == 0) THEN
DieselValue = Pollution%DieselCoef%Pb/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%Pb*GetCurrentScheduleValue(Pollution%DieselCoef%PbSched)/1000.0d0
ENDIF
Pollution%DieselComp%PbPollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%PbPollution = 0.0d0
IF (Pollution%OtherFuel1Coef%PbSched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%Pb/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%Pb*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%PbSched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%PbPollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%PbPollution = 0.0d0
IF (Pollution%OtherFuel2Coef%PbSched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%Pb/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%Pb*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%PbSched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%PbPollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%WaterPollution = 0.0d0
IF (Pollution%ElecCoef%WaterSched == 0) THEN
ElecValue = Pollution%ElecCoef%Water
ELSE
ElecValue = Pollution%ElecCoef%Water*GetCurrentScheduleValue(Pollution%ElecCoef%WaterSched)
ENDIF
Pollution%ElecComp%WaterPollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%WaterPollution = 0.0d0
IF (Pollution%NatGasCoef%WaterSched == 0) THEN
NatGasValue = Pollution%NatGasCoef%Water
ELSE
NatGasValue = Pollution%NatGasCoef%Water*GetCurrentScheduleValue(Pollution%NatGasCoef%WaterSched)
ENDIF
Pollution%NatGasComp%WaterPollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%WaterPollution = 0.0d0
IF (Pollution%FuelOil1Coef%WaterSched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%Water
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%Water*GetCurrentScheduleValue(Pollution%FuelOil1Coef%WaterSched)
ENDIF
Pollution%FuelOil1Comp%WaterPollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%WaterPollution = 0.0d0
IF (Pollution%FuelOil2Coef%WaterSched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%Water
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%Water*GetCurrentScheduleValue(Pollution%FuelOil2Coef%WaterSched)
ENDIF
Pollution%FuelOil2Comp%WaterPollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%WaterPollution = 0.0d0
IF (Pollution%CoalCoef%WaterSched == 0) THEN
CoalValue = Pollution%CoalCoef%Water
ELSE
CoalValue = Pollution%CoalCoef%Water*GetCurrentScheduleValue(Pollution%CoalCoef%WaterSched)
ENDIF
Pollution%CoalComp%WaterPollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%WaterPollution = 0.0d0
IF (Pollution%GasolineCoef%WaterSched == 0) THEN
GasolineValue = Pollution%GasolineCoef%Water
ELSE
GasolineValue = Pollution%GasolineCoef%Water*GetCurrentScheduleValue(Pollution%GasolineCoef%WaterSched)
ENDIF
Pollution%GasolineComp%WaterPollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%WaterPollution = 0.0d0
IF (Pollution%PropaneCoef%WaterSched == 0) THEN
PropaneValue = Pollution%PropaneCoef%Water
ELSE
PropaneValue = Pollution%PropaneCoef%Water*GetCurrentScheduleValue(Pollution%PropaneCoef%WaterSched)
ENDIF
Pollution%PropaneComp%WaterPollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%WaterPollution = 0.0d0
IF (Pollution%DieselCoef%WaterSched == 0) THEN
DieselValue = Pollution%DieselCoef%Water
ELSE
DieselValue = Pollution%DieselCoef%Water*GetCurrentScheduleValue(Pollution%DieselCoef%WaterSched)
ENDIF
Pollution%DieselComp%WaterPollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%WaterPollution = 0.0d0
IF (Pollution%OtherFuel1Coef%WaterSched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%Water
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%Water*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%WaterSched)
ENDIF
Pollution%OtherFuel1Comp%WaterPollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%WaterPollution = 0.0d0
IF (Pollution%OtherFuel2Coef%WaterSched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%Water
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%Water*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%WaterSched)
ENDIF
Pollution%OtherFuel2Comp%WaterPollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%NucHiPollution = 0.0d0
IF (Pollution%ElecCoef%NucHiSched == 0) THEN
ElecValue = Pollution%ElecCoef%NucHi/1000.0d0
ELSE
ElecValue = Pollution%ElecCoef%NucHi*GetCurrentScheduleValue(Pollution%ElecCoef%NucHiSched)/1000.0d0
ENDIF
Pollution%ElecComp%NucHiPollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%NucHiPollution = 0.0d0
IF (Pollution%NatGasCoef%NucHiSched == 0) THEN
NatGasValue = Pollution%NatGasCoef%NucHi/1000.0d0
ELSE
NatGasValue = Pollution%NatGasCoef%NucHi*GetCurrentScheduleValue(Pollution%NatGasCoef%NucHiSched)/1000.0d0
ENDIF
Pollution%NatGasComp%NucHiPollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%NucHiPollution = 0.0d0
IF (Pollution%FuelOil1Coef%NucHiSched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%NucHi/1000.0d0
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%NucHi*GetCurrentScheduleValue(Pollution%FuelOil1Coef%NucHiSched)/1000.0d0
ENDIF
Pollution%FuelOil1Comp%NucHiPollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%NucHiPollution = 0.0d0
IF (Pollution%FuelOil2Coef%NucHiSched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%NucHi/1000.0d0
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%NucHi*GetCurrentScheduleValue(Pollution%FuelOil2Coef%NucHiSched)/1000.0d0
ENDIF
Pollution%FuelOil2Comp%NucHiPollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%NucHiPollution = 0.0d0
IF (Pollution%CoalCoef%NucHiSched == 0) THEN
CoalValue = Pollution%CoalCoef%NucHi/1000.0d0
ELSE
CoalValue = Pollution%CoalCoef%NucHi*GetCurrentScheduleValue(Pollution%CoalCoef%NucHiSched)/1000.0d0
ENDIF
Pollution%CoalComp%NucHiPollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%NucHiPollution = 0.0d0
IF (Pollution%GasolineCoef%NucHiSched == 0) THEN
GasolineValue = Pollution%GasolineCoef%NucHi/1000.0d0
ELSE
GasolineValue = Pollution%GasolineCoef%NucHi*GetCurrentScheduleValue(Pollution%GasolineCoef%NucHiSched)/1000.0d0
ENDIF
Pollution%GasolineComp%NucHiPollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%NucHiPollution = 0.0d0
IF (Pollution%PropaneCoef%NucHiSched == 0) THEN
PropaneValue = Pollution%PropaneCoef%NucHi/1000.0d0
ELSE
PropaneValue = Pollution%PropaneCoef%NucHi*GetCurrentScheduleValue(Pollution%PropaneCoef%NucHiSched)/1000.0d0
ENDIF
Pollution%PropaneComp%NucHiPollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%NucHiPollution = 0.0d0
IF (Pollution%DieselCoef%NucHiSched == 0) THEN
DieselValue = Pollution%DieselCoef%NucHi/1000.0d0
ELSE
DieselValue = Pollution%DieselCoef%NucHi*GetCurrentScheduleValue(Pollution%DieselCoef%NucHiSched)/1000.0d0
ENDIF
Pollution%DieselComp%NucHiPollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%NucHiPollution = 0.0d0
IF (Pollution%OtherFuel1Coef%NucHiSched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%NucHi/1000.0d0
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%NucHi*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%NucHiSched)/1000.0d0
ENDIF
Pollution%OtherFuel1Comp%NucHiPollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%NucHiPollution = 0.0d0
IF (Pollution%OtherFuel2Coef%NucHiSched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%NucHi/1000.0d0
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%NucHi*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%NucHiSched)/1000.0d0
ENDIF
Pollution%OtherFuel2Comp%NucHiPollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%FuelFactorUsed) THEN
Pollution%ElecComp%NucLoPollution = 0.0d0
IF (Pollution%ElecCoef%NucLoSched == 0) THEN
ElecValue = Pollution%ElecCoef%NucLo
ELSE
ElecValue = Pollution%ElecCoef%NucLo*GetCurrentScheduleValue(Pollution%ElecCoef%NucLoSched)
ENDIF
Pollution%ElecComp%NucLoPollution = (FuelType%Elec/1.0d6)*ElecValue
ENDIF
IF (Pollution%NatGasCoef%FuelFactorUsed) THEN
Pollution%NatGasComp%NucLoPollution = 0.0d0
IF (Pollution%NatGasCoef%NucLoSched == 0) THEN
NatGasValue = Pollution%NatGasCoef%NucLo
ELSE
NatGasValue = Pollution%NatGasCoef%NucLo*GetCurrentScheduleValue(Pollution%NatGasCoef%NucLoSched)
ENDIF
Pollution%NatGasComp%NucLoPollution = (FuelType%NatGas/1.0d6)*NatGasValue
ENDIF
IF (Pollution%FuelOil1Coef%FuelFactorUsed) THEN
Pollution%FuelOil1Comp%NucLoPollution = 0.0d0
IF (Pollution%FuelOil1Coef%NucLoSched == 0) THEN
FuelOil1Value = Pollution%FuelOil1Coef%NucLo
ELSE
FuelOil1Value = Pollution%FuelOil1Coef%NucLo*GetCurrentScheduleValue(Pollution%FuelOil1Coef%NucLoSched)
ENDIF
Pollution%FuelOil1Comp%NucLoPollution = (FuelType%FuelOil1/1.0d6)*FuelOil1Value
ENDIF
IF (Pollution%FuelOil2Coef%FuelFactorUsed) THEN
Pollution%FuelOil2Comp%NucLoPollution = 0.0d0
IF (Pollution%FuelOil2Coef%NucLoSched == 0) THEN
FuelOil2Value = Pollution%FuelOil2Coef%NucLo
ELSE
FuelOil2Value = Pollution%FuelOil2Coef%NucLo*GetCurrentScheduleValue(Pollution%FuelOil2Coef%NucLoSched)
ENDIF
Pollution%FuelOil2Comp%NucLoPollution = (FuelType%FuelOil2/1.0d6)*FuelOil2Value
ENDIF
IF (Pollution%CoalCoef%FuelFactorUsed) THEN
Pollution%CoalComp%NucLoPollution = 0.0d0
IF (Pollution%CoalCoef%NucLoSched == 0) THEN
CoalValue = Pollution%CoalCoef%NucLo
ELSE
CoalValue = Pollution%CoalCoef%NucLo*GetCurrentScheduleValue(Pollution%CoalCoef%NucLoSched)
ENDIF
Pollution%CoalComp%NucLoPollution = (FuelType%Coal/1.0d6)*CoalValue
ENDIF
IF (Pollution%GasolineCoef%FuelFactorUsed) THEN
Pollution%GasolineComp%NucLoPollution = 0.0d0
IF (Pollution%GasolineCoef%NucLoSched == 0) THEN
GasolineValue = Pollution%GasolineCoef%NucLo
ELSE
GasolineValue = Pollution%GasolineCoef%NucLo*GetCurrentScheduleValue(Pollution%GasolineCoef%NucLoSched)
ENDIF
Pollution%GasolineComp%NucLoPollution = (FuelType%Gasoline/1.0d6)*GasolineValue
ENDIF
IF (Pollution%PropaneCoef%FuelFactorUsed) THEN
Pollution%PropaneComp%NucLoPollution = 0.0d0
IF (Pollution%PropaneCoef%NucLoSched == 0) THEN
PropaneValue = Pollution%PropaneCoef%NucLo
ELSE
PropaneValue = Pollution%PropaneCoef%NucLo*GetCurrentScheduleValue(Pollution%PropaneCoef%NucLoSched)
ENDIF
Pollution%PropaneComp%NucLoPollution = (FuelType%Propane/1.0d6)*PropaneValue
ENDIF
IF (Pollution%DieselCoef%FuelFactorUsed) THEN
Pollution%DieselComp%NucLoPollution = 0.0d0
IF (Pollution%DieselCoef%NucLoSched == 0) THEN
DieselValue = Pollution%DieselCoef%NucLo
ELSE
DieselValue = Pollution%DieselCoef%NucLo*GetCurrentScheduleValue(Pollution%DieselCoef%NucLoSched)
ENDIF
Pollution%DieselComp%NucLoPollution = (FuelType%Diesel/1.0d6)*DieselValue
ENDIF
IF (Pollution%OtherFuel1Coef%FuelFactorUsed) THEN
Pollution%OtherFuel1Comp%NucLoPollution = 0.0d0
IF (Pollution%OtherFuel1Coef%NucLoSched == 0) THEN
OtherFuel1Value = Pollution%OtherFuel1Coef%NucLo
ELSE
OtherFuel1Value = Pollution%OtherFuel1Coef%NucLo*GetCurrentScheduleValue(Pollution%OtherFuel1Coef%NucLoSched)
ENDIF
Pollution%OtherFuel1Comp%NucLoPollution = (FuelType%OtherFuel1/1.0d6)*OtherFuel1Value
ENDIF
IF (Pollution%OtherFuel2Coef%FuelFactorUsed) THEN
Pollution%OtherFuel2Comp%NucLoPollution = 0.0d0
IF (Pollution%OtherFuel2Coef%NucLoSched == 0) THEN
OtherFuel2Value = Pollution%OtherFuel2Coef%NucLo
ELSE
OtherFuel2Value = Pollution%OtherFuel2Coef%NucLo*GetCurrentScheduleValue(Pollution%OtherFuel2Coef%NucLoSched)
ENDIF
Pollution%OtherFuel2Comp%NucLoPollution = (FuelType%OtherFuel2/1.0d6)*OtherFuel2Value
ENDIF
Pollution%TotCarbonEquivFromN2O = Pollution%N2OPollutTotal*Pollution%CarbonEquivN2O
Pollution%TotCarbonEquivFromCH4 = Pollution%CH4PollutTotal*Pollution%CarbonEquivCH4
Pollution%TotCarbonEquivFromCO2 = Pollution%CO2PollutTotal*Pollution%CarbonEquivCO2
ElecValue = 0.0d0
NatGasValue = 0.0d0
FuelOil1Value = 0.0d0
FuelOil2Value = 0.0d0
CoalValue = 0.0d0
GasolineValue = 0.0d0
PropaneValue = 0.0d0
DieselValue = 0.0d0
OtherFuel1Value = 0.0d0
OtherFuel2Value = 0.0d0
IF (Pollution%ElecCoef%SourceSched .NE. 0) THEN
Pollution%ElecComp%Source = FuelType%Elec*Pollution%ElecCoef%Source &
* GetCurrentScheduleValue(Pollution%ElecCoef%SourceSched)
Pollution%ElecPurchComp%Source = FuelType%ElecPurch*Pollution%ElecCoef%Source &
* GetCurrentScheduleValue(Pollution%ElecCoef%SourceSched)
Pollution%ElecSurplusSoldComp%Source = FuelType%ElecSold*Pollution%ElecCoef%Source &
* GetCurrentScheduleValue(Pollution%ElecCoef%SourceSched)
ELSE
Pollution%ElecComp%Source = FuelType%Elec*Pollution%ElecCoef%Source
Pollution%ElecPurchComp%Source = FuelType%ElecPurch*Pollution%ElecCoef%Source
Pollution%ElecSurplusSoldComp%Source = FuelType%ElecSold*Pollution%ElecCoef%Source
END IF
IF (Pollution%NatGasCoef%SourceSched .NE. 0) THEN
! does not include district heating or steam
Pollution%NatGasComp%Source = FuelType%NatGasFacility*Pollution%NatGasCoef%Source &
* GetCurrentScheduleValue(Pollution%NatGasCoef%SourceSched)
ELSE
Pollution%NatGasComp%Source = FuelType%NatGasFacility*Pollution%NatGasCoef%Source
END IF
IF (Pollution%FuelOil1Coef%SourceSched .NE. 0) THEN
Pollution%FuelOil1Comp%Source= FuelType%FuelOil1*Pollution%FuelOil1Coef%Source &
* GetCurrentScheduleValue(Pollution%FuelOil1Coef%SourceSched)
ELSE
Pollution%FuelOil1Comp%Source= FuelType%FuelOil1*Pollution%FuelOil1Coef%Source
END IF
IF (Pollution%FuelOil2Coef%SourceSched .NE. 0) THEN
Pollution%FuelOil2Comp%Source = FuelType%FuelOil2*Pollution%FuelOil2Coef%Source &
* GetCurrentScheduleValue(Pollution%FuelOil2Coef%SourceSched)
ELSE
Pollution%FuelOil1Comp%Source = FuelType%FuelOil2*Pollution%FuelOil2Coef%Source
END IF
IF (Pollution%CoalCoef%SourceSched .NE. 0) THEN
Pollution%CoalComp%Source = FuelType%Coal*Pollution%CoalCoef%Source &
* GetCurrentScheduleValue(Pollution%CoalCoef%SourceSched)
ELSE
Pollution%CoalComp%Source = FuelType%Coal*Pollution%CoalCoef%Source
END IF
IF (Pollution%GasolineCoef%SourceSched .NE. 0) THEN
Pollution%GasolineComp%Source = FuelType%Gasoline*Pollution%GasolineCoef%Source &
* GetCurrentScheduleValue(Pollution%GasolineCoef%SourceSched)
ELSE
Pollution%GasolineComp%Source = FuelType%Gasoline*Pollution%GasolineCoef%Source
END IF
IF (Pollution%PropaneCoef%SourceSched .NE. 0) THEN
Pollution%PropaneComp%Source = FuelType%Propane*Pollution%PropaneCoef%Source &
* GetCurrentScheduleValue(Pollution%PropaneCoef%SourceSched)
ELSE
Pollution%PropaneComp%Source = FuelType%Propane*Pollution%PropaneCoef%Source
END IF
IF (Pollution%DieselCoef%SourceSched .NE. 0) THEN
Pollution%DieselComp%Source = FuelType%Diesel*Pollution%DieselCoef%Source &
* GetCurrentScheduleValue(Pollution%DieselCoef%SourceSched)
ELSE
Pollution%DieselComp%Source = FuelType%Diesel*Pollution%DieselCoef%Source
END IF
IF (Pollution%OtherFuel1Coef%SourceSched .NE. 0) THEN
Pollution%OtherFuel1Comp%Source = FuelType%OtherFuel1*Pollution%OtherFuel1Coef%Source &
* GetCurrentScheduleValue(Pollution%OtherFuel1Coef%SourceSched)
ELSE
Pollution%OtherFuel1Comp%Source = FuelType%OtherFuel1*Pollution%OtherFuel1Coef%Source
END IF
IF (Pollution%OtherFuel2Coef%SourceSched .NE. 0) THEN
Pollution%OtherFuel2Comp%Source = FuelType%OtherFuel2*Pollution%OtherFuel2Coef%Source &
* GetCurrentScheduleValue(Pollution%OtherFuel2Coef%SourceSched)
ELSE
Pollution%OtherFuel2Comp%Source = FuelType%OtherFuel2*Pollution%OtherFuel2Coef%Source
END IF
Return
END SUBROUTINE CalcPollution