Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | IndexTypeKey |
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 UpdateTabularReports(IndexTypeKey)
! SUBROUTINE INFORMATION:
! AUTHOR Jason Glazer
! DATE WRITTEN July 2003
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This is the routine that is called at the end of the time step
! loop and updates the arrays of data that will later being put
! into the tabular reports.
! METHODOLOGY EMPLOYED:
!
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: IndexTypeKey ! What kind of data to update (Zone, HVAC)
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
LOGICAL, SAVE :: GetInput = .TRUE.
IF (IndexTypeKey /= ZoneTSReporting .and. IndexTypeKey /= HVACTSReporting) THEN
CALL ShowFatalError('Invalid reporting requested -- UpdateTabularReports')
ENDIF
IF (GetInput) THEN
CALL GetInputTabularMonthly
CALL GetInputTabularTimeBins
CALL GetInputTabularStyle
CALL GetInputTabularPredefined
! noel -- noticed this was called once and very slow -- sped up a little by caching keys
CALL InitializeTabularMonthly
CALL GetInputFuelAndPollutionFactors
CALL SetupUnitConversions
CALL AddTOCZoneLoadComponentTable
GetInput = .FALSE.
CALL DATE_AND_TIME(values=td)
END IF
IF (DoOutputReporting .and. WriteTabularFiles .and. (KindOfSim == ksRunPeriodWeather)) THEN
IF (IndexTypeKey .EQ. stepTypeZone) THEN
gatherElapsedTimeBEPS = gatherElapsedTimeBEPS + TimeStepZone
END IF
CALL GatherMonthlyResultsForTimestep(IndexTypeKey)
CALL GatherBinResultsForTimestep(IndexTypeKey)
CALL GatherBEPSResultsForTimestep(IndexTypeKey)
CALL GatherSourceEnergyEndUseResultsForTimestep(IndexTypeKey)
CALL GatherPeakDemandForTimestep(IndexTypeKey)
CALL GatherHeatGainReport(IndexTypeKey)
END IF
END SUBROUTINE UpdateTabularReports