modd_data_cover.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_cover
!     #####################
!
!!****  *MODD_DATA_COVER* - declaration of correspondances between surface
!!                          classes and variables
!!
!!    PURPOSE
!!    -------
!       The purpose of this declarative module is to specify the 
!       arrays with correspondances between surface classes and
!       variables
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!      
!!
!!    AUTHOR
!!    ------
!!      V. Masson   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    15/12/97                      
!!      F.solmon    01/06/00 adaptation for patch approach + 
!!                           1D for surface fields of ISBA
!!      V. Masson   01/2004  surface externalization
!!      P Le Moigne 09/2005 AGS modifs of L. Jarlan
!!      P Le Moigne 06/2006 seeding and irrigation
!!      G Pigeon    08/2012 ROUGH_ROOF, ROUGH_WALL
!!      V. Masson   08/2013  Adds solar panel variables
!!      P Samuelsson 10/2014 Multi-energy balance (MEB)
!!----------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
USE modd_type_date_surf      
!
IMPLICIT NONE
!
LOGICAL :: lread_data_cover    ! true if ecoclimap(2) parameters are read in binary files
LOGICAL :: ldata_irrig    ! true if ecoclimap2 irrigation parameters have been modified by user
LOGICAL :: lclim_lai =.true.  ! F: uses current year LAI (if between 2002 and 2006). 
!                              ! T: uses average of LAI  (average is done using the 5 years) 
INTEGER :: neco2_start_year   =2002     ! first year of data for ecoclimap2
INTEGER :: neco2_end_year     =2006     ! last  year of data for ecoclimap2
!-------------------------------------------------------------------------------
!
! Mask and number of grid elements containing patches/tiles:
!
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_vegtype   ! fractions of veg. types
!
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_dice       ! depth of the soil column for the calculation
!                                                       of the frozen soil fraction (m)
!
! Input Parameters, per patch:
!
! - vegetation + bare soil:
!
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_z0_o_z0h! ratio of z0 for momentum and heat
!
REAL, DIMENSION(:,:,:), ALLOCATABLE  :: xdata_emis_eco! (emissivity vg + bare ground)
!                                                     !  monthly
REAL, DIMENSION(:,:,:), ALLOCATABLE :: xdata_z0     ! dynamical veg. roughness length
!
! - vegetation:                                                   ! (monthly)
! 
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_albnir_veg ! near infra-red albedo
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_albvis_veg ! visible albedo
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_albuv_veg  ! UV albedo
!
REAL, DIMENSION(:,:,:), ALLOCATABLE ::  xdata_alb_veg_nir  ! near infra-red albedo
REAL, DIMENSION(:,:,:), ALLOCATABLE ::  xdata_alb_veg_vis  ! visible albedo
REAL, DIMENSION(:,:,:), ALLOCATABLE ::  xdata_alb_soil_nir ! near infra-red albedo
REAL, DIMENSION(:,:,:), ALLOCATABLE ::  xdata_alb_soil_vis ! visible albedo
!
! - vegetation: default option (Jarvis) and general parameters:
!
REAL, DIMENSION(:,:,:), ALLOCATABLE :: xdata_veg    ! veg. fraction   (monthly)
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_wrmax_cf ! coefficient for interception reservoir
!
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_rsmin  ! minimum stomatal resistance
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_gamma  ! 
!
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_cv     ! inverse of veg. thermal capacity
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_rgl    !
!
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_root_extinction! root extinction
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_root_lin       ! ponderation coefficient between
                                                            ! root frac.
                                                            ! formulations
!       
!-------------------------------------------------------------------------------
!
! - vegetation: Ags parameters ('AST', 'NIT', 'NCB' options)
!
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_bslai   ! ratio d(biomass)/d(lai)
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_sefold  ! e-folding time for senescence (s)
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_gmes    ! mesophyll conductance (m s-1)
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_gc      ! cuticular conductance (m/s)
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_dmax    ! maximum air saturation deficit
!                                                    ! tolerate by vegetation       (kg/kg)
!
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_bslai_st  ! ratio d(biomass)/d(lai)
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_sefold_st ! e-folding time for senescence (s)
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_gmes_st   ! mesophyll conductance (m s-1)
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_gc_st     ! cuticular conductance (m/s)
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_dmax_st   ! maximum air saturation deficit
!                                                      ! tolerate by vegetation       (kg/kg)
!-------------------------------------------------------------------------------
!
! - vegetation: Ags Stress parameters ('AST', 'NIT', 'NCB' options)
!
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_laimin  ! minimum LAI
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_h_tree  ! height of vegetation
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_re25    ! Ecosystem Respiration parameter (kg.m2.s-1)
!
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_stress  !  defensive/offensive strategy (1/0)
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_f2i     ! critical normilized soil water 
!                                                    ! content for stress parameterisation
!
!-------------------------------------------------------------------------------
!
! - vegetation: Ags Nitrogen-model parameters ('NIT', 'NCB' option)
!
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_ce_nitro!  leaf aera ratio sensitivity 
                                                     !  to nitrogen concentration
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_cf_nitro!  lethal minimum value of leaf area ratio
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_cna_nitro! nitrogen concentration of active biomass
!
!-------------------------------------------------------------------------------
!
! - soil: primary parameters
!
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_ground_depth   ! total soil depth
REAL, DIMENSION(:,:),   ALLOCATABLE :: xdata_root_depth     ! root depth
!-------------------------------------------------------------------------------
!
! - Vegetation: Ags Prognostic (YPHOTO = ('NIT', or 'NCB') or prescribed (YPHOTO='NON' or 'AST')
!
REAL, DIMENSION(:,:,:), ALLOCATABLE :: xdata_lai    ! leaf area index (monthly)
REAL, DIMENSION(:,:,:), ALLOCATABLE :: xdata_lai_all_years ! leaf area index fromm 2002 to 2007       
!
!
type(date_time), POINTER, DIMENSION(:,:)   :: tdata_seed     ! seeding date      
type(date_time), POINTER, DIMENSION(:,:)   :: tdata_reap     ! reaping date      
!      
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_watsup   ! water supply quantity
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_irrig    ! flag for irrigation
!
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_town   ! artificial surfaces fraction
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_nature ! natural and cul. fraction
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_water  ! inland water fraction
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_sea    ! sea fraction
!
REAL, DIMENSION(:,:,:), ALLOCATABLE :: xdata_green  ! greeness fraction   (monthly)
REAL, DIMENSION(:,:),  ALLOCATABLE :: xdata_soilrc_so2 ! for SO2 deposition
REAL, DIMENSION(:,:),  ALLOCATABLE :: xdata_soilrc_o3  ! for O3  deposition
!
!
! Geometric Parameters:
!
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_garden      ! garden fraction
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_bld         ! building fraction in
                                                       ! artificial areas
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_bld_height  ! buildings height h
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_wall_o_hor  ! ratio of vert. surf.
!                                                      ! over hor. surf.
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_can_hw_ratio! canyons h/W ratio
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_z0_town   ! town roughness length
                                                     ! for momentum
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_z0h_town  ! town roughness length
                                                     ! for heat                                                     
!
! Roof parameters
!
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_alb_roof  ! albedo of roofs
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_emis_roof ! emissivity of roofs
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_hc_roof   ! heat capacity
                                                     ! for roof layers
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_tc_roof   ! thermal conductivity
                                                     ! for roof layers
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_d_roof    ! width of roof layers
!
! Road parameters
!
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_alb_road  ! albedo of roads
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_emis_road ! emissivity of roads
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_hc_road   ! heat capacity
                                                     ! for road layers
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_tc_road   ! thermal conductivity
                                                     ! for road layers
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_d_road    ! width of road layers
!
! Wall parameters
!
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_alb_wall  ! albedo of roads
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_emis_wall ! emissivity of roads
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_hc_wall   ! heat capacity
                                                     ! for wall layers
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_tc_wall   ! thermal conductivity
                                                     ! for wall layers
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_d_wall    ! width of wall layers
!
! anthropogenic fluxes
!
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_h_traffic   ! anthropogenic sensible
!                                                      ! heat fluxes due to traffic
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_le_traffic  ! anthropogenic latent
!                                                      ! heat fluxes due to traffic
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_h_industry  ! anthropogenic sensible
!                                                      ! heat fluxes due to factories
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_le_industry ! anthropogenic latent
!                                                      ! heat fluxes due to factories
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_hc_floor     ! heat capacity of floor layers [J m-3 K-1]
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_tc_floor     ! thermal conductivity of floor layers [W m-1 K-1]
REAL, DIMENSION(:,:), ALLOCATABLE :: xdata_d_floor      ! thickness of floor layers [m]
!
! For multi-energy balance (MEB)
REAL, DIMENSION(:,:,:), ALLOCATABLE :: xdata_gndlitter          ! Ground litter coverage
REAL, DIMENSION(:,:,:), ALLOCATABLE :: xdata_z0litter           ! Ground litter roughness length
REAL, DIMENSION(:,:,:), ALLOCATABLE :: xdata_h_veg              ! Height of canopy vegetation
!
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_tcool_target ! cooling setpoint of indoor air
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_theat_target ! heating setpoint of indoor air
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_f_waste_can  ! fraction of waste heat released into the canyon
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_eff_heat     ! efficiency of the heating system
!
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_qin          ! internal heat gains [W m-2(floor)]
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_qin_frad     ! radiant fraction of internal heat gains
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_shgc         ! solar transmitance of windows
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_u_win        ! glazing thermal resistance [K m W-2]
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_gr           ! glazing ratio
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_shgc_sh      ! solar transmitance of windows
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_floor_height ! building floor height [m]
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_inf          ! infiltration/ventilation flow rate [AC/H]
!
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_f_water_cond
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_qin_flat
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_hr_target
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_v_vent
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_cap_sys_heat
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_cap_sys_rat
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_t_adp
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_m_sys_rat
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_cop_rat      ! COP of the cooling system
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_t_size_max
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_t_size_min
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_shade
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_natvent
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_rough_roof
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_rough_wall
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_residential ! residential use fraction

REAL, DIMENSION(:),   ALLOCATABLE :: xdata_emis_panel  ! emissivity of solar panels
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_alb_panel   ! albedo     of solar panels
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_eff_panel   ! efficiency of solar panels
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_frac_panel  ! fraction   of solar panels on roofs
!
! urban vegetation parameters
!
REAL, DIMENSION(:),   ALLOCATABLE :: xdata_frac_gr     ! fraction of greenroof
!
!-------------------------------------------------------------------------------
!
END MODULE modd_data_cover