window_shading.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #############################################################
SUBROUTINE window_shading(PSHGC, PSHGC_SH, O_SHADE, PALB_WALL,      &
                          pabs_win, pabs_winsh, palb_win, ptran_win )
!     #############################################################
!
!
!
!!****  *WINDOW_SHADING*  
!!
!!    PURPOSE
!!    -------
!
!     Computes the radiative properties of the window in case of shading
!     devices active
!         
!     
!!**  METHOD
!!     ------
!!     
!!    apply radiative properties coming from namelist input (SHGC_SH)  
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    MODD_CST
!!
!!      
!!    REFERENCE
!!    ---------
!!
!!   EnergyPlus Engineering Reference V7, 2012, p. 217.
!!      
!!    AUTHOR
!!    ------
!!
!!      B. Bueno           * Meteo-France *
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    11/10
!!      G. Pigeon   09/12 code reorganization to take into account propertie
!!                  from window
!-------------------------------------------------------------------------------
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
!
REAL,    DIMENSION(:), INTENT(IN) :: pshgc     !Window solar heat gain coefficient
REAL,    DIMENSION(:), INTENT(IN) :: pshgc_sh  !Window + shading solar heat gain coefficient
LOGICAL, DIMENSION(:), INTENT(IN) :: o_shade   !use of shadings TRUE -> shadings ;
                                               !FALSE -> no shading
REAL, DIMENSION(:), INTENT(IN)  :: palb_wall !albedo of the wall     
REAL, DIMENSION(:), INTENT(IN)  :: pabs_win  !Window absorptivity
REAL, DIMENSION(:), INTENT(OUT) :: pabs_winsh!Window absorptivity after shading
REAL, DIMENSION(:), INTENT(OUT) :: palb_win  !Albedo of the ensemble window + shading
REAL, DIMENSION(:), INTENT(INOUT) :: ptran_win !Window transmitivity
!
!local variables
REAL(KIND=JPRB) :: zhook_handle
!
IF (lhook) CALL dr_hook('WINDOW_SHADING',0,zhook_handle)
!
WHERE(o_shade)
  ptran_win(:) = pshgc_sh(:)
  pabs_winsh(:) = ptran_win(:) * pabs_win(:)
  palb_win(:) = palb_wall(:)
ELSE WHERE
  ptran_win(:) = ptran_win(:)
  pabs_winsh(:) = pabs_win(:)                                
  palb_win(:) = 1. - pabs_win(:) - ptran_win(:)
END WHERE
!
WHERE ((pabs_winsh(:) + ptran_win(:) + palb_win) > 1.)
  palb_win(:) = 1. - pabs_winsh(:) - ptran_win(:)
END WHERE
!
IF (lhook) CALL dr_hook('WINDOW_SHADING',1,zhook_handle)
!
END SUBROUTINE window_shading