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) | :: | FloorArea | |||
real(kind=r64), | intent(in) | :: | TotOccs | |||
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 ReportZoneSizing(ZoneName,LoadType,CalcDesLoad,UserDesLoad,CalcDesFlow,UserDesFlow,DesDayName, &
PeakHrMin,PeakTemp,PeakHumRat,FloorArea, TotOccs, MinOAVolFlow)
! SUBROUTINE INFORMATION:
! AUTHOR Fred Buhl
! DATE WRITTEN Decenber 2001
! MODIFIED August 2008, Greg Stark
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This subroutine writes one item of zone sizing data to the "eio" file..
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
USE DataPrecisionGlobals
USE DataGlobals, ONLY : OutputFileInits
USE DataStringGlobals, ONLY: VerString
USE General, ONLY: RoundSigDigits
! BSLLC Start
USE SQLiteProcedures
! BSLLC Finish
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) :: FloorArea ! zone floor area [m2]
REAL(r64), INTENT(IN) :: TotOccs ! design number of occupants for the zone
REAL(r64), INTENT(IN) :: MinOAVolFlow ! zone design minimum outside air flow rate [m3/s]
! SUBROUTINE PARAMETER DEFINITIONS:
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
LOGICAL, SAVE :: MyOneTimeFlag = .TRUE.
IF (MyOneTimeFlag) THEN
WRITE(OutputFileInits, 990)
MyOneTimeFlag = .FALSE.
END IF
WRITE (OutputFileInits, 991) TRIM(ZoneName), TRIM(LoadType), TRIM(RoundSigDigits(CalcDesLoad,5)), &
TRIM(RoundSigDigits(UserDesLoad,5)), &
TRIM(RoundSigDigits(CalcDesFlow,5)), TRIM(RoundSigDigits(UserDesFlow,5)), TRIM(DesDayName), TRIM(PeakHrMin), &
TRIM(RoundSigDigits(PeakTemp,5)), TRIM(RoundSigDigits(PeakHumRat,5)), TRIM(RoundSigDigits(FloorArea,5)), &
TRIM(RoundSigDigits(TotOccs,5)), TRIM(RoundSigDigits(MinOAVolFlow,5))
! BSLLC Start
IF (WriteOutputToSQLite) THEN
CALL AddSQLiteZoneSizingRecord (ZoneName, LoadType, CalcDesLoad, UserDesLoad, CalcDesFlow, UserDesFlow, DesDayName, &
PeakHrMin, PeakTemp, PeakHumRat, MinOAVolFlow)
END IF
! BSLLC Finish
990 FORMAT('! <Zone Sizing Information>, Zone Name, Load Type, Calc Des Load {W}, User Des Load {W}, ', &
'Calc Des Air Flow Rate {m3/s}, ', &
'User Des Air Flow Rate {m3/s}, Design Day Name, Date/Time of Peak, Temperature at Peak {C}, ', &
'Humidity Ratio at Peak {kgWater/kgDryAir}, Floor Area {m2}, # Occupants, Calc Outdoor Air Flow Rate {m3/s}')
991 FORMAT(' Zone Sizing Information',13(', ',A))
RETURN
END SUBROUTINE ReportZoneSizing