modd_data_bemn.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.
!     ################
      MODULE modd_data_bem_n
!     ################
!
!!****  *MODD_DATA_BEM_n - declaration of surface parameters for BEM
!!
!!    PURPOSE
!!    -------
!     Declaration of surface parameters
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      G. Pigeon   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       08/2011
!
!*       0.   DECLARATIONS
!             ------------
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE

TYPE data_bem_t
  !
  LOGICAL :: ldata_tcool_target 
  LOGICAL :: ldata_theat_target   
  LOGICAL :: ldata_f_waste_can   
  LOGICAL :: ldata_eff_heat   
  LOGICAL :: ldata_hc_floor     
  LOGICAL :: ldata_tc_floor     
  LOGICAL :: ldata_d_floor 
  LOGICAL :: ldata_qin          
  LOGICAL :: ldata_qin_frad     
  LOGICAL :: ldata_shgc         
  LOGICAL :: ldata_u_win        
  LOGICAL :: ldata_gr           
  LOGICAL :: ldata_shgc_sh
  LOGICAL :: ldata_floor_height 
  LOGICAL :: ldata_inf  
  LOGICAL :: ldata_f_water_cond  
  LOGICAL :: ldata_shade
  LOGICAL :: ldata_natvent
  LOGICAL :: ldata_qin_flat 
  LOGICAL :: ldata_hr_target
  LOGICAL :: ldata_v_vent   
  LOGICAL :: ldata_cap_sys_heat 
  LOGICAL :: ldata_cap_sys_rat  
  LOGICAL :: ldata_t_adp        
  LOGICAL :: ldata_m_sys_rat    
  LOGICAL :: ldata_cop_rat      
  LOGICAL :: ldata_t_size_max    
  LOGICAL :: ldata_t_size_min  
!
! Number of layers in the specification of thermal characteristics
!
  INTEGER                    :: npar_floor_layer   ! number of layers in roofs
!
!
! Parameters:
!
  REAL, POINTER, DIMENSION(:)   :: xpar_tcool_target ! cooling setpoint of indoor air
  REAL, POINTER, DIMENSION(:)   :: xpar_theat_target ! heating setpoint of indoor air
  REAL, POINTER, DIMENSION(:)   :: xpar_f_waste_can  ! fraction of waste heat into the canyon
  REAL, POINTER, DIMENSION(:)   :: xpar_eff_heat     ! efficiency of the heating system
  REAL, POINTER, DIMENSION(:,:) :: xpar_hc_floor     ! heat capacity of floor layers [J m-3 K-1]
  REAL, POINTER, DIMENSION(:,:) :: xpar_tc_floor     ! thermal conductivity of floor layers [W m-1 K-1]
  REAL, POINTER, DIMENSION(:,:) :: xpar_d_floor      ! thickness of floor layers [m]
  REAL, POINTER, DIMENSION(:)   :: xpar_qin          ! internal heat gains [W m-2(floor)]
  REAL, POINTER, DIMENSION(:)   :: xpar_qin_frad     ! radiant fraction of internal heat gains
  REAL, POINTER, DIMENSION(:)   :: xpar_shgc         ! solar transmitance of windows
  REAL, POINTER, DIMENSION(:)   :: xpar_u_win        ! glazing thermal resistance [K m W-2]
  REAL, POINTER, DIMENSION(:)   :: xpar_gr           ! glazing ratio
  REAL, POINTER, DIMENSION(:)   :: xpar_shgc_sh      ! solar transmitance of windows + shading
  REAL, POINTER, DIMENSION(:)   :: xpar_floor_height ! building floor height [m]
  REAL, POINTER, DIMENSION(:)   :: xpar_inf          ! infiltration/ventilation flow rate [AC/H]
!
  REAL, POINTER, DIMENSION(:)   :: xpar_f_water_cond ! fraction of evaporation for condensers
  REAL, POINTER, DIMENSION(:)   :: xpar_shade        ! Flag to activate shading devices 0->inactivated , 1->activated
  REAL, POINTER, DIMENSION(:)   :: xpar_natvent      ! Flag to describe bld surventilation solution 0-> NONE ; 1 -> MANU ; 2-> AUTO
  REAL, POINTER, DIMENSION(:)   :: xpar_qin_flat     ! Latent franction of internal heat gains
  REAL, POINTER, DIMENSION(:)   :: xpar_hr_target    ! Relative humidity setpoint
  REAL, POINTER, DIMENSION(:)   :: xpar_v_vent       ! Ventilation flow rate [AC/H]
  REAL, POINTER, DIMENSION(:)   :: xpar_cap_sys_heat ! Capacity of the heating system 
                                                     ! [W m-2(bld)]
  REAL, POINTER, DIMENSION(:)   :: xpar_cap_sys_rat  ! Rated capacity of the cooling system
                                                     ! [W m-2(bld)]
  REAL, POINTER, DIMENSION(:)   :: xpar_t_adp        ! Apparatus dewpoint temperature of the
                                                     ! cooling coil [K]
  REAL, POINTER, DIMENSION(:)   :: xpar_m_sys_rat    ! Rated HVAC mass flow rate 
                                                     ! [kg s-1 m-2(bld)]
  REAL, POINTER, DIMENSION(:)   :: xpar_cop_rat      ! Rated COP of the cooling system
  REAL, POINTER, DIMENSION(:)   :: xpar_t_size_max   ! 
  REAL, POINTER, DIMENSION(:)   :: xpar_t_size_min   ! 
!
END TYPE data_bem_t



CONTAINS

!
!


!
!
SUBROUTINE data_bem_init(YDATA_BEM)
TYPE(data_bem_t), INTENT(INOUT) :: YDATA_BEM
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook("MODD_DATA_BEM_N:DATA_BEM_INIT",0,zhook_handle)
  NULLIFY(ydata_bem%XPAR_F_WASTE_CAN)  
  NULLIFY(ydata_bem%XPAR_EFF_HEAT)
  NULLIFY(ydata_bem%XPAR_HC_FLOOR)
  NULLIFY(ydata_bem%XPAR_TC_FLOOR)
  NULLIFY(ydata_bem%XPAR_D_FLOOR)
  NULLIFY(ydata_bem%XPAR_QIN)
  NULLIFY(ydata_bem%XPAR_QIN_FRAD)
  NULLIFY(ydata_bem%XPAR_SHGC) 
  NULLIFY(ydata_bem%XPAR_U_WIN)
  NULLIFY(ydata_bem%XPAR_GR)
  NULLIFY(ydata_bem%XPAR_FLOOR_HEIGHT)
  NULLIFY(ydata_bem%XPAR_INF)
  NULLIFY(ydata_bem%XPAR_F_WATER_COND)
  NULLIFY(ydata_bem%XPAR_QIN_FLAT)
  NULLIFY(ydata_bem%XPAR_V_VENT)
  NULLIFY(ydata_bem%XPAR_CAP_SYS_HEAT)
  NULLIFY(ydata_bem%XPAR_CAP_SYS_RAT)
  NULLIFY(ydata_bem%XPAR_T_ADP)
  NULLIFY(ydata_bem%XPAR_M_SYS_RAT)
  NULLIFY(ydata_bem%XPAR_COP_RAT)
  NULLIFY(ydata_bem%XPAR_T_SIZE_MAX)
  NULLIFY(ydata_bem%XPAR_T_SIZE_MIN)
  NULLIFY(ydata_bem%XPAR_SHADE)
  NULLIFY(ydata_bem%XPAR_NATVENT)
ydata_bem%LDATA_F_WASTE_CAN  = .false.   
ydata_bem%LDATA_EFF_HEAT     = .false.   
ydata_bem%LDATA_HC_FLOOR     = .false.     
ydata_bem%LDATA_TC_FLOOR     = .false.     
ydata_bem%LDATA_D_FLOOR      = .false. 
ydata_bem%LDATA_QIN          = .false.          
ydata_bem%LDATA_QIN_FRAD     = .false.     
ydata_bem%LDATA_SHGC         = .false.         
ydata_bem%LDATA_U_WIN        = .false.        
ydata_bem%LDATA_GR           = .false.           
ydata_bem%LDATA_SHGC_SH      = .false.
ydata_bem%LDATA_FLOOR_HEIGHT = .false. 
ydata_bem%LDATA_INF          = .false.  
ydata_bem%LDATA_F_WATER_COND = .false.  
ydata_bem%LDATA_SHADE        = .false.
ydata_bem%LDATA_NATVENT      = .false.
ydata_bem%LDATA_V_VENT       = .false.   
ydata_bem%LDATA_QIN_FLAT     = .false.     
ydata_bem%LDATA_CAP_SYS_HEAT = .false. 
ydata_bem%LDATA_CAP_SYS_RAT  = .false.  
ydata_bem%LDATA_T_ADP        = .false.        
ydata_bem%LDATA_M_SYS_RAT    = .false.    
ydata_bem%LDATA_COP_RAT      = .false.      
ydata_bem%LDATA_T_SIZE_MAX   = .false.    
ydata_bem%LDATA_T_SIZE_MIN   = .false.
ydata_bem%NPAR_FLOOR_LAYER   =0

IF (lhook) CALL dr_hook("MODD_DATA_BEM_N:DATA_BEM_INIT",1,zhook_handle)
END SUBROUTINE data_bem_init
!
!
END MODULE modd_data_bem_n