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 OutDewPointTempAt(Z) RESULT(LocalOutDewPointTemp)
! FUNCTION INFORMATION:
! AUTHOR Linda Lawrie
! DATE WRITTEN March 2007
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS FUNCTION:
! Calculates outdoor dew point temperature at a given altitude.
! METHODOLOGY EMPLOYED:
! 1976 U.S. Standard Atmosphere.
! copied from outwetbulbtempat
! 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) :: LocalOutDewPointTemp ! Return result for function (C)
! FUNCTION LOCAL VARIABLE DECLARATIONS:
REAL(r64) :: BaseTemp ! Base temperature at Z = 0 (C)
BaseTemp = OutDewPointTemp + WeatherFileTempModCoeff
IF (SiteTempGradient == 0.0d0) THEN
LocalOutDewPointTemp = OutDewPointTemp
ELSE IF (Z <= 0.0d0) THEN
LocalOutDewPointTemp = BaseTemp
ELSE
LocalOutDewPointTemp = BaseTemp - SiteTempGradient * EarthRadius * Z / (EarthRadius + Z)
END IF
IF (LocalOutDewPointTemp < -100.d0) THEN
CALL ShowSevereError('OutDewPointTempAt: outdoor dewpoint 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 OutDewPointTempAt