window_shading_availability.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_availability(OSHADE, PTI_BLD, PTCOOL_TARGET,OSHADE_POSSIBLE)
!     ###########################################################################################################
!
!!****  *WINDOW_SHADING_AVAILABILITY* 
!!
!!    PURPOSE
!!    -------
!!* checks if one encouters the conditions for closing the windows at day
!  (needs to be equiped of solar protections and not to be confortable inside)
!  
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      G. Pigeon   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    10/2011
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
USE modd_bem_cst, ONLY : xcomfort_temp_for_shading_use
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
LOGICAL, DIMENSION(:), INTENT(IN)  :: oshade          ! TRUE if solar protections exist
REAL,    DIMENSION(:), INTENT(IN)  :: pti_bld         ! indoor air temperature
REAL,    DIMENSION(:), INTENT(IN)  :: ptcool_target   ! Cooling setpoint of HVAC system
LOGICAL, DIMENSION(:), INTENT(OUT) :: oshade_possible ! TRUE if solar protections 
!                                                     ! are likely to be used today if
!                                                     ! solar irradiance is enough
!
!*       0.2   Declarations of local variables
!
!
!-------------------------------------------------------------------------------
!
!
!
oshade_possible(:) = oshade(:)                                   .AND. &
          (       pti_bld(:) .GE. xcomfort_temp_for_shading_use        &
             .OR. pti_bld(:) .EQ. ptcool_target(:)              )
!
END SUBROUTINE window_shading_availability