SUBROUTINE WINDOW_DATA_STRUCT(KI,PSHGC, PU_WIN, PALB_WIN, PABS_WIN, PUGG_WIN, PTRAN_WIN)
! #############################################################
!
!
!!**** *WINDOW_DATA*
!!
!! PURPOSE
!! -------
!
! Computes the radiative properties of the window
!
!
!!** METHOD
!! ------
!! uses U_WIN (window conductivity) and SHGC (window solar heat gain coef)
!! to compute the normal incident transmittance/reflectance
!! a factor to normal incident tran/ref is applied to take into account all
!! possible incidence between 18deg and 72deg
!!
!!
!! EXTERNAL
!! --------
!!
!!
!! IMPLICIT ARGUMENTS
!! ------------------
!!
!! MODD_CST
!!
!!
!! REFERENCE
!! ---------
!!
!! Simple Window Model from EnergyPlus Engineering Reference V7, 2012, p. 217.
!!
!! AUTHOR
!! ------
!!
!! B. Bueno * Meteo-France *
!!
!! MODIFICATIONS
!! -------------
!! Original 11/10
!! G. Pigeon & J. Le Bras 09/12 apply new factor to normal incident tran/ref
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
!
!
USE MODI_WINDOW_DATA
!
USE MODD_BEM_n, ONLY : BEM_t
!
IMPLICIT NONE
!
INTEGER, INTENT(IN) :: KI ! number of points
REAL, DIMENSION(KI), INTENT(IN) :: PSHGC ! solar heat gain coef. of windows
REAL, DIMENSION(KI), INTENT(IN) :: PU_WIN ! window U-factor [K m W-2]
REAL, DIMENSION(KI), INTENT(OUT) :: PALB_WIN ! window albedo
REAL, DIMENSION(KI), INTENT(OUT) :: PABS_WIN ! window absortance
REAL, DIMENSION(KI), INTENT(OUT) :: PUGG_WIN ! window glass-to-glass U-factor [W m-2 K-1]
REAL, DIMENSION(KI), INTENT(OUT) :: PTRAN_WIN! window transmittance (-)
!
!
!* 0.2 Declarations of local variables
!
TYPE(BEM_t) :: B
!
!
!------------------------------------------------------------------------------
ALLOCATE(B%XSHGC (1))
ALLOCATE(B%XU_WIN (1))
ALLOCATE(B%XALB_WIN (1))
ALLOCATE(B%XABS_WIN (1))
ALLOCATE(B%XUGG_WIN (1))
ALLOCATE(B%XTRAN_WIN(1))
!------------------------------------------------------------------------------
!
! put input variables in structures
B%XSHGC = PSHGC ! solar heat gain coef. of windows
B%XU_WIN = PU_WIN ! window U-factor [K m W-2]
!------------------------------------------------------------------------------
!
CALL WINDOW_DATA(KI,B)
!
!------------------------------------------------------------------------------
!
! put computed variables in output variables
PALB_WIN = B%XALB_WIN ! window albedo
PABS_WIN = B%XABS_WIN ! window absortance
PUGG_WIN = B%XUGG_WIN ! window glass-to-glass U-factor [W m-2 K-1]
PTRAN_WIN= B%XTRAN_WIN! window transmittance (-)!
!------------------------------------------------------------------------------
DEALLOCATE(B%XSHGC )
DEALLOCATE(B%XU_WIN )
DEALLOCATE(B%XALB_WIN )
DEALLOCATE(B%XABS_WIN )
DEALLOCATE(B%XUGG_WIN )
DEALLOCATE(B%XTRAN_WIN)
!------------------------------------------------------------------------------
!
END SUBROUTINE WINDOW_DATA_STRUCT