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