FUNCTION CHTC_SMOOTH_WIND_DOE_1D(PCHTCN, PVMOD) RESULT(PCHTC)
!#############################################
!
!!**** *CHTC_SMOOTH_WIND_DOE* -
!!
!! PURPOSE
!! -------
! function to compute convective surface coefficient for
! a windward smooth surface from the natural convection coef and the
! wind speed
!
!!** METHOD
!! ------
!!
!! from EnergyPlus Engineering Reference, average the leeward/windward coef
!!
!! EXTERNAL
!! --------
!! NONE
!!
!! IMPLICIT ARGUMENTS
!! ------------------
!!
!! REFERENCE
!! ---------
!! EnergyPlus, Engineering Reference, DOE-2 model for convection on outside
!! surfaces, p68
!!
!! AUTHOR
!! ------
!! G. Pigeon * Meteo France *
!!
!! MODIFICATIONS
!! -------------
!! Original 20/00/2012
!
!-------------------------------------------------------------------------------
!* 0. DECLARATIONS
! ------------
!
IMPLICIT NONE
!
!* 0.1 Declarations of arguments and results
!
REAL, DIMENSION(:), INTENT(IN) :: PCHTCN ! Convective heat transfer coefficient for natural conv. [W/(m2.K)]
REAL, DIMENSION(:), INTENT(IN) :: PVMOD ! wind speed (m/s)
REAL, DIMENSION(SIZE(PCHTCN)) :: PCHTC ! Convective heat transfer coefficient [W/(m2.K)]
!
!* 0.2 Declarations of local variables
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
REAL :: ZAWIND, ZBWIND ! coef for windward facade
!----------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('MODE_CONV_DOE:CHTC_SMOOTH_WIND_DOE',0,ZHOOK_HANDLE)
!
!* 1. INITIALIZE COEF
! ----------------
!
ZAWIND = 2.38
ZBWIND = 0.89
!* 2. COMPUTE THE CHTC
! ----------------
!
PCHTC = SQRT(PCHTCN**2+(ZAWIND*PVMOD**ZBWIND)**2)
!
!-------------------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('MODE_CONV_DOE:CHTC_SMOOTH_WIND_DOE',1,ZHOOK_HANDLE)
!
END FUNCTION CHTC_SMOOTH_WIND_DOE_1D