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) | :: | WaterThermalTankNum |
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 UpdateWaterThermalTank(WaterThermalTankNum)
! SUBROUTINE INFORMATION:
! AUTHOR Brandon Anderson
! DATE WRITTEN May 2000
! MODIFIED na
! Nov 2011, BAN; removed the use and source heat rate re-calculation for stratified tank
! for energy conservation verification.
! RE-ENGINEERED Feb 2004, PGE
! PURPOSE OF THIS SUBROUTINE:
! Updates the node variables with local variables.
! METHODOLOGY EMPLOYED:
! Standard EnergyPlus methodology.
! USE STATEMENTS:
USE DataLoopNode, ONLY: Node
USE Psychrometrics, ONLY: CPHW
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: WaterThermalTankNum
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: UseInletNode
INTEGER :: UseOutletNode
INTEGER :: SourceInletNode
INTEGER :: SourceOutletNode
! FLOW:
UseInletNode = WaterThermalTank(WaterThermalTankNum)%UseInletNode
UseOutletNode = WaterThermalTank(WaterThermalTankNum)%UseOutletNode
SourceInletNode = WaterThermalTank(WaterThermalTankNum)%SourceInletNode
SourceOutletNode = WaterThermalTank(WaterThermalTankNum)%SourceOutletNode
IF (UseInletNode > 0 .AND. UseOutletNode > 0) THEN
Node(UseOutletNode) = Node(UseInletNode) ! this could wipe out setpoints on outlet node
Node(UseOutletNode)%Temp = WaterThermalTank(WaterThermalTankNum)%UseOutletTemp
END IF
IF (SourceInletNode > 0 .AND. SourceOutletNode > 0) THEN
Node(SourceOutletNode) = Node(SourceInletNode)
Node(SourceOutletNode)%Temp = WaterThermalTank(WaterThermalTankNum)%SourceOutletTemp
END IF
RETURN
END SUBROUTINE UpdateWaterThermalTank