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 | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | ZoneName | |||
character(len=*), | intent(in) | :: | LoadType | |||
real(kind=r64), | intent(in) | :: | CalcDesLoad | |||
real(kind=r64), | intent(in) | :: | UserDesLoad | |||
real(kind=r64), | intent(in) | :: | CalcDesFlow | |||
real(kind=r64), | intent(in) | :: | UserDesFlow | |||
character(len=*), | intent(in) | :: | DesDayName | |||
character(len=*), | intent(in) | :: | PeakHrMin | |||
real(kind=r64), | intent(in) | :: | PeakTemp | |||
real(kind=r64), | intent(in) | :: | PeakHumRat | |||
real(kind=r64), | intent(in) | :: | MinOAVolFlow |
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 AddSQLiteZoneSizingRecord (ZoneName, LoadType, CalcDesLoad, UserDesLoad, CalcDesFlow, UserDesFlow, DesDayName, &
PeakHrMin, PeakTemp, PeakHumRat, MinOAVolFlow)
! SUBROUTINE INFORMATION:
! AUTHOR Greg Stark
! DATE WRITTEN August 2008
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This subroutine writes one item of zone sizing data to the 'sql' file..
! METHODOLOGY EMPLOYED:
! Standard SQL92 queries and commands via the Fortran SQLite3 API
! REFERENCES:
! na
! USE STATEMENTS:
USE DataPrecisionGlobals
USE DataGlobals, ONLY : OutputFileInits
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
CHARACTER(len=*), INTENT(IN) :: ZoneName ! the name of the zone
CHARACTER(len=*), INTENT(IN) :: LoadType ! the description of the input variable
REAL(r64), INTENT(IN) :: CalcDesLoad ! the value from the sizing calculation [W]
REAL(r64), INTENT(IN) :: UserDesLoad ! the value from the sizing calculation modified by user input [W]
REAL(r64), INTENT(IN) :: CalcDesFlow ! calculated design air flow rate [m3/s]
REAL(r64), INTENT(IN) :: UserDesFlow ! user input or modified design air flow rate [m3/s]
CHARACTER(len=*), INTENT(IN) :: DesDayName ! the name of the design day that produced the peak
CHARACTER(len=*), INTENT(IN) :: PeakHrMin ! time stamp of the peak
REAL(r64), INTENT(IN) :: PeakTemp ! temperature at peak [C]
REAL(r64), INTENT(IN) :: PeakHumRat ! humidity ratio at peak [kg water/kg dry air]
REAL(r64), INTENT(IN) :: MinOAVolFlow ! zone design minimum outside air flow rate [m3/s]
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: result
result = SQLiteBindTextMacro (ZoneSizingInsertStmt, 1, ZoneName)
result = SQLiteBindTextMacro (ZoneSizingInsertStmt, 2, LoadType)
result = SQLiteBindDouble (ZoneSizingInsertStmt, 3, CalcDesLoad)
result = SQLiteBindDouble (ZoneSizingInsertStmt, 4, UserDesLoad)
result = SQLiteBindDouble (ZoneSizingInsertStmt, 5, CalcDesFlow)
result = SQLiteBindDouble (ZoneSizingInsertStmt, 6, UserDesFlow)
result = SQLiteBindTextMacro (ZoneSizingInsertStmt, 7, DesDayName)
result = SQLiteBindTextMacro (ZoneSizingInsertStmt, 8, PeakHrMin)
result = SQLiteBindDouble (ZoneSizingInsertStmt, 9, PeakTemp)
result = SQLiteBindDouble (ZoneSizingInsertStmt, 10, PeakHumRat)
result = SQLiteBindDouble (ZoneSizingInsertStmt, 11, MinOAVolFlow)
result = SQLiteStepCommand (ZoneSizingInsertStmt)
result = SQLiteResetCommand (ZoneSizingInsertStmt)
END SUBROUTINE AddSQLiteZoneSizingRecord