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

Go to the documentation of this file.
00001 !     #############################################################
00002 SUBROUTINE WINDOW_SHADING(PSHGC, PSHGC_SH, O_SHADE, PALB_WALL,      &
00003                           PABS_WIN, PABS_WINSH, PALB_WIN, PTRAN_WIN )
00004 !     #############################################################
00005 !
00006 !
00007 !
00008 !!****  *WINDOW_SHADING*  
00009 !!
00010 !!    PURPOSE
00011 !!    -------
00012 !
00013 !     Computes the radiative properties of the window in case of shading
00014 !     devices active
00015 !         
00016 !     
00017 !!**  METHOD
00018 !!     ------
00019 !!     
00020 !!    apply radiative properties coming from namelist input (SHGC_SH)  
00021 !!
00022 !!    EXTERNAL
00023 !!    --------
00024 !!
00025 !!
00026 !!    IMPLICIT ARGUMENTS
00027 !!    ------------------
00028 !!
00029 !!    MODD_CST
00030 !!
00031 !!      
00032 !!    REFERENCE
00033 !!    ---------
00034 !!
00035 !!   EnergyPlus Engineering Reference V7, 2012, p. 217.
00036 !!      
00037 !!    AUTHOR
00038 !!    ------
00039 !!
00040 !!      B. Bueno           * Meteo-France *
00041 !!
00042 !!    MODIFICATIONS
00043 !!    -------------
00044 !!      Original    11/10
00045 !!      G. Pigeon   09/12 code reorganization to take into account propertie
00046 !!                  from window
00047 !-------------------------------------------------------------------------------
00048 !
00049 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00050 USE PARKIND1  ,ONLY : JPRB
00051 !
00052 !
00053 REAL,    DIMENSION(:), INTENT(IN) :: PSHGC     !Window solar heat gain coefficient
00054 REAL,    DIMENSION(:), INTENT(IN) :: PSHGC_SH  !Window + shading solar heat gain coefficient
00055 LOGICAL, DIMENSION(:), INTENT(IN) :: O_SHADE   !use of shadings TRUE -> shadings ;
00056                                                !FALSE -> no shading
00057 REAL, DIMENSION(:), INTENT(IN)  :: PALB_WALL !albedo of the wall     
00058 REAL, DIMENSION(:), INTENT(IN)  :: PABS_WIN  !Window absorptivity
00059 REAL, DIMENSION(:), INTENT(OUT) :: PABS_WINSH!Window absorptivity after shading
00060 REAL, DIMENSION(:), INTENT(OUT) :: PALB_WIN  !Albedo of the ensemble window + shading
00061 REAL, DIMENSION(:), INTENT(INOUT) :: PTRAN_WIN !Window transmitivity
00062 !
00063 !local variables
00064 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00065 !
00066 IF (LHOOK) CALL DR_HOOK('WINDOW_SHADING',0,ZHOOK_HANDLE)
00067 !
00068 WHERE(O_SHADE)
00069   PTRAN_WIN (:) = PSHGC_SH (:)
00070   PABS_WINSH(:) = PTRAN_WIN(:) * PABS_WIN(:)
00071   PALB_WIN  (:) = PALB_WALL(:)
00072 ELSE WHERE
00073   PTRAN_WIN(:) = PTRAN_WIN(:)
00074   PABS_WINSH(:) = PABS_WIN(:)                                
00075   PALB_WIN  (:) = 1. - PABS_WIN(:) - PTRAN_WIN(:)
00076 END WHERE
00077 !
00078 WHERE ((PABS_WINSH(:) + PTRAN_WIN(:) + PALB_WIN) > 1.)
00079   PALB_WIN(:) = 1. - PABS_WINSH(:) - PTRAN_WIN(:)
00080 END WHERE
00081 !
00082 IF (LHOOK) CALL DR_HOOK('WINDOW_SHADING',1,ZHOOK_HANDLE)
00083 !
00084 END SUBROUTINE WINDOW_SHADING