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 DynamicClothingModel
! SUBROUTINE INFORMATION:
! AUTHOR Kwang Ho Lee
! DATE WRITTEN June 2013
! MODIFIED
! RE-ENGINEERED na
! METHODOLOGY EMPLOYED:
! REFERENCES:
! USE STATEMENTS:
! USE DataRoomAirModel, ONLY: AirModel, RoomAirModel_Mixing
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:
REAL(r64) :: TemporaryVariable
IF (TemporarySixAMTemperature < -5.0d0) THEN
ThermalComfortData(PeopleNum)%ClothingValue = 1.0d0
ELSE IF ((TemporarySixAMTemperature >= -5.0d0).AND.(TemporarySixAMTemperature < 5.0d0)) THEN
ThermalComfortData(PeopleNum)%ClothingValue = 0.818d0 - 0.0364d0 * TemporarySixAMTemperature
ELSE IF ((TemporarySixAMTemperature >= 5.0d0).AND.(TemporarySixAMTemperature < 26.0d0)) THEN
TemporaryVariable = -0.1635d0 - 0.0066d0 * TemporarySixAMTemperature
ThermalComfortData(PeopleNum)%ClothingValue = 10.0d0**(TemporaryVariable)
ELSE IF (TemporarySixAMTemperature >= 26.0d0) THEN
ThermalComfortData(PeopleNum)%ClothingValue = 0.46d0
END IF
END SUBROUTINE DynamicClothingModel