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) | :: | UTSCNum |
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 UpdateTranspiredCollector(UTSCNum)
! SUBROUTINE INFORMATION:
! AUTHOR B.T. Griffith
! DATE WRITTEN November 2004
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! <description>
! METHODOLOGY EMPLOYED:
! <description>
! REFERENCES:
! na
! USE STATEMENTS:
USE DataLoopNode, ONLY: Node
USE DataSurfaces, ONLY: OSCM
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: UTSCNum
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: OutletNode
INTEGER :: InletNode
INTEGER :: thisOSCM
INTEGER :: thisOASys
!update "last" values in Derived type
UTSC(UTSCNum)%TplenLast = UTSC(UTSCNum)%Tplen
UTSC(UTSCNum)%TcollLast = UTSC(UTSCNum)%Tcoll
! Set the outlet air nodes of the UTSC
IF (UTSC(UTSCNum)%isOn) Then ! Active
If (UTSC(UTSCNum)%NumOASysAttached == 1) then
OutletNode = UTSC(UTSCNum)%OutletNode(1)
InletNode = UTSC(UTSCNum)%InletNode(1)
Node(OutletNode)%MassFlowRate = UTSC(UTSCNum)%SupOutMassFlow
Node(OutletNode)%Temp = UTSC(UTSCNum)%SupOutTemp
Node(OutletNode)%HumRat = UTSC(UTSCNum)%SupOutHumRat
Node(OutletNode)%Enthalpy = UTSC(UTSCNum)%SupOutEnth
ELSEIF (UTSC(UTSCNum)%NumOASysAttached > 1) THEN
DO thisOASys=1, UTSC(UTSCNum)%NumOASysAttached
Node(UTSC(UTSCNum)%OutletNode(thisOASys))%MassFlowRate &
= Node(UTSC(UTSCNum)%InletNode(thisOASys))%MassFlowRate !system gets what it asked for at inlet
Node(UTSC(UTSCNum)%OutletNode(thisOASys))%Temp = UTSC(UTSCNum)%SupOutTemp
Node(UTSC(UTSCNum)%OutletNode(thisOASys))%HumRat = UTSC(UTSCNum)%SupOutHumRat
Node(UTSC(UTSCNum)%OutletNode(thisOASys))%Enthalpy = UTSC(UTSCNum)%SupOutEnth
ENDDO
ENDIF
ELSE ! Passive and/or bypassed Note Array assignments in following
Node(UTSC(UTSCNum)%OutletNode)%MassFlowRate = Node(UTSC(UTSCNum)%InletNode)%MassFlowRate
Node(UTSC(UTSCNum)%OutletNode)%Temp = Node(UTSC(UTSCNum)%InletNode)%Temp
Node(UTSC(UTSCNum)%OutletNode)%HumRat = Node(UTSC(UTSCNum)%InletNode)%HumRat
Node(UTSC(UTSCNum)%OutletNode)%Enthalpy = Node(UTSC(UTSCNum)%InletNode)%Enthalpy
ENDIF
! update the OtherSideConditionsModel coefficients.
thisOSCM = UTSC(UTSCNum)%OSCMPtr
OSCM(thisOSCM)%TConv = UTSC(UTSCNum)%Tplen
OSCM(thisOSCM)%HConv = UTSC(UTSCNum)%HcPlen
OSCM(thisOSCM)%TRad = UTSC(UTSCNum)%Tcoll
OSCM(thisOSCM)%HRad = UTSC(UTSCNum)%HrPlen
RETURN
END SUBROUTINE UpdateTranspiredCollector