Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | Roughness | |||
real(kind=r64), | intent(in) | :: | SurfWindSpeed |
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.
REAL(r64) FUNCTION CalcASHRAESimpExtConvectCoeff(Roughness, SurfWindSpeed)
! FUNCTION INFORMATION:
! AUTHOR Rick Strand
! DATE WRITTEN August 2000
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS FUNCTION:
! This subroutine calculates the exterior convection coefficient
! using the ASHRAE Simple Method from a correlation from Figure 1
! on p. 22.4 of the 1989 ASHRAE Handbook of Fundamentals.
! This is a combined coefficient that includes radiation to sky, ground, and air.
! METHODOLOGY EMPLOYED:
! Apply the correlation based on the input data.
! REFERENCES:
! ASHRAE Handbook of Fundamentals 1989, p.22.4
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! FUNCTION ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: Roughness ! Integer index for roughness, relates to parameter array indices
REAL(r64), INTENT(IN) :: SurfWindSpeed ! Current wind speed, m/s
! FUNCTION PARAMETER DEFINITIONS:
REAL(r64), PARAMETER, DIMENSION(6) :: D = (/ 11.58d0, 12.49d0, 10.79d0, 8.23d0, 10.22d0, 8.23d0 /)
REAL(r64), PARAMETER, DIMENSION(6) :: E = (/ 5.894d0, 4.065d0, 4.192d0, 4.00d0, 3.100d0, 3.33d0 /)
REAL(r64), PARAMETER, DIMENSION(6) :: F = (/ 0.0d0, 0.028d0, 0.0d0, -0.057d0, 0.0d0, -0.036d0 /)
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! FUNCTION LOCAL VARIABLE DECLARATIONS:
! na
! FLOW:
CalcASHRAESimpExtConvectCoeff = D(Roughness) + E(Roughness)*SurfWindSpeed &
+ F(Roughness)*SurfWindSpeed**2
RETURN
END FUNCTION CalcASHRAESimpExtConvectCoeff