FUNCTION CHTC_SMOOTH_LEE_DOE_1D(PCHTCN, PVMOD) RESULT(PCHTC)
!#############################################
!
!!**** *CHTC_SMOOTH_LEE_DOE* -
!!
!! PURPOSE
!! -------
! function to compute convective surface coefficient for
! a leeward 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 :: ZALEE, ZBLEE ! coef for windward/leeward facade
!----------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('MODE_CONV_DOE:CHTC_SMOOTH_LEE_DOE',0,ZHOOK_HANDLE)
!
!* 1. INITIALIZE COEF
! ----------------
!
ZALEE = 2.86
ZBLEE = 0.617
!* 2. COMPUTE THE CHTC
! ----------------
!
PCHTC = SQRT(PCHTCN**2+(ZALEE*PVMOD**ZBLEE)**2)
!
!-------------------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('MODE_CONV_DOE:CHTC_SMOOTH_LEE_DOE',1,ZHOOK_HANDLE)
!
END FUNCTION CHTC_SMOOTH_LEE_DOE_1D