| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64), | intent(in) | :: | SurfaceTemp | |||
| real(kind=r64), | intent(in) | :: | AirTemp | |||
| real(kind=r64), | intent(in) | :: | CosineTilt | |||
| real(kind=r64), | intent(in) | :: | WindAtZ | |||
| integer, | intent(in) | :: | RoughnessIndex | 
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 CalcDOE2Windward(SurfaceTemp, AirTemp, CosineTilt, WindAtZ, RoughnessIndex) RESULT (Hf)
          ! FUNCTION INFORMATION:
          !       AUTHOR         Brent Griffith
          !       DATE WRITTEN   Aug 2010
          !       MODIFIED       na
          !       RE-ENGINEERED  na
          ! PURPOSE OF THIS FUNCTION:
          ! calculate DOE-2 Hc equation for windward surfaces
          ! METHODOLOGY EMPLOYED:
          ! encapsulate model equation in a function
          ! REFERENCES:
          !   Lawrence Berkeley Laboratory.  1994.  DOE2.1E-053 source code.
          !   Yazdanian, M. and J.H. Klems.  1994.  Measurement of the exterior convective
          !   film coefficient for windows in low-rise buildings.
          !   ASHRAE Transactions 100(1):  1087.
          ! USE STATEMENTS:
          ! na
  IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
          ! FUNCTION ARGUMENT DEFINITIONS:
  REAL(r64), INTENT(IN) :: SurfaceTemp
  REAL(r64), INTENT(IN) :: AirTemp
  REAL(r64), INTENT(IN) :: CosineTilt
  REAL(r64), INTENT(IN) :: WindAtZ
  INTEGER  , INTENT(IN) :: RoughnessIndex
  REAL(r64)             :: Hf ! forced convection coefficient
          ! FUNCTION PARAMETER DEFINITIONS:
          ! na
          ! INTERFACE BLOCK SPECIFICATIONS:
          ! na
          ! DERIVED TYPE DEFINITIONS:
          ! na
          ! FUNCTION LOCAL VARIABLE DECLARATIONS:
  REAL(r64) :: HcSmooth
  REAL(r64) :: Hn
  REAL(r64) :: DeltaTemp
  DeltaTemp = SurfaceTemp - AirTemp
  Hn = CalcHnASHRAETARPExterior(SurfaceTemp, AirTemp, CosineTilt)
  HcSmooth = SQRT(Hn**2 + (3.26d0 * WindAtZ ** 0.89d0)**2)
  Hf = RoughnessMultiplier(RoughnessIndex) * (HcSmooth - Hn)
  RETURN
END FUNCTION CalcDOE2Windward