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 ResetNodeData
! SUBROUTINE INFORMATION:
! AUTHOR Linda Lawrie
! DATE WRITTEN March 2005
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This routine resets all node data to "initial" conditions.
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
! na
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
! na
IF (NumOfNodes <= 0) RETURN
Node%Temp = DefaultNodeValues%Temp
Node%TempMin = DefaultNodeValues%TempMin
Node%TempMax = DefaultNodeValues%TempMax
Node%TempSetPoint = DefaultNodeValues%TempSetPoint
Node%MassFlowRate = DefaultNodeValues%MassFlowRate
Node%MassFlowRateMin = DefaultNodeValues%MassFlowRateMin
Node%MassFlowRateMax = DefaultNodeValues%MassFlowRateMax
Node%MassFlowRateMinAvail = DefaultNodeValues%MassFlowRateMinAvail
Node%MassFlowRateMaxAvail = DefaultNodeValues%MassFlowRateMaxAvail
Node%MassFlowRateSetPoint = DefaultNodeValues%MassFlowRateSetPoint
Node%Quality = DefaultNodeValues%Quality
Node%Press = DefaultNodeValues%Press
Node%Enthalpy = DefaultNodeValues%Enthalpy
Node%HumRat = DefaultNodeValues%HumRat
Node%HumRatMin = DefaultNodeValues%HumRatMin
Node%HumRatMax = DefaultNodeValues%HumRatMax
Node%HumRatSetPoint = DefaultNodeValues%HumRatSetPoint
Node%TempSetPointHi = DefaultNodeValues%TempSetPointHi
Node%TempSetPointLo = DefaultNodeValues%TempSetPointLo
IF (ALLOCATED(MoreNodeInfo)) THEN
MoreNodeInfo%WetbulbTemp = DefaultNodeValues%Temp
MoreNodeInfo%RelHumidity = 0.0d0
MoreNodeInfo%ReportEnthalpy = DefaultNodeValues%Enthalpy
MoreNodeInfo%VolFlowRateStdRho = 0.0d0
MoreNodeInfo%VolFlowRateCrntRho= 0.0d0
MoreNodeInfo%Density = 0.0d0
ENDIF
RETURN
END SUBROUTINE ResetNodeData