SUBROUTINE CreatePredefinedMonthlyReports
! SUBROUTINE INFORMATION:
! AUTHOR Jason Glazer
! DATE WRITTEN September 2008
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! For any predefined monthly reports that have been
! called out, define the individual columns.
! METHODOLOGY EMPLOYED:
!
! REFERENCES:
! na
! USE STATEMENTS:
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:
INTEGER :: curReport
! ----------------------------------------------------------------------------------------
! If any variable are added to these reports they also need to be added to the
! AddVariablesForMonthlyReport routine in InputProcessor.
! ----------------------------------------------------------------------------------------
IF (NamedMonthly(1)%show) THEN
curReport = AddMonthlyReport('ZoneCoolingSummaryMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone Air System Sensible Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Air System Sensible Cooling Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Drybulb Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Wetbulb Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Zone Total Internal Latent Gain Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Total Internal Latent Gain Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Drybulb Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Wetbulb Temperature','',aggTypeValueWhenMaxMin)
END IF
IF (NamedMonthly(2)%show) THEN
curReport = AddMonthlyReport('ZoneHeatingSummaryMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone Air System Sensible Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Air System Sensible Heating Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Drybulb Temperature','',aggTypeValueWhenMaxMin)
END IF
IF (NamedMonthly(3)%show) THEN
curReport = AddMonthlyReport('ZoneElectricSummaryMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone Lights Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Lights Electric Energy','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Zone Electric Equipment Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Electric Equipment Electric Energy','',aggTypeMaximum)
END IF
IF (NamedMonthly(4)%show) THEN
curReport = AddMonthlyReport('SpaceGainsMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone People Total Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Lights Total Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Electric Equipment Total Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Gas Equipment Total Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Hot Water Equipment Total Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Steam Equipment Total Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Other Equipment Total Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Infiltration Sensible Heat Gain Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Infiltration Sensible Heat Loss Energy','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(5)%show) THEN
curReport = AddMonthlyReport('PeakSpaceGainsMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone People Total Heating Energy','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Zone Lights Total Heating Energy','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Zone Electric Equipment Total Heating Energy','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Zone Gas Equipment Total Heating Energy','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Zone Hot Water Equipment Total Heating Energy','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Zone Steam Equipment Total Heating Energy','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Zone Other Equipment Total Heating Energy','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Zone Infiltration Sensible Heat Gain Energy','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Zone Infiltration Sensible Heat Loss Energy','',aggTypeMaximum)
END IF
IF (NamedMonthly(6)%show) THEN
curReport = AddMonthlyReport('SpaceGainComponentsAtCoolingPeakMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone Air System Sensible Cooling Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Zone People Total Heating Energy','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Zone Lights Total Heating Energy','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Zone Electric Equipment Total Heating Energy','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Zone Gas Equipment Total Heating Energy','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Zone Hot Water Equipment Total Heating Energy','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Zone Steam Equipment Total Heating Energy','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Zone Other Equipment Total Heating Energy','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Zone Infiltration Sensible Heat Gain Energy','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Zone Infiltration Sensible Heat Loss Energy','',aggTypeValueWhenMaxMin)
END IF
IF (NamedMonthly(7)%show) THEN
curReport = AddMonthlyReport('EnergyConsumptionElectricityNaturalGasMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Electricity:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Electricity:Facility','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Gas:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Gas:Facility','',aggTypeMaximum)
END IF
IF (NamedMonthly(8)%show) THEN
curReport = AddMonthlyReport('EnergyConsumptionElectricityGeneratedPropaneMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ElectricityProduced:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'ElectricityProduced:Facility','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Propane:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Propane:Facility','',aggTypeMaximum)
END IF
IF (NamedMonthly(9)%show) THEN
curReport = AddMonthlyReport('EnergyConsumptionDieselFuelOilMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Diesel:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Diesel:Facility','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'FuelOil#1:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'FuelOil#1:Facility','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'FuelOil#2:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'FuelOil#2:Facility','',aggTypeMaximum)
END IF
IF (NamedMonthly(10)%show) THEN
curReport = AddMonthlyReport('EnergyConsumptionDistrictHeatingCoolingMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'DistrictCooling:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'DistrictCooling:Facility','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'DistrictHeating:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'DistrictHeating:Facility','',aggTypeMaximum)
END IF
IF (NamedMonthly(11)%show) THEN
curReport = AddMonthlyReport('EnergyConsumptionCoalGasolineMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Coal:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Coal:Facility','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Gasoline:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Gasoline:Facility','',aggTypeMaximum)
END IF
IF (NamedMonthly(12)%show) THEN
curReport = AddMonthlyReport('EnergyConsumptionOtherFuelsMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'OtherFuel1:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'OtherFuel1:Facility','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'OtherFuel2:Facility','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'OtherFuel2:Facility','',aggTypeMaximum)
END IF
IF (NamedMonthly(13)%show) THEN
curReport = AddMonthlyReport('EndUseEnergyConsumptionElectricityMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'InteriorLights:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorLights:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'InteriorEquipment:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Fans:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Pumps:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'HeatRejection:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Humidifier:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'HeatRecovery:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Electricity','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:Electricity','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(14)%show) THEN
curReport = AddMonthlyReport('EndUseEnergyConsumptionNaturalGasMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'InteriorEquipment:Gas','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Gas','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Gas','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:Gas','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Gas','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:Gas','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(15)%show) THEN
curReport = AddMonthlyReport('EndUseEnergyConsumptionDieselMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Diesel','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:Diesel','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Diesel','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Diesel','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:Diesel','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(16)%show) THEN
curReport = AddMonthlyReport('EndUseEnergyConsumptionFuelOilMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:FuelOil#1','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:FuelOil#1','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Heating:FuelOil#1','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:FuelOil#1','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:FuelOil#1','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:FuelOil#2','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:FuelOil#2','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Heating:FuelOil#2','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:FuelOil#2','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:FuelOil#2','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(17)%show) THEN
curReport = AddMonthlyReport('EndUseEnergyConsumptionCoalMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Coal','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Coal','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Coal','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(18)%show) THEN
curReport = AddMonthlyReport('EndUseEnergyConsumptionPropaneMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Propane','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:Propane','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Propane','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Propane','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:Propane','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(19)%show) THEN
curReport = AddMonthlyReport('EndUseEnergyConsumptionGasolineMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Gasoline','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:Gasoline','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Gasoline','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Gasoline','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:Gasoline','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(20)%show) THEN
curReport = AddMonthlyReport('EndUseEnergyConsumptionOtherFuelsMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:OtherFuel1','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:OtherFuel1','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Heating:OtherFuel1','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:OtherFuel1','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:OtherFuel1','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:OtherFuel2','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:OtherFuel2','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Heating:OtherFuel2','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:OtherFuel2','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:OtherFuel2','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(21)%show) THEN
curReport = AddMonthlyReport('PeakEnergyEndUseElectricityPart1Monthly',2)
CALL AddMonthlyFieldSetInput(curReport,'InteriorLights:Electricity','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorLights:Electricity','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'InteriorEquipment:Electricity','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Electricity','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Fans:Electricity','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Pumps:Electricity','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Electricity','',aggTypeMaximum)
END IF
IF (NamedMonthly(22)%show) THEN
curReport = AddMonthlyReport('PeakEnergyEndUseElectricityPart2Monthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:Electricity','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'HeatRejection:Electricity','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Humidifier:Electricity','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'HeatRecovery:Electricity','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Electricity','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:Electricity','',aggTypeMaximum)
END IF
IF (NamedMonthly(23)%show) THEN
curReport = AddMonthlyReport('ElectricComponentsOfPeakDemandMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Electricity:Facility','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'InteriorLights:Electricity','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'InteriorEquipment:Electricity','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorLights:Electricity','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Electricity','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Fans:Electricity','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Pumps:Electricity','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Electricity','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:Electricity','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'HeatRejection:Electricity','',aggTypeValueWhenMaxMin)
END IF
IF (NamedMonthly(24)%show) THEN
curReport = AddMonthlyReport('PeakEnergyEndUseNaturalGasMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'InteriorEquipment:Gas','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Gas','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Gas','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:Gas','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Gas','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:Gas','',aggTypeMaximum)
END IF
IF (NamedMonthly(25)%show) THEN
curReport = AddMonthlyReport('PeakEnergyEndUseDieselMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Diesel','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:Diesel','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Diesel','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Diesel','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:Diesel','',aggTypeMaximum)
END IF
IF (NamedMonthly(26)%show) THEN
curReport = AddMonthlyReport('PeakEnergyEndUseFuelOilMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:FuelOil#1','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:FuelOil#1','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Heating:FuelOil#1','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:FuelOil#1','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:FuelOil#1','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:FuelOil#2','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:FuelOil#2','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Heating:FuelOil#2','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:FuelOil#2','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:FuelOil#2','',aggTypeMaximum)
END IF
IF (NamedMonthly(27)%show) THEN
curReport = AddMonthlyReport('PeakEnergyEndUseCoalMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Coal','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Coal','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Coal','',aggTypeMaximum)
END IF
IF (NamedMonthly(28)%show) THEN
curReport = AddMonthlyReport('PeakEnergyEndUsePropaneMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Propane','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:Propane','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Propane','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Propane','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:Propane','',aggTypeMaximum)
END IF
IF (NamedMonthly(29)%show) THEN
curReport = AddMonthlyReport('PeakEnergyEndUseGasolineMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:Gasoline','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:Gasoline','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Heating:Gasoline','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:Gasoline','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:Gasoline','',aggTypeMaximum)
END IF
IF (NamedMonthly(30)%show) THEN
curReport = AddMonthlyReport('PeakEnergyEndUseOtherFuelsMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:OtherFuel1','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:OtherFuel1','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Heating:OtherFuel1','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:OtherFuel1','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:OtherFuel1','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'ExteriorEquipment:OtherFuel2','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling:OtherFuel2','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Heating:OtherFuel2','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'WaterSystems:OtherFuel2','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cogeneration:OtherFuel2','',aggTypeMaximum)
END IF
IF (NamedMonthly(31)%show) THEN
curReport = AddMonthlyReport('SetpointsNotMetWithTemperaturesMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone Heating Setpoint Not Met Time','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mean Air Temperature','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Zone Heating Setpoint Not Met While Occupied Time','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mean Air Temperature','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Zone Cooling Setpoint Not Met Time','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mean Air Temperature','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Zone Cooling Setpoint Not Met While Occupied Time','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mean Air Temperature','',aggTypeSumOrAverageHoursShown)
END IF
IF (NamedMonthly(32)%show) THEN
curReport = AddMonthlyReport('ComfortReportSimple55Monthly',2)
CALL AddMonthlyFieldSetInput(curReport, &
'Zone Thermal Comfort ASHRAE 55 Simple Model Summer Clothes Not Comfortable Time','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mean Air Temperature','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport, &
'Zone Thermal Comfort ASHRAE 55 Simple Model Winter Clothes Not Comfortable Time','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mean Air Temperature','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport, &
'Zone Thermal Comfort ASHRAE 55 Simple Model Summer or Winter Clothes Not Comfortable Time','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mean Air Temperature','',aggTypeSumOrAverageHoursShown)
END IF
IF (NamedMonthly(33)%show) THEN
curReport = AddMonthlyReport('UnglazedTranspiredSolarCollectorSummaryMonthly',5)
CALL AddMonthlyFieldSetInput(curReport,'Solar Collector System Efficiency','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Solar Collector System Efficiency','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Solar Collector Outside Face Suction Velocity','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Solar Collector Sensible Heating Rate','',aggTypeSumOrAverageHoursShown)
END IF
IF (NamedMonthly(34)%show) THEN
curReport = AddMonthlyReport('OccupantComfortDataSummaryMonthly',5)
CALL AddMonthlyFieldSetInput(curReport,'People Occupant Count','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'People Air Temperature','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'People Air Relative Humidity','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Zone Thermal Comfort Fanger Model PMV','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Zone Thermal Comfort Fanger Model PPD','',aggTypeSumOrAverageHoursShown)
END IF
IF (NamedMonthly(35)%show) THEN
curReport = AddMonthlyReport('ChillerReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Chiller Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Chiller Electric Power','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Chiller Electric Energy','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Chiller Evaporator Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Chiller Evaporator Cooling Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Chiller Condenser Heat Transfer Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Chiller COP','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Chiller COP','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Chiller Part Load Ratio','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Chiller Part Load Ratio','',aggTypeMaximum)
END IF
IF (NamedMonthly(36)%show) THEN
curReport = AddMonthlyReport('TowerReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Tower Fan Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Tower Fan Electric Energy','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Tower Fan Electric Power','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Tower Heat Transfer Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Tower Inlet Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Tower Outlet Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Tower Mass Flow Rate','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(37)%show) THEN
curReport = AddMonthlyReport('BoilerReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Boiler Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Boiler Gas Consumption','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Boiler Heating Energy','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Boiler Heating Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Boiler Gas Consumption Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Boiler Inlet Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Boiler Outlet Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Boiler Mass Flow Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Boiler Ancillary Electric Power','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Boiler Part Load Ratio','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Boiler Part Load Ratio','',aggTypeMaximum)
END IF
IF (NamedMonthly(38)%show) THEN
curReport = AddMonthlyReport('DXReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Total Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Total Cooling Energy','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Sensible Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Latent Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Crankcase Heater Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Runtime Fraction','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Runtime Fraction','',aggTypeMinimum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Total Cooling Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Sensible Cooling Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Latent Cooling Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Electric Power','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Crankcase Heater Electric Power','',aggTypeMaximum)
END IF
IF (NamedMonthly(39)%show) THEN
curReport = AddMonthlyReport('WindowReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Surface Window Transmitted Solar Radiation Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Surface Window Transmitted Beam Solar Radiation Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Surface Window Transmitted Diffuse Solar Radiation Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Surface Window Heat Gain Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Surface Window Heat Loss Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Surface Window Inside Face Glazing Condensation Status','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Surface Shading Device Is On Time Fraction','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Surface Storm Window On Off Status','',aggTypeHoursNonZero)
END IF
IF (NamedMonthly(40)%show) THEN
curReport = AddMonthlyReport('WindowEnergyReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Surface Window Transmitted Solar Radiation Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Surface Window Transmitted Beam Solar Radiation Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Surface Window Transmitted Diffuse Solar Radiation Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Surface Window Heat Gain Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Surface Window Heat Loss Energy','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(41)%show) THEN
curReport = AddMonthlyReport('WindowZoneSummaryMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone Windows Total Heat Gain Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Windows Total Heat Loss Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Windows Total Transmitted Solar Radiation Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Exterior Windows Total Transmitted Beam Solar Radiation Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Exterior Windows Total Transmitted Diffuse Solar Radiation Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Interior Windows Total Transmitted Diffuse Solar Radiation Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Interior Windows Total Transmitted Beam Solar Radiation Rate','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(42)%show) THEN
curReport = AddMonthlyReport('WindowEnergyZoneSummaryMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone Windows Total Heat Gain Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Windows Total Heat Loss Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Windows Total Transmitted Solar Radiation Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Exterior Windows Total Transmitted Beam Solar Radiation Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport, &
'Zone Exterior Windows Total Transmitted Diffuse Solar Radiation Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport, &
'Zone Interior Windows Total Transmitted Diffuse Solar Radiation Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Interior Windows Total Transmitted Beam Solar Radiation Energy','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(43)%show) THEN
curReport = AddMonthlyReport('AverageOutdoorConditionsMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Drybulb Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Wetbulb Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Dewpoint Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Wind Speed','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Sky Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Diffuse Solar Radiation Rate per Area','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Direct Solar Radiation Rate per Area','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Rain Status','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(44)%show) THEN
curReport = AddMonthlyReport('OutdoorConditionsMaximumDryBulbMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Drybulb Temperature','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Wetbulb Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Dewpoint Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Wind Speed','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Sky Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Diffuse Solar Radiation Rate per Area','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Direct Solar Radiation Rate per Area','',aggTypeValueWhenMaxMin)
END IF
IF (NamedMonthly(45)%show) THEN
curReport = AddMonthlyReport('OutdoorConditionsMinimumDryBulbMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Drybulb Temperature','',aggTypeMinimum)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Wetbulb Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Dewpoint Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Wind Speed','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Sky Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Diffuse Solar Radiation Rate per Area','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Direct Solar Radiation Rate per Area','',aggTypeValueWhenMaxMin)
END IF
IF (NamedMonthly(46)%show) THEN
curReport = AddMonthlyReport('OutdoorConditionsMaximumWetBulbMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Wetbulb Temperature','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Drybulb Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Dewpoint Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Wind Speed','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Sky Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Diffuse Solar Radiation Rate per Area','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Direct Solar Radiation Rate per Area','',aggTypeValueWhenMaxMin)
END IF
IF (NamedMonthly(47)%show) THEN
curReport = AddMonthlyReport('OutdoorConditionsMaximumDewPointMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Dewpoint Temperature','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Drybulb Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Outdoor Air Wetbulb Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Wind Speed','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Sky Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Diffuse Solar Radiation Rate per Area','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Site Direct Solar Radiation Rate per Area','',aggTypeValueWhenMaxMin)
END IF
IF (NamedMonthly(48)%show) THEN
curReport = AddMonthlyReport('OutdoorGroundConditionsMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Site Ground Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Surface Ground Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Deep Ground Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Mains Water Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Ground Reflected Solar Radiation Rate per Area','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Site Snow on Ground Status','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(49)%show) THEN
curReport = AddMonthlyReport('WindowACReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone Window Air Conditioner Total Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Window Air Conditioner Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Window Air Conditioner Total Cooling Energy','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Zone Window Air Conditioner Sensible Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Window Air Conditioner Latent Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Window Air Conditioner Total Cooling Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Zone Window Air Conditioner Sensible Cooling Rate','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Zone Window Air Conditioner Latent Cooling Rate','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Zone Window Air Conditioner Electric Power','',aggTypeValueWhenMaxMin)
END IF
IF (NamedMonthly(50)%show) THEN
curReport = AddMonthlyReport('WaterHeaterReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Water Heater Total Demand Heat Transfer Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Water Heater Use Side Heat Transfer Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Water Heater Burner Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Water Heater Gas Consumption','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Water Heater Total Demand Heat Transfer Energy','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Water Heater Loss Demand Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Water Heater Heat Loss Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Water Heater Tank Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Water Heater Heat Recovery Supply Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Water Heater Source Energy','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(51)%show) THEN
curReport = AddMonthlyReport('GeneratorReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Generator Produced Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Generator Diesel Consumption','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Generator Gas Consumption','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Generator Produced Electric Energy','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Generator Total Heat Recovery','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Generator Jacket Heat Recovery Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Generator Lube Heat Recovery','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Generator Exhaust Heat Recovery Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Generator Exhaust Air Temperature','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(52)%show) THEN
curReport = AddMonthlyReport('DaylightingReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Site Exterior Beam Normal Illuminance','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Daylighting Lighting Power Multiplier','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Daylighting Lighting Power Multiplier','',aggTypeMinimumDuringHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Daylighting Reference Point 1 Illuminance','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Daylighting Reference Point 1 Glare Index','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Daylighting Reference Point 1 Glare Index Setpoint Exceeded Time','', aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport, &
'Daylighting Reference Point 1 Daylight Illuminance Setpoint Exceeded Time','', aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Daylighting Reference Point 2 Illuminance','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Daylighting Reference Point 2 Glare Index','',aggTypeSumOrAverageHoursShown)
CALL AddMonthlyFieldSetInput(curReport,'Daylighting Reference Point 2 Glare Index Setpoint Exceeded Time','', aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport, &
'Daylighting Reference Point 2 Daylight Illuminance Setpoint Exceeded Time','', aggTypeSumOrAvg)
END IF
IF (NamedMonthly(53)%show) THEN
curReport = AddMonthlyReport('CoilReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Heating Coil Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Heating Coil Heating Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Total Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Sensible Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Total Cooling Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Sensible Cooling Rate','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Cooling Coil Wetted Area Fraction','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(54)%show) THEN
curReport = AddMonthlyReport('PlantLoopDemandReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Plant Supply Side Cooling Demand Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Plant Supply Side Cooling Demand Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Plant Supply Side Heating Demand Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Plant Supply Side Heating Demand Rate','',aggTypeMaximum)
END IF
IF (NamedMonthly(55)%show) THEN
curReport = AddMonthlyReport('FanReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Fan Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Fan Rise in Air Temperature','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Fan Electric Power','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Fan Rise in Air Temperature','',aggTypeValueWhenMaxMin)
END IF
IF (NamedMonthly(56)%show) THEN
curReport = AddMonthlyReport('PumpReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Pump Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Pump Fluid Heat Gain Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Pump Electric Power','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Pump Shaft Power','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Pump Fluid Heat Gain Rate','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Pump Outlet Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Pump Mass Flow Rate','',aggTypeValueWhenMaxMin)
END IF
IF (NamedMonthly(57)%show) THEN
curReport = AddMonthlyReport('CondLoopDemandReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Plant Supply Side Cooling Demand Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Plant Supply Side Cooling Demand Rate','',aggTypeMaximum)
CALL AddMonthlyFieldSetInput(curReport,'Plant Supply Side Inlet Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Plant Supply Side Outlet Temperature','',aggTypeValueWhenMaxMin)
CALL AddMonthlyFieldSetInput(curReport,'Plant Supply Side Heating Demand Rate','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Plant Supply Side Heating Demand Rate','',aggTypeMaximum)
END IF
IF (NamedMonthly(58)%show) THEN
curReport = AddMonthlyReport('ZoneTemperatureOscillationReportMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone Oscillating Temperatures Time','',aggTypeHoursNonZero)
CALL AddMonthlyFieldSetInput(curReport,'Zone People Occupant Count','',aggTypeSumOrAverageHoursShown)
END IF
IF (NamedMonthly(59)%show) THEN
curReport = AddMonthlyReport('AirLoopSystemEnergyAndWaterUseMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Air System Hot Water Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Steam Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Chilled Water Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Gas Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Water Volume','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(60)%show) THEN
curReport = AddMonthlyReport('AirLoopSystemComponentLoadsMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Air System Fan Air Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Cooling Coil Total Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Heating Coil Total Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Heat Exchanger Total Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Heat Exchanger Total Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Humidifier Total Heating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Evaporative Cooler Total Cooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Desiccant Dehumidifier Total Cooling Energy','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(61)%show) THEN
curReport = AddMonthlyReport('AirLoopSystemComponentEnergyUseMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Air System Fan Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Heating Coil Hot Water Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Cooling Coil Chilled Water Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System DX Heating Coil Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System DX Cooling Coil Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Heating Coil Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Heating Coil Gas Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Heating Coil Steam Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Humidifier Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Evaporative Cooler Electric Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Air System Desiccant Dehumidifier Electric Energy','',aggTypeSumOrAvg)
END IF
IF (NamedMonthly(62)%show) THEN
curReport = AddMonthlyReport('MechanicalVentilationLoadsMonthly',2)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mechanical Ventilation No Load Heat Removal Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mechanical Ventilation Cooling Load Increase Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport, &
'Zone Mechanical Ventilation Cooling Load Increase Due to Overheating Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mechanical Ventilation Cooling Load Decrease Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mechanical Ventilation No Load Heat Addition Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mechanical Ventilation Heating Load Increase Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport, &
'Zone Mechanical Ventilation Heating Load Increase Due to Overcooling Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mechanical Ventilation Heating Load Decrease Energy','',aggTypeSumOrAvg)
CALL AddMonthlyFieldSetInput(curReport,'Zone Mechanical Ventilation Air Changes per Hour','',aggTypeSumOrAvg)
END IF
END SUBROUTINE CreatePredefinedMonthlyReports