modd_bld_descriptionn.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_bld_description_n
!     ################
!
!!****  *MODD_BLD_DESCRIPTION_n - declaration of surface parameters for typical
!                               buildings
!!
!!    PURPOSE
!!    -------
!     Declaration of surface parameters
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      G. Pigeon   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       08/2011
!!       V. Masson     08/2013 adds solar panels
!!       V. Masson     10/2013 adds residential fraction
!!----------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE

TYPE bld_desc_t
!
! Number of layers
!
  INTEGER                       :: NDESC_BLD          ! number of types of buildings
  INTEGER                       :: NDESC_AGE          ! number of building's construction dates ranges
  INTEGER                       :: NDESC_CODE         ! number of codes for buildings (merges type & age)
  INTEGER                       :: NDESC_USE          ! number of types of building's uses
  INTEGER                       :: NDESC_ROOF_LAYER   ! number of layers in roofs
  INTEGER                       :: NDESC_ROAD_LAYER   ! number of layers in roads
  INTEGER                       :: NDESC_WALL_LAYER   ! number of layers in walls
  INTEGER                       :: NDESC_FLOOR_LAYER  ! number of layers in floor
  INTEGER, POINTER, DIMENSION(:):: NDESC_BLD_LIST     ! list of the types for buildings
  INTEGER, POINTER, DIMENSION(:):: NDESC_AGE_DATE     ! list of the contruction dates for buildings
  INTEGER, POINTER, DIMENSION(:):: NDESC_CODE_LIST    ! list of the codes for buildings
  INTEGER, POINTER, DIMENSION(:):: NDESC_AGE_LIST     ! list of the contruction dates' codes
  INTEGER, POINTER, DIMENSION(:):: NDESC_USE_LIST     ! list of the codes for building's uses
  !
  REAL, POINTER, DIMENSION(:)   :: XDESC_ALB_ROOF     ! Roof albedo
  REAL, POINTER, DIMENSION(:)   :: XDESC_ALB_ROAD     ! Road albedo
  REAL, POINTER, DIMENSION(:)   :: XDESC_ALB_WALL     ! Wall albedo
  REAL, POINTER, DIMENSION(:)   :: XDESC_EMIS_ROOF    ! Roof emissivity
  REAL, POINTER, DIMENSION(:)   :: XDESC_EMIS_ROAD    ! Road emissivity
  REAL, POINTER, DIMENSION(:)   :: XDESC_EMIS_WALL    ! Wall emissivity
  REAL, POINTER, DIMENSION(:)   :: XDESC_TCOOL_TARGET ! cooling setpoint of indoor air
  REAL, POINTER, DIMENSION(:)   :: XDESC_THEAT_TARGET ! heating setpoint of indoor air  
  REAL, POINTER, DIMENSION(:)   :: XDESC_F_WASTE_CAN  ! fraction of waste heat into the canyon
  REAL, POINTER, DIMENSION(:)   :: XDESC_EFF_HEAT     ! efficiency of the heating system
  REAL, POINTER, DIMENSION(:,:) :: XDESC_HC_FLOOR     ! heat capacity of floor layers [J m-3 K-1]
  REAL, POINTER, DIMENSION(:,:) :: XDESC_TC_FLOOR     ! thermal conductivity of floor layers [W m-1 K-1]
  REAL, POINTER, DIMENSION(:,:) :: XDESC_D_FLOOR      ! thickness of floor layers [m]
  REAL, POINTER, DIMENSION(:,:) :: XDESC_HC_ROOF      ! heat capacity of roof layers [J m-3 K-1]
  REAL, POINTER, DIMENSION(:,:) :: XDESC_TC_ROOF      ! thermal conductivity of roof layers [W m-1 K-1]
  REAL, POINTER, DIMENSION(:,:) :: XDESC_D_ROOF       ! thickness of roof layers [m]
  REAL, POINTER, DIMENSION(:,:) :: XDESC_HC_ROAD      ! heat capacity of road layers [J m-3 K-1]
  REAL, POINTER, DIMENSION(:,:) :: XDESC_TC_ROAD      ! thermal conductivity of road layers [W m-1 K-1]
  REAL, POINTER, DIMENSION(:,:) :: XDESC_D_ROAD       ! thickness of road layers [m]
  REAL, POINTER, DIMENSION(:,:) :: XDESC_HC_WALL      ! heat capacity of wall layers [J m-3 K-1]
  REAL, POINTER, DIMENSION(:,:) :: XDESC_TC_WALL      ! thermal conductivity of wall layers [W m-1 K-1]
  REAL, POINTER, DIMENSION(:,:) :: XDESC_D_WALL       ! thickness of wall layers [m]
  REAL, POINTER, DIMENSION(:)   :: XDESC_QIN          ! internal heat gains [W m-2(floor)]
  REAL, POINTER, DIMENSION(:)   :: XDESC_QIN_FRAD     ! radiant fraction of internal heat gains
  REAL, POINTER, DIMENSION(:)   :: XDESC_SHGC         ! solar transmitance of windows
  REAL, POINTER, DIMENSION(:)   :: XDESC_U_WIN        ! glazing thermal resistance [K m W-2]
  REAL, POINTER, DIMENSION(:)   :: XDESC_GR           ! glazing ratio
  REAL, POINTER, DIMENSION(:)   :: XDESC_SHGC_SH      ! solar transmitance of windows + shading
  REAL, POINTER, DIMENSION(:)   :: XDESC_FLOOR_HEIGHT ! building floor height [m]
  REAL, POINTER, DIMENSION(:)   :: XDESC_INF          ! infiltration/ventilation flow rate [AC/H]
!
  REAL, POINTER, DIMENSION(:)   :: XDESC_F_WATER_COND ! fraction of evaporation for condensers
  REAL, POINTER, DIMENSION(:)   :: XDESC_SHADE        ! Flag to activate shading devices 0->inactivated , 1->activated
  REAL, POINTER, DIMENSION(:)   :: XDESC_NATVENT      ! Flag to describe bld surventilation solution 0-> NONE ; 1 -> MANU ; 2-> AUTO
  REAL, POINTER, DIMENSION(:)   :: XDESC_QIN_FLAT     ! Latent franction of internal heat gains
  REAL, POINTER, DIMENSION(:)   :: XDESC_HR_TARGET    ! Relative humidity setpoint  
  REAL, POINTER, DIMENSION(:)   :: XDESC_V_VENT       ! Ventilation flow rate [AC/H]
  REAL, POINTER, DIMENSION(:)   :: XDESC_COP_RAT      ! Rated COP of the cooling system
  REAL, POINTER, DIMENSION(:)   :: XDESC_GREENROOF    ! Greenroof fraction
  REAL, POINTER, DIMENSION(:)   :: XDESC_EMIS_PANEL   ! Emissivity of Solar panels
  REAL, POINTER, DIMENSION(:)   :: XDESC_ALB_PANEL    ! Albedo     of Solar panels
  REAL, POINTER, DIMENSION(:)   :: XDESC_EFF_PANEL    ! Efficiency of Solar panels
  REAL, POINTER, DIMENSION(:)   :: XDESC_FRAC_PANEL   ! Fraction   of Solar panels on roofs
  REAL, POINTER, DIMENSION(:)   :: XDESC_RESIDENTIAL  ! Fraction of residential use
!
END TYPE bld_desc_t



 CONTAINS

!
!


!
!
SUBROUTINE bld_desc_init(YBLD_DESC)
TYPE(bld_desc_t), INTENT(INOUT) :: ybld_desc
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_BLD_DESCRIPTION_n:BLD_DESC_INIT",0,zhook_handle)
  nullify(ybld_desc%NDESC_BLD_LIST)
  nullify(ybld_desc%NDESC_CODE_LIST)
  nullify(ybld_desc%NDESC_AGE_LIST)
  nullify(ybld_desc%NDESC_AGE_DATE)
  nullify(ybld_desc%NDESC_USE_LIST)
  nullify(ybld_desc%XDESC_ALB_ROOF)
  nullify(ybld_desc%XDESC_ALB_ROAD)
  nullify(ybld_desc%XDESC_ALB_WALL)
  nullify(ybld_desc%XDESC_EMIS_ROOF)
  nullify(ybld_desc%XDESC_EMIS_ROAD)
  nullify(ybld_desc%XDESC_EMIS_WALL)
  nullify(ybld_desc%XDESC_TCOOL_TARGET)
  nullify(ybld_desc%XDESC_THEAT_TARGET)  
  nullify(ybld_desc%XDESC_F_WASTE_CAN)  
  nullify(ybld_desc%XDESC_EFF_HEAT)
  nullify(ybld_desc%XDESC_HC_FLOOR)
  nullify(ybld_desc%XDESC_TC_FLOOR)
  nullify(ybld_desc%XDESC_D_FLOOR)
  nullify(ybld_desc%XDESC_HC_ROOF)
  nullify(ybld_desc%XDESC_TC_ROOF)
  nullify(ybld_desc%XDESC_D_ROOF)
  nullify(ybld_desc%XDESC_HC_ROAD)
  nullify(ybld_desc%XDESC_TC_ROAD)
  nullify(ybld_desc%XDESC_D_ROAD)
  nullify(ybld_desc%XDESC_HC_WALL)
  nullify(ybld_desc%XDESC_TC_WALL)
  nullify(ybld_desc%XDESC_D_WALL)
  nullify(ybld_desc%XDESC_QIN)
  nullify(ybld_desc%XDESC_QIN_FRAD)
  nullify(ybld_desc%XDESC_SHGC) 
  nullify(ybld_desc%XDESC_U_WIN)
  nullify(ybld_desc%XDESC_GR)
  nullify(ybld_desc%XDESC_FLOOR_HEIGHT)
  nullify(ybld_desc%XDESC_INF)
  nullify(ybld_desc%XDESC_F_WATER_COND)
  nullify(ybld_desc%XDESC_QIN_FLAT)
  nullify(ybld_desc%XDESC_HR_TARGET)  
  nullify(ybld_desc%XDESC_V_VENT)
  nullify(ybld_desc%XDESC_COP_RAT)
  nullify(ybld_desc%XDESC_GREENROOF)
  nullify(ybld_desc%XDESC_SHADE)
  nullify(ybld_desc%XDESC_NATVENT)
  nullify(ybld_desc%XDESC_EMIS_PANEL)
  nullify(ybld_desc%XDESC_ALB_PANEL)
  nullify(ybld_desc%XDESC_EFF_PANEL)
  nullify(ybld_desc%XDESC_FRAC_PANEL)
  nullify(ybld_desc%XDESC_RESIDENTIAL)
ybld_desc%NDESC_BLD=0
ybld_desc%NDESC_AGE=0
ybld_desc%NDESC_CODE=0
ybld_desc%NDESC_USE=0
ybld_desc%NDESC_ROOF_LAYER=0
ybld_desc%NDESC_ROAD_LAYER=0
ybld_desc%NDESC_WALL_LAYER=0
ybld_desc%NDESC_FLOOR_LAYER=0
IF (lhook) CALL dr_hook("MODD_BLD_DESCRIPTION_n:BLD_DESC_INIT",1,zhook_handle)
END SUBROUTINE bld_desc_init
!
!
END MODULE modd_bld_description_n