| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64), | intent(in) | :: | MyLoad | |||
| integer, | intent(in) | :: | EqNum | |||
| real(kind=r64), | intent(in) | :: | MassFlowRate | |||
| real(kind=r64), | intent(in) | :: | OutletTemp |
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 UpdateRecords(MyLoad,EqNum,MassFlowRate,OutletTemp)
! SUBROUTINE INFORMATION:
! AUTHOR: Dan Fisher
! DATE WRITTEN: October 1998
! MODIFIED May 2010; Edwin Lee; Linda Lawrie (consolidation)
! RE-ENGINEERED Sept 2010, Brent Griffith, plant rewrite
! PURPOSE OF THIS SUBROUTINE:
! This subroutine needs a description.
! METHODOLOGY EMPLOYED:
! Needs description, as appropriate.
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
REAL(r64),INTENT(IN) :: MyLoad
INTEGER, INTENT(IN) :: EqNum
REAL(r64), INTENT(IN) :: MassFlowRate
REAL(r64), INTENT(IN) :: OutletTemp
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: InletNode
INTEGER :: OutletNode
!set inlet and outlet nodes
InletNode = EnergySource(EqNum)%InletNodeNum
OutletNode = EnergySource(EqNum)%OutletNodeNum
Node(OutletNode)%Temp = OutletTemp
EnergySourceReport(EqNum)%MassFlowRate = MassFlowRate
EnergySourceReport(EqNum)%InletTemp = Node(InletNode)%Temp
EnergySourceReport(EqNum)%OutletTemp = OutletTemp
EnergySource(EqNum)%EnergyRate = ABS(MyLoad)
EnergySource(EqNum)%EnergyTransfer = EnergySource(EqNum)%EnergyRate * TimeStepSys * SecInHour
EnergySourceReport(EqNum)%EnergyTransfer = EnergySource(EqNum)%EnergyTransfer
RETURN
END SUBROUTINE UpdateRecords