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 ResetTerminalUnitFlowLimits
! SUBROUTINE INFORMATION:
! AUTHOR Fred Buhl
! DATE WRITTEN Feb 2010
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Reset the max flow available limits at the inlet nodes of terminal units
! METHODOLOGY EMPLOYED:
! Loops through all air loops, finds the inlet nodes of the terminal units
! served by each air loop, and resets the node MassFlowRateMaxAvail (and MinAvail) to
! the hard max and mins.
! REFERENCES:
! na
! USE STATEMENTS:
USE DataZoneEquipment, ONLY : ZoneEquipConfig
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: AirLoopIndex
INTEGER :: ZonesCooledIndex
INTEGER :: ZonesHeatedIndex
INTEGER :: TermInletNode
DO AirLoopIndex=1,NumPrimaryAirSys ! loop over the primary air loops
DO ZonesCooledIndex=1,AirToZoneNodeInfo(AirLoopIndex)%NumZonesCooled ! loop over the zones cooled by this air loop
TermInletNode = AirToZoneNodeInfo(AirLoopIndex)%TermUnitCoolInletNodes(ZonesCooledIndex)
! reset the max avail flow rate at the terminal unit cold air inlet to the max
Node(TermInletNode)%MassFlowRateMaxAvail = Node(TermInletNode)%MassFlowRateMax
Node(TermInletNode)%MassFlowRateMinAvail = Node(TermInletNode)%MassFlowRateMin
END DO
DO ZonesHeatedIndex=1,AirToZoneNodeInfo(AirLoopIndex)%NumZonesHeated ! loop over the zones heated by this air loop
TermInletNode = AirToZoneNodeInfo(AirLoopIndex)%TermUnitHeatInletNodes(ZonesHeatedIndex)
! reset the max avail flow rate at the terminal unit hot air inlet to the max
Node(TermInletNode)%MassFlowRateMaxAvail = Node(TermInletNode)%MassFlowRateMax
Node(TermInletNode)%MassFlowRateMinAvail = Node(TermInletNode)%MassFlowRateMin
END DO
END DO
RETURN
END SUBROUTINE ResetTerminalUnitFlowLimits