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.
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 PostIPProcessing
! SUBROUTINE INFORMATION:
! AUTHOR Linda Lawrie
! DATE WRITTEN August 2010
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This provides post processing (for errors, etc) directly after the InputProcessor
! finishes. Code originally in the Input Processor.
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
USE SQLiteProcedures, ONLY: CreateSQLiteDatabase
USE InputProcessor, ONLY: PreProcessorCheck, OverallErrorFlag, CompactObjectsCheck, &
ParametricObjectsCheck, GetNumSectionsFound, PreScanReportingVariables, &
NumOutOfRangeErrorsFound,NumBlankReqFieldFound,NumMiscErrorsFound
USE FluidProperties, ONLY: FluidIndex_Water,FluidIndex_EthyleneGlycol,FluidIndex_PropoleneGlycol,FindGlycol
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
! na
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
LOGICAL :: PreP_Fatal=.false. ! True if a preprocessor flags a fatal error
DoingInputProcessing=.false.
Call CreateSQLiteDataBase
Call PreProcessorCheck(PreP_Fatal) ! Check Preprocessor objects for warning, severe, etc errors.
Call CheckCachedIPErrors
IF (PreP_Fatal) THEN
CALL ShowFatalError('Preprocessor condition(s) cause termination.')
ENDIF
IF (OverallErrorFlag) THEN
CALL ShowFatalError('IP: Errors occurred on processing IDF file. Preceding condition(s) cause termination.')
ENDIF
Call CompactObjectsCheck ! Check to see if Compact Objects (CompactHVAC, etc) are in input file.
! If so, ExpandObjects didn't get called...
Call ParametricObjectsCheck ! check to see if any parametric objects are in the input file
! parametric preprocessor was not run
IF (NumOutOfRangeErrorsFound+NumBlankReqFieldFound+NumMiscErrorsFound > 0) THEN
CALL ShowSevereError('IP: Out of "range" values and/or blank required fields found in input')
CALL ShowFatalError('IP: Errors occurred on processing IDF file. Preceding condition(s) cause termination.')
ENDIF
IF (GetNumSectionsFound('DISPLAYALLWARNINGS') > 0) THEN
DisplayAllWarnings=.true.
DisplayExtraWarnings=.true.
DisplayUnusedSchedules=.true.
DisplayUnusedObjects=.true.
ENDIF
IF (GetNumSectionsFound('DISPLAYEXTRAWARNINGS') > 0) THEN
DisplayExtraWarnings=.true.
ENDIF
IF (GetNumSectionsFound('DISPLAYUNUSEDOBJECTS') > 0) THEN
DisplayUnusedObjects=.true.
ENDIF
IF (GetNumSectionsFound('DISPLAYUNUSEDSCHEDULES') > 0) THEN
DisplayUnusedSchedules=.true.
ENDIF
IF (GetNumSectionsFound('DisplayZoneAirHeatBalanceOffBalance') > 0) THEN
DisplayZoneAirHeatBalanceOffBalance=.true.
ENDIF
IF (GetNumSectionsFound('DISPLAYADVANCEDREPORTVARIABLES') > 0) THEN
DisplayAdvancedReportVariables=.true.
ENDIF
!Set up more globals - process fluid input.
FluidIndex_Water=FindGlycol('Water')
FluidIndex_EthyleneGlycol=FindGlycol('EthyleneGlycol')
FluidIndex_PropoleneGlycol=FindGlycol('PropoleneGlycol')
CALL PreScanReportingVariables
RETURN
END SUBROUTINE PostIPProcessing