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

Go to the documentation of this file.
00001 !     #####################
00002       MODULE MODD_DATA_COVER
00003 !     #####################
00004 !
00005 !!****  *MODD_DATA_COVER* - declaration of correspondances between surface
00006 !!                          classes and variables
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !       The purpose of this declarative module is to specify the 
00011 !       arrays with correspondances between surface classes and
00012 !       variables
00013 !
00014 !!
00015 !!**  IMPLICIT ARGUMENTS
00016 !!    ------------------
00017 !!
00018 !!    REFERENCE
00019 !!    ---------
00020 !!      
00021 !!
00022 !!    AUTHOR
00023 !!    ------
00024 !!      V. Masson   *Meteo France*
00025 !!
00026 !!    MODIFICATIONS
00027 !!    -------------
00028 !!      Original    15/12/97                      
00029 !!      F.solmon    01/06/00 adaptation for patch approach + 
00030 !!                           1D for surface fields of ISBA
00031 !!      V. Masson   01/2004  surface externalization
00032 !!      P Le Moigne 09/2005 AGS modifs of L. Jarlan
00033 !!      P Le Moigne 06/2006 seeding and irrigation
00034 !!      G Pigeon    08/2012 ROUGH_ROOF, ROUGH_WALL
00035 !!----------------------------------------------------------------------
00036 !
00037 !*       0.   DECLARATIONS
00038 !             ------------
00039 USE MODD_TYPE_DATE_SURF      
00040 !
00041 IMPLICIT NONE
00042 !
00043 LOGICAL :: LREAD_DATA_COVER    ! true if ecoclimap(2) parameters are read in binary files
00044 LOGICAL :: LDATA_IRRIG    ! true if ecoclimap2 irrigation parameters have been modified by user
00045 LOGICAL :: LCLIM_LAI =.FALSE.  ! F: uses current year LAI (if between 2002 and 2006). 
00046 !                              ! T: uses average of LAI  (average is done using the 5 years) 
00047 INTEGER :: NYEAR     =9999     ! current year for ecoclimap2
00048 INTEGER :: NECO2_START_YEAR   =2002     ! first year of data for ecoclimap2
00049 INTEGER :: NECO2_END_YEAR     =2006     ! last  year of data for ecoclimap2
00050 !-------------------------------------------------------------------------------
00051 !
00052 ! Mask and number of grid elements containing patches/tiles:
00053 !
00054 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_VEGTYPE   ! fractions of veg. types
00055 !
00056 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_DICE       ! depth of the soil column for the calculation
00057 !                                                       of the frozen soil fraction (m)
00058 !
00059 ! Input Parameters, per patch:
00060 !
00061 ! - vegetation + bare soil:
00062 !
00063 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_Z0_O_Z0H! ratio of z0 for momentum and heat
00064 !
00065 REAL, DIMENSION(:,:,:), ALLOCATABLE  :: XDATA_EMIS_ECO! (emissivity vg + bare ground)
00066 !                                                     !  monthly
00067 REAL, DIMENSION(:,:,:), ALLOCATABLE :: XDATA_Z0     ! dynamical veg. roughness length
00068 !
00069 ! - vegetation:                                                   ! (monthly)
00070 ! 
00071 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_ALBNIR_VEG ! near infra-red albedo
00072 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_ALBVIS_VEG ! visible albedo
00073 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_ALBUV_VEG  ! UV albedo
00074 !
00075 REAL, DIMENSION(:,:,:), ALLOCATABLE ::  XDATA_ALB_VEG_NIR  ! near infra-red albedo
00076 REAL, DIMENSION(:,:,:), ALLOCATABLE ::  XDATA_ALB_VEG_VIS  ! visible albedo
00077 REAL, DIMENSION(:,:,:), ALLOCATABLE ::  XDATA_ALB_SOIL_NIR ! near infra-red albedo
00078 REAL, DIMENSION(:,:,:), ALLOCATABLE ::  XDATA_ALB_SOIL_VIS ! visible albedo
00079 !
00080 ! - vegetation: default option (Jarvis) and general parameters:
00081 !
00082 REAL, DIMENSION(:,:,:), ALLOCATABLE :: XDATA_VEG    ! veg. fraction   (monthly)
00083 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_WRMAX_CF ! coefficient for interception reservoir
00084 !
00085 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_RSMIN  ! minimum stomatal resistance
00086 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_GAMMA  ! 
00087 !
00088 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_CV     ! inverse of veg. thermal capacity
00089 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_RGL    !
00090 !
00091 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_ROOT_EXTINCTION! root extinction
00092 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_ROOT_LIN       ! ponderation coefficient between
00093                                                             ! root frac.
00094                                                             ! formulations
00095 !       
00096 !-------------------------------------------------------------------------------
00097 !
00098 ! - vegetation: Ags parameters ('AGS', 'LAI', 'AST', 'LST', 'NIT', 'NCB' options)
00099 !
00100 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_BSLAI   ! ratio d(biomass)/d(lai)
00101 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_LAIMIN  ! minimum LAI
00102 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_SEFOLD  ! e-folding time for senescence (s)
00103 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_H_TREE  ! height of vegetation
00104 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_GMES    ! mesophyll conductance (m s-1)
00105 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_RE25    ! Ecosystem Respiration parameter (kg.m2.s-1)
00106 !
00107 !-------------------------------------------------------------------------------
00108 !
00109 ! - vegetation: Ags Stress parameters ('AST', 'LST', 'NIT', 'NCB' options)
00110 !
00111 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_STRESS  !  defensive/offensive strategy (1/0)
00112 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_F2I     ! critical normilized soil water 
00113 !                                                    ! content for stress parameterisation
00114 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_GC      ! cuticular conductance (m/s)
00115 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_DMAX    ! maximum air saturation deficit
00116 !                                                    ! tolerate by vegetation       (kg/kg)
00117 !
00118 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_BSLAI_ST  ! ratio d(biomass)/d(lai)
00119 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_SEFOLD_ST ! e-folding time for senescence (s)
00120 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_GMES_ST   ! mesophyll conductance (m s-1)
00121 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_GC_ST     ! cuticular conductance (m/s)
00122 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_DMAX_ST   ! maximum air saturation deficit
00123 !                                                      ! tolerate by vegetation       (kg/kg)
00124 !-------------------------------------------------------------------------------
00125 !
00126 ! - vegetation: Ags Nitrogen-model parameters ('NIT', 'NCB' option)
00127 !
00128 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_CE_NITRO!  leaf aera ratio sensitivity 
00129                                                      !  to nitrogen concentration
00130 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_CF_NITRO!  lethal minimum value of leaf area ratio
00131 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_CNA_NITRO! nitrogen concentration of active biomass
00132 !
00133 !-------------------------------------------------------------------------------
00134 !
00135 ! - soil: primary parameters
00136 !
00137 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_GROUND_DEPTH   ! total soil depth
00138 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_ROOT_DEPTH     ! root depth
00139 !-------------------------------------------------------------------------------
00140 !
00141 ! - Vegetation: Ags Prognostic (YPHOTO = ('LAI', 'LST', 'NIT', or 'NCB') or prescribed (YPHOTO='NON', 'AGS' or 'AST')
00142 !
00143 REAL, DIMENSION(:,:,:), ALLOCATABLE :: XDATA_LAI    ! leaf area index (monthly)
00144 REAL, DIMENSION(:,:,:), ALLOCATABLE :: XDATA_LAI_ALL_YEARS ! leaf area index fromm 2002 to 2007       
00145 !
00146 !
00147 TYPE (DATE_TIME), POINTER, DIMENSION(:,:)   :: TDATA_SEED     ! seeding date      
00148 TYPE (DATE_TIME), POINTER, DIMENSION(:,:)   :: TDATA_REAP     ! reaping date      
00149 !      
00150 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_WATSUP   ! water supply quantity
00151 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_IRRIG    ! flag for irrigation
00152 !
00153 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_TOWN   ! artificial surfaces fraction
00154 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_NATURE ! natural and cul. fraction
00155 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_WATER  ! inland water fraction
00156 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_SEA    ! sea fraction
00157 !
00158 REAL, DIMENSION(:,:,:), ALLOCATABLE :: XDATA_GREEN  ! greeness fraction   (monthly)
00159 REAL, DIMENSION(:,:),   ALLOCATABLE :: XDATA_BSLAI_NITRO ! biomass/LAI ratio from nitrogen
00160 !                                                           ! decline theory
00161 REAL, DIMENSION(:,:),  ALLOCATABLE :: XDATA_SOILRC_SO2 ! for SO2 deposition
00162 REAL, DIMENSION(:,:),  ALLOCATABLE :: XDATA_SOILRC_O3  ! for O3  deposition
00163 !
00164 !
00165 ! Geometric Parameters:
00166 !
00167 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_GARDEN      ! garden fraction
00168 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_BLD         ! building fraction in
00169                                                        ! artificial areas
00170 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_BLD_HEIGHT  ! buildings height h
00171 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_WALL_O_HOR  ! ratio of vert. surf.
00172 !                                                      ! over hor. surf.
00173 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_CAN_HW_RATIO! canyons h/W ratio
00174 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_Z0_TOWN   ! town roughness length
00175                                                      ! for momentum
00176 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_Z0H_TOWN  ! town roughness length
00177                                                      ! for heat                                                     
00178 !
00179 ! Roof parameters
00180 !
00181 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_ALB_ROOF  ! albedo of roofs
00182 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_EMIS_ROOF ! emissivity of roofs
00183 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_HC_ROOF   ! heat capacity
00184                                                      ! for roof layers
00185 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_TC_ROOF   ! thermal conductivity
00186                                                      ! for roof layers
00187 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_D_ROOF    ! width of roof layers
00188 !
00189 ! Road parameters
00190 !
00191 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_ALB_ROAD  ! albedo of roads
00192 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_EMIS_ROAD ! emissivity of roads
00193 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_HC_ROAD   ! heat capacity
00194                                                      ! for road layers
00195 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_TC_ROAD   ! thermal conductivity
00196                                                      ! for road layers
00197 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_D_ROAD    ! width of road layers
00198 !
00199 ! Wall parameters
00200 !
00201 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_ALB_WALL  ! albedo of roads
00202 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_EMIS_WALL ! emissivity of roads
00203 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_HC_WALL   ! heat capacity
00204                                                      ! for wall layers
00205 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_TC_WALL   ! thermal conductivity
00206                                                      ! for wall layers
00207 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_D_WALL    ! width of wall layers
00208 !
00209 ! anthropogenic fluxes
00210 !
00211 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_H_TRAFFIC   ! anthropogenic sensible
00212 !                                                      ! heat fluxes due to traffic
00213 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_LE_TRAFFIC  ! anthropogenic latent
00214 !                                                      ! heat fluxes due to traffic
00215 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_H_INDUSTRY  ! anthropogenic sensible
00216 !                                                      ! heat fluxes due to factories
00217 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_LE_INDUSTRY ! anthropogenic latent
00218 !                                                      ! heat fluxes due to factories
00219 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_HC_FLOOR     ! heat capacity of floor layers [J m-3 K-1]
00220 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_TC_FLOOR     ! thermal conductivity of floor layers [W m-1 K-1]
00221 REAL, DIMENSION(:,:), ALLOCATABLE :: XDATA_D_FLOOR      ! thickness of floor layers [m]
00222 !
00223 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_TCOOL_TARGET ! cooling setpoint of indoor air
00224 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_THEAT_TARGET ! heating setpoint of indoor air
00225 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_F_WASTE_CAN  ! fraction of waste heat released into the canyon
00226 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_EFF_HEAT     ! efficiency of the heating system
00227 !
00228 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_QIN          ! internal heat gains [W m-2(floor)]
00229 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_QIN_FRAD     ! radiant fraction of internal heat gains
00230 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_SHGC         ! solar transmitance of windows
00231 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_U_WIN        ! glazing thermal resistance [K m W-2]
00232 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_GR           ! glazing ratio
00233 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_SHGC_SH      ! solar transmitance of windows
00234 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_FLOOR_HEIGHT ! building floor height [m]
00235 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_INF          ! infiltration/ventilation flow rate [AC/H]
00236 !
00237 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_F_WATER_COND
00238 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_QIN_FLAT
00239 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_HR_TARGET
00240 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_V_VENT
00241 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_CAP_SYS_HEAT
00242 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_CAP_SYS_RAT
00243 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_T_ADP
00244 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_M_SYS_RAT
00245 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_COP_RAT      ! COP of the cooling system
00246 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_T_SIZE_MAX
00247 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_T_SIZE_MIN
00248 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_SHADE
00249 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_NATVENT
00250 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_ROUGH_ROOF
00251 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_ROUGH_WALL
00252 !
00253 ! urban vegetation parameters
00254 !
00255 REAL, DIMENSION(:),   ALLOCATABLE :: XDATA_FRAC_GR     ! fraction of greenroof
00256 !
00257 !-------------------------------------------------------------------------------
00258 !
00259 END MODULE MODD_DATA_COVER