SUBROUTINE RezeroZoneSizingArrays
! SUBROUTINE INFORMATION:
! AUTHOR Jason Glazer
! DATE WRITTEN August 2012 based on SetUpZoneSizingArrays
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Zero zone sizing arrays between the pulse and normal sizing.
! METHODOLOGY EMPLOYED:
! Based on SetUpZoneSizingArrays but remove allocates and other calculations.
! 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 :: DesDayNum ! design day index
INTEGER :: CtrlZoneNum ! controlled zone index
INTEGER :: TimeStepIndex ! zone time step index
CALL DisplayString('Re-zeroing zone sizing arrays')
DO DesDayNum=1,TotDesDays+TotRunDesPersDays
DO CtrlZoneNum = 1,NumOfZones
DO TimeStepIndex=1,NumOfTimeStepInDay
IF (ALLOCATED(ZoneSizing(CtrlZoneNum,DesDayNum)%HeatFlowSeq)) THEN
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatFlowSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatLoadSeq(TimeStepIndex) = 0.0d0
!not used directly in output report
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneTempSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatSetPtSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatOutTempSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneRetTempSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatTstatTempSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneHumRatSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatOutHumRatSeq(TimeStepIndex) = 0.0d0
END IF
IF (ALLOCATED(CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatFlowSeq)) THEN
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatFlowSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatLoadSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneTempSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatOutTempSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneRetTempSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatTstatTempSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneHumRatSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatOutHumRatSeq(TimeStepIndex) = 0.0d0
END IF
IF (ALLOCATED(ZoneSizing(CtrlZoneNum,DesDayNum)%CoolFlowSeq)) THEN
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolFlowSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolLoadSeq(TimeStepIndex) = 0.0d0
!not used directly in output report
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneTempSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolSetPtSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolOutTempSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneRetTempSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolTstatTempSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneHumRatSeq(TimeStepIndex) = 0.0d0
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolOutHumRatSeq(TimeStepIndex) = 0.0d0
END IF
IF (ALLOCATED(CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolFlowSeq)) THEN
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolFlowSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolLoadSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneTempSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolOutTempSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneRetTempSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolTstatTempSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneHumRatSeq(TimeStepIndex) = 0.0d0
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolOutHumRatSeq(TimeStepIndex) = 0.0d0
END IF
END DO
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolDesDay = ' ' ! name of a cooling design day
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatDesDay = ' ' ! name of a heating design day
ZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatMassFlow = 0.0d0 ! zone design heating air mass flow rate [kg/s]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolMassFlow = 0.0d0 ! zone design cooling air mass flow rate [kg/s]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatLoad = 0.0d0 ! zone design heating load [W]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolLoad = 0.0d0 ! zone design cooling load [W]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatDens = 0.0d0 ! zone design heating air density [kg/m3]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolDens = 0.0d0 ! zone design cooling air density [kg/m3]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatVolFlow = 0.0d0 ! zone design heating air volume flow rate [m3/s]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolVolFlow = 0.0d0 ! zone design cooling air volume flow rate [m3/s]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatVolFlowMax = 0.0d0 ! zone design heating maximum air volume flow rate [m3/s]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolVolFlowMin = 0.0d0 ! zone design cooling minimum air volume flow rate [m3/s]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatCoilInTemp = 0.0d0 ! zone heating coil design air inlet temperature [C]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolCoilInTemp = 0.0d0 ! zone cooling coil design air inlet temperature [C]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatCoilInHumRat = 0.0d0 ! zone heating coil design air inlet humidity ratio [kg/kg]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolCoilInHumRat = 0.0d0 ! zone cooling coil design air inlet humidity ratio [kg/kg]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatCoilInTempTU = 0.0d0 ! zone heating coil design air inlet temperature (supply air)([C]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolCoilInTempTU = 0.0d0 ! zone cooling coil design air inlet temperature (supply air)[C]
ZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatCoilInHumRatTU = 0.0d0 ! zone heating coil design air inlet humidity ratio
ZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolCoilInHumRatTU = 0.0d0 ! zone cooling coil design air inlet humidity ratio
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatMassFlow = 0.0d0 ! current zone heating air mass flow rate (HVAC time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolMassFlow = 0.0d0 ! current zone cooling air mass flow rate (HVAC time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatLoad = 0.0d0 ! current zone heating load (HVAC time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolLoad = 0.0d0 ! current zone heating load (HVAC time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneTemp = 0.0d0 ! current zone temperature (heating, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatOutTemp = 0.0d0 ! current outdoor temperature (heating, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneRetTemp = 0.0d0 ! current zone return temperature (heating, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatTstatTemp = 0.0d0 ! current zone thermostat temperature (heating, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneTemp = 0.0d0 ! current zone temperature (cooling, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolOutTemp = 0.0d0 ! current Outdoor temperature (cooling, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneRetTemp = 0.0d0 ! current zone return temperature (cooling, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolTstatTemp = 0.0d0 ! current zone thermostat temperature (cooling, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneHumRat = 0.0d0 ! current zone humidity ratio (heating, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneHumRat = 0.0d0 ! current zone humidity ratio (cooling, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatOutHumRat = 0.0d0 ! current outdoor humidity ratio (heating, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolOutHumRat = 0.0d0 ! current outdoor humidity ratio (cooling, time step)
ZoneSizing(CtrlZoneNum,DesDayNum)%ZoneTempAtHeatPeak = 0.0d0 ! zone temp at max heating [C]
ZoneSizing(CtrlZoneNum,DesDayNum)%ZoneRetTempAtHeatPeak = 0.0d0 ! zone return temp at max heating [C]
ZoneSizing(CtrlZoneNum,DesDayNum)%OutTempAtHeatPeak = 0.0d0 ! outdoor temperature at max heating [C]
ZoneSizing(CtrlZoneNum,DesDayNum)%ZoneTempAtCoolPeak = 0.0d0 ! zone temp at max cooling [C]
ZoneSizing(CtrlZoneNum,DesDayNum)%ZoneRetTempAtCoolPeak = 0.0d0 ! zone return temp at max cooling [C]
ZoneSizing(CtrlZoneNum,DesDayNum)%OutTempAtCoolPeak = 0.0d0 ! outdoor temperature at max cooling [C]
ZoneSizing(CtrlZoneNum,DesDayNum)%ZoneHumRatAtHeatPeak = 0.0d0 ! zone humidity ratio at max heating [kg/kg]
ZoneSizing(CtrlZoneNum,DesDayNum)%ZoneHumRatAtCoolPeak = 0.0d0 ! zone humidity ratio at max cooling [kg/kg]
ZoneSizing(CtrlZoneNum,DesDayNum)%OutHumRatAtHeatPeak = 0.0d0 ! outdoor humidity at max heating [kg/kg]
ZoneSizing(CtrlZoneNum,DesDayNum)%OutHumRatAtCoolPeak = 0.0d0 ! outdoor humidity at max cooling [kg/kg]
ZoneSizing(CtrlZoneNum,DesDayNum)%TimeStepNumAtHeatMax = 0 ! time step number (in day) at Heating peak
ZoneSizing(CtrlZoneNum,DesDayNum)%TimeStepNumAtCoolMax = 0 ! time step number (in day) at cooling peak
ZoneSizing(CtrlZoneNum,DesDayNum)%HeatDDNum = 0 ! design day index of design day causing heating peak
ZoneSizing(CtrlZoneNum,DesDayNum)%CoolDDNum = 0 ! design day index of design day causing heating peak
ZoneSizing(CtrlZoneNum,DesDayNum)%cHeatDDDate = ' ' ! date of design day causing heating peak
ZoneSizing(CtrlZoneNum,DesDayNum)%cCoolDDDate = ' ' ! date of design day causing cooling peak
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolDesDay = ' ' ! name of a cooling design day
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatDesDay = ' ' ! name of a heating design day
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatMassFlow = 0.0d0 ! zone design heating air mass flow rate [kg/s]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolMassFlow = 0.0d0 ! zone design cooling air mass flow rate [kg/s]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatLoad = 0.0d0 ! zone design heating load [W]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolLoad = 0.0d0 ! zone design cooling load [W]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatDens = 0.0d0 ! zone design heating air density [kg/m3]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolDens = 0.0d0 ! zone design cooling air density [kg/m3]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatVolFlow = 0.0d0 ! zone design heating air volume flow rate [m3/s]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolVolFlow = 0.0d0 ! zone design cooling air volume flow rate [m3/s]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatVolFlowMax = 0.0d0 ! zone design heating maximum air volume flow rate [m3/s]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolVolFlowMin = 0.0d0 ! zone design cooling minimum air volume flow rate [m3/s]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatCoilInTemp = 0.0d0 ! zone heating coil design air inlet temperature [C]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolCoilInTemp = 0.0d0 ! zone cooling coil design air inlet temperature [C]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatCoilInHumRat = 0.0d0 ! zone heating coil design air inlet humidity ratio [kg/kg]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolCoilInHumRat = 0.0d0 ! zone cooling coil design air inlet humidity ratio [kg/kg]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatCoilInTempTU = 0.0d0 ! zone heating coil design air inlet temperature (supply air)([C]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolCoilInTempTU = 0.0d0 ! zone cooling coil design air inlet temperature (supply air)[C]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesHeatCoilInHumRatTU = 0.0d0 ! zone heating coil design air inlet humidity ratio
CalcZoneSizing(CtrlZoneNum,DesDayNum)%DesCoolCoilInHumRatTU = 0.0d0 ! zone cooling coil design air inlet humidity ratio
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatMassFlow = 0.0d0 ! current zone heating air mass flow rate (HVAC time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolMassFlow = 0.0d0 ! current zone cooling air mass flow rate (HVAC time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatLoad = 0.0d0 ! current zone heating load (HVAC time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolLoad = 0.0d0 ! current zone heating load (HVAC time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneTemp = 0.0d0 ! current zone temperature (heating, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatOutTemp = 0.0d0 ! current outdoor temperature (heating, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneRetTemp = 0.0d0 ! current zone return temperature (heating, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatTstatTemp = 0.0d0 ! current zone thermostat temperature (heating, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneTemp = 0.0d0 ! current zone temperature (cooling, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolOutTemp = 0.0d0 ! current Outdoor temperature (cooling, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneRetTemp = 0.0d0 ! current zone return temperature (cooling, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolTstatTemp = 0.0d0 ! current zone Tstat temperature (cooling, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatZoneHumRat = 0.0d0 ! current zone humidity ratio (heating, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolZoneHumRat = 0.0d0 ! current zone humidity ratio (cooling, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatOutHumRat = 0.0d0 ! current outdoor humidity ratio (heating, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolOutHumRat = 0.0d0 ! current outdoor humidity ratio (cooling, time step)
CalcZoneSizing(CtrlZoneNum,DesDayNum)%ZoneTempAtHeatPeak = 0.0d0 ! zone temp at max heating [C]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%ZoneRetTempAtHeatPeak = 0.0d0 ! zone return temp at max heating [C]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%OutTempAtHeatPeak = 0.0d0 ! outdoor temperature at max heating [C]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%ZoneTempAtCoolPeak = 0.0d0 ! zone temp at max cooling [C]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%ZoneRetTempAtCoolPeak = 0.0d0 ! zone return temp at max cooling [C]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%OutTempAtCoolPeak = 0.0d0 ! outdoor temperature at max cooling [C]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%ZoneHumRatAtHeatPeak = 0.0d0 ! zone humidity ratio at max heating [kg/kg]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%ZoneHumRatAtCoolPeak = 0.0d0 ! zone humidity ratio at max cooling [kg/kg]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%OutHumRatAtHeatPeak = 0.0d0 ! outdoor humidity at max heating [kg/kg]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%OutHumRatAtCoolPeak = 0.0d0 ! outdoor humidity at max cooling [kg/kg]
CalcZoneSizing(CtrlZoneNum,DesDayNum)%TimeStepNumAtHeatMax = 0 ! time step number (in day) at Heating peak
CalcZoneSizing(CtrlZoneNum,DesDayNum)%TimeStepNumAtCoolMax = 0 ! time step number (in day) at cooling peak
CalcZoneSizing(CtrlZoneNum,DesDayNum)%HeatDDNum = 0 ! design day index of design day causing heating peak
CalcZoneSizing(CtrlZoneNum,DesDayNum)%CoolDDNum = 0 ! design day index of design day causing heating peak
CalcZoneSizing(CtrlZoneNum,DesDayNum)%cHeatDDDate = ' ' ! date of design day causing heating peak
CalcZoneSizing(CtrlZoneNum,DesDayNum)%cCoolDDDate = ' ' ! date of design day causing cooling peak
END DO
END DO
DO CtrlZoneNum = 1,NumOfZones
DO TimeStepIndex=1,NumOfTimeStepInDay
IF (ALLOCATED(FinalZoneSizing(CtrlZoneNum)%HeatFlowSeq)) THEN
FinalZoneSizing(CtrlZoneNum)%HeatFlowSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%HeatLoadSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%HeatZoneTempSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%HeatOutTempSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%HeatZoneRetTempSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%HeatTstatTempSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%HeatZoneHumRatSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%HeatOutHumRatSeq(TimeStepIndex) = 0.0d0
END IF
IF (ALLOCATED(CalcFinalZoneSizing(CtrlZoneNum)%HeatFlowSeq)) THEN
CalcFinalZoneSizing(CtrlZoneNum)%HeatFlowSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%HeatLoadSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%HeatZoneTempSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%HeatOutTempSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%HeatZoneRetTempSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%HeatTstatTempSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%HeatZoneHumRatSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%HeatOutHumRatSeq(TimeStepIndex) = 0.0d0
END IF
IF (ALLOCATED(FinalZoneSizing(CtrlZoneNum)%CoolFlowSeq)) THEN
FinalZoneSizing(CtrlZoneNum)%CoolFlowSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%CoolLoadSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%CoolZoneTempSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%CoolOutTempSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%CoolZoneRetTempSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%CoolTstatTempSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%CoolZoneHumRatSeq(TimeStepIndex) = 0.0d0
FinalZoneSizing(CtrlZoneNum)%CoolOutHumRatSeq(TimeStepIndex) = 0.0d0
END IF
IF (ALLOCATED(CalcFinalZoneSizing(CtrlZoneNum)%CoolFlowSeq)) THEN
CalcFinalZoneSizing(CtrlZoneNum)%CoolFlowSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%CoolLoadSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%CoolZoneTempSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%CoolOutTempSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%CoolZoneRetTempSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%CoolTstatTempSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%CoolZoneHumRatSeq(TimeStepIndex) = 0.0d0
CalcFinalZoneSizing(CtrlZoneNum)%CoolOutHumRatSeq(TimeStepIndex) = 0.0d0
END IF
END DO
FinalZoneSizing(CtrlZoneNum)%CoolDesDay = ' ' ! name of a cooling design day
FinalZoneSizing(CtrlZoneNum)%HeatDesDay = ' ' ! name of a heating design day
FinalZoneSizing(CtrlZoneNum)%DesHeatMassFlow = 0.0d0 ! zone design heating air mass flow rate [kg/s]
FinalZoneSizing(CtrlZoneNum)%DesCoolMassFlow = 0.0d0 ! zone design cooling air mass flow rate [kg/s]
FinalZoneSizing(CtrlZoneNum)%DesHeatLoad = 0.0d0 ! zone design heating load [W]
FinalZoneSizing(CtrlZoneNum)%DesCoolLoad = 0.0d0 ! zone design cooling load [W]
FinalZoneSizing(CtrlZoneNum)%DesHeatDens = 0.0d0 ! zone design heating air density [kg/m3]
FinalZoneSizing(CtrlZoneNum)%DesCoolDens = 0.0d0 ! zone design cooling air density [kg/m3]
FinalZoneSizing(CtrlZoneNum)%DesHeatVolFlow = 0.0d0 ! zone design heating air volume flow rate [m3/s]
FinalZoneSizing(CtrlZoneNum)%DesCoolVolFlow = 0.0d0 ! zone design cooling air volume flow rate [m3/s]
FinalZoneSizing(CtrlZoneNum)%DesHeatVolFlowMax = 0.0d0 ! zone design heating maximum air volume flow rate [m3/s]
FinalZoneSizing(CtrlZoneNum)%DesCoolVolFlowMin = 0.0d0 ! zone design cooling minimum air volume flow rate [m3/s]
FinalZoneSizing(CtrlZoneNum)%DesHeatCoilInTemp = 0.0d0 ! zone heating coil design air inlet temperature [C]
FinalZoneSizing(CtrlZoneNum)%DesCoolCoilInTemp = 0.0d0 ! zone cooling coil design air inlet temperature [C]
FinalZoneSizing(CtrlZoneNum)%DesHeatCoilInHumRat = 0.0d0 ! zone heating coil design air inlet humidity ratio [kg/kg]
FinalZoneSizing(CtrlZoneNum)%DesCoolCoilInHumRat = 0.0d0 ! zone cooling coil design air inlet humidity ratio [kg/kg]
FinalZoneSizing(CtrlZoneNum)%DesHeatCoilInTempTU = 0.0d0 ! zone heating coil design air inlet temperature (supply air)([C]
FinalZoneSizing(CtrlZoneNum)%DesCoolCoilInTempTU = 0.0d0 ! zone cooling coil design air inlet temperature (supply air)[C]
FinalZoneSizing(CtrlZoneNum)%DesHeatCoilInHumRatTU = 0.0d0 ! zone heating coil design air inlet humidity ratio
FinalZoneSizing(CtrlZoneNum)%DesCoolCoilInHumRatTU = 0.0d0 ! zone cooling coil design air inlet humidity ratio
FinalZoneSizing(CtrlZoneNum)%HeatMassFlow = 0.0d0 ! current zone heating air mass flow rate (HVAC time step)
FinalZoneSizing(CtrlZoneNum)%CoolMassFlow = 0.0d0 ! current zone cooling air mass flow rate (HVAC time step)
FinalZoneSizing(CtrlZoneNum)%HeatLoad = 0.0d0 ! current zone heating load (HVAC time step)
FinalZoneSizing(CtrlZoneNum)%CoolLoad = 0.0d0 ! current zone heating load (HVAC time step)
FinalZoneSizing(CtrlZoneNum)%HeatZoneTemp = 0.0d0 ! current zone temperature (heating, time step)
FinalZoneSizing(CtrlZoneNum)%HeatOutTemp = 0.0d0 ! current outdoor temperature (heating, time step)
FinalZoneSizing(CtrlZoneNum)%HeatZoneRetTemp = 0.0d0 ! current zone return temperature (heating, time step)
FinalZoneSizing(CtrlZoneNum)%HeatTstatTemp = 0.0d0 ! current zone thermostat temperature (heating, time step)
FinalZoneSizing(CtrlZoneNum)%CoolZoneTemp = 0.0d0 ! current zone temperature (cooling, time step)
FinalZoneSizing(CtrlZoneNum)%CoolOutTemp = 0.0d0 ! current Outdoor temperature (cooling, time step)
FinalZoneSizing(CtrlZoneNum)%CoolZoneRetTemp = 0.0d0 ! current zone return temperature (cooling, time step)
FinalZoneSizing(CtrlZoneNum)%CoolTstatTemp = 0.0d0 ! current zone thermostat temperature (cooling, time step)
FinalZoneSizing(CtrlZoneNum)%HeatZoneHumRat = 0.0d0 ! current zone humidity ratio (heating, time step)
FinalZoneSizing(CtrlZoneNum)%CoolZoneHumRat = 0.0d0 ! current zone humidity ratio (cooling, time step)
FinalZoneSizing(CtrlZoneNum)%HeatOutHumRat = 0.0d0 ! current outdoor humidity ratio (heating, time step)
FinalZoneSizing(CtrlZoneNum)%CoolOutHumRat = 0.0d0 ! current outdoor humidity ratio (cooling, time step)
FinalZoneSizing(CtrlZoneNum)%ZoneTempAtHeatPeak = 0.0d0 ! zone temp at max heating [C]
FinalZoneSizing(CtrlZoneNum)%ZoneRetTempAtHeatPeak = 0.0d0 ! zone return temp at max heating [C]
FinalZoneSizing(CtrlZoneNum)%OutTempAtHeatPeak = 0.0d0 ! outdoor temperature at max heating [C]
FinalZoneSizing(CtrlZoneNum)%ZoneTempAtCoolPeak = 0.0d0 ! zone temp at max cooling [C]
FinalZoneSizing(CtrlZoneNum)%ZoneRetTempAtCoolPeak = 0.0d0 ! zone return temp at max cooling [C]
FinalZoneSizing(CtrlZoneNum)%OutTempAtCoolPeak = 0.0d0 ! outdoor temperature at max cooling [C]
FinalZoneSizing(CtrlZoneNum)%ZoneHumRatAtHeatPeak = 0.0d0 ! zone humidity ratio at max heating [kg/kg]
FinalZoneSizing(CtrlZoneNum)%ZoneHumRatAtCoolPeak = 0.0d0 ! zone humidity ratio at max cooling [kg/kg]
FinalZoneSizing(CtrlZoneNum)%OutHumRatAtHeatPeak = 0.0d0 ! outdoor humidity at max heating [kg/kg]
FinalZoneSizing(CtrlZoneNum)%OutHumRatAtCoolPeak = 0.0d0 ! outdoor humidity at max cooling [kg/kg]
FinalZoneSizing(CtrlZoneNum)%TimeStepNumAtHeatMax = 0 ! time step number (in day) at Heating peak
FinalZoneSizing(CtrlZoneNum)%TimeStepNumAtCoolMax = 0 ! time step number (in day) at cooling peak
FinalZoneSizing(CtrlZoneNum)%HeatDDNum = 0 ! design day index of design day causing heating peak
FinalZoneSizing(CtrlZoneNum)%CoolDDNum = 0 ! design day index of design day causing heating peak
FinalZoneSizing(CtrlZoneNum)%cHeatDDDate = ' ' ! date of design day causing heating peak
FinalZoneSizing(CtrlZoneNum)%cCoolDDDate = ' ' ! date of design day causing cooling peak
CalcFinalZoneSizing(CtrlZoneNum)%CoolDesDay = ' ' ! name of a cooling design day
CalcFinalZoneSizing(CtrlZoneNum)%HeatDesDay = ' ' ! name of a heating design day
CalcFinalZoneSizing(CtrlZoneNum)%DesHeatMassFlow = 0.0d0 ! zone design heating air mass flow rate [kg/s]
CalcFinalZoneSizing(CtrlZoneNum)%DesCoolMassFlow = 0.0d0 ! zone design cooling air mass flow rate [kg/s]
CalcFinalZoneSizing(CtrlZoneNum)%DesHeatLoad = 0.0d0 ! zone design heating load [W]
CalcFinalZoneSizing(CtrlZoneNum)%DesCoolLoad = 0.0d0 ! zone design cooling load [W]
CalcFinalZoneSizing(CtrlZoneNum)%DesHeatDens = 0.0d0 ! zone design heating air density [kg/m3]
CalcFinalZoneSizing(CtrlZoneNum)%DesCoolDens = 0.0d0 ! zone design cooling air density [kg/m3]
CalcFinalZoneSizing(CtrlZoneNum)%DesHeatVolFlow = 0.0d0 ! zone design heating air volume flow rate [m3/s]
CalcFinalZoneSizing(CtrlZoneNum)%DesCoolVolFlow = 0.0d0 ! zone design cooling air volume flow rate [m3/s]
CalcFinalZoneSizing(CtrlZoneNum)%DesHeatVolFlowMax = 0.0d0 ! zone design heating maximum air volume flow rate [m3/s]
CalcFinalZoneSizing(CtrlZoneNum)%DesCoolVolFlowMin = 0.0d0 ! zone design cooling minimum air volume flow rate [m3/s]
CalcFinalZoneSizing(CtrlZoneNum)%DesHeatCoilInTemp = 0.0d0 ! zone heating coil design air inlet temperature [C]
CalcFinalZoneSizing(CtrlZoneNum)%DesCoolCoilInTemp = 0.0d0 ! zone cooling coil design air inlet temperature [C]
CalcFinalZoneSizing(CtrlZoneNum)%DesHeatCoilInHumRat = 0.0d0 ! zone heating coil design air inlet humidity ratio [kg/kg]
CalcFinalZoneSizing(CtrlZoneNum)%DesCoolCoilInHumRat = 0.0d0 ! zone cooling coil design air inlet humidity ratio [kg/kg]
CalcFinalZoneSizing(CtrlZoneNum)%DesHeatCoilInTempTU = 0.0d0 ! zone heating coil design air inlet temperature (supply air)([C]
CalcFinalZoneSizing(CtrlZoneNum)%DesCoolCoilInTempTU = 0.0d0 ! zone cooling coil design air inlet temperature (supply air)[C]
CalcFinalZoneSizing(CtrlZoneNum)%DesHeatCoilInHumRatTU = 0.0d0 ! zone heating coil design air inlet humidity ratio
CalcFinalZoneSizing(CtrlZoneNum)%DesCoolCoilInHumRatTU = 0.0d0 ! zone cooling coil design air inlet humidity ratio
CalcFinalZoneSizing(CtrlZoneNum)%HeatMassFlow = 0.0d0 ! current zone heating air mass flow rate (HVAC time step)
CalcFinalZoneSizing(CtrlZoneNum)%CoolMassFlow = 0.0d0 ! current zone cooling air mass flow rate (HVAC time step)
CalcFinalZoneSizing(CtrlZoneNum)%HeatLoad = 0.0d0 ! current zone heating load (HVAC time step)
CalcFinalZoneSizing(CtrlZoneNum)%CoolLoad = 0.0d0 ! current zone heating load (HVAC time step)
CalcFinalZoneSizing(CtrlZoneNum)%HeatZoneTemp = 0.0d0 ! current zone temperature (heating, time step)
CalcFinalZoneSizing(CtrlZoneNum)%HeatOutTemp = 0.0d0 ! current outdoor temperature (heating, time step)
CalcFinalZoneSizing(CtrlZoneNum)%HeatZoneRetTemp = 0.0d0 ! current zone return temperature (heating, time step)
CalcFinalZoneSizing(CtrlZoneNum)%HeatTstatTemp = 0.0d0 ! current zone thermostat temperature (heating, time step)
CalcFinalZoneSizing(CtrlZoneNum)%CoolZoneTemp = 0.0d0 ! current zone temperature (cooling, time step)
CalcFinalZoneSizing(CtrlZoneNum)%CoolOutTemp = 0.0d0 ! current Outdoor temperature (cooling, time step)
CalcFinalZoneSizing(CtrlZoneNum)%CoolZoneRetTemp = 0.0d0 ! current zone return temperature (cooling, time step)
CalcFinalZoneSizing(CtrlZoneNum)%CoolTstatTemp = 0.0d0 ! current zone thermostat temperature (cooling, time step)
CalcFinalZoneSizing(CtrlZoneNum)%HeatZoneHumRat = 0.0d0 ! current zone humidity ratio (heating, time step)
CalcFinalZoneSizing(CtrlZoneNum)%CoolZoneHumRat = 0.0d0 ! current zone humidity ratio (cooling, time step)
CalcFinalZoneSizing(CtrlZoneNum)%HeatOutHumRat = 0.0d0 ! current outdoor humidity ratio (heating, time step)
CalcFinalZoneSizing(CtrlZoneNum)%CoolOutHumRat = 0.0d0 ! current outdoor humidity ratio (cooling, time step)
CalcFinalZoneSizing(CtrlZoneNum)%ZoneTempAtHeatPeak = 0.0d0 ! zone temp at max heating [C]
CalcFinalZoneSizing(CtrlZoneNum)%ZoneRetTempAtHeatPeak = 0.0d0 ! zone return temp at max heating [C]
CalcFinalZoneSizing(CtrlZoneNum)%OutTempAtHeatPeak = 0.0d0 ! outdoor temperature at max heating [C]
CalcFinalZoneSizing(CtrlZoneNum)%ZoneTempAtCoolPeak = 0.0d0 ! zone temp at max cooling [C]
CalcFinalZoneSizing(CtrlZoneNum)%ZoneRetTempAtCoolPeak = 0.0d0 ! zone return temp at max cooling [C]
CalcFinalZoneSizing(CtrlZoneNum)%OutTempAtCoolPeak = 0.0d0 ! outdoor temperature at max cooling [C]
CalcFinalZoneSizing(CtrlZoneNum)%ZoneHumRatAtHeatPeak = 0.0d0 ! zone humidity ratio at max heating [kg/kg]
CalcFinalZoneSizing(CtrlZoneNum)%ZoneHumRatAtCoolPeak = 0.0d0 ! zone humidity ratio at max cooling [kg/kg]
CalcFinalZoneSizing(CtrlZoneNum)%OutHumRatAtHeatPeak = 0.0d0 ! outdoor humidity at max heating [kg/kg]
CalcFinalZoneSizing(CtrlZoneNum)%OutHumRatAtCoolPeak = 0.0d0 ! outdoor humidity at max cooling [kg/kg]
CalcFinalZoneSizing(CtrlZoneNum)%TimeStepNumAtHeatMax = 0 ! time step number (in day) at Heating peak
CalcFinalZoneSizing(CtrlZoneNum)%TimeStepNumAtCoolMax = 0 ! time step number (in day) at cooling peak
CalcFinalZoneSizing(CtrlZoneNum)%HeatDDNum = 0 ! design day index of design day causing heating peak
CalcFinalZoneSizing(CtrlZoneNum)%CoolDDNum = 0 ! design day index of design day causing heating peak
CalcFinalZoneSizing(CtrlZoneNum)%cHeatDDDate = ' ' ! date of design day causing heating peak
CalcFinalZoneSizing(CtrlZoneNum)%cCoolDDDate = ' ' ! date of design day causing cooling peak
END DO
END SUBROUTINE RezeroZoneSizingArrays