FUNCTION CHTC_ROUGH_DOE_1D(PCHTCN, PCHTCS, PROUGH) RESULT(PCHTC)
!#############################################
!
!!**** *CHTC_ROUGH_DOE* -
!!
!! PURPOSE
!! -------
! function to compute convective surface coefficient for
! a rough surface from the natural convection coef, the
! smooth surface convective coef and the roughness coef
!
!!** METHOD
!! ------
!!
!!
!! 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) :: PCHTCS ! Convective heat transfer coefficient for a smooth surface [W/(m2.K)]
REAL, DIMENSION(:), INTENT(IN) :: PROUGH ! Convective heat transfer coefficient for a smooth surface [W/(m2.K)]
REAL, DIMENSION(SIZE(PCHTCN)) :: PCHTC ! Convective heat transfer coefficient [W/(m2.K)]
!
!* 0.2 Declarations of local variables
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!----------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('MODE_CONV_DOE:CHTC_ROUGH_DOE',0,ZHOOK_HANDLE)
!
!* 1. COMPUTE THE CHTC
! ----------------
!
PCHTC = PCHTCN + PROUGH * (PCHTCS - PCHTCN)
!
!-------------------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('MODE_CONV_DOE:CHTC_ROUGH_DOE',1,ZHOOK_HANDLE)
!
END FUNCTION CHTC_ROUGH_DOE_1D