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 | ||
---|---|---|---|---|---|---|
real(kind=r64), | intent(in) | :: | Z |
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.
FUNCTION OutDryBulbTempAt(Z) RESULT(LocalOutDryBulbTemp)
! FUNCTION INFORMATION:
! AUTHOR Peter Graham Ellis
! DATE WRITTEN January 2006
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS FUNCTION:
! Calculates outdoor dry bulb temperature at a given altitude.
! METHODOLOGY EMPLOYED:
! 1976 U.S. Standard Atmosphere.
! REFERENCES:
! 1976 U.S. Standard Atmosphere. 1976. U.S. Government Printing Office, Washington, D.C.
! USE STATEMENTS:
USE DataInterfaces, ONLY: ShowSevereError, ShowContinueError, ShowFatalError
USE General, ONLY: RoundSigDigits
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! FUNCTION ARGUMENT DEFINITIONS:
REAL(r64), INTENT(IN) :: Z ! Height above ground (m)
REAL(r64) :: LocalOutDryBulbTemp ! Return result for function (C)
! FUNCTION LOCAL VARIABLE DECLARATIONS:
REAL(r64) :: BaseTemp ! Base temperature at Z = 0 (C)
BaseTemp = OutDryBulbTemp + WeatherFileTempModCoeff
IF (SiteTempGradient == 0.0d0) THEN
LocalOutDryBulbTemp = OutDryBulbTemp
ELSE IF (Z <= 0.0d0) THEN
LocalOutDryBulbTemp = BaseTemp
ELSE
LocalOutDryBulbTemp = BaseTemp - SiteTempGradient * EarthRadius * Z / (EarthRadius + Z)
END IF
IF (LocalOutDryBulbTemp < -100.d0) THEN
CALL ShowSevereError('OutDryBulbTempAt: outdoor drybulb temperature < -100 C')
CALL ShowContinueError('...check heights, this height=['//trim(RoundSigDigits(Z,0))//'].')
CALL ShowFatalError('Program terminates due to preceding condition(s).')
ENDIF
RETURN
END FUNCTION OutDryBulbTempAt