!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 version 2.1 !SFX_LIC version 1. See LICENSE, Licence_CeCILL_V2.1-en.txt and Licence_CeCILL_V2.1-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