SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/window_shading

Go to the documentation of this file.
00001 !     ###########################################################################################################
00002       SUBROUTINE WINDOW_SHADING_AVAILABILITY(OSHADE, PTI_BLD, PTCOOL_TARGET,OSHADE_POSSIBLE)
00003 !     ###########################################################################################################
00004 !
00005 !!****  *WINDOW_SHADING_AVAILABILITY* 
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!* checks if one encouters the conditions for closing the windows at day
00010 !  (needs to be equiped of solar protections and not to be confortable inside)
00011 !  
00012 !!
00013 !!**  METHOD
00014 !!    ------
00015 !!
00016 !!    EXTERNAL
00017 !!    --------
00018 !!
00019 !!    IMPLICIT ARGUMENTS
00020 !!    ------------------
00021 !!
00022 !!    REFERENCE
00023 !!    ---------
00024 !!
00025 !!    AUTHOR
00026 !!    ------
00027 !!      G. Pigeon   *Meteo France*      
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original    10/2011
00032 !-------------------------------------------------------------------------------
00033 !
00034 !*       0.    DECLARATIONS
00035 !              ------------
00036 !
00037 USE MODD_BEM_CST, ONLY : XCOMFORT_TEMP_FOR_SHADING_USE
00038 !
00039 IMPLICIT NONE
00040 !
00041 !*       0.1   Declarations of arguments
00042 !              -------------------------
00043 !
00044 LOGICAL, DIMENSION(:), INTENT(IN)  :: OSHADE          ! TRUE if solar protections exist
00045 REAL,    DIMENSION(:), INTENT(IN)  :: PTI_BLD         ! indoor air temperature
00046 REAL,    DIMENSION(:), INTENT(IN)  :: PTCOOL_TARGET   ! Cooling setpoint of HVAC system
00047 LOGICAL, DIMENSION(:), INTENT(OUT) :: OSHADE_POSSIBLE ! TRUE if solar protections 
00048 !                                                     ! are likely to be used today if
00049 !                                                     ! solar irradiance is enough
00050 !
00051 !*       0.2   Declarations of local variables
00052 !
00053 !
00054 !-------------------------------------------------------------------------------
00055 !
00056 !
00057 !
00058 OSHADE_POSSIBLE(:) = OSHADE(:)                                   .AND. &
00059           (       PTI_BLD(:) .GE. XCOMFORT_TEMP_FOR_SHADING_USE        &
00060              .OR. PTI_BLD(:) .EQ. PTCOOL_TARGET(:)              )
00061 !
00062 END SUBROUTINE WINDOW_SHADING_AVAILABILITY