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.
??? For now, always set outletnode mass flow equal to inletnode mass flow ??? Node(InletNodeNum)%MassFlowRate = ITSMassFlowRate ??? Node(OutletNodeNum)%MassFlowRate = ITSMassFlowRate
IF (Node(InletNodeNum)%MassFlowRate > 0.0) THEN
ELSE Node(InletNodeNum)%MassFlowRate = Node(InletNodeNum)%MassFlowRateMaxAvail Node(OutletNodeNum)%MassFlowRate = Node(InletNodeNum)%MassFlowRateMaxAvail ENDIF
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64) | :: | MyLoad | ||||
| logical | :: | RunFlag | ||||
| integer | :: | Num |
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 UpdateNode(MyLoad,RunFlag,Num)
! SUBROUTINE INFORMATION:
! AUTHOR: Dan Fisher
! DATE WRITTEN: October 1998
! PURPOSE OF THIS SUBROUTINE:
! METHODOLOGY EMPLOYED:
! REFERENCES:
! USE STATEMENTS:
USE PlantUtilities, ONLY : SafeCopyPlantNode
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
REAL(r64) :: MyLoad
LOGICAL :: RunFlag
INTEGER :: Num
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
! na
! FLOW
! Update Node Inlet & Outlet MassFlowRat
CALL SafeCopyPlantNode(InletNodeNum, OutletNodeNum)
IF (MyLoad ==0 .OR. .NOT. RunFlag ) THEN
! Update Outlet Conditions so that same as Inlet, so component can be bypassed if necessary
Node(OutletNodeNum)%Temp = Node(InletNodeNum)%Temp
ELSE
Node(OutletNodeNum)%Temp = ITSOutletTemp
END IF
!! ??? For now, always set outletnode mass flow equal to inletnode mass flow
!! ??? Node(InletNodeNum)%MassFlowRate = ITSMassFlowRate
!! ??? Node(OutletNodeNum)%MassFlowRate = ITSMassFlowRate
!
!! IF (Node(InletNodeNum)%MassFlowRate > 0.0) THEN
! Node(OutletNodeNum)%MassFlowRate = Node(InletNodeNum)%MassFlowRate
!! ELSE
!! Node(InletNodeNum)%MassFlowRate = Node(InletNodeNum)%MassFlowRateMaxAvail
!! Node(OutletNodeNum)%MassFlowRate = Node(InletNodeNum)%MassFlowRateMaxAvail
!! ENDIF
!
! Node(OutletNodeNum)%MassFlowRateMax = Node(InletNodeNum)%MassFlowRateMax
! Node(OutletNodeNum)%MassFlowRateMin = Node(InletNodeNum)%MassFlowRateMin
! Node(OutletNodeNum)%MassFlowRateMaxAvail = Node(InletNodeNum)%MassFlowRateMaxAvail
! Node(OutletNodeNum)%MassFlowRateMinAvail = Node(InletNodeNum)%MassFlowRateMinAvail
RETURN
END SUBROUTINE UpdateNode