CalcHfExteriorSparrow Function

private function CalcHfExteriorSparrow(SurfWindSpeed, GrossArea, Perimeter, CosTilt, Azimuth, Roughness, WindDirection) result(Hf)

Arguments

Type	Intent		Name
real(kind=r64),	intent(in)	::	SurfWindSpeed
real(kind=r64),	intent(in)	::	GrossArea
real(kind=r64),	intent(in)	::	Perimeter
real(kind=r64),	intent(in)	::	CosTilt
real(kind=r64),	intent(in)	::	Azimuth
integer,	intent(in)	::	Roughness
real(kind=r64),	intent(in)	::	WindDirection

Return Value real(kind=r64)

Source Code

FUNCTION CalcHfExteriorSparrow(SurfWindSpeed, GrossArea, Perimeter, CosTilt, Azimuth, Roughness, WindDirection)  &
                        RESULT (Hf)

          ! FUNCTION INFORMATION:
          !       AUTHOR         Linda K. Lawrie
          !       DATE WRITTEN   September 2003
          !       MODIFIED       na
          !       RE-ENGINEERED  na

          ! PURPOSE OF THIS FUNCTION:
          ! This function returns the forced convection piece of the
          ! exterior convection coefficient.

          ! METHODOLOGY EMPLOYED:
          ! The forced convection calculation is based on a semi-empirical correlation
          ! developed by Sparrow, Ramsey, and Mass.


          ! REFERENCES:
          !   1. Sparrow, E. M., J. W. Ramsey, and E. A. Mass.  1979.  Effect of finite
          !   width on heat transfer and fluid flow about an inclined rectangular plate.
          !   Journal of Heat Transfer 101:  204.
          !   2. McClellan, T.M.  1996.  Investigation of a heat balance cooling load
          !   procedure with a detailed study of outside heat transfer parameters.
          !   M.S. Thesis, Department of Mechanical and Industrial Engineering,
          !   University of Illinois at Urbana-Champaign.
          !   3. ASHRAE Loads Toolkit.

          ! USE STATEMENTS:
          ! na

  IMPLICIT NONE    ! Enforce explicit typing of all variables in this routine

          ! FUNCTION ARGUMENT DEFINITIONS:
  REAL(r64),    INTENT(IN)  :: SurfWindSpeed  ! Local wind speed at height of the heat transfer surface (m/s)
  REAL(r64),    INTENT(IN)  :: GrossArea     ! Gross surface area {m2}
  REAL(r64),    INTENT(IN)  :: CosTilt       ! Cosine of the Surface Tilt Angle
                                        ! (Angle between the ground and the surface outward normal)
  REAL(r64),    INTENT(IN)  :: Azimuth       ! Facing angle (degrees) of the surface outward normal
  REAL(r64),    INTENT(IN)  :: Perimeter     ! Surface perimeter length {m}
  INTEGER, INTENT(IN)  :: Roughness     ! Surface roughness index (6=very smooth, 5=smooth, 4=medium smooth,
                                        ! 3=medium rough,2=rough,1=very rough)
  REAL(r64),    INTENT(IN)  :: WindDirection ! Wind (compass) direction (degrees)
  REAL(r64)            :: Hf            ! Surface exterior forced convective heat transfer coefficient, W/(m2-K)

          ! FUNCTION PARAMETER DEFINITIONS:
          ! na

          ! INTERFACE BLOCK SPECIFICATIONS:
          ! na

          ! DERIVED TYPE DEFINITIONS:
          ! na

          ! FUNCTION LOCAL VARIABLE DECLARATIONS:
  REAL(r64) :: WindDirectionModifier

  IF ( Windward(CosTilt,Azimuth,WindDirection) ) THEN
     WindDirectionModifier = 1.0d0
  ELSE
     WindDirectionModifier = 0.5d0
  END IF


  Hf = 2.537d0 * WindDirectionModifier * RoughnessMultiplier(Roughness) &
    * SQRT(SurfWindSpeed * Perimeter / GrossArea)

  RETURN

END FUNCTION CalcHfExteriorSparrow

All Procedures

CalcHfExteriorSparrow Function

Source Code

All Procedures

private function CalcHfExteriorSparrow(SurfWindSpeed, GrossArea, Perimeter, CosTilt, Azimuth, Roughness, WindDirection) result(Hf)

Arguments

Return Value real(kind=r64)

Calls

Called By

Source Code

Source Code

All Procedures