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.
SUBROUTINE CalcZonePipesHeatGain
! SUBROUTINE INFORMATION:
! AUTHOR Edwin Lee
! DATE WRITTEN September 2008
! MODIFIED
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Calculates the zone internal gains due to pipe heat transfer objects.
! METHODOLOGY EMPLOYED:
! Sums the heat losses from all of the water heaters in the zone to add as a gain to the zone.
! USE STATEMENTS:
USE DataGlobals, ONLY: BeginEnvrnFlag
USE DataHeatBalance, ONLY: ZoneIntGain
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
! INTEGER :: PipeNum
! INTEGER :: ZoneNum
LOGICAL, SAVE :: MyEnvrnFlag=.true.
! REAL(r64) :: QLossToZone
! FLOW:
IF (NumOfPipeHT == 0) RETURN
IF (BeginEnvrnFlag .and. MyEnvrnFlag) THEN
PipeHT%ZoneHeatGainRate = 0.0d0
MyEnvrnFlag = .false.
ENDIF
IF (.not. BeginEnvrnFlag) MyEnvrnFlag=.true.
! this routine needs to model approx zone pipe gains for use during sizing
! IF(DoingSizing)THEN
! DO PipeNum = 1, NumOfPipeHT
!
! PipeHT(pipeNum)%ZoneHeatGainRate =
!
! ENDDO
!
! ENDIF
RETURN
END SUBROUTINE CalcZonePipesHeatGain