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) | :: | CompNum |
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 ReportCoilUserDefined(CompNum)
! SUBROUTINE INFORMATION:
! AUTHOR B. Griffith
! DATE WRITTEN Feb. 2012
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! report model outputs
! METHODOLOGY EMPLOYED:
! <description>
! REFERENCES:
! na
! USE STATEMENTS:
USE PlantUtilities, ONLY: SetComponentFlowRate, SafeCopyPlantNode
USE Psychrometrics, ONLY: PsyHFnTdbW
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: CompNum
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: Loop
DO Loop = 1, UserCoil(CompNum)%NumAirConnections
IF (UserCoil(CompNum)%Air(Loop)%OutletNodeNum > 0) THEN
Node(UserCoil(CompNum)%Air(Loop)%OutletNodeNum)%Temp = UserCoil(CompNum)%Air(Loop)%OutletTemp
Node(UserCoil(CompNum)%Air(Loop)%OutletNodeNum)%HumRat = UserCoil(CompNum)%Air(Loop)%OutletHumRat
Node(UserCoil(CompNum)%Air(Loop)%OutletNodeNum)%MassFlowRate = UserCoil(CompNum)%Air(Loop)%OutletMassFlowRate
Node(UserCoil(CompNum)%Air(Loop)%OutletNodeNum)%Enthalpy = PsyHFnTdbW(UserCoil(CompNum)%Air(Loop)%OutletTemp, &
UserCoil(CompNum)%Air(Loop)%OutletHumRat, &
'ReportCoilUserDefined')
ENDIF
ENDDO
IF (UserCoil(CompNum)%PlantIsConnected) THEN
!make mass flow requests
CALL SetComponentFlowRate(UserCoil(CompNum)%Loop%MassFlowRateRequest, &
UserCoil(CompNum)%Loop%InletNodeNum, &
UserCoil(CompNum)%Loop%OutletNodeNum, &
UserCoil(CompNum)%Loop%LoopNum, &
UserCoil(CompNum)%Loop%LoopSideNum, &
UserCoil(CompNum)%Loop%BranchNum, &
UserCoil(CompNum)%Loop%CompNum )
CALL SafeCopyPlantNode(UserCoil(CompNum)%Loop%InletNodeNum, &
UserCoil(CompNum)%Loop%OutletNodeNum)
!unload Actuators to node data structure
Node(UserCoil(CompNum)%Loop%OutletNodeNum)%Temp = UserCoil(CompNum)%Loop%OutletTemp
ENDIF
IF (UserCoil(CompNum)%Water%SuppliedByWaterSystem) THEN
WaterStorage(UserCoil(CompNum)%Water%SupplyTankID)% &
VdotRequestDemand(UserCoil(CompNum)%Water%SupplyTankDemandARRID) &
= UserCoil(CompNum)%Water%SupplyVdotRequest
ENDIF
IF (UserCoil(CompNum)%Water%CollectsToWaterSystem) THEN
WaterStorage(UserCoil(CompNum)%Water%CollectionTankID)% &
VdotAvailSupply(UserCoil(CompNum)%Water%CollectionTankSupplyARRID) &
= UserCoil(CompNum)%Water%CollectedVdot
ENDIF
RETURN
END SUBROUTINE ReportCoilUserDefined