Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(in), | optional | :: | InitOnly |
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 ManageInternalHeatGains(InitOnly)
! SUBROUTINE INFORMATION:
! AUTHOR Rick Strand
! DATE WRITTEN May 2000
! MODIFIED Mar 2004, FCW: move call to DayltgElecLightingControl from InitSurfaceHeatBalance
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This is the main driver subroutine for the internal heat gains.
! METHODOLOGY EMPLOYED:
! Standard EnergyPlus methodology.
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
LOGICAL, INTENT(IN), OPTIONAL :: InitOnly ! when true, just calls the get input, if appropriate and returns.
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
!unused INTEGER :: ZoneNum ! Zone number
! FLOW:
IF (GetInternalHeatGainsInputFlag) THEN
CALL GetInternalHeatGainsInput
GetInternalHeatGainsInputFlag = .FALSE.
END IF
IF (PRESENT(InitOnly)) THEN
IF (InitOnly) RETURN
ENDIF
CALL InitInternalHeatGains
CALL ReportInternalHeatGains
!for the load component report, gather the load components for each timestep but not when doing pulse
IF (ZoneSizingCalc) CALL GatherComponentLoadsIntGain
RETURN
END SUBROUTINE ManageInternalHeatGains