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.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | SysNum |
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 UpdateSys(SysNum)
! SUBROUTINE INFORMATION:
! AUTHOR Richard J. Liesen
! DATE WRITTEN january 2000
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This subroutine updates the Syss.
! METHODOLOGY EMPLOYED:
! There is method to this madness.
! REFERENCES:
! na
! USE STATEMENTS:
USE DataContaminantBalance, ONLY: Contaminant
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
Integer, Intent(IN) :: SysNum
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
Integer :: OutletNode
Integer :: InletNode
OutletNode = Sys(SysNum)%OutletNodeNum
InletNode = Sys(SysNum)%InletNodeNum
If(Sys(SysNum)%SysType_Num == SingleDuctVAVReheat .or. &
Sys(SysNum)%SysType_Num == SingleDuctCBVAVReheat .or. &
Sys(SysNum)%SysType_Num == SingleDuctCBVAVNoReheat .or. &
Sys(SysNum)%SysType_Num == SingleDuctVAVNoReheat) Then
! Set the outlet air nodes of the Sys
Node(OutletNode)%MassFlowRate = SysOutlet(SysNum)%AirMassFlowRate
Node(OutletNode)%Temp = SysOutlet(SysNum)%AirTemp
Node(OutletNode)%HumRat = SysOutlet(SysNum)%AirHumRat
Node(OutletNode)%Enthalpy = SysOutlet(SysNum)%AirEnthalpy
! Set the outlet nodes for properties that just pass through & not used
Node(OutletNode)%Quality = Node(InletNode)%Quality
Node(OutletNode)%Press = Node(InletNode)%Press
END IF
!After all of the Oulets are updated the mass flow information needs to be
! passed back to the system inlet.
Node(InletNode)%MassFlowRate = SysOutlet(SysNum)%AirMassFlowRate
Node(OutletNode)%MassFlowRateMaxAvail = MIN(SysOutlet(SysNum)%AirMassFlowRateMaxAvail, &
Node(OutletNode)%MassFlowRateMax)
Node(OutletNode)%MassFlowRateMinAvail = SysOutlet(SysNum)%AirMassFlowRateMinAvail
IF (Contaminant%CO2Simulation) Then
Node(OutletNode)%CO2 = Node(InletNode)%CO2
End If
IF (Contaminant%GenericContamSimulation) Then
Node(OutletNode)%GenContam = Node(InletNode)%GenContam
End If
RETURN
END Subroutine UpdateSys