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 | :: | ReturnAirPathNum |
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 CalcReturnAirPath(ReturnAirPathNum)
! SUBROUTINE INFORMATION:
! AUTHOR: Russ Taylor
! DATE WRITTEN: Nov 1997
! PURPOSE OF THIS SUBROUTINE: This subroutine
! METHODOLOGY EMPLOYED:
! REFERENCES:
! USE STATEMENTS:
USE MixerComponent, ONLY: SimAirMixer
USE ZonePlenum, ONLY: SimAirZonePlenum
USE DataAirflowNetwork, ONLY: SimulateAirflowNetwork,AirflowNetworkFanActivated,AirflowNetworkControlMultizone
USE DataHVACGlobals, ONLY: TurnFansOn
IMPLICIT NONE
INTEGER :: ReturnAirPathNum
INTEGER :: ComponentNum
DO ComponentNum = 1, ReturnAirPath(ReturnAirPathNum)%NumOfComponents
SELECT CASE (ReturnAirPath(ReturnAirPathNum)%ComponentType_Num(ComponentNum))
CASE(ZoneMixer_Type) ! 'AirLoopHVAC:ZoneMixer'
if (.NOT. (AirflowNetworkFanActivated .AND. SimulateAirflowNetwork .GT. AirflowNetworkControlMultizone)) then
CALL SimAirMixer(ReturnAirPath(ReturnAirPathNum)%ComponentName(ComponentNum), &
CompIndex=ReturnAirPath(ReturnAirPathNum)%ComponentIndex(ComponentNum))
endif
CASE(ZoneReturnPlenum_Type) ! 'AirLoopHVAC:ReturnPlenum'
CALL SimAirZonePlenum(ReturnAirPath(ReturnAirPathNum)%ComponentName(ComponentNum),ZoneReturnPlenum_Type, &
ReturnAirPath(ReturnAirPathNum)%ComponentIndex(ComponentNum))
CASE DEFAULT
CALL ShowSevereError('Invalid AirLoopHVAC:ReturnPath Component='// &
TRIM(ReturnAirPath(ReturnAirPathNum)%ComponentType(ComponentNum)))
CALL ShowContinueError('Occurs in AirLoopHVAC:ReturnPath ='//TRIM(ReturnAirPath(ReturnAirPathNum)%Name))
CALL ShowFatalError('Preceding condition causes termination.')
END SELECT
END DO
RETURN
END SUBROUTINE CalcReturnAirPath