Nodes of different colours represent the following:
Solid arrows point from a parent (sub)module to the submodule which is descended from it. Dashed arrows point from a module being used to the module or program unit using it. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
SUBROUTINE UpdateSetPointManagers
! SUBROUTINE INFORMATION:
! AUTHOR Fred Buhl
! DATE WRITTEN July 1998
! MODIFIED Shirey/Raustad (FSEC), Jan 2004
! P. Haves Oct 2004
! Add new setpoint managers:
! SET POINT MANAGER:WARMEST TEMP FLOW and
! SET POINT MANAGER:COLDEST TEMP FLOW
! Nov 2004 M. J. Witte, GARD Analytics, Inc.
! Add new setpoint managers:
! SET POINT MANAGER:SINGLE ZONE HEATING and
! SET POINT MANAGER:SINGLE ZONE COOLING
! Work supported by ASHRAE research project 1254-RP
! B. Griffith Aug. 2006. Allow HUMRAT for scheduled setpoint manager
! P. Haves Aug 2007
! SET POINT MANAGER:WARMEST TEMP FLOW:
! Set AirLoopControlInfo()%LoopFlowRateSet every call not just on
! initialization (flag now reset in SUBROUTINE ResetHVACControl)
! Removed SET POINT MANAGER:COLDEST TEMP FLOW
! July 2010 B.A. Nigusse, FSEC/UCF
! Added new setpoint managers
! SetpointManager:MultiZone:Heating:Average
! SetpointManager:MultiZone:Cooling:Average
! SetpointManager:MultiZone:MinimumHumidity:Average
! SetpointManager:MultiZone:MaximumHumidity:Average
! Aug 2010 B.A. Nigusse, FSEC/UCF
! Added new setpoint managers:
! SetpointManager:MultiZone:Humidity:Minimum
! SetpointManager:MultiZone:Humidity:Maximum
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE
! Loop over all the Setpoint Managers and use their output arrays
! to set the node setpoints.
! METHODOLOGY EMPLOYED:
! REFERENCES:
! na
! USE STATEMENTS:
USE DataGlobals, ONLY: SysSizingCalc, AnyEnergyManagementSystemInModel
USE DataHVACGlobals, ONLY: DoSetPointTest, SetPointErrorFlag
USE EMSManager, ONLY: iTemperatureSetpoint, CheckIfNodeSetpointManagedByEMS
IMPLICIT NONE
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: SetPtMgrNum
INTEGER :: CtrlNodeIndex
INTEGER :: NodeNum
! Loop over all the Scheduled Setpoint Managers
DO SetPtMgrNum=1,NumSchSetPtMgrs
DO CtrlNodeIndex=1,SchSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = SchSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
Select Case (SchSetPtMgr(SetPtMgrNum)%CtrlTypeMode)
! set the setpoint depending on the type of variable being controlled
CASE (iCtrlVarType_Temp)
Node(NodeNum)%TempSetPoint = SchSetPtMgr(SetPtMgrNum)%SetPt
CASE (iCtrlVarType_MaxTemp)
Node(NodeNum)%TempSetPointHi = SchSetPtMgr(SetPtMgrNum)%SetPt
CASE (iCtrlVarType_MinTemp)
Node(NodeNum)%TempSetPointLo = SchSetPtMgr(SetPtMgrNum)%SetPt
CASE (iCtrlVarType_HumRat)
Node(NodeNum)%HumRatSetPoint = SchSetPtMgr(SetPtMgrNum)%SetPt
CASE (iCtrlVarType_MaxHumRat)
Node(NodeNum)%HumRatMax = SchSetPtMgr(SetPtMgrNum)%SetPt
CASE (iCtrlVarType_MinHumRat)
Node(NodeNum)%HumRatMin = SchSetPtMgr(SetPtMgrNum)%SetPt
CASE (iCtrlVarType_MassFlow)
Node(NodeNum)%MassFlowRateSetPoint = SchSetPtMgr(SetPtMgrNum)%SetPt
CASE (iCtrlVarType_MaxMassFlow)
Node(NodeNum)%MassFlowRateMax = SchSetPtMgr(SetPtMgrNum)%SetPt
CASE (iCtrlVarType_MinMassFlow)
Node(NodeNum)%MassFlowRateMin = SchSetPtMgr(SetPtMgrNum)%SetPt
END SELECT
END DO !nodes in list
END DO ! setpoint manger:scheduled
! Loop over all the Scheduled Dual Setpoint Managers
DO SetPtMgrNum=1,NumDualSchSetPtMgrs
DO CtrlNodeIndex=1,DualSchSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = DualSchSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (DualSchSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPointHi = DualSchSetPtMgr(SetPtMgrNum)%SetPtHi ! Set the setpoint High
Node(NodeNum)%TempSetPointLo = DualSchSetPtMgr(SetPtMgrNum)%SetPtLo ! Set the setpoint Low
Node(NodeNum)%TempSetPoint = (Node(NodeNum)%TempSetPointHi + Node(NodeNum)%TempSetPointLo)/2.0d0 ! average of the high and low
END IF
END DO
END DO
! Loop over all the Outside Air Setpoint Managers
DO SetPtMgrNum=1,NumOutAirSetPtMgrs
DO CtrlNodeIndex=1,OutAirSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = OutAirSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (OutAirSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = OutAirSetPtMgr(SetPtMgrNum)%SetPt ! Set the setpoint
END IF
END DO
END DO
! Loop over all the Single Zone Reheat Setpoint Managers
DO SetPtMgrNum=1,NumSZRhSetPtMgrs
DO CtrlNodeIndex=1,SingZoneRhSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = SingZoneRhSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (SingZoneRhSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = SingZoneRhSetPtMgr(SetPtMgrNum)%SetPt ! Set the setpoint
END IF
END DO
END DO
! Loop over all the Single Zone Heating Setpoint Managers
DO SetPtMgrNum=1,NumSZHtSetPtMgrs
DO CtrlNodeIndex=1,SingZoneHtSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = SingZoneHtSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (SingZoneHtSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = SingZoneHtSetPtMgr(SetPtMgrNum)%SetPt ! Set the setpoint
END IF
END DO
END DO
! Loop over all the Single Zone Cooling Setpoint Managers
DO SetPtMgrNum=1,NumSZClSetPtMgrs
DO CtrlNodeIndex=1,SingZoneClSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = SingZoneClSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (SingZoneClSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = SingZoneClSetPtMgr(SetPtMgrNum)%SetPt ! Set the setpoint
END IF
END DO
END DO
! Loop over all the Single Zone Minimum Humidity Setpoint Managers
DO SetPtMgrNum=1,NumSZMinHumSetPtMgrs
DO CtrlNodeIndex=1,SZMinHumSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = SZMinHumSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
Node(NodeNum)%HumRatMin = SZMinHumSetPtMgr(SetPtMgrNum)%SetPt ! Set the setpoint
END DO
END DO
! Loop over all the Single Zone Maximum Humidity Setpoint Managers
DO SetPtMgrNum=1,NumSZMaxHumSetPtMgrs
DO CtrlNodeIndex=1,SZMaxHumSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = SZMaxHumSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
Node(NodeNum)%HumRatMax = SZMaxHumSetPtMgr(SetPtMgrNum)%SetPt ! Set the setpoint
END DO
END DO
! Loop over all the Warmest Setpoint Managers
DO SetPtMgrNum=1,NumWarmestSetPtMgrs
DO CtrlNodeIndex=1,WarmestSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = WarmestSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (WarmestSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = WarmestSetPtMgr(SetPtMgrNum)%SetPt ! Set the setpoint
END IF
END DO
END DO
! Loop over all the Coldest Setpoint Managers
DO SetPtMgrNum=1,NumColdestSetPtMgrs
DO CtrlNodeIndex=1,ColdestSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = ColdestSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (ColdestSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = ColdestSetPtMgr(SetPtMgrNum)%SetPt ! Set the setpoint
END IF
END DO
END DO
! Loop over all the Warmest Temp Flow Setpoint Managers
DO SetPtMgrNum=1,NumWarmestSetPtMgrsTempFlow
DO CtrlNodeIndex=1,WarmestSetPtMgrTempFlow(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = WarmestSetPtMgrTempFlow(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (WarmestSetPtMgrTempFlow(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = WarmestSetPtMgrTempFlow(SetPtMgrNum)%SetPt ! Set the supply air temperature setpoint
AirLoopFlow(WarmestSetPtMgrTempFlow(SetPtMgrNum)%AirLoopNum)%ReqSupplyFrac &
= WarmestSetPtMgrTempFlow(SetPtMgrNum)%Turndown ! Set the supply air flow rate
AirLoopControlInfo(WarmestSetPtMgrTempFlow(SetPtMgrNum)%AirLoopNum)%LoopFlowRateSet = .TRUE. ! PH 8/17/07
END IF
END DO
END DO
DO SetPtMgrNum=1,NumRABFlowSetPtMgrs
NodeNum = RABFlowSetPtMgr(SetPtMgrNum)%RABSplitOutNode ! Get the node number
IF (RABFlowSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_MassFlow) THEN
Node(NodeNum)%MassFlowRateSetPoint = RABFlowSetPtMgr(SetPtMgrNum)%FlowSetPt ! Set the flow setpoint
END IF
END DO
! Loop over all the MultiZone Average Cooling Setpoint Managers
DO SetPtMgrNum=1,NumMZClgAverageSetPtMGrs
DO CtrlNodeIndex=1,MZAverageCoolingSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = MZAverageCoolingSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (MZAverageCoolingSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = MZAverageCoolingSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
END IF
END DO
END DO
! Loop over all the MultiZone Average Heating Setpoint Managers
DO SetPtMgrNum=1,NumMZHtgAverageSetPtMGrs
DO CtrlNodeIndex=1,MZAverageHeatingSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = MZAverageHeatingSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (MZAverageHeatingSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = MZAverageHeatingSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
END IF
END DO
END DO
! Loop over all the MultiZone Average Minimum Humidity Setpoint Managers
DO SetPtMgrNum=1, NumMZAverageMinHumSetPtMgrs
DO CtrlNodeIndex=1,MZAverageMinHumSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = MZAverageMinHumSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (MZAverageMinHumSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_MinHumRat) THEN
Node(NodeNum)%HumRatMin = MZAverageMinHumSetPtMgr(SetPtMgrNum)%SetPt ! Set the humidity ratio setpoint
END IF
END DO
END DO
! Loop over all the MultiZone Average Maxiumum Humidity Setpoint Managers
DO SetPtMgrNum=1, NumMZAverageMaxHumSetPtMgrs
DO CtrlNodeIndex=1,MZAverageMaxHumSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = MZAverageMaxHumSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (MZAverageMaxHumSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_MaxHumRat) THEN
Node(NodeNum)%HumRatMax = MZAverageMaxHumSetPtMgr(SetPtMgrNum)%SetPt ! Set the humidity ratio setpoint
END IF
END DO
END DO
! Loop over all the Multizone Minimum Humidity Ratio Setpoint Managers
DO SetPtMgrNum=1, NumMZMinHumSetPtMgrs
DO CtrlNodeIndex=1,MZMinHumSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = MZMinHumSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (MZMinHumSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_MinHumRat) THEN
Node(NodeNum)%HumRatMin = MZMinHumSetPtMgr(SetPtMgrNum)%SetPt ! Set the humidity ratio setpoint
END IF
END DO
END DO
! Loop over all the Multizone Maximum Humidity Ratio Setpoint Managers
DO SetPtMgrNum=1, NumMZMaxHumSetPtMgrs
DO CtrlNodeIndex=1,MZMaxHumSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = MZMaxHumSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (MZMaxHumSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_MaxHumRat) THEN
Node(NodeNum)%HumRatMax = MZMaxHumSetPtMgr(SetPtMgrNum)%SetPt ! Set the humidity ratio setpoint
END IF
END DO
END DO
! Loop over all the Follow Outdoor Air Setpoint Managers
DO SetPtMgrNum=1,NumFollowOATempSetPtMgrs
DO CtrlNodeIndex=1,FollowOATempSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = FollowOATempSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (FollowOATempSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = FollowOATempSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
ELSEIF (FollowOATempSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_MaxTemp) THEN
Node(NodeNum)%TempSetPointHi = FollowOATempSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
ELSEIF (FollowOATempSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_MinTemp) THEN
Node(NodeNum)%TempSetPointLo = FollowOATempSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
END IF
END DO
END DO
! Loop over all the Follow System Node Temperature Setpoint Managers
DO SetPtMgrNum=1,NumFollowSysNodeTempSetPtMgrs
DO CtrlNodeIndex=1,FollowSysNodeTempSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = FollowSysNodeTempSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (FollowSysNodeTempSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = FollowSysNodeTempSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
ELSEIF (FollowSysNodeTempSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_MaxTemp) THEN
Node(NodeNum)%TempSetPointHi = FollowSysNodeTempSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
ELSEIF (FollowSysNodeTempSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_MinTemp) THEN
Node(NodeNum)%TempSetPointLo = FollowSysNodeTempSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
END IF
END DO
END DO
! Loop over all the Ground Tempearture Setpoint Managers
DO SetPtMgrNum=1,NumGroundTempSetPtMgrs
DO CtrlNodeIndex=1,GroundTempSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! setpoints from this setpoint manager
NodeNum = GroundTempSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (GroundTempSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = GroundTempSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
ELSEIF (GroundTempSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_MaxTemp) THEN
Node(NodeNum)%TempSetPointHi = GroundTempSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
ELSEIF (GroundTempSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_MinTemp) THEN
Node(NodeNum)%TempSetPointLo = GroundTempSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
END IF
END DO
END DO
! Loop over all Condenser Entering Set Point Managers
DO SetPtMgrNum=1,NumCondEntSetPtMgrs
DO CtrlNodeIndex=1,CondEntSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! set points from this set point manager
NodeNum = CondEntSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (CondEntSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = CondEntSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
END IF
END DO
END DO
! Loop over all Ideal Condenser Entering Set Point Managers
DO SetPtMgrNum=1,NumIdealCondEntSetPtMgrs
DO CtrlNodeIndex=1,IdealCondEntSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! set points from this set point manager
NodeNum = IdealCondEntSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (IdealCondEntSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = IdealCondEntSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
END IF
END DO
END DO
!loop over all single zone on/off cooling setpoint managers
DO SetPtMgrNum=1,NumSZOneStageCoolingSetPtMgrs
DO CtrlNodeIndex=1,SZOneStageCoolingSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! set points from this set point manager
NodeNum = SZOneStageCoolingSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (SZOneStageCoolingSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = SZOneStageCoolingSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
END IF
END DO
ENDDO
!loop over all single zone on/off heating setpoint managers
DO SetPtMgrNum=1,NumSZOneStageHeatingSetPtMgrs
DO CtrlNodeIndex=1,SZOneStageHeatingSetPtMgr(SetPtMgrNum)%NumCtrlNodes ! Loop over the list of nodes wanting
! set points from this set point manager
NodeNum = SZOneStageHeatingSetPtMgr(SetPtMgrNum)%CtrlNodes(CtrlNodeIndex) ! Get the node number
IF (SZOneStageHeatingSetPtMgr(SetPtMgrNum)%CtrlTypeMode == iCtrlVarType_Temp) THEN
Node(NodeNum)%TempSetPoint = SZOneStageHeatingSetPtMgr(SetPtMgrNum)%SetPt ! Set the temperature setpoint
END IF
END DO
ENDDO
RETURN
END SUBROUTINE UpdateSetPointManagers