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 | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | ZoneNum |
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 GetSurfHBDataForTempDistModel(ZoneNum)
! SUBROUTINE INFORMATION:
! AUTHOR B. Griffith
! DATE WRITTEN August 2005
! MODIFIED
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! map data from Heat Balance domain to Room Air Modeling Domain
! for the current zone, (only need mean air temp)
! also acts as an init routine
! METHODOLOGY EMPLOYED:
! use ZT from DataHeatBalFanSys
! REFERENCES:
! na
! USE STATEMENTS:
USE DataHeatBalFanSys, ONLY : MAT, ZT, ZTAV
USE DataHeatBalance , ONLY : zone
USE InputProcessor , ONLY : FindItem
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: ZoneNum ! index number for the specified zone
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
!unused INTEGER :: thisZoneInfo
!intialize in preperation for calculations
AirPatternZoneInfo(ZoneNum)%Tstat = MAT(zoneNum)
AirPatternZoneInfo(ZoneNum)%Tleaving = MAT(zoneNum)
AirPatternZoneInfo(ZoneNum)%Texhaust = MAT(zoneNum)
AirPatternZoneInfo(ZoneNum)%Surf%TadjacentAir = MAT(zoneNum)
! the only input this method needs is the zone MAT or ZT or ZTAV ? (original was ZT)
AirPatternZoneInfo(ZoneNum)%TairMean = MAT(zoneNum) ! this is lagged from previous corrector result
RETURN
END SUBROUTINE GetSurfHBDataForTempDistModel