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) | :: | Num | |||
| integer, | intent(in) | :: | SysType |
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 UpdateRefrigCondenser(Num,Systype)
! SUBROUTINE INFORMATION:
! AUTHOR Randy Hudson, ORNL
! DATE WRITTEN July 2007
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Updates the node variables with local variables.
! METHODOLOGY EMPLOYED:
! Standard EnergyPlus methodology.
! USE STATEMENTS:
USE DataLoopNode, ONLY: Node
USE PlantUtilities, ONLY: SafeCopyPlantNode
USE DataPlant, ONLY: TypeOf_RefrigerationWaterCoolRack, &
TypeOf_RefrigSystemWaterCondenser
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: Num
INTEGER, INTENT(IN) :: SysType
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
! FLOW:
SELECT CASE (SysType)
CASE (TypeOf_RefrigerationWaterCoolRack)
InletNode = RefrigRack(Num)%InletNode
OutletNode = RefrigRack(Num)%OutletNode
CASE (TypeOf_RefrigSystemWaterCondenser)
InletNode = Condenser(Num)%InletNode
OutletNode = Condenser(Num)%OutletNode
END SELECT
! Pass all variables from inlet to outlet node
CALL SafeCopyPlantNode(InletNode, OutletNode) ! Node(OutletNode) = Node(InletNode)
! Set outlet node variables that are possibly changed
SELECT CASE (SysType)
CASE (TypeOf_RefrigerationWaterCoolRack)
Node(OutletNode)%Temp = RefrigRack(Num)%OutletTemp
CASE (TypeOf_RefrigSystemWaterCondenser)
Node(OutletNode)%Temp = Condenser(Num)%OutletTemp
END SELECT
RETURN
END SUBROUTINE UpdateRefrigCondenser