|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 #ifdef RS6K 00002 @PROCESS NOOPTIMIZE 00003 #endif 00004 ! ######################### 00005 SUBROUTINE INI_DATA_COVER 00006 ! ######################### 00007 ! 00008 !!**** *INI_DATA_COVER* initializes cover-field correspondance arrays 00009 !! 00010 !! PURPOSE 00011 !! ------- 00012 !! 00013 !! METHOD 00014 !! ------ 00015 !! 00016 !! 00017 !! EXTERNAL 00018 !! -------- 00019 !! 00020 !! IMPLICIT ARGUMENTS 00021 !! ------------------ 00022 !! 00023 !! REFERENCE 00024 !! --------- 00025 !! 00026 !! AUTHOR 00027 !! ------ 00028 !! 00029 !! V. Masson Meteo-France 00030 !! 00031 !! MODIFICATION 00032 !! ------------ 00033 !! 00034 !! Original 15/12/97 00035 !! F.solmon 01/06/00 adaptation for patch approach 00036 !! B.Decharme 01/03/09 Arrange cover by user 00037 !! G.Pigeon 08/12 add ROUGH_WALL/ROUGH_ROOF 00038 !---------------------------------------------------------------------------- 00039 ! 00040 !* 0. DECLARATION 00041 ! ----------- 00042 ! 00043 USE MODD_TYPE_DATE_SURF 00044 ! 00045 USE MODD_SURFEX_MPI, ONLY : WLOG_MPI 00046 ! 00047 USE MODD_SURFEX_OMP, ONLY : IDC 00048 ! 00049 USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF 00050 ! 00051 USE MODD_DATA_COVER, ONLY : XDATA_TOWN, XDATA_NATURE, XDATA_SEA, XDATA_WATER, & 00052 XDATA_LAI, XDATA_VEGTYPE, XDATA_H_TREE, & 00053 XDATA_ALB_VEG_VIS, XDATA_ALB_VEG_NIR, & 00054 XDATA_ALB_SOIL_VIS, XDATA_ALB_SOIL_NIR, & 00055 XDATA_ALBNIR_VEG, XDATA_ALBVIS_VEG, & 00056 XDATA_ALBUV_VEG, XDATA_RSMIN, & 00057 XDATA_RGL, XDATA_CV, XDATA_GAMMA, XDATA_GMES, & 00058 XDATA_GC, XDATA_BSLAI, XDATA_SEFOLD, XDATA_LAIMIN,& 00059 XDATA_DMAX, XDATA_STRESS, XDATA_F2I, & 00060 XDATA_VEG, XDATA_GREEN, XDATA_Z0, XDATA_Z0_O_Z0H, & 00061 XDATA_EMIS_ECO, XDATA_WRMAX_CF, & 00062 XDATA_CE_NITRO,XDATA_CF_NITRO,XDATA_CNA_NITRO, & 00063 XDATA_BSLAI_NITRO, & 00064 XDATA_GROUND_DEPTH, XDATA_ROOT_DEPTH, & 00065 XDATA_ROOT_EXTINCTION, XDATA_ROOT_LIN, & 00066 XDATA_SOILRC_SO2, XDATA_SOILRC_O3, & 00067 XDATA_Z0_TOWN, XDATA_Z0H_TOWN, XDATA_ALB_ROOF, & 00068 XDATA_EMIS_ROOF, XDATA_HC_ROOF, XDATA_TC_ROOF, & 00069 XDATA_D_ROOF, XDATA_ALB_ROAD, XDATA_EMIS_ROAD, & 00070 XDATA_HC_ROAD, XDATA_TC_ROAD, XDATA_D_ROAD, & 00071 XDATA_ALB_WALL, XDATA_EMIS_WALL, XDATA_HC_WALL, & 00072 XDATA_TC_WALL, XDATA_D_WALL, XDATA_BLD_HEIGHT, & 00073 XDATA_WALL_O_HOR, XDATA_BLD, XDATA_CAN_HW_RATIO, & 00074 XDATA_GARDEN, XDATA_DICE, & 00075 XDATA_H_TRAFFIC, XDATA_LE_TRAFFIC, & 00076 XDATA_H_INDUSTRY, XDATA_LE_INDUSTRY, XDATA_RE25, & 00077 XDATA_GMES_ST, XDATA_BSLAI_ST, XDATA_SEFOLD_ST, & 00078 XDATA_GC_ST, XDATA_DMAX_ST, TDATA_SEED, & 00079 TDATA_REAP, XDATA_WATSUP, XDATA_IRRIG, & 00080 XDATA_LAI_ALL_YEARS, LREAD_DATA_COVER, & 00081 XDATA_HC_FLOOR, XDATA_TC_FLOOR, XDATA_D_FLOOR, & 00082 XDATA_TCOOL_TARGET, XDATA_THEAT_TARGET, & 00083 XDATA_F_WASTE_CAN, XDATA_EFF_HEAT, XDATA_QIN, & 00084 XDATA_QIN_FRAD, XDATA_SHGC, XDATA_U_WIN, XDATA_GR,& 00085 XDATA_SHGC_SH, XDATA_FLOOR_HEIGHT, XDATA_INF, & 00086 XDATA_F_WATER_COND, XDATA_QIN_FLAT, & 00087 XDATA_HR_TARGET, XDATA_V_VENT, XDATA_CAP_SYS_HEAT,& 00088 XDATA_CAP_SYS_RAT, XDATA_T_ADP, XDATA_M_SYS_RAT, & 00089 XDATA_COP_RAT, XDATA_T_SIZE_MAX, XDATA_T_SIZE_MIN,& 00090 XDATA_SHADE, XDATA_NATVENT, XDATA_ROUGH_ROOF, & 00091 XDATA_ROUGH_WALL, XDATA_FRAC_GR 00092 ! 00093 USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE, NVT_NO, NVT_ROCK, NVT_SNOW, & 00094 NVT_TREE, NVT_CONI, NVT_EVER, NVT_C3, & 00095 NVT_C4, NVT_IRR, NVT_GRAS, NVT_TROG, & 00096 NVT_PARK, JPCOVER, NDATA_ROAD_LAYER, & 00097 NDATA_WALL_LAYER, NDATA_ROOF_LAYER, & 00098 NDATA_FLOOR_LAYER, CNAMES, NBARE_SOIL, & 00099 NROCK, NSEA, NWATER, NPERMSNOW 00100 ! 00101 USE MODD_WRITE_COVER_TEX,ONLY : CNAME, CLANG 00102 ! 00103 USE MODD_SURF_ATM_n, ONLY : LGARDEN 00104 ! 00105 USE MODE_POS_SURF 00106 ! 00107 USE MODI_READ_COVERS_PARAM 00108 ! 00109 USE MODI_DEFAULT_DATA_COVER_1 00110 USE MODI_DEFAULT_DATA_COVER_2 00111 ! 00112 USE MODI_DEFAULT_LAI_ECO1_01 00113 USE MODI_DEFAULT_LAI_ECO1_02 00114 USE MODI_DEFAULT_LAI_ECO1_03 00115 USE MODI_DEFAULT_LAI_ECO1_04 00116 USE MODI_DEFAULT_LAI_ECO1_05 00117 USE MODI_DEFAULT_LAI_ECO1_06 00118 USE MODI_DEFAULT_LAI_ECO1_07 00119 USE MODI_DEFAULT_LAI_ECO1_08 00120 USE MODI_DEFAULT_LAI_ECO1_09 00121 USE MODI_DEFAULT_LAI_ECO1_10 00122 USE MODI_DEFAULT_LAI_ECO1_11 00123 USE MODI_DEFAULT_LAI_ECO1_12 00124 ! 00125 USE MODI_DEFAULT_ALB_ECO1_01_1 00126 USE MODI_DEFAULT_ALB_ECO1_02_1 00127 USE MODI_DEFAULT_ALB_ECO1_03_1 00128 USE MODI_DEFAULT_ALB_ECO1_04_1 00129 USE MODI_DEFAULT_ALB_ECO1_05_1 00130 USE MODI_DEFAULT_ALB_ECO1_06_1 00131 USE MODI_DEFAULT_ALB_ECO1_07_1 00132 USE MODI_DEFAULT_ALB_ECO1_08_1 00133 USE MODI_DEFAULT_ALB_ECO1_09_1 00134 USE MODI_DEFAULT_ALB_ECO1_10_1 00135 USE MODI_DEFAULT_ALB_ECO1_11_1 00136 USE MODI_DEFAULT_ALB_ECO1_12_1 00137 USE MODI_DEFAULT_ALB_ECO1_01_2 00138 USE MODI_DEFAULT_ALB_ECO1_02_2 00139 USE MODI_DEFAULT_ALB_ECO1_03_2 00140 USE MODI_DEFAULT_ALB_ECO1_04_2 00141 USE MODI_DEFAULT_ALB_ECO1_05_2 00142 USE MODI_DEFAULT_ALB_ECO1_06_2 00143 USE MODI_DEFAULT_ALB_ECO1_07_2 00144 USE MODI_DEFAULT_ALB_ECO1_08_2 00145 USE MODI_DEFAULT_ALB_ECO1_09_2 00146 USE MODI_DEFAULT_ALB_ECO1_10_2 00147 USE MODI_DEFAULT_ALB_ECO1_11_2 00148 USE MODI_DEFAULT_ALB_ECO1_12_2 00149 ! 00150 USE MODI_ARRANGE_COVER 00151 USE MODI_COVER301_573 00152 USE MODI_ECOCLIMAP2_LAI 00153 USE MODI_INI_DATA_PARAM 00154 USE MODI_UPDATE_DATA_FRAC_n 00155 ! 00156 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00157 USE PARKIND1 ,ONLY : JPRB 00158 ! 00159 IMPLICIT NONE 00160 ! 00161 !* 0.1 Declaration of arguments 00162 ! ------------------------ 00163 ! 00164 !* 0.2 Declaration of local variables 00165 ! ------------------------------ 00166 ! 00167 INTEGER :: JCOVER, JVEGTYPE ! loop counters on covers and decades 00168 INTEGER :: ICPT_SEA, ICPT_WATER 00169 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00170 ! 00171 !* 0.3 Declaration of namelists 00172 ! ------------------------ 00173 ! 00174 !------------------------------------------------------------------------------- 00175 00176 IF (LHOOK) CALL DR_HOOK('INI_DATA_COVER',0,ZHOOK_HANDLE) 00177 ! 00178 IF (IDC/=0) THEN 00179 CALL UPDATE_DATA_FRAC_n(XDATA_NATURE,XDATA_TOWN,XDATA_GARDEN,LGARDEN, & 00180 XDATA_BLD, XDATA_WALL_O_HOR ) 00181 IF (LHOOK) CALL DR_HOOK('INI_DATA_COVER',1,ZHOOK_HANDLE) 00182 RETURN 00183 END IF 00184 ! 00185 !$OMP SINGLE 00186 ! 00187 !* 1.1 artificial surfaces fraction 00188 ! ---------------------------- 00189 ! 00190 ALLOCATE(XDATA_TOWN(JPCOVER)) 00191 ! 00192 XDATA_TOWN = 0. 00193 ! 00194 ALLOCATE(XDATA_GARDEN(JPCOVER)) 00195 ! 00196 XDATA_GARDEN = 0. 00197 ! 00198 !------------------------------------------------------------------------------- 00199 ! 00200 !* 1.2 natural and cultivated surfaces fraction 00201 ! ---------------------------------------- 00202 ! 00203 ALLOCATE(XDATA_NATURE(JPCOVER)) 00204 ! 00205 XDATA_NATURE = 0. 00206 ! 00207 !------------------------------------------------------------------------------- 00208 ! 00209 !* 1.3 inland waters surfaces fraction 00210 ! ------------------------------- 00211 ! 00212 ALLOCATE(XDATA_WATER(JPCOVER)) 00213 ! 00214 XDATA_WATER = 0. 00215 ! 00216 !------------------------------------------------------------------------------- 00217 ! 00218 !* 1.4 sea surface fraction 00219 ! -------------------- 00220 ! 00221 ALLOCATE(XDATA_SEA(JPCOVER)) 00222 ! 00223 XDATA_SEA = 0. 00224 ! 00225 !------------------------------------------------------------------------------- 00226 !------------------------------------------------------------------------------- 00227 !------------------------------------------------------------------------------- 00228 ! 00229 !!possible patches correspond to vegetation types 00230 ! 00231 !* 2.0 vegetation type fractions 00232 NVEGTYPE = 12 00233 ! 00234 NVT_NO = 1 ! no vegetation (smooth) 00235 NVT_ROCK = 2 ! no vegetation (rocks) 00236 NVT_SNOW = 3 ! permanent snow and ice 00237 NVT_TREE = 4 ! forest and trees 00238 NVT_CONI = 5 ! forest and trees (coniferous) 00239 NVT_EVER = 6 ! forest and trees (broadleaf evergreen) 00240 NVT_C3 = 7 ! C3 cultures types 00241 NVT_C4 = 8 ! C4 cultures types 00242 NVT_IRR = 9 ! irrigated crops 00243 NVT_GRAS =10 ! grassland 00244 NVT_TROG =11 ! tropical grassland 00245 NVT_PARK =12 ! peat bogs, parks and gardens (irrigated grass) 00246 ! 00247 !* 2.1 leaf area index 00248 ! --------------- 00249 ! 00250 ALLOCATE(XDATA_LAI(JPCOVER,36,NVEGTYPE)) 00251 ! 00252 XDATA_LAI (:,:,:) = XUNDEF 00253 ! 00254 !* LAI from 2002 to 2007 00255 ALLOCATE(XDATA_LAI_ALL_YEARS(JPCOVER,5*36,NVEGTYPE)) 00256 ! 00257 XDATA_LAI_ALL_YEARS (:,:,:) = XUNDEF 00258 ! 00259 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 00260 ! 00261 ALLOCATE(XDATA_VEGTYPE(JPCOVER,NVEGTYPE)) 00262 ! 00263 XDATA_VEGTYPE(:,:) = 0. 00264 ! 00265 !------------------------------------------------------------------------------- 00266 ! 00267 !* 2.3 height of trees (m) 00268 ! --------------- 00269 ! 00270 ALLOCATE(XDATA_H_TREE(JPCOVER,NVEGTYPE)) 00271 ! 00272 XDATA_H_TREE (:,:) = XUNDEF 00273 ! 00274 !------------------------------------------------------------------------------- 00275 ! 00276 !* 2.4 ground depth 00277 ! ------------ 00278 ! 00279 ALLOCATE(XDATA_GROUND_DEPTH(JPCOVER,NVEGTYPE)) 00280 ! 00281 XDATA_GROUND_DEPTH(:,:) = XUNDEF 00282 ! 00283 !------------------------------------------------------------------------------- 00284 ! 00285 !* 2.4 root depth 00286 ! ---------- 00287 ! 00288 ALLOCATE(XDATA_ROOT_DEPTH(JPCOVER,NVEGTYPE)) 00289 ! 00290 XDATA_ROOT_DEPTH(:,:) = XUNDEF 00291 ! 00292 !------------------------------------------------------------------------------- 00293 ! 00294 !* 2.4 ice depth for runoff 00295 ! -------------------- 00296 ! 00297 ALLOCATE(XDATA_DICE(JPCOVER,NVEGTYPE)) 00298 ! 00299 XDATA_DICE(:,:) = XUNDEF 00300 ! 00301 !------------------------------------------------------------------------------- 00302 ! 00303 !* 2.4 root extinction 00304 ! --------------- 00305 ! 00306 ALLOCATE(XDATA_ROOT_EXTINCTION(JPCOVER,NVEGTYPE)) 00307 ! 00308 XDATA_ROOT_EXTINCTION(:,:) = XUNDEF 00309 ! 00310 !------------------------------------------------------------------------------- 00311 ! 00312 !* 2.4 ponderation coefficient between root formulations 00313 ! ------------------------------------------------- 00314 ! 00315 ALLOCATE(XDATA_ROOT_LIN(JPCOVER,NVEGTYPE)) 00316 ! 00317 XDATA_ROOT_LIN(:,:) = XUNDEF 00318 ! 00319 !------------------------------------------------------------------------------- 00320 ! 00321 !* 2.5 albnir (veg only) 00322 ! ------ 00323 ! 00324 ALLOCATE(XDATA_ALBNIR_VEG(JPCOVER,NVEGTYPE)) 00325 ! 00326 XDATA_ALBNIR_VEG (:,:) = XUNDEF 00327 ! 00328 !------------------------------------------------------------------------------- 00329 ! 00330 !* 2.6 albvis (veg only) 00331 ! ------ 00332 ! 00333 ALLOCATE(XDATA_ALBVIS_VEG(JPCOVER,NVEGTYPE)) 00334 ! 00335 XDATA_ALBVIS_VEG (:,:) = XUNDEF 00336 ! 00337 !------------------------------------------------------------------------------- 00338 ! 00339 !* 2.6 albUV (veg only) 00340 ! ----- 00341 ! 00342 ALLOCATE(XDATA_ALBUV_VEG(JPCOVER,NVEGTYPE)) 00343 ! 00344 XDATA_ALBUV_VEG (:,:) = XUNDEF 00345 ! 00346 !------------------------------------------------------------------------------- 00347 ! 00348 ALLOCATE(XDATA_ALB_VEG_VIS(JPCOVER,36,NVEGTYPE)) 00349 ! 00350 XDATA_ALB_VEG_VIS (:,:,:) = XUNDEF 00351 ! 00352 ALLOCATE(XDATA_ALB_VEG_NIR(JPCOVER,36,NVEGTYPE)) 00353 ! 00354 XDATA_ALB_VEG_NIR (:,:,:) = XUNDEF 00355 ! 00356 ALLOCATE(XDATA_ALB_SOIL_VIS(JPCOVER,36,NVEGTYPE)) 00357 ! 00358 XDATA_ALB_SOIL_VIS (:,:,:) = XUNDEF 00359 ! 00360 ALLOCATE(XDATA_ALB_SOIL_NIR(JPCOVER,36,NVEGTYPE)) 00361 ! 00362 XDATA_ALB_SOIL_NIR (:,:,:) = XUNDEF 00363 ! 00364 !------------------------------------------------------------------------------- 00365 ! 00366 !* 2.7 Rsmin 00367 ! ----- 00368 ! 00369 ALLOCATE(XDATA_RSMIN(JPCOVER,NVEGTYPE)) 00370 ! 00371 XDATA_RSMIN (:,:) = XUNDEF 00372 ! 00373 !------------------------------------------------------------------------------- 00374 ! 00375 !* 2.8 Gamma 00376 ! ----- 00377 ! 00378 ALLOCATE(XDATA_GAMMA(JPCOVER,NVEGTYPE)) 00379 ! 00380 XDATA_GAMMA (:,:) = XUNDEF 00381 ! 00382 !------------------------------------------------------------------------------- 00383 ! 00384 !* 2.8 Wrmax_cf 00385 ! -------- 00386 ! 00387 ALLOCATE(XDATA_WRMAX_CF(JPCOVER,NVEGTYPE)) 00388 ! 00389 XDATA_WRMAX_CF (:,:) = XUNDEF 00390 ! 00391 !------------------------------------------------------------------------------- 00392 ! 00393 !* 2.9 Rgl 00394 ! --- 00395 ! 00396 ALLOCATE(XDATA_RGL(JPCOVER,NVEGTYPE)) 00397 ! 00398 XDATA_RGL (:,:) = XUNDEF 00399 ! 00400 !------------------------------------------------------------------------------- 00401 ! 00402 !* 2.10 Cv 00403 ! -- 00404 ! 00405 ALLOCATE(XDATA_CV(JPCOVER,NVEGTYPE)) 00406 ! 00407 XDATA_CV (:,:) = XUNDEF 00408 ! 00409 !------------------------------------------------------------------------------- 00410 ! 00411 !* 2.11 mesophyll conductance (m s-1) 00412 ! ----------------------------- 00413 ! 00414 ALLOCATE(XDATA_GMES(JPCOVER,NVEGTYPE)) 00415 ! 00416 XDATA_GMES(:,:) = XUNDEF 00417 ! 00418 ALLOCATE(XDATA_GMES_ST(JPCOVER,NVEGTYPE)) 00419 ! 00420 XDATA_GMES_ST(:,:) = XUNDEF 00421 ! 00422 !------------------------------------------------------------------------------- 00423 ! 00424 !* 2.11 Ecosystem respiration (kg/kg.m.s-1) 00425 ! ----------------------------------- 00426 ! 00427 ALLOCATE(XDATA_RE25(JPCOVER,NVEGTYPE)) 00428 ! 00429 XDATA_RE25(:,:) = XUNDEF 00430 ! 00431 !------------------------------------------------------------------------------- 00432 ! 00433 !* 2.11 cuticular conductance (m s-1) 00434 ! ----------------------------- 00435 ! 00436 ALLOCATE(XDATA_GC(JPCOVER,NVEGTYPE)) 00437 ! 00438 XDATA_GC(:,:) = XUNDEF 00439 ! 00440 ALLOCATE(XDATA_GC_ST(JPCOVER,NVEGTYPE)) 00441 ! 00442 XDATA_GC_ST(:,:) = XUNDEF 00443 ! 00444 !------------------------------------------------------------------------------- 00445 ! 00446 !* 2.11 critical normilized soil water content for stress parameterisation 00447 ! ------------------------------------------------------------------ 00448 ! 00449 ALLOCATE(XDATA_F2I(JPCOVER,NVEGTYPE)) 00450 ! 00451 XDATA_F2I(:,:) = XUNDEF 00452 ! 00453 !------------------------------------------------------------------------------- 00454 ! 00455 !* 2.12 ratio d(biomass)/d(lai) (kg/m2) 00456 ! ----------------------- 00457 ! 00458 ALLOCATE(XDATA_BSLAI(JPCOVER,NVEGTYPE)) 00459 ! 00460 XDATA_BSLAI (:,:) = XUNDEF 00461 ! 00462 ALLOCATE(XDATA_BSLAI_ST(JPCOVER,NVEGTYPE)) 00463 ! 00464 XDATA_BSLAI_ST(:,:) = XUNDEF 00465 ! 00466 !------------------------------------------------------------------------------- 00467 ! 00468 !* 2.12 maximum air saturation deficit tolerate by vegetation (kg/kg) 00469 ! ------------------------------------------------------------- 00470 ! 00471 ALLOCATE(XDATA_DMAX(JPCOVER,NVEGTYPE)) 00472 ! 00473 XDATA_DMAX (:,:) = XUNDEF 00474 ! 00475 ALLOCATE(XDATA_DMAX_ST(JPCOVER,NVEGTYPE)) 00476 ! 00477 XDATA_DMAX_ST(:,:) = XUNDEF 00478 ! 00479 !------------------------------------------------------------------------------- 00480 ! 00481 !* 2.11 Defensive/Offensive strategy 00482 ! ---------------------------- 00483 ! 00484 ALLOCATE(XDATA_STRESS(JPCOVER,NVEGTYPE)) 00485 ! 00486 XDATA_STRESS(:,:) = XUNDEF 00487 ! 00488 !------------------------------------------------------------------------------- 00489 ! 00490 !* 2.13 e-folding time for senescence (days) 00491 ! ------------------------------------ 00492 ! 00493 ALLOCATE(XDATA_SEFOLD(JPCOVER,NVEGTYPE)) 00494 ! 00495 XDATA_SEFOLD (:,:) = XUNDEF 00496 ! 00497 ALLOCATE(XDATA_SEFOLD_ST(JPCOVER,NVEGTYPE)) 00498 ! 00499 XDATA_SEFOLD_ST(:,:) = XUNDEF 00500 ! 00501 !------------------------------------------------------------------------------- 00502 ! 00503 !* 2.14 Minimum LAI (m2/m2) 00504 ! ------------------- 00505 ! 00506 ALLOCATE(XDATA_LAIMIN(JPCOVER,NVEGTYPE)) 00507 ! 00508 XDATA_LAIMIN (:,:) = XUNDEF 00509 ! 00510 !------------------------------------------------------------------------------- 00511 ! 00512 !* 2.15 vegetation and greeness fraction fractions 00513 ! ------------------------------------------ 00514 ! 00515 ALLOCATE(XDATA_VEG(JPCOVER,36,NVEGTYPE)) 00516 ! 00517 XDATA_VEG (:,:,:) = XUNDEF 00518 ! 00519 ALLOCATE(XDATA_GREEN(JPCOVER,36,NVEGTYPE)) 00520 ! 00521 XDATA_GREEN (:,:,:) = XUNDEF 00522 ! 00523 !------------------------------------------------------------------------------- 00524 ! 00525 !* 2.16 z0veg 00526 ! ----- 00527 ! 00528 ALLOCATE(XDATA_Z0(JPCOVER,36,NVEGTYPE)) 00529 ! 00530 XDATA_Z0 (:,:,:) = XUNDEF 00531 ! 00532 !------------------------------------------------------------------------------- 00533 ! 00534 !* 2.17 z0hveg 00535 ! ------ 00536 ! 00537 ALLOCATE(XDATA_Z0_O_Z0H(JPCOVER,NVEGTYPE)) 00538 ! 00539 XDATA_Z0_O_Z0H (:,:) = XUNDEF 00540 ! 00541 !------------------------------------------------------------------------------- 00542 ! 00543 !* 2.18 emissivity 00544 ! ---------- 00545 ! 00546 ALLOCATE(XDATA_EMIS_ECO(JPCOVER,36,NVEGTYPE)) 00547 ! 00548 XDATA_EMIS_ECO (:,:,:) = XUNDEF 00549 ! 00550 !------------------------------------------------------------------------------- 00551 ! 00552 !* 2.19 for chemistry deposition 00553 ! ------------------------ 00554 ! 00555 ALLOCATE(XDATA_SOILRC_SO2(JPCOVER,NVEGTYPE)) 00556 ALLOCATE(XDATA_SOILRC_O3 (JPCOVER,NVEGTYPE)) 00557 ! 00558 XDATA_SOILRC_SO2 (:,:) = XUNDEF 00559 XDATA_SOILRC_O3 (:,:) = XUNDEF 00560 ! 00561 !------------------------------------------------------------------------ 00562 ! 00563 !* 2.20 leaf aera ratio sensitivity to nitrogen concentration 00564 ! ----------------------------------------------------- 00565 ! 00566 ALLOCATE(XDATA_CE_NITRO(JPCOVER,NVEGTYPE)) 00567 ! 00568 XDATA_CE_NITRO (:,:) = XUNDEF 00569 ! 00570 !------------------------------------------------------------------------------- 00571 ! 00572 !* 2.21 lethal minimum value of leaf area ratio 00573 ! --------------------------------------- 00574 ! 00575 ALLOCATE(XDATA_CF_NITRO(JPCOVER,NVEGTYPE)) 00576 ! 00577 XDATA_CF_NITRO (:,:) = XUNDEF 00578 ! 00579 !------------------------------------------------------------------------------- 00580 ! 00581 !* 2.22 nitrogen concentration of active biomass 00582 ! ---------------------------------------- 00583 ! 00584 ALLOCATE(XDATA_CNA_NITRO(JPCOVER,NVEGTYPE)) 00585 ! 00586 XDATA_CNA_NITRO (:,:) = XUNDEF 00587 ! 00588 !------------------------------------------------------------------------------- 00589 ! 00590 !* 2.23 biomass/LAI ratio from nitrogen decline theory 00591 ! ---------------------------------------------- 00592 ! 00593 ALLOCATE(XDATA_BSLAI_NITRO(JPCOVER,NVEGTYPE)) 00594 ! 00595 XDATA_BSLAI_NITRO (:,:) = XUNDEF 00596 ! 00597 !------------------------------------------------------------------------------- 00598 ! 00599 !* 2.24 seeding and reaping dates 00600 ! ------------------------- 00601 ! 00602 ALLOCATE(TDATA_SEED(JPCOVER,NVEGTYPE)) 00603 ! 00604 TDATA_SEED (:,:)%TDATE%YEAR = 9999 00605 TDATA_SEED (:,:)%TDATE%MONTH = NUNDEF 00606 TDATA_SEED (:,:)%TDATE%DAY = NUNDEF 00607 TDATA_SEED (:,:)%TIME = 0. 00608 ! 00609 ALLOCATE(TDATA_REAP(JPCOVER,NVEGTYPE)) 00610 ! 00611 TDATA_REAP (:,:)%TDATE%YEAR = 9999 00612 TDATA_REAP (:,:)%TDATE%MONTH = NUNDEF 00613 TDATA_REAP (:,:)%TDATE%DAY = NUNDEF 00614 TDATA_REAP (:,:)%TIME = 0. 00615 ! 00616 !------------------------------------------------------------------------------- 00617 ! 00618 !* 2.25 irrigated fraction 00619 ! ------------------ 00620 ! 00621 ALLOCATE(XDATA_IRRIG(JPCOVER,NVEGTYPE)) 00622 ! 00623 XDATA_IRRIG (:,:) = 0. 00624 ! 00625 !------------------------------------------------------------------------------- 00626 ! 00627 !* 2.25 water supply 00628 ! ------------ 00629 ! 00630 ALLOCATE(XDATA_WATSUP(JPCOVER,NVEGTYPE)) 00631 ! 00632 XDATA_WATSUP (:,:) = 0. 00633 ! 00634 !------------------------------------------------------------------------------- 00635 ! 00636 !* 3.1 z0 for artificial surfaces 00637 ! -------------------------- 00638 ! 00639 ALLOCATE(XDATA_Z0_TOWN(JPCOVER)) 00640 ! 00641 XDATA_Z0_TOWN (:) = XUNDEF 00642 ! 00643 !------------------------------------------------------------------------------- 00644 ! 00645 !* 3.2 albedo for artificial surfaces 00646 ! ------------------------------ 00647 ! 00648 ALLOCATE(XDATA_ALB_ROOF(JPCOVER)) 00649 ! 00650 XDATA_ALB_ROOF (:) = XUNDEF 00651 ! 00652 ALLOCATE(XDATA_ALB_ROAD(JPCOVER)) 00653 ! 00654 XDATA_ALB_ROAD (:) = XUNDEF 00655 ! 00656 ALLOCATE(XDATA_ALB_WALL(JPCOVER)) 00657 ! 00658 XDATA_ALB_WALL (:) = XUNDEF 00659 ! 00660 !------------------------------------------------------------------------------- 00661 ! 00662 !* 3.4 emissivity for artificial surfaces 00663 ! ---------------------------------- 00664 ! 00665 ALLOCATE(XDATA_EMIS_ROOF(JPCOVER)) 00666 ! 00667 XDATA_EMIS_ROOF (:) = XUNDEF 00668 ! 00669 ALLOCATE(XDATA_EMIS_ROAD(JPCOVER)) 00670 ! 00671 XDATA_EMIS_ROAD (:) = XUNDEF 00672 ! 00673 ALLOCATE(XDATA_EMIS_WALL(JPCOVER)) 00674 ! 00675 XDATA_EMIS_WALL (:) = XUNDEF 00676 ! 00677 !------------------------------------------------------------------------------- 00678 NDATA_ROOF_LAYER=3 00679 NDATA_ROAD_LAYER=3 00680 NDATA_WALL_LAYER=3 00681 NDATA_FLOOR_LAYER=3 00682 !------------------------------------------------------------------------------- 00683 ! 00684 !* 3.5 heat capacity for artificial surfaces 00685 ! ------------------------------------- 00686 ! 00687 ALLOCATE(XDATA_HC_ROOF(JPCOVER,NDATA_ROOF_LAYER)) 00688 ! 00689 XDATA_HC_ROOF (:,:) = XUNDEF 00690 ! 00691 ALLOCATE(XDATA_HC_ROAD(JPCOVER,NDATA_ROAD_LAYER)) 00692 ! 00693 XDATA_HC_ROAD (:,:) = XUNDEF 00694 ! 00695 ALLOCATE(XDATA_HC_WALL(JPCOVER,NDATA_WALL_LAYER)) 00696 ! 00697 XDATA_HC_WALL (:,:) = XUNDEF 00698 ! 00699 ALLOCATE(XDATA_HC_FLOOR(JPCOVER,NDATA_FLOOR_LAYER)) 00700 ! 00701 XDATA_HC_FLOOR (:,:) = XUNDEF 00702 ! 00703 !------------------------------------------------------------------------------- 00704 ! 00705 !* 3.6 thermal conductivity for artificial surfaces 00706 ! -------------------------------------------- 00707 ! 00708 ALLOCATE(XDATA_TC_ROOF(JPCOVER,NDATA_ROOF_LAYER)) 00709 ! 00710 XDATA_TC_ROOF (:,:) = XUNDEF 00711 ! 00712 ALLOCATE(XDATA_TC_ROAD(JPCOVER,NDATA_ROAD_LAYER)) 00713 ! 00714 XDATA_TC_ROAD (:,:) = XUNDEF 00715 ! 00716 ALLOCATE(XDATA_TC_WALL(JPCOVER,NDATA_WALL_LAYER)) 00717 ! 00718 XDATA_TC_WALL (:,:) = XUNDEF 00719 ! 00720 ALLOCATE(XDATA_TC_FLOOR(JPCOVER,NDATA_FLOOR_LAYER)) 00721 ! 00722 XDATA_TC_FLOOR (:,:) = XUNDEF 00723 ! 00724 !------------------------------------------------------------------------------- 00725 ! 00726 !* 3.7 depth for artificial surfaces layers 00727 ! ------------------------------------ 00728 ! 00729 ALLOCATE(XDATA_D_ROOF(JPCOVER,NDATA_ROOF_LAYER)) 00730 ! 00731 XDATA_D_ROOF (:,:) = XUNDEF 00732 ! 00733 ALLOCATE(XDATA_D_ROAD(JPCOVER,NDATA_ROAD_LAYER)) 00734 ! 00735 XDATA_D_ROAD (:,:) = XUNDEF 00736 ! 00737 ALLOCATE(XDATA_D_WALL(JPCOVER,NDATA_WALL_LAYER)) 00738 ! 00739 XDATA_D_WALL (:,:) = XUNDEF 00740 ! 00741 ALLOCATE(XDATA_D_FLOOR(JPCOVER,NDATA_FLOOR_LAYER)) 00742 ! 00743 XDATA_D_FLOOR (:,:) = XUNDEF 00744 ! 00745 !------------------------------------------------------------------------------- 00746 ! 00747 !* 3.8 building height 00748 ! --------------- 00749 ! 00750 ALLOCATE(XDATA_BLD_HEIGHT(JPCOVER)) 00751 ! 00752 XDATA_BLD_HEIGHT (:) = XUNDEF 00753 ! 00754 !------------------------------------------------------------------------------- 00755 ! 00756 !* 3.9 building shape 00757 ! -------------- 00758 ! 00759 ALLOCATE(XDATA_WALL_O_HOR(JPCOVER)) 00760 ! 00761 XDATA_WALL_O_HOR (:) = XUNDEF 00762 ! 00763 !------------------------------------------------------------------------------- 00764 ! 00765 !* 3.10 building fraction 00766 ! ----------------- 00767 ! 00768 ALLOCATE(XDATA_BLD(JPCOVER)) 00769 ! 00770 XDATA_BLD (:) = XUNDEF 00771 ! 00772 !------------------------------------------------------------------------------- 00773 ! 00774 !* 3.11 canyon shape 00775 ! ------------ 00776 ! 00777 ALLOCATE(XDATA_CAN_HW_RATIO(JPCOVER)) 00778 ! 00779 XDATA_CAN_HW_RATIO (:) = XUNDEF 00780 ! 00781 !------------------------------------------------------------------------------- 00782 ! 00783 !* 3.12 anthropogenic fluxes 00784 ! -------------------- 00785 ! 00786 ALLOCATE(XDATA_H_TRAFFIC (JPCOVER)) 00787 ALLOCATE(XDATA_LE_TRAFFIC (JPCOVER)) 00788 ALLOCATE(XDATA_H_INDUSTRY (JPCOVER)) 00789 ALLOCATE(XDATA_LE_INDUSTRY(JPCOVER)) 00790 ! 00791 XDATA_H_TRAFFIC (:) = XUNDEF 00792 XDATA_LE_TRAFFIC (:) = XUNDEF 00793 XDATA_H_INDUSTRY (:) = XUNDEF 00794 XDATA_LE_INDUSTRY(:) = XUNDEF 00795 ! 00796 !------------------------------------------------------------------------------- 00797 ! 00798 !* 3.13 For TEB-BEM 00799 ! ------------ 00800 ! 00801 ALLOCATE(XDATA_TCOOL_TARGET (JPCOVER)) 00802 ALLOCATE(XDATA_THEAT_TARGET (JPCOVER)) 00803 ! 00804 XDATA_TCOOL_TARGET (:) = XUNDEF 00805 XDATA_THEAT_TARGET (:) = XUNDEF 00806 ! 00807 ALLOCATE(XDATA_F_WASTE_CAN (JPCOVER)) 00808 ALLOCATE(XDATA_EFF_HEAT (JPCOVER)) 00809 ALLOCATE(XDATA_QIN (JPCOVER)) 00810 ALLOCATE(XDATA_QIN_FRAD (JPCOVER)) 00811 ALLOCATE(XDATA_SHGC (JPCOVER)) 00812 ALLOCATE(XDATA_U_WIN (JPCOVER)) 00813 ALLOCATE(XDATA_GR (JPCOVER)) 00814 ALLOCATE(XDATA_SHGC_SH (JPCOVER)) 00815 ALLOCATE(XDATA_FLOOR_HEIGHT(JPCOVER)) 00816 ALLOCATE(XDATA_INF (JPCOVER)) 00817 ! 00818 XDATA_F_WASTE_CAN (:) = XUNDEF 00819 XDATA_EFF_HEAT (:) = XUNDEF 00820 XDATA_QIN (:) = XUNDEF 00821 XDATA_QIN_FRAD (:) = XUNDEF 00822 XDATA_SHGC (:) = XUNDEF 00823 XDATA_U_WIN (:) = XUNDEF 00824 XDATA_GR (:) = XUNDEF 00825 XDATA_SHGC_SH (:) = XUNDEF 00826 XDATA_FLOOR_HEIGHT(:) = XUNDEF 00827 XDATA_INF (:) = XUNDEF 00828 ! 00829 ALLOCATE(XDATA_F_WATER_COND(JPCOVER)) 00830 ALLOCATE(XDATA_QIN_FLAT (JPCOVER)) 00831 ALLOCATE(XDATA_HR_TARGET (JPCOVER)) 00832 ALLOCATE(XDATA_V_VENT (JPCOVER)) 00833 ALLOCATE(XDATA_CAP_SYS_HEAT(JPCOVER)) 00834 ALLOCATE(XDATA_CAP_SYS_RAT (JPCOVER)) 00835 ALLOCATE(XDATA_T_ADP (JPCOVER)) 00836 ALLOCATE(XDATA_M_SYS_RAT (JPCOVER)) 00837 ALLOCATE(XDATA_COP_RAT (JPCOVER)) 00838 ALLOCATE(XDATA_T_SIZE_MAX (JPCOVER)) 00839 ALLOCATE(XDATA_T_SIZE_MIN (JPCOVER)) 00840 ALLOCATE(XDATA_SHADE (JPCOVER)) 00841 ALLOCATE(XDATA_NATVENT (JPCOVER)) 00842 ! 00843 XDATA_F_WATER_COND(:) = XUNDEF 00844 XDATA_QIN_FLAT (:) = XUNDEF 00845 XDATA_HR_TARGET (:) = XUNDEF 00846 XDATA_V_VENT (:) = XUNDEF 00847 XDATA_CAP_SYS_HEAT(:) = XUNDEF 00848 XDATA_CAP_SYS_RAT (:) = XUNDEF 00849 XDATA_T_ADP (:) = XUNDEF 00850 XDATA_M_SYS_RAT (:) = XUNDEF 00851 XDATA_COP_RAT (:) = XUNDEF 00852 XDATA_T_SIZE_MAX (:) = XUNDEF 00853 XDATA_T_SIZE_MIN (:) = XUNDEF 00854 XDATA_SHADE (:) = 0. 00855 XDATA_NATVENT (:) = 0. 00856 ! 00857 ALLOCATE(XDATA_ROUGH_ROOF (JPCOVER)) 00858 ALLOCATE(XDATA_ROUGH_WALL (JPCOVER)) 00859 XDATA_ROUGH_ROOF(:) = XUNDEF 00860 XDATA_ROUGH_WALL(:) = XUNDEF 00861 ! 00862 !------------------------------------------------------------------------------- 00863 ! 00864 !* 3.13 For greenroof 00865 ! ------------- 00866 ! 00867 ALLOCATE(XDATA_FRAC_GR (JPCOVER)) 00868 ! 00869 XDATA_FRAC_GR (:) = 0. 00870 ! 00871 !------------------------------------------------------------------------------- 00872 !------------------------------------------------------------------------------- 00873 !------------------------------------------------------------------------------- 00874 ! 00875 !* 4. CALL to INITIALIZATION ROUTINES 00876 ! ------------------------------- 00877 ! 00878 !------------------------------------------------------------------------------- 00879 ! 00880 !* 4.1 first version of ecoclimap (global) 00881 ! ----------------------------------- 00882 ! 00883 !* Global data set 00884 ! 00885 00886 ! 00887 IF (LREAD_DATA_COVER) THEN 00888 CALL READ_COVERS_PARAM(1) 00889 ELSE 00890 CALL DEFAULT_DATA_COVER_1 00891 CALL DEFAULT_DATA_COVER_2 00892 ! 00893 CALL DEFAULT_LAI_ECO1_01 00894 CALL DEFAULT_LAI_ECO1_02 00895 CALL DEFAULT_LAI_ECO1_03 00896 CALL DEFAULT_LAI_ECO1_04 00897 CALL DEFAULT_LAI_ECO1_05 00898 CALL DEFAULT_LAI_ECO1_06 00899 CALL DEFAULT_LAI_ECO1_07 00900 CALL DEFAULT_LAI_ECO1_08 00901 CALL DEFAULT_LAI_ECO1_09 00902 CALL DEFAULT_LAI_ECO1_10 00903 CALL DEFAULT_LAI_ECO1_11 00904 CALL DEFAULT_LAI_ECO1_12 00905 ! 00906 CALL DEFAULT_ALB_ECO1_01_1 00907 CALL DEFAULT_ALB_ECO1_02_1 00908 CALL DEFAULT_ALB_ECO1_03_1 00909 CALL DEFAULT_ALB_ECO1_04_1 00910 CALL DEFAULT_ALB_ECO1_05_1 00911 CALL DEFAULT_ALB_ECO1_06_1 00912 CALL DEFAULT_ALB_ECO1_07_1 00913 CALL DEFAULT_ALB_ECO1_08_1 00914 CALL DEFAULT_ALB_ECO1_09_1 00915 CALL DEFAULT_ALB_ECO1_10_1 00916 CALL DEFAULT_ALB_ECO1_11_1 00917 CALL DEFAULT_ALB_ECO1_12_1 00918 ! 00919 CALL DEFAULT_ALB_ECO1_01_2 00920 CALL DEFAULT_ALB_ECO1_02_2 00921 CALL DEFAULT_ALB_ECO1_03_2 00922 CALL DEFAULT_ALB_ECO1_04_2 00923 CALL DEFAULT_ALB_ECO1_05_2 00924 CALL DEFAULT_ALB_ECO1_06_2 00925 CALL DEFAULT_ALB_ECO1_07_2 00926 CALL DEFAULT_ALB_ECO1_08_2 00927 CALL DEFAULT_ALB_ECO1_09_2 00928 CALL DEFAULT_ALB_ECO1_10_2 00929 CALL DEFAULT_ALB_ECO1_11_2 00930 CALL DEFAULT_ALB_ECO1_12_2 00931 ! 00932 ENDIF 00933 ! 00934 CALL COVER301_573 00935 ! 00936 !------------------------------------------------------------------------------- 00937 ! 00938 ICPT_SEA = 0 00939 ICPT_WATER = 0 00940 ! 00941 DO JCOVER = 1, JPCOVER 00942 ! 00943 IF (XDATA_NATURE(JCOVER)==1.) THEN 00944 IF (XDATA_VEGTYPE(JCOVER,NVT_NO )==1.) NBARE_SOIL = JCOVER 00945 IF (XDATA_VEGTYPE(JCOVER,NVT_ROCK)==1.) NROCK = JCOVER 00946 IF (XDATA_VEGTYPE(JCOVER,NVT_SNOW)==1.) NPERMSNOW = JCOVER 00947 END IF 00948 ! 00949 IF (XDATA_SEA(JCOVER)==1.) THEN 00950 ICPT_SEA = ICPT_SEA + 1 00951 NSEA(ICPT_SEA) = JCOVER 00952 ENDIF 00953 ! 00954 IF (XDATA_WATER(JCOVER)==1.) THEN 00955 ICPT_WATER = ICPT_WATER + 1 00956 NWATER(ICPT_WATER) = JCOVER 00957 ENDIF 00958 ! 00959 IF (XDATA_TOWN(JCOVER)==0.) CYCLE 00960 ! 00961 XDATA_CAN_HW_RATIO(JCOVER) = 0.5 * XDATA_WALL_O_HOR(JCOVER) / (1.-XDATA_BLD (JCOVER)) 00962 ! 00963 XDATA_HC_FLOOR(JCOVER,:) = 2016000. 00964 XDATA_TC_FLOOR(JCOVER,:) = 1.95 00965 XDATA_D_FLOOR(JCOVER,1) = 0.01 00966 XDATA_D_FLOOR(JCOVER,2) = 0.04 00967 XDATA_D_FLOOR(JCOVER,3) = 0.10 00968 ! 00969 XDATA_TCOOL_TARGET(JCOVER) = 297.16 00970 XDATA_THEAT_TARGET(JCOVER) = 292.16 00971 XDATA_F_WASTE_CAN(JCOVER) = 1.0 00972 XDATA_EFF_HEAT(JCOVER) = 0.9 00973 XDATA_QIN(JCOVER) = 5.8 00974 XDATA_QIN_FRAD(JCOVER) = 0.2 00975 XDATA_QIN_FLAT(JCOVER) = 0.2 00976 XDATA_SHGC(JCOVER) = 0.763 00977 XDATA_U_WIN(JCOVER) = 2.716 00978 XDATA_GR(JCOVER) = 0.3 00979 XDATA_SHGC_SH(JCOVER) = 0.763 00980 XDATA_FLOOR_HEIGHT(JCOVER) = 3.0 00981 XDATA_INF(JCOVER) = 0.5 00982 XDATA_F_WATER_COND(JCOVER) = 0. 00983 XDATA_QIN_FLAT(JCOVER) = 0.2 00984 XDATA_HR_TARGET(JCOVER) = 0.5 00985 XDATA_V_VENT(JCOVER) = 0.0 00986 XDATA_CAP_SYS_HEAT(JCOVER) = 100. 00987 XDATA_CAP_SYS_RAT(JCOVER) = 90. 00988 XDATA_T_ADP(JCOVER) = 285.66 00989 XDATA_M_SYS_RAT(JCOVER) = 0.0067 00990 XDATA_COP_RAT(JCOVER) = 2.5 00991 XDATA_T_SIZE_MAX(JCOVER) = 301.95 00992 XDATA_T_SIZE_MIN(JCOVER) = 268.96 00993 XDATA_SHADE(JCOVER) = 0.0 00994 XDATA_NATVENT(JCOVER) = 0.0 00995 XDATA_ROUGH_ROOF(JCOVER) = 1.52 00996 XDATA_ROUGH_WALL(JCOVER) = 1.52 00997 ! 00998 IF (XDATA_GARDEN(JCOVER)/=0.) THEN 00999 DO JVEGTYPE=1,NVEGTYPE 01000 IF (XDATA_VEGTYPE(JCOVER,JVEGTYPE)/=0.) THEN 01001 XDATA_ALB_SOIL_NIR(JCOVER,:,JVEGTYPE) = 0.3 01002 XDATA_ALB_SOIL_VIS(JCOVER,:,JVEGTYPE) = 0.1 01003 XDATA_ALB_VEG_NIR (JCOVER,:,JVEGTYPE) = 0.3 01004 XDATA_ALB_VEG_VIS (JCOVER,:,JVEGTYPE) = 0.1 01005 ENDIF 01006 ENDDO 01007 ENDIF 01008 ! 01009 END DO 01010 ! 01011 !------------------------------------------------------------------------------- 01012 CNAMES(:,:) = ' ' 01013 !------------------------------------------------------------------------------- 01014 ! 01015 CNAMES(1,1) = 'Sea and ocean' 01016 CNAMES(2,1) = 'Inland waters' 01017 CNAMES(3,1) = 'Rivers' 01018 CNAMES(4,1) = 'Bare land' 01019 CNAMES(5,1) = 'Rocks' 01020 CNAMES(6,1) = 'Permanent snow and ice' 01021 CNAMES(7,1) = 'Urban and built-up' 01022 01023 CNAMES(8,1) = 'Tropical undefined islands' 01024 CNAMES(9,1) = 'Subpolar undefined islands' 01025 ! 01026 CNAMES(10,1) = 'S-America cool ENF' 01027 CNAMES(11,1) = 'Boreal ENF' 01028 CNAMES(12,1) = 'Asia subtropical ENF' 01029 CNAMES(13,1) = 'American Continental ENF' 01030 CNAMES(14,1) = 'American Subtropical ENF' 01031 CNAMES(15,1) = 'American Cool Marine ENF' 01032 01033 CNAMES(16,1) = 'Africa Equatorial EBF' 01034 CNAMES(17,1) = 'Africa Tr. wind EBF' 01035 CNAMES(18,1) = 'Oceanian Equatorial EBF' 01036 CNAMES(19,1) = 'Asia tropical EBF' 01037 CNAMES(20,1) = 'Oceania tropical EBF' 01038 CNAMES(21,1) = 'Amazonian EBF' 01039 CNAMES(22,1) = 'SH subtropical EBF' 01040 CNAMES(23,1) = 'Cent. America Tr. wind EBF' 01041 01042 CNAMES(24,1) = 'Asian boreal DNF' 01043 01044 CNAMES(25,1) = 'S-America tropical DBF' 01045 CNAMES(26,1) = 'N-America humid continental DBF' 01046 CNAMES(27,1) = 'Cent. America Tr. wind DBF' 01047 CNAMES(28,1) = 'S-America humid subtropical DBF' 01048 01049 CNAMES(29,1) = 'Africa dry tropical MF' 01050 CNAMES(30,1) = 'S-America cool MF' 01051 CNAMES(31,1) = 'NH Subpolar MF' 01052 CNAMES(32,1) = 'NH Humid subtropical MF' 01053 CNAMES(33,1) = 'NH Continental MF' 01054 01055 CNAMES(34,1) = 'NH Africa WL' 01056 CNAMES(35,1) = 'SH Africa WL' 01057 CNAMES(36,1) = 'Tr. wind humid and subtrop. WL' 01058 CNAMES(37,1) = 'Oceanian Equatorial WL' 01059 CNAMES(38,1) = 'Asia wet tropical WL' 01060 CNAMES(39,1) = 'S-America tropical WL' 01061 CNAMES(40,1) = 'S-America humid subtropical WL' 01062 CNAMES(41,1) = 'NH Subpolar WL' 01063 CNAMES(42,1) = 'NH Continental WL' 01064 CNAMES(43,1) = 'Asia humid subtropical WL' 01065 CNAMES(44,1) = 'N-America Semi arid WL' 01066 CNAMES(45,1) = 'N-America moderate polar WL' 01067 CNAMES(46,1) = 'S-America moderate polar WL' 01068 CNAMES(47,1) = 'N-America humid subtropical WL' 01069 01070 CNAMES(48,1) = 'NH Africa semiarid WG' 01071 CNAMES(49,1) = 'NH Africa dry tropical WG' 01072 CNAMES(50,1) = 'Africa dry equatorial WG' 01073 CNAMES(51,1) = 'SH Africa dry tropical WG' 01074 CNAMES(52,1) = 'Oceania tropical WG' 01075 CNAMES(53,1) = 'Oceania semiarid WG' 01076 CNAMES(54,1) = 'Oceania subtrop. cool marine WG' 01077 CNAMES(55,1) = 'Asia humid and subtropical WG' 01078 CNAMES(56,1) = 'S-America trop. and subtrop. WG' 01079 CNAMES(57,1) = 'S-America Tr. wind WG' 01080 CNAMES(58,1) = 'S-America semiarid WG' 01081 CNAMES(59,1) = 'NH Subpolar WG' 01082 CNAMES(60,1) = 'NH Continental WG' 01083 CNAMES(61,1) = 'Asia wet and dry tropical WG' 01084 CNAMES(62,1) = 'N-America semi arid WG' 01085 CNAMES(63,1) = 'N-America humid subtropical WG' 01086 CNAMES(64,1) = 'S-America moderate polar WG' 01087 CNAMES(65,1) = 'Cent. Amer. Tr. wind \& trop. WG' 01088 CNAMES(66,1) = 'NH Africa dry summer subtrop. WG' 01089 01090 CNAMES(67,1) = 'NH Africa arid CS' 01091 CNAMES(68,1) = 'NH Africa semiarid CS' 01092 CNAMES(69,1) = 'SH Africa semiarid CS' 01093 CNAMES(70,1) = 'Oceania arid CS' 01094 CNAMES(71,1) = 'Oceania, S-America semiarid CS' 01095 CNAMES(72,1) = 'Oceania Tr. wind CS' 01096 CNAMES(73,1) = 'SH dry summer subtropical CS' 01097 CNAMES(74,1) = 'Asia polar CS' 01098 CNAMES(75,1) = 'Asia continental CS' 01099 CNAMES(76,1) = 'Asia tropical CS' 01100 CNAMES(77,1) = 'N-America polar CS' 01101 CNAMES(78,1) = 'N-America continental CS' 01102 CNAMES(79,1) = 'NH Africa dry summer subtrop. CS' 01103 01104 CNAMES(80,1) = 'NH arid OS' 01105 CNAMES(81,1) = 'NH semiarid tropical OS' 01106 CNAMES(82,1) = 'SH Africa and Oceania arid OS' 01107 CNAMES(83,1) = 'S-America semiarid tropical OS' 01108 CNAMES(84,1) = 'Asia dry tropical OS' 01109 CNAMES(85,1) = 'NH Polar OS' 01110 CNAMES(86,1) = 'N-America Subpolar OS' 01111 CNAMES(87,1) = 'N-America semiarid continental OS' 01112 01113 CNAMES(88,1) = 'Africa wet Tropical G' 01114 CNAMES(89,1) = 'NH Africa Semiarid G' 01115 CNAMES(90,1) = 'SH Africa Semiarid G' 01116 CNAMES(91,1) = 'S-America, Oceania equatorial G' 01117 CNAMES(92,1) = 'S-America, Oceania Semiarid G' 01118 CNAMES(93,1) = 'Oceania cool littoral G' 01119 CNAMES(94,1) = 'Asia wet and dry tropical G' 01120 CNAMES(95,1) = 'NH S-America wet tropical G' 01121 CNAMES(96,1) = 'SH S-America wet tropical G' 01122 CNAMES(97,1) = 'S-America semiarid G' 01123 CNAMES(98,1) = 'S-America moderate polar G' 01124 CNAMES(99,1) = 'NH semiarid Continental G' 01125 CNAMES(100,1) = 'Asia Subpolar G' 01126 CNAMES(101,1) = 'Asia humid Continental G' 01127 CNAMES(102,1) = 'Asia semiarid tropical G' 01128 CNAMES(103,1) = 'N-America continental G' 01129 CNAMES(104,1) = 'Asia humid subtropical G' 01130 01131 CNAMES(105,1) = 'NH Africa arid C' 01132 CNAMES(106,1) = 'NH Africa, Asia wet and dry trop. C' 01133 CNAMES(107,1) = 'SH Africa wet and dry tropical C' 01134 CNAMES(108,1) = 'SH Afr. Tr. wind \& semiarid trop. C' 01135 CNAMES(109,1) = 'Oceania dry summer subtropical C' 01136 CNAMES(110,1) = 'Cent. \& S-Amer., Oceania Tr. wind C' 01137 CNAMES(111,1) = 'S-America humid subtropical C' 01138 CNAMES(112,1) = 'SH S-America tropical C' 01139 CNAMES(113,1) = 'N-Amer., Asia semiarid continental C' 01140 CNAMES(114,1) = 'Asia humid continental C' 01141 CNAMES(115,1) = 'Asia humid subtropical C' 01142 CNAMES(116,1) = 'Asia subpolar C' 01143 CNAMES(117,1) = 'Asia semiarid tropical C' 01144 CNAMES(118,1) = 'N-America humid continental C' 01145 CNAMES(119,1) = 'N-America humid subtropical C' 01146 CNAMES(120,1) = 'NH dry summer subtropical C' 01147 CNAMES(121,1) = 'NH Africa dry summer subtropical C' 01148 CNAMES(122,1) = 'SH Africa dry summer subtropical C' 01149 01150 CNAMES(123,1) = 'Bare soil with sparse polar vegetation' 01151 01152 CNAMES(124,1) = 'Warm subtropical wetlands' 01153 CNAMES(125,1) = 'Subpolar wetlands' 01154 ! 01155 CNAMES(151,1) = 'Dense urban' 01156 CNAMES(152,1) = 'Mediterranean sub-urban' 01157 CNAMES(153,1) = 'Temperate sub-urban' 01158 CNAMES(154,1) = 'Cold sub-urban' 01159 CNAMES(155,1) = 'Industries and commercial areas' 01160 CNAMES(156,1) = 'Road and rail networks' 01161 CNAMES(157,1) = 'Port facilities' 01162 CNAMES(158,1) = 'Airport' 01163 CNAMES(159,1) = 'Mineral extraction, construction sites' 01164 CNAMES(160,1) = 'Urban parks' 01165 CNAMES(161,1) = 'Sport facilities' 01166 ! 01167 CNAMES(162,1) = 'Spanish crops' 01168 CNAMES(163,1) = 'Estremadura crops' 01169 CNAMES(164,1) = 'Mediterranean crops' 01170 CNAMES(165,1) = 'Atlantic coast crops' 01171 CNAMES(166,1) = 'Temperate crops' 01172 CNAMES(167,1) = 'Po plain crops' 01173 CNAMES(168,1) = 'Warm temperate crops' 01174 CNAMES(169,1) = 'Ukrainian crops' 01175 CNAMES(170,1) = 'Subpolar crops' 01176 CNAMES(171,1) = 'Mountain crops' 01177 CNAMES(172,1) = 'Central Europe crops' 01178 CNAMES(173,1) = 'Turkish crops' 01179 ! 01180 CNAMES(174,1) = 'Mediterranean irrigated crops' 01181 CNAMES(175,1) = 'Irrigated crops' 01182 CNAMES(176,1) = 'Rice fields' 01183 ! 01184 CNAMES(177,1) = 'Mediterranean vineyards' 01185 CNAMES(178,1) = 'Temperate vineyards' 01186 CNAMES(179,1) = 'Mediterranean fruit trees' 01187 CNAMES(180,1) = 'Temperate fruit trees' 01188 CNAMES(181,1) = 'Olive groves' 01189 ! 01190 CNAMES(182,1) = 'Temperate pastures' 01191 CNAMES(183,1) = 'Atlantic border pastures' 01192 CNAMES(184,1) = 'Central and Eastern Europe pastures' 01193 CNAMES(185,1) = 'Ukrainian pastures' 01194 CNAMES(186,1) = 'Subpolar pastures' 01195 ! 01196 CNAMES(187,1) = 'Spanish complex cultivation pattern' 01197 CNAMES(188,1) = 'Mediter. complex cultivation pat.' 01198 CNAMES(189,1) = 'Temperate complex cultivation pat.' 01199 CNAMES(190,1) = 'French complex cultivation pat.' 01200 CNAMES(191,1) = 'Balkanish complex cultivation pat.' 01201 ! 01202 CNAMES(192,1) = 'Mediterranean crops and woodland' 01203 CNAMES(193,1) = 'Crops and woodland' 01204 CNAMES(194,1) = 'French crops and woodland' 01205 CNAMES(195,1) = 'Balkanish crops and woodland' 01206 CNAMES(196,1) = 'Spanish crops and woodland' 01207 CNAMES(197,1) = 'Baltic states crops and woodland' 01208 ! 01209 CNAMES(198,1) = 'Agro-forestry areas' 01210 ! 01211 CNAMES(199,1) = 'Spanish broad-leaved forest' 01212 CNAMES(200,1) = 'Estremadura broad-leaved forest' 01213 CNAMES(201,1) = 'Mediterranean broad-leaved forest' 01214 CNAMES(202,1) = 'Atlantic coast broad-leaved forest' 01215 CNAMES(203,1) = 'Temperate broad-leaved forest' 01216 CNAMES(204,1) = 'Moutain broad-leaved forest' 01217 CNAMES(205,1) = 'Balkanish broad-leaved forest' 01218 CNAMES(206,1) = 'Subpolar broad-leaved forest' 01219 CNAMES(207,1) = 'Black Sea broad-leaved forest' 01220 ! 01221 CNAMES(208,1) = 'Mediterranean pines' 01222 CNAMES(209,1) = 'Landes forest' 01223 CNAMES(210,1) = 'Moutain coniferous forest' 01224 CNAMES(211,1) = 'Temperate coniferous forest' 01225 CNAMES(212,1) = 'Subpolar Taiga' 01226 CNAMES(213,1) = 'Russian Taiga' 01227 CNAMES(214,1) = 'Turkish coniferous forest' 01228 ! 01229 CNAMES(215,1) = 'Mediterranean mixed forest' 01230 CNAMES(216,1) = 'Atlantic coast \& french mixed forest' 01231 CNAMES(217,1) = 'Subpolar mixed forest' 01232 CNAMES(218,1) = 'Mountain mixed forest' 01233 CNAMES(219,1) = 'Eastern Europe mixed forest' 01234 ! 01235 CNAMES(220,1) = 'Mediterranean GR' 01236 CNAMES(221,1) = 'Atlantic coast GR' 01237 CNAMES(222,1) = 'Balkanish GR' 01238 CNAMES(223,1) = 'Estremadura GR' 01239 CNAMES(224,1) = 'Subpolar GR' 01240 CNAMES(225,1) = 'Tundra' 01241 ! 01242 CNAMES(226,1) = 'Turkish moors' 01243 CNAMES(227,1) = 'Mediter. moors \& heath lands' 01244 CNAMES(228,1) = 'Moutain moors \& heath lands' 01245 CNAMES(229,1) = 'Atlantic coast moors \& heath lands' 01246 ! 01247 CNAMES(230,1) = 'Turkish shrubland' 01248 CNAMES(231,1) = 'Mediterranean maquis' 01249 CNAMES(232,1) = 'Moutain maquis' 01250 ! 01251 CNAMES(233,1) = 'Spanish woodland' 01252 CNAMES(234,1) = 'Mediterranean woodland' 01253 CNAMES(235,1) = 'Temperate woodland' 01254 ! 01255 CNAMES(236,1) = 'Sparsely vegetated areas' 01256 CNAMES(237,1) = 'Burnt areas' 01257 CNAMES(238,1) = 'Temperate wetlands' 01258 CNAMES(239,1) = 'Subpolar wetlands' 01259 CNAMES(240,1) = 'Peat bogs' 01260 CNAMES(241,1) = 'Salines and salt marshes' 01261 ! 01262 CNAMES(242,1) = 'Intertidal flats' 01263 CNAMES(243,1) = 'Coastal lagoons' 01264 ! 01265 CNAMES(301,1)='N SCANDINAVIA TUNDRA1' 01266 CNAMES(302,1)='OURAL BF1' 01267 CNAMES(303,1)='CARELIE BF1' 01268 CNAMES(304,1)='NORTH RUSSIAN TAIGA1' 01269 CNAMES(305,1)='NORTH RUSSIAN TAIGA2' 01270 CNAMES(306,1)='CARELIE BF2' 01271 CNAMES(307,1)='RUSSIAN TAIGA3' 01272 CNAMES(308,1)='RUSSIAN BF1' 01273 CNAMES(309,1)='RUSSIAN TAIGA4' 01274 CNAMES(310,1)='S SCANDINAVIA TAIGA1' 01275 CNAMES(311,1)='SOUTH FINLANDIA MF1' 01276 CNAMES(312,1)='SOUTH NORWAY MF1' 01277 CNAMES(313,1)='BALTIC BF1' 01278 CNAMES(314,1)='BALTIC MF1' 01279 CNAMES(315,1)='SOUTH SWEDEN CF1' 01280 CNAMES(316,1)='BALTIC MF2' 01281 CNAMES(317,1)='SOUTH SWEDEN CF2' 01282 CNAMES(318,1)='SOUTH SWEDEN CF3' 01283 CNAMES(319,1)='SOUTH SWEDEN MF1' 01284 CNAMES(320,1)='MOUNTAIN MF1' 01285 CNAMES(321,1)='MOUNTAIN BF1' 01286 CNAMES(322,1)='TEMPERATE BF1' 01287 CNAMES(323,1)='TEMPERATE COMPLEX1' 01288 CNAMES(324,1)='MOUNTAIN CF1' 01289 CNAMES(325,1)='TEMP HERBACEOUS CF1' 01290 CNAMES(326,1)='ATLANTIC COAST BF1' 01291 CNAMES(327,1)='TURKISH CF1' 01292 CNAMES(328,1)='BALKAN CF1' 01293 CNAMES(329,1)='N SPAIN HERBAC MF1' 01294 CNAMES(330,1)='TEMP SW HERBAC CF1' 01295 CNAMES(331,1)='ATLANTIC COMPLEX1' 01296 CNAMES(332,1)='N SPAIN HERBAC MF2' 01297 CNAMES(333,1)='MEDITER COMPLEX1' 01298 CNAMES(334,1)='MEDITER COMPLEX2' 01299 CNAMES(335,1)='MEDITER COMPLEX3' 01300 CNAMES(336,1)='MEDITER COMPLEX4' 01301 CNAMES(337,1)='MEDITER COMPLEX5' 01302 CNAMES(338,1)='BURNT PORT HERBAC CF1' 01303 CNAMES(339,1)='BURNT PORT HERBAC BF1' 01304 CNAMES(340,1)='EGEE COAST COMPLEX1' 01305 CNAMES(341,1)='W MED COAST COMPLEX1' 01306 CNAMES(342,1)='MAGHR HERBACEOUS MF1' 01307 CNAMES(343,1)='ESTREM HERBACEOUS MF1' 01308 01309 !herbaceous / shrub covers 01310 CNAMES(344,1)='POLAR MOUNT TUNDRA1' 01311 CNAMES(345,1)='POLAR MOUNT TUNDRA2' 01312 CNAMES(346,1)='S SCANDINAVIA TUNDRA1' 01313 CNAMES(347,1)='NORTH TUNDRA1' 01314 CNAMES(348,1)='S SCANDINAVIA TUNDRA2' 01315 CNAMES(349,1)='NORTH RUSSIA TUNDRA1' 01316 CNAMES(350,1)='ARAL CONTINENTAL GR1' 01317 CNAMES(351,1)='MOUNTAIN TAIGA MOORS1' 01318 CNAMES(352,1)='SCOTTISH SWAMP MOORS1' 01319 CNAMES(353,1)='ATLANTIC COMPLEX2' 01320 CNAMES(354,1)='ATLANTIC GR1' 01321 CNAMES(355,1)='IR SCOT SWAMP MOORS1' 01322 CNAMES(356,1)='ASIAN SPARSE GR1' 01323 CNAMES(357,1)='AS SPARSE SW COMPLEX1' 01324 CNAMES(358,1)='N CASPIAN DES OS1' 01325 CNAMES(359,1)='ATLAS AS SPARSE COMP1' 01326 CNAMES(360,1)='SPARSE SCO CEN EU GR1' 01327 CNAMES(361,1)='TEMPERATE COMPLEX2' 01328 CNAMES(362,1)='ATLANTIC COMPLEX3' 01329 CNAMES(363,1)='ATLANTIC COMPLEX4' 01330 CNAMES(364,1)='N ATLANTIC PASTURES1' 01331 CNAMES(365,1)='SPARSE SCO CEN EU GR2' 01332 CNAMES(366,1)='SPARSE MOUNT E EU GR1' 01333 CNAMES(367,1)='TUR N CASP CONT GR1' 01334 CNAMES(368,1)='N CASPIAN CONT GR1' 01335 CNAMES(369,1)='IRA N CASP CONT GR1' 01336 CNAMES(370,1)='TUR IRA MOUNT CONT GR1' 01337 CNAMES(371,1)='E CASPIAN DES OS1' 01338 CNAMES(372,1)='N CASPIAN COMPLEX1' 01339 CNAMES(373,1)='IRAN MOUNT CONT GR1' 01340 CNAMES(374,1)='ASIAN SPARSE DES OS1' 01341 CNAMES(375,1)='E CASPIAN DES OS2' 01342 CNAMES(376,1)='N MEDITER COMPLEX1' 01343 CNAMES(377,1)='N MEDITER COMPLEX2' 01344 CNAMES(378,1)='ASIAN MEDIT CONT GR1' 01345 CNAMES(379,1)='SOUTH RUSSIA CONT GR1' 01346 CNAMES(380,1)='BLSEA SPARSE CONT GR1' 01347 CNAMES(381,1)='BLSEA SPARSE CONT GR2' 01348 CNAMES(382,1)='TURK MOUNT CONT GR1' 01349 CNAMES(383,1)='TURKISH COMPLEX1' 01350 CNAMES(384,1)='CAUCASIAN COMPLEX1' 01351 CNAMES(385,1)='N CASPIAN CONT GR2' 01352 CNAMES(386,1)='VOLGA VALLEY CONT GR1' 01353 CNAMES(387,1)='VOLGA VALLEY CONT GR2' 01354 CNAMES(388,1)='W CASPIAN CONT GR1' 01355 CNAMES(389,1)='CAUCASIAN COMPLEX2' 01356 CNAMES(390,1)='CAUCASIAN COMPLEX3' 01357 CNAMES(391,1)='BLSEA SPARSE CONT GR3' 01358 CNAMES(392,1)='CENT MASSIF COMPLEX1' 01359 CNAMES(393,1)='CENT MASSIF COMPLEX2' 01360 CNAMES(394,1)='TURK COAST COMPLEX1' 01361 CNAMES(395,1)='MESOPOTAMIA GR1' 01362 CNAMES(396,1)='TURK CILICIA COMPLEX1' 01363 CNAMES(397,1)='ASIAN COMPLEX1' 01364 CNAMES(398,1)='N MED SPARSE COMPLEX1' 01365 CNAMES(399,1)='MEDITER COMPLEX6' 01366 CNAMES(400,1)='MEDIT SPARSE COMPLEX1' 01367 CNAMES(401,1)='MEDIT SPARSE COMPLEX2' 01368 CNAMES(402,1)='MEDIT SPARSE COMPLEX3' 01369 CNAMES(403,1)='MEDIT SPARSE COMPLEX4' 01370 CNAMES(404,1)='N MED HERBACEOUS CF1' 01371 CNAMES(405,1)='ESTREMADURA GR1' 01372 CNAMES(406,1)='TUNISIA COMPLEX1' 01373 CNAMES(407,1)='TUNISIA HERBACEOUS1' 01374 CNAMES(408,1)='ALGERIA HERBACEOUS1' 01375 CNAMES(409,1)='DESERTIC HERBACEOUS1' 01376 CNAMES(410,1)='DESERTIC HERBACEOUS2' 01377 CNAMES(411,1)='SPAIN DES COMPLEX1' 01378 CNAMES(412,1)='MED SPARSE COMPLEX5' 01379 CNAMES(413,1)='MED SPARSE COMPLEX6' 01380 CNAMES(414,1)='MED SPARSE COMPLEX7' 01381 CNAMES(415,1)='ME SPARSE DES COMPL1' 01382 CNAMES(416,1)='NORTH ARABIA GR1' 01383 CNAMES(417,1)='N ARABIA DES COMPLEX1' 01384 CNAMES(418,1)='N ARABIA DESERTIC GR1' 01385 CNAMES(419,1)='MOROCCO HERBACEOUS1' 01386 CNAMES(420,1)='S MED COAST HERBAC1' 01387 CNAMES(421,1)='W MEDITER WOODLAND1' 01388 CNAMES(422,1)='S MED COAST HERBAC2' 01389 CNAMES(423,1)='MESOP DES HERBACEOUS1' 01390 CNAMES(424,1)='MAG COAST DES HERBAC1' 01391 CNAMES(425,1)='TU AR SPARSE HERBAC1' 01392 CNAMES(426,1)='MEDIT SPARSE COMPLEX8' 01393 CNAMES(427,1)='MED SPARSE HERBAC1' 01394 CNAMES(428,1)='MEDIT SPARSE COMPLEX9' 01395 CNAMES(429,1)='SPAIN SPARSE COMPLEX1' 01396 CNAMES(430,1)='N MED SPARSE COMPLEX2' 01397 CNAMES(431,1)='N MED SPARSE COMPLEX3' 01398 CNAMES(432,1)='MAGHRE DES HERBAC1' 01399 CNAMES(433,1)='MAGHRE DES HERBAC2' 01400 CNAMES(434,1)='MAGHRE DES HERBAC3' 01401 CNAMES(435,1)='N ARAB DES HERBAC1' 01402 CNAMES(436,1)='MESOPO DES HERBAC2' 01403 CNAMES(437,1)='TOURAN DES HERBAC1' 01404 CNAMES(438,1)='MESOPO DES HERBAC2' 01405 CNAMES(439,1)='TOURAN DES HERBAC2' 01406 CNAMES(440,1)='NEW ZEMBLE HERBAC1' 01407 CNAMES(441,1)='NEW ZEMBLE HERBAC2' 01408 01409 !crops 01410 CNAMES(442,1)='TRANS SIBERIAN CROPS1' 01411 CNAMES(443,1)='PO PLAIN CROPS1' 01412 CNAMES(444,1)='PO PLAIN CROPS2' 01413 CNAMES(445,1)='SPANISH FRENCH CROPS1' 01414 CNAMES(446,1)='SPANISH FR ITAL CROPS1' 01415 CNAMES(447,1)='DANUBE PLAIN CROPS1' 01416 CNAMES(448,1)='N MED SPARSE COMPLEX4' 01417 CNAMES(449,1)='BALKAN CROPS1' 01418 CNAMES(450,1)='SPAIN FR ITAL CROPS2' 01419 CNAMES(451,1)='ATLANTIC CROPS1' 01420 CNAMES(452,1)='FR MED SPARSE CROPS1' 01421 CNAMES(453,1)='FR MED SPARSE CROPS2' 01422 CNAMES(454,1)='ATL MED SPARSE CROPS1' 01423 CNAMES(455,1)='BENE BLACK SEA CROPS1' 01424 CNAMES(456,1)='FRENCH ITALIAN CROPS1' 01425 CNAMES(457,1)='FR MED SPARSE CROPS3' 01426 CNAMES(458,1)='MEDITER SPARSE CROPS1' 01427 CNAMES(459,1)='ATLANTIC CROPS2' 01428 CNAMES(460,1)='NORTH ATLANTIC CROPS1' 01429 CNAMES(461,1)='SOUTH RUSSIA CROPS1' 01430 CNAMES(462,1)='S RUSSIA BALTIC CROPS1' 01431 CNAMES(463,1)='UKRAINIAN CROPS1' 01432 CNAMES(464,1)='EAST CARPATES CROPS1' 01433 CNAMES(465,1)='E CENT EUROPE CROPS1' 01434 CNAMES(466,1)='W CENT EU SW CROPS1' 01435 CNAMES(467,1)='HUNGARIAN CROPS1' 01436 CNAMES(468,1)='N BLACK SEA CROPS1' 01437 CNAMES(469,1)='HUNG BULG CAUC CROPS1' 01438 CNAMES(470,1)='SOUTH SWEDEN CROPS1' 01439 CNAMES(471,1)='SW RUSSIA CROPS1' 01440 CNAMES(472,1)='SOUTH RUSSIA CROPS1' 01441 CNAMES(473,1)='IRAN N CASPIAN CROPS1' 01442 CNAMES(474,1)='FR TEMP SPARSE CROPS1' 01443 CNAMES(475,1)='BULGARIAN CROPS1' 01444 CNAMES(476,1)='BULGARIAN CROPS2' 01445 CNAMES(477,1)='SP TURK SPARSE CROPS1' 01446 CNAMES(478,1)='FRENCH CENT EU CROPS1' 01447 CNAMES(479,1)='N BLACK SEA CROPS2' 01448 CNAMES(480,1)='BULGARIAN CROPS3' 01449 CNAMES(481,1)='POLE CROPS1' 01450 CNAMES(482,1)='POLE CROPS2' 01451 CNAMES(483,1)='N BLACK SEA CROPS3' 01452 CNAMES(484,1)='CENT EU SPARSE CROPS1' 01453 CNAMES(485,1)='GERMAN CROPS1' 01454 CNAMES(486,1)='BEAUCE CROPS1' 01455 CNAMES(487,1)='DANE CROPS1' 01456 CNAMES(488,1)='DANE CROPS2' 01457 CNAMES(489,1)='NEU ATL SPARSE CROPS1' 01458 CNAMES(490,1)='SYRIAN CROPS1' 01459 CNAMES(491,1)='GERMAN CROPS2' 01460 CNAMES(492,1)='CHANNEL CROPS1' 01461 CNAMES(493,1)='CHANNEL CROPS2' 01462 CNAMES(494,1)='ITALIAN CROPS1' 01463 CNAMES(495,1)='TURKISH CROPS1' 01464 CNAMES(496,1)='N MEDIT SPARSE CROPS1' 01465 CNAMES(497,1)='SPAIN TUR ARAB CROPS1' 01466 CNAMES(498,1)='NORTH SPAIN CROPS1' 01467 CNAMES(499,1)='MOROCCO TUNIS CROPS1' 01468 CNAMES(500,1)='MOROCCO CROPS1' 01469 CNAMES(501,1)='MOROCCO CROPS2' 01470 CNAMES(502,1)='ALGERIAN CROPS1' 01471 CNAMES(503,1)='MOROCCO CROPS3' 01472 CNAMES(504,1)='WEST SPAIN CROPS1' 01473 CNAMES(505,1)='MOROCCO CROPS4' 01474 CNAMES(506,1)='NORTH MEDITER CROPS1' 01475 CNAMES(507,1)='SOUTH SPANISH CROPS1' 01476 CNAMES(508,1)='SICILIAN CROPS1' 01477 CNAMES(509,1)='MAGHREB SPARSE CROPS1' 01478 CNAMES(510,1)='N MEDIT SPARSE CROPS2' 01479 CNAMES(511,1)='N MEDIT SPARSE CROPS3' 01480 CNAMES(512,1)='SP IT WCOAST CROPS1' 01481 CNAMES(513,1)='ESTREMADURA CROPS1' 01482 CNAMES(514,1)='ESTREMADURA CROPS2' 01483 CNAMES(515,1)='SP IT WCOAST CROPS2' 01484 CNAMES(516,1)='ESTREMADURA CROPS3' 01485 CNAMES(517,1)='MEDIT ISLANDS CROPS1' 01486 CNAMES(518,1)='SPAIN W COAST CROPS1' 01487 CNAMES(519,1)='ESTREMADURA CROPS4' 01488 CNAMES(520,1)='MECOAST SPARSE CROPS1' 01489 CNAMES(521,1)='BRITTANY CROPS1' 01490 CNAMES(522,1)='SYRIAN CROPS2' 01491 01492 !irrigated crops 01493 CNAMES(523,1)='NIL VALLEY CROPS1' 01494 CNAMES(524,1)='NIL VALLEY CROPS2' 01495 CNAMES(525,1)='NIL VALLEY CROPS3' 01496 CNAMES(526,1)='NIL VALLEY CROPS4' 01497 CNAMES(527,1)='SPANISH IRR CROPS1' 01498 CNAMES(528,1)='NIL VALLEY CROPS5' 01499 CNAMES(529,1)='EGEE IRR CROPS1' 01500 CNAMES(530,1)='MEDITER IRR CROPS1' 01501 CNAMES(531,1)='S SPAIN IRR CROPS1' 01502 CNAMES(532,1)='NIL VALLEY CROPS6' 01503 01504 !bare land 01505 CNAMES(533,1)='BARE ROCK1' 01506 CNAMES(534,1)='BARE ROCK2' 01507 CNAMES(535,1)='SANDY DESERT1' 01508 CNAMES(536,1)='BARE LAND1' 01509 CNAMES(537,1)='BARE LAND2' 01510 CNAMES(538,1)='BARE LAND3' 01511 CNAMES(539,1)='BARE LAND4' 01512 CNAMES(540,1)='BARE LAND5' 01513 CNAMES(541,1)='BARE LAND6' 01514 CNAMES(542,1)='BARE LAND7' 01515 CNAMES(543,1)='BARE LAND8' 01516 CNAMES(544,1)='BARE LAND9' 01517 CNAMES(545,1)='BARE LAND10' 01518 CNAMES(546,1)='BARE LAND11' 01519 CNAMES(547,1)='BARE LAND12' 01520 CNAMES(548,1)='PERMANENT SNOW1' 01521 01522 !swamp areas and inland waters 01523 CNAMES(549,1)='INLAND WATERS1' 01524 CNAMES(550,1)='UNDEFINED1' 01525 CNAMES(551,1)='INLAND WATERS2' 01526 CNAMES(552,1)='POLAR WETLANDS1' 01527 CNAMES(553,1)='INLAND WATERS3' 01528 CNAMES(554,1)='INLAND WATERS4' 01529 CNAMES(555,1)='INLAND WATERS5' 01530 CNAMES(556,1)='INLAND WATERS6' 01531 CNAMES(557,1)='POLAR WETLANDS2' 01532 CNAMES(558,1)='SUBPOLAR WETLANDS1' 01533 CNAMES(559,1)='SUBPOLAR WETLANDS2' 01534 CNAMES(560,1)='SUBPOLAR WETLANDS3' 01535 01536 !urban 01537 CNAMES(561,1)='TEMPERATE SUBURBAN1' 01538 CNAMES(562,1)='TEMPERATE SUBURBAN2' 01539 CNAMES(563,1)='TEMPERATE SUBURBAN3' 01540 CNAMES(564,1)='TEMPERATE SUBURBAN4' 01541 CNAMES(565,1)='TEMPERATE SUBURBAN5' 01542 CNAMES(566,1)='COLD SUBURBAN1' 01543 CNAMES(567,1)='WARM SUBURBAN1' 01544 CNAMES(568,1)='WARM SUBURBAN2' 01545 CNAMES(569,1)='TEMPERATE SUBURBAN6' 01546 CNAMES(570,1)='TEMPERATE SUBURBAN7' 01547 CNAMES(571,1)='WARM SUBURBAN3' 01548 01549 !added classes of permanent crops 01550 CNAMES(572,1)='SPANISH VINEYARDS1' 01551 CNAMES(573,1)='LANGUEDOC VINEYARDS1' 01552 01553 !------------------------------------------------------------------------------- 01554 ! 01555 01556 CNAMES(1,2) = "Mers et oc\'eans" 01557 CNAMES(2,2) = "Eaux int\'erieures" 01558 CNAMES(3,2) = "rivi\`eres" 01559 CNAMES(4,2) = "Sol nu" 01560 CNAMES(5,2) = "Rochers" 01561 CNAMES(6,2) = "Neiges perp\'etuelles" 01562 CNAMES(7,2) = "Ville" 01563 01564 CNAMES(8,2) = "\^iles non-d\'efinies (tropicales)" 01565 CNAMES(9,2) = "\^iles non-d\'efinies (subpolaires)" 01566 ! 01567 CNAMES(10,2) = "For\^et persistante de Patagonie " 01568 CNAMES(11,2) = 'Taiga' 01569 CNAMES(12,2) = "For\^et de conif\`eres d'Extr\^eme-Orient " 01570 CNAMES(13,2) = "For\^et de conif\`eres continentale am\'ericaine" 01571 CNAMES(14,2) = "For\^et de conif\`eres subtropicale am\'ericaine" 01572 CNAMES(15,2) = '"Rain forest"' 01573 01574 CNAMES(16,2) = "For\^et \'equatoriale africaine" 01575 CNAMES(17,2) = "For\^et de Madagascar (aliz\'es)" 01576 CNAMES(18,2) = "For\^et \'equatoriale d'Oc\'eanie" 01577 CNAMES(19,2) = "For\^et persistante de Mousson" 01578 CNAMES(20,2) = "For\^et tropicale humide d'Oc\'eanie" 01579 CNAMES(21,2) = "For\^et amazonienne" 01580 CNAMES(22,2) = "For\^et primaire de Tasmanie" 01581 CNAMES(23,2) = "For\^et pan-am\'ericaine" 01582 01583 CNAMES(24,2) = "Taiga sib\'erienne caduque" 01584 01585 CNAMES(25,2) = "For\^et sub-amazonienne" 01586 CNAMES(26,2) = "For\^et caduque am\'ericaine" 01587 CNAMES(27,2) = "For\^et du Yucatan" 01588 CNAMES(28,2) = "For\^et sub-tropicale br\'esilienne" 01589 01590 CNAMES(29,2) = "For\^et m\'elang\'ee tropicale s\`eche d'Afrique" 01591 CNAMES(30,2) = "For\^et m\'elang\'ee caduque de Patagonie" 01592 CNAMES(31,2) = "For\^et m\'elang\'ee sub-polaire" 01593 CNAMES(32,2) = "For\^et m\'elang\'ee humide sub-tropicale" 01594 CNAMES(33,2) = "For\^et m\'elang\'ee continentale" 01595 01596 CNAMES(34,2) = "Prairie bois\'ee sah\'elienne" 01597 CNAMES(35,2) = "Prairie bois\'ee d'Afrique m\'eridionale" 01598 CNAMES(36,2) = "Prairie bois\'ee \`a feuilles persistante" 01599 CNAMES(37,2) = "Prairie bois\'ee \'equatoriale d'Oc\'eanie" 01600 CNAMES(38,2) = "Prairie bois\'ee de Mousson" 01601 CNAMES(39,2) = "Cerradao" 01602 CNAMES(40,2) = "Cerradao d'Argentine" 01603 CNAMES(41,2) = "Prairie bois\'ee polaire" 01604 CNAMES(42,2) = "Prairie bois\'ee continentale" 01605 CNAMES(43,2) = "Prairie bois\'ee d'Extr\^eme-Orient" 01606 CNAMES(44,2) = "Prairie bois\'ee semi-aride" 01607 CNAMES(45,2) = "Prairie bois\'ee des Rocheuses" 01608 CNAMES(46,2) = "Prairie bois\'ee de Patagonie" 01609 CNAMES(47,2) = "Prairie bois\'ee des Etats du Sud" 01610 01611 CNAMES(48,2) = "Savane arbor\'ee sub-saharienne" 01612 CNAMES(49,2) = "Savane arbor\'ee sah\'elienne" 01613 CNAMES(50,2) = "Prairie arbor\'ee \'equatoriale africaine" 01614 CNAMES(51,2) = "Prairie arbor\'ee subtropicale africaine" 01615 CNAMES(52,2) = "Prairie arbor\'ee nord-australienne" 01616 CNAMES(53,2) = "Savane arbor\'ee australienne aride" 01617 CNAMES(54,2) = "Prairie arbor\'ee n\'eo-z\'elandaise" 01618 CNAMES(55,2) = "Prairie arbor\'ee d'Extr\^eme-Orient" 01619 CNAMES(56,2) = "Cerrado" 01620 CNAMES(57,2) = "Cerrado c\^otier" 01621 CNAMES(58,2) = "Sertao" 01622 CNAMES(59,2) = "Prairie arbor\'ee polaire" 01623 CNAMES(60,2) = "Prairie arbor\'ee continentale" 01624 CNAMES(61,2) = "Prairie arbor\'ee de Mousson" 01625 CNAMES(62,2) = "Prairie arbor\'ee pan-am\'ericaine" 01626 CNAMES(63,2) = "Prairie arbor\'ee des Etats du sud" 01627 CNAMES(64,2) = "Prairie arbor\'ee de la cordill\`ere des Andes" 01628 CNAMES(65,2) = "Prairie arbor\'ee Amazonienne" 01629 CNAMES(66,2) = "Prairie arbor\'ee du Maghreb" 01630 01631 CNAMES(67,2) = "Savane arbustive d'Ethiopie" 01632 CNAMES(68,2) = "Savane arbustive sah\'elienne" 01633 CNAMES(69,2) = '"Bush" africain' 01634 CNAMES(70,2) = '"Bush" australien' 01635 CNAMES(71,2) = "Savane arbustive semi-d\'esertique" 01636 CNAMES(72,2) = "Savane arbustive dense c\^oti\`ere d'Oc\'eanie" 01637 CNAMES(73,2) = '"Bush" dense sud-australien' 01638 CNAMES(74,2) = "Tundra arbustive dense" 01639 CNAMES(75,2) = "Steppe asiatique arbustive dense" 01640 CNAMES(76,2) = "Prairie arbustive de Mousson" 01641 CNAMES(77,2) = "Tundra dense am\'ericaine" 01642 CNAMES(78,2) = "Prairie arbustive d'altitude (Rocheuses)" 01643 CNAMES(79,2) = "Prairie arbustive du Maghreb" 01644 01645 CNAMES(80,2) = "Savane \'eparse semi-d\'esertique" 01646 CNAMES(81,2) = "Savane Sah\'elienne" 01647 CNAMES(82,2) = "Bush \'epars" 01648 CNAMES(83,2) = "Pampa" 01649 CNAMES(84,2) = "Prairie \'eparse de Mousson" 01650 CNAMES(85,2) = "Tundra polaire" 01651 CNAMES(86,2) = "Tundra sub-polaire" 01652 CNAMES(87,2) = "Prairie d'altitude (Rocheuses)" 01653 01654 CNAMES(88,2) = "Prairie tropicale africaine" 01655 CNAMES(89,2) = "Prairie africaine semi-aride" 01656 CNAMES(90,2) = "Prairie d'Afrique m\'eridionale" 01657 CNAMES(91,2) = "Prairie \'equatoriale c\^oti\`ere" 01658 CNAMES(92,2) = "Prairie semi-d\'esertique" 01659 CNAMES(93,2) = "Prairie n\'eo-z\'elandaise" 01660 CNAMES(94,2) = "Prairie de Mousson" 01661 CNAMES(95,2) = "Prairie v\'en\'ezu\'elienne" 01662 CNAMES(96,2) = "Prairie sub-amazonienne" 01663 CNAMES(97,2) = "Pampa et prairie" 01664 CNAMES(98,2) = "Prairie de Patagonie" 01665 CNAMES(99,2) = "Steppes" 01666 CNAMES(100,2) = "Prairie polaire" 01667 CNAMES(101,2) = "Prairie d'Extr\^eme-Orient" 01668 CNAMES(102,2) = "Prairie indienne" 01669 CNAMES(103,2) = "Prairie d'altitude (Rocheuses)" 01670 CNAMES(104,2) = "Prairie chinoise" 01671 01672 CNAMES(105,2) = "Cultures d\'esertique et le long du Nil" 01673 CNAMES(106,2) = "Cultures sah\'elienne" 01674 CNAMES(107,2) = "Cultures tropicales" 01675 CNAMES(108,2) = "Cultures c\^oti\`eres africaines" 01676 CNAMES(109,2) = "Cultures sud-australiennes" 01677 CNAMES(110,2) = "Cultures pan-am\'ericaines" 01678 CNAMES(111,2) = "Cultures de la plaine du Parana" 01679 CNAMES(112,2) = "Zones cultiv\'ees sub-amazoniennes" 01680 CNAMES(113,2) = "Zones cultiv\'ees trans-siberiennes" 01681 CNAMES(114,2) = "Zones cultiv\'ees de Mandchourie" 01682 CNAMES(115,2) = "Zones cultiv\'ees de Chine" 01683 CNAMES(116,2) = "Zones cultiv\'ees sub-polaires" 01684 CNAMES(117,2) = "Zones cultiv\'ees sub-himalayennes" 01685 CNAMES(118,2) = "Cultures des Grandes Plaines" 01686 CNAMES(119,2) = "Cultures des Etats du Sud" 01687 CNAMES(120,2) = "Cultures californiennes" 01688 CNAMES(121,2) = "Zones cultiv\'ees du Maghreb" 01689 CNAMES(122,2) = "Zones cultiv\'ees d'Afrique du Sud" 01690 01691 CNAMES(123,2) = "Tundra \'eparse" 01692 01693 CNAMES(124,2) = "Marais tropicaux et sub-tropicaux" 01694 CNAMES(125,2) = "Marais polaires et sub-polaires" 01695 ! 01696 CNAMES(151,2) = "Urbain dense" 01697 CNAMES(152,2) = "Suburbain m\'editerran\'een" 01698 CNAMES(153,2) = "Suburbain temp\'er\'e" 01699 CNAMES(154,2) = "Suburbain froid" 01700 CNAMES(155,2) = "Zones industrielles et commerciales" 01701 CNAMES(156,2) = "R\'eseaux routiers et ferroviaires" 01702 CNAMES(157,2) = "Zones portuaires" 01703 CNAMES(158,2) = "A\'eroports" 01704 CNAMES(159,2) = "Extraction de mat\'eriaux, sites de construction" 01705 CNAMES(160,2) = "Parcs urbains" 01706 CNAMES(161,2) = "Equipements sportifs et de loisirs" 01707 ! 01708 CNAMES(162,2) = "Cultures espagnoles" 01709 CNAMES(163,2) = "Cultures d\'Estremadure" 01710 CNAMES(164,2) = "Cultures m\'editerran\'eennes" 01711 CNAMES(165,2) = "Cultures de la c\^ote atlantique" 01712 CNAMES(166,2) = "Cultures temp\'er\'ees" 01713 CNAMES(167,2) = "Cultures de la plaine du P\^o" 01714 CNAMES(168,2) = "Cultures temp\'er\'ees chaudes" 01715 CNAMES(169,2) = "Cultures ukrainiennes" 01716 CNAMES(170,2) = "Cultures subpolaires" 01717 CNAMES(171,2) = "Cultures montagneuses" 01718 CNAMES(172,2) = "Cultures d'Europe Centrale" 01719 CNAMES(173,2) = "Cultures turques" 01720 ! 01721 CNAMES(174,2) = "Cultures m\'editerran\'eennes irrigu\'ees" 01722 CNAMES(175,2) = "Cultures irrigu\'ees" 01723 CNAMES(176,2) = "Rizi\`eres" 01724 ! 01725 CNAMES(177,2) = "Vignobles m\'editerran\'eens" 01726 CNAMES(178,2) = "Vignobles temp\'er\'es" 01727 CNAMES(179,2) = "Arbres fruitiers m\'editerran\'eens" 01728 CNAMES(180,2) = "Arbres fruitiers temp\'er\'es" 01729 CNAMES(181,2) = "Oliveraies" 01730 ! 01731 CNAMES(182,2) = "P\^atures temp\'er\'ees" 01732 CNAMES(183,2) = "P\^atures c\^oti\`eres atlantiques" 01733 CNAMES(184,2) = "P\^atures d'Europe Centrale et orientale" 01734 CNAMES(185,2) = "P\^atures ukrainiennes" 01735 CNAMES(186,2) = "P\^atures subpolaires" 01736 ! 01737 CNAMES(187,2) = "Cultures complexes espagnoles" 01738 CNAMES(188,2) = "Cultures complexes m\'editerran\'eennes" 01739 CNAMES(189,2) = "Cultures complexes temp\'er\'ees" 01740 CNAMES(190,2) = "Cultures complexes françaises" 01741 CNAMES(191,2) = "Cultures complexes balkaniques" 01742 ! 01743 CNAMES(192,2) = "Cultures bois\'ees m\'editerran\'eennes" 01744 CNAMES(193,2) = "Cultures bois\'ees" 01745 CNAMES(194,2) = "Cultures bois\'ees françaises" 01746 CNAMES(195,2) = "Cultures bois\'ees m\'editerran\'eennes" 01747 CNAMES(196,2) = "Cultures bois\'ees espagnoles" 01748 CNAMES(197,2) = "Cultures bois\'ees des pays baltes" 01749 ! 01750 CNAMES(198,2) = "Zones agro-foresti\`eres" 01751 ! 01752 CNAMES(199,2) = "For\^et de feuillus espagnole" 01753 CNAMES(200,2) = "For\^et de feuillus d\'Estremadure" 01754 CNAMES(201,2) = "For\^et de feuillus m\'editerran\'eennes" 01755 CNAMES(202,2) = "For\^et de feuillus de la c\^ote atlantique" 01756 CNAMES(203,2) = "For\^et de feuillus temp\'er\'ee" 01757 CNAMES(204,2) = "For\^et de feuillus montagneuses" 01758 CNAMES(205,2) = "For\^et de feuillus balkanique" 01759 CNAMES(206,2) = "For\^et de feuillus balkanique" 01760 CNAMES(207,2) = "For\^et de feuillus de la mer Noire" 01761 ! 01762 CNAMES(208,2) = "Pins m\'editerran\'eens" 01763 CNAMES(209,2) = "For\^et des Landes" 01764 CNAMES(210,2) = "For\^et de conif\`eres montagneuse" 01765 CNAMES(211,2) = "For\^et de conif\`eres temp\'er\'ee" 01766 CNAMES(212,2) = "Taiga subpolaire" 01767 CNAMES(213,2) = "Taiga russe" 01768 CNAMES(214,2) = "For\^et de conif\`eres turque" 01769 ! 01770 CNAMES(215,2) = "For\^et mixte m\'editerran\'eenne" 01771 CNAMES(216,2) = "For\^et mixte française \& c\^oti\`ere atlantique" 01772 CNAMES(217,2) = "For\^et mixte subpolaire" 01773 CNAMES(218,2) = "For\^et mixte montagneuses" 01774 CNAMES(219,2) = "For\^et mixte d'Europe orientale" 01775 ! 01776 CNAMES(220,2) = "Prairie m\'editerran\'eenne" 01777 CNAMES(221,2) = "Prairie c\^oti\`ere atlantique" 01778 CNAMES(222,2) = "Prairie balkanique" 01779 CNAMES(223,2) = "Prairie d\'Estremadure" 01780 CNAMES(224,2) = "Prairie subpolaire" 01781 CNAMES(225,2) = "Tundra" 01782 ! 01783 CNAMES(226,2) = "Landes turques" 01784 CNAMES(227,2) = "Landes et broussailles m\'editerran\'eennes" 01785 CNAMES(228,2) = "Landes et broussailles montagneuses" 01786 CNAMES(229,2) = "Landes et broussailles c\^oti\`eres atlantiques" 01787 ! 01788 CNAMES(230,2) = "V\'eg\'etation arbustive turque" 01789 CNAMES(231,2) = "Maquis m\'editerran\'een" 01790 CNAMES(232,2) = "Maquis montagneux" 01791 ! 01792 CNAMES(233,2) = "Zones bois\'ees espagnoles" 01793 CNAMES(234,2) = "Zones bois\'ees m\'editerran\'eennes" 01794 CNAMES(235,2) = "Zones bois\'ees temp\'er\'ees" 01795 ! 01796 CNAMES(236,2) = "V\'eg\'etation clairsem\'ee" 01797 CNAMES(237,2) = "Zones br\^ul\'ees" 01798 CNAMES(238,2) = "Zones humides temp\'er\'ees" 01799 CNAMES(239,2) = "Zones humides subpolaires" 01800 CNAMES(240,2) = "Tourbi\`eres" 01801 CNAMES(241,2) = "Marais salants" 01802 01803 ! 01804 CNAMES(242,2) = "Zones intertidales" 01805 CNAMES(243,2) = "Lagunes littorales" 01806 ! 01807 CNAMES(301,2)='N SCANDINAVIA TUNDRA1' 01808 CNAMES(302,2)='OURAL BF1' 01809 CNAMES(303,2)='CARELIE BF1' 01810 CNAMES(304,2)='NORTH RUSSIAN TAIGA1' 01811 CNAMES(305,2)='NORTH RUSSIAN TAIGA2' 01812 CNAMES(306,2)='CARELIE BF2' 01813 CNAMES(307,2)='RUSSIAN TAIGA3' 01814 CNAMES(308,2)='RUSSIAN BF1' 01815 CNAMES(309,2)='RUSSIAN TAIGA4' 01816 CNAMES(310,2)='S SCANDINAVIA TAIGA1' 01817 CNAMES(311,2)='SOUTH FINLANDIA MF1' 01818 CNAMES(312,2)='SOUTH NORWAY MF1' 01819 CNAMES(313,2)='BALTIC BF1' 01820 CNAMES(314,2)='BALTIC MF1' 01821 CNAMES(315,2)='SOUTH SWEDEN CF1' 01822 CNAMES(316,2)='BALTIC MF2' 01823 CNAMES(317,2)='SOUTH SWEDEN CF2' 01824 CNAMES(318,2)='SOUTH SWEDEN CF3' 01825 CNAMES(319,2)='SOUTH SWEDEN MF1' 01826 CNAMES(320,2)='MOUNTAIN MF1' 01827 CNAMES(321,2)='MOUNTAIN BF1' 01828 CNAMES(322,2)='TEMPERATE BF1' 01829 CNAMES(323,2)='TEMPERATE COMPLEX1' 01830 CNAMES(324,2)='MOUNTAIN CF1' 01831 CNAMES(325,2)='TEMP HERBACEOUS CF1' 01832 CNAMES(326,2)='ATLANTIC COAST BF1' 01833 CNAMES(327,2)='TURKISH CF1' 01834 CNAMES(328,2)='BALKAN CF1' 01835 CNAMES(329,2)='N SPAIN HERBAC MF1' 01836 CNAMES(330,2)='TEMP SW HERBAC CF1' 01837 CNAMES(331,2)='ATLANTIC COMPLEX1' 01838 CNAMES(332,2)='N SPAIN HERBAC MF2' 01839 CNAMES(333,2)='MEDITER COMPLEX1' 01840 CNAMES(334,2)='MEDITER COMPLEX2' 01841 CNAMES(335,2)='MEDITER COMPLEX3' 01842 CNAMES(336,2)='MEDITER COMPLEX4' 01843 CNAMES(337,2)='MEDITER COMPLEX5' 01844 CNAMES(338,2)='BURNT PORT HERBAC CF1' 01845 CNAMES(339,2)='BURNT PORT HERBAC BF1' 01846 CNAMES(340,2)='EGEE COAST COMPLEX1' 01847 CNAMES(341,2)='W MED COAST COMPLEX1' 01848 CNAMES(342,2)='MAGHR HERBACEOUS MF1' 01849 CNAMES(343,2)='ESTREM HERBACEOUS MF1' 01850 01851 !herbaceous / shrub covers 01852 CNAMES(344,2)='POLAR MOUNT TUNDRA1' 01853 CNAMES(345,2)='POLAR MOUNT TUNDRA2' 01854 CNAMES(346,2)='S SCANDINAVIA TUNDRA1' 01855 CNAMES(347,2)='NORTH TUNDRA1' 01856 CNAMES(348,2)='S SCANDINAVIA TUNDRA2' 01857 CNAMES(349,2)='NORTH RUSSIA TUNDRA1' 01858 CNAMES(350,2)='ARAL CONTINENTAL GR1' 01859 CNAMES(351,2)='MOUNTAIN TAIGA MOORS1' 01860 CNAMES(352,2)='SCOTTISH SWAMP MOORS1' 01861 CNAMES(353,2)='ATLANTIC COMPLEX2' 01862 CNAMES(354,2)='ATLANTIC GR1' 01863 CNAMES(355,2)='IR SCOT SWAMP MOORS1' 01864 CNAMES(356,2)='ASIAN SPARSE GR1' 01865 CNAMES(357,2)='AS SPARSE SW COMPLEX1' 01866 CNAMES(358,2)='N CASPIAN DES OS1' 01867 CNAMES(359,2)='ATLAS AS SPARSE COMP1' 01868 CNAMES(360,2)='SPARSE SCO CEN EU GR1' 01869 CNAMES(361,2)='TEMPERATE COMPLEX2' 01870 CNAMES(362,2)='ATLANTIC COMPLEX3' 01871 CNAMES(363,2)='ATLANTIC COMPLEX4' 01872 CNAMES(364,2)='N ATLANTIC PASTURES1' 01873 CNAMES(365,2)='SPARSE SCO CEN EU GR2' 01874 CNAMES(366,2)='SPARSE MOUNT E EU GR1' 01875 CNAMES(367,2)='TUR N CASP CONT GR1' 01876 CNAMES(368,2)='N CASPIAN CONT GR1' 01877 CNAMES(369,2)='IRA N CASP CONT GR1' 01878 CNAMES(370,2)='TUR IRA MOUNT CONT GR1' 01879 CNAMES(371,2)='E CASPIAN DES OS1' 01880 CNAMES(372,2)='N CASPIAN COMPLEX1' 01881 CNAMES(373,2)='IRAN MOUNT CONT GR1' 01882 CNAMES(374,2)='ASIAN SPARSE DES OS1' 01883 CNAMES(375,2)='E CASPIAN DES OS2' 01884 CNAMES(376,2)='N MEDITER COMPLEX1' 01885 CNAMES(377,2)='N MEDITER COMPLEX2' 01886 CNAMES(378,2)='ASIAN MEDIT CONT GR1' 01887 CNAMES(379,2)='SOUTH RUSSIA CONT GR1' 01888 CNAMES(380,2)='BLSEA SPARSE CONT GR1' 01889 CNAMES(381,2)='BLSEA SPARSE CONT GR2' 01890 CNAMES(382,2)='TURK MOUNT CONT GR1' 01891 CNAMES(383,2)='TURKISH COMPLEX1' 01892 CNAMES(384,2)='CAUCASIAN COMPLEX1' 01893 CNAMES(385,2)='N CASPIAN CONT GR2' 01894 CNAMES(386,2)='VOLGA VALLEY CONT GR1' 01895 CNAMES(387,2)='VOLGA VALLEY CONT GR2' 01896 CNAMES(388,2)='W CASPIAN CONT GR1' 01897 CNAMES(389,2)='CAUCASIAN COMPLEX2' 01898 CNAMES(390,2)='CAUCASIAN COMPLEX3' 01899 CNAMES(391,2)='BLSEA SPARSE CONT GR3' 01900 CNAMES(392,2)='CENT MASSIF COMPLEX1' 01901 CNAMES(393,2)='CENT MASSIF COMPLEX2' 01902 CNAMES(394,2)='TURK COAST COMPLEX1' 01903 CNAMES(395,2)='MESOPOTAMIA GR1' 01904 CNAMES(396,2)='TURK CILICIA COMPLEX1' 01905 CNAMES(397,2)='ASIAN COMPLEX1' 01906 CNAMES(398,2)='N MED SPARSE COMPLEX1' 01907 CNAMES(399,2)='MEDITER COMPLEX6' 01908 CNAMES(400,2)='MEDIT SPARSE COMPLEX1' 01909 CNAMES(401,2)='MEDIT SPARSE COMPLEX2' 01910 CNAMES(402,2)='MEDIT SPARSE COMPLEX3' 01911 CNAMES(403,2)='MEDIT SPARSE COMPLEX4' 01912 CNAMES(404,2)='N MED HERBACEOUS CF1' 01913 CNAMES(405,2)='ESTREMADURA GR1' 01914 CNAMES(406,2)='TUNISIA COMPLEX1' 01915 CNAMES(407,2)='TUNISIA HERBACEOUS1' 01916 CNAMES(408,2)='ALGERIA HERBACEOUS1' 01917 CNAMES(409,2)='DESERTIC HERBACEOUS1' 01918 CNAMES(410,2)='DESERTIC HERBACEOUS2' 01919 CNAMES(411,2)='SPAIN DES COMPLEX1' 01920 CNAMES(412,2)='MED SPARSE COMPLEX5' 01921 CNAMES(413,2)='MED SPARSE COMPLEX6' 01922 CNAMES(414,2)='MED SPARSE COMPLEX7' 01923 CNAMES(415,2)='ME SPARSE DES COMPL1' 01924 CNAMES(416,2)='NORTH ARABIA GR1' 01925 CNAMES(417,2)='N ARABIA DES COMPLEX1' 01926 CNAMES(418,2)='N ARABIA DESERTIC GR1' 01927 CNAMES(419,2)='MOROCCO HERBACEOUS1' 01928 CNAMES(420,2)='S MED COAST HERBAC1' 01929 CNAMES(421,2)='W MEDITER WOODLAND1' 01930 CNAMES(422,2)='S MED COAST HERBAC2' 01931 CNAMES(423,2)='MESOP DES HERBACEOUS1' 01932 CNAMES(424,2)='MAG COAST DES HERBAC1' 01933 CNAMES(425,2)='TU AR SPARSE HERBAC1' 01934 CNAMES(426,2)='MEDIT SPARSE COMPLEX8' 01935 CNAMES(427,2)='MED SPARSE HERBAC1' 01936 CNAMES(428,2)='MEDIT SPARSE COMPLEX9' 01937 CNAMES(429,2)='SPAIN SPARSE COMPLEX1' 01938 CNAMES(430,2)='N MED SPARSE COMPLEX2' 01939 CNAMES(431,2)='N MED SPARSE COMPLEX3' 01940 CNAMES(432,2)='MAGHRE DES HERBAC1' 01941 CNAMES(433,2)='MAGHRE DES HERBAC2' 01942 CNAMES(434,2)='MAGHRE DES HERBAC3' 01943 CNAMES(435,2)='N ARAB DES HERBAC1' 01944 CNAMES(436,2)='MESOPO DES HERBAC2' 01945 CNAMES(437,2)='TOURAN DES HERBAC1' 01946 CNAMES(438,2)='MESOPO DES HERBAC2' 01947 CNAMES(439,2)='TOURAN DES HERBAC2' 01948 CNAMES(440,2)='NEW ZEMBLE HERBAC1' 01949 CNAMES(441,2)='NEW ZEMBLE HERBAC2' 01950 01951 !crops 01952 CNAMES(442,2)='TRANS SIBERIAN CROPS1' 01953 CNAMES(443,2)='PO PLAIN CROPS1' 01954 CNAMES(444,2)='PO PLAIN CROPS2' 01955 CNAMES(445,2)='SPANISH FRENCH CROPS1' 01956 CNAMES(446,2)='SPANISH FR ITAL CROPS1' 01957 CNAMES(447,2)='DANUBE PLAIN CROPS1' 01958 CNAMES(448,2)='N MED SPARSE COMPLEX4' 01959 CNAMES(449,2)='BALKAN CROPS1' 01960 CNAMES(450,2)='SPAIN FR ITAL CROPS2' 01961 CNAMES(451,2)='ATLANTIC CROPS1' 01962 CNAMES(452,2)='FR MED SPARSE CROPS1' 01963 CNAMES(453,2)='FR MED SPARSE CROPS2' 01964 CNAMES(454,2)='ATL MED SPARSE CROPS1' 01965 CNAMES(455,2)='BENE BLACK SEA CROPS1' 01966 CNAMES(456,2)='FRENCH ITALIAN CROPS1' 01967 CNAMES(457,2)='FR MED SPARSE CROPS3' 01968 CNAMES(458,2)='MEDITER SPARSE CROPS1' 01969 CNAMES(459,2)='ATLANTIC CROPS2' 01970 CNAMES(460,2)='NORTH ATLANTIC CROPS1' 01971 CNAMES(461,2)='SOUTH RUSSIA CROPS1' 01972 CNAMES(462,2)='S RUSSIA BALTIC CROPS1' 01973 CNAMES(463,2)='UKRAINIAN CROPS1' 01974 CNAMES(464,2)='EAST CARPATES CROPS1' 01975 CNAMES(465,2)='E CENT EUROPE CROPS1' 01976 CNAMES(466,2)='W CENT EU SW CROPS1' 01977 CNAMES(467,2)='HUNGARIAN CROPS1' 01978 CNAMES(468,2)='N BLACK SEA CROPS1' 01979 CNAMES(469,2)='HUNG BULG CAUC CROPS1' 01980 CNAMES(470,2)='SOUTH SWEDEN CROPS1' 01981 CNAMES(471,2)='SW RUSSIA CROPS1' 01982 CNAMES(472,2)='SOUTH RUSSIA CROPS1' 01983 CNAMES(473,2)='IRAN N CASPIAN CROPS1' 01984 CNAMES(474,2)='FR TEMP SPARSE CROPS1' 01985 CNAMES(475,2)='BULGARIAN CROPS1' 01986 CNAMES(476,2)='BULGARIAN CROPS2' 01987 CNAMES(477,2)='SP TURK SPARSE CROPS1' 01988 CNAMES(478,2)='FRENCH CENT EU CROPS1' 01989 CNAMES(479,2)='N BLACK SEA CROPS2' 01990 CNAMES(480,2)='BULGARIAN CROPS3' 01991 CNAMES(481,2)='POLE CROPS1' 01992 CNAMES(482,2)='POLE CROPS2' 01993 CNAMES(483,2)='N BLACK SEA CROPS3' 01994 CNAMES(484,2)='CENT EU SPARSE CROPS1' 01995 CNAMES(485,2)='GERMAN CROPS1' 01996 CNAMES(486,2)='BEAUCE CROPS1' 01997 CNAMES(487,2)='DANE CROPS1' 01998 CNAMES(488,2)='DANE CROPS2' 01999 CNAMES(489,2)='NEU ATL SPARSE CROPS1' 02000 CNAMES(490,2)='SYRIAN CROPS1' 02001 CNAMES(491,2)='GERMAN CROPS2' 02002 CNAMES(492,2)='CHANNEL CROPS1' 02003 CNAMES(493,2)='CHANNEL CROPS2' 02004 CNAMES(494,2)='ITALIAN CROPS1' 02005 CNAMES(495,2)='TURKISH CROPS1' 02006 CNAMES(496,2)='N MEDIT SPARSE CROPS1' 02007 CNAMES(497,2)='SPAIN TUR ARAB CROPS1' 02008 CNAMES(498,2)='NORTH SPAIN CROPS1' 02009 CNAMES(499,2)='MOROCCO TUNIS CROPS1' 02010 CNAMES(500,2)='MOROCCO CROPS1' 02011 CNAMES(501,2)='MOROCCO CROPS2' 02012 CNAMES(502,2)='ALGERIAN CROPS1' 02013 CNAMES(503,2)='MOROCCO CROPS3' 02014 CNAMES(504,2)='WEST SPAIN CROPS1' 02015 CNAMES(505,2)='MOROCCO CROPS4' 02016 CNAMES(506,2)='NORTH MEDITER CROPS1' 02017 CNAMES(507,2)='SOUTH SPANISH CROPS1' 02018 CNAMES(508,2)='SICILIAN CROPS1' 02019 CNAMES(509,2)='MAGHREB SPARSE CROPS1' 02020 CNAMES(510,2)='N MEDIT SPARSE CROPS2' 02021 CNAMES(511,2)='N MEDIT SPARSE CROPS3' 02022 CNAMES(512,2)='SP IT WCOAST CROPS1' 02023 CNAMES(513,2)='ESTREMADURA CROPS1' 02024 CNAMES(514,2)='ESTREMADURA CROPS2' 02025 CNAMES(515,2)='SP IT WCOAST CROPS2' 02026 CNAMES(516,2)='ESTREMADURA CROPS3' 02027 CNAMES(517,2)='MEDIT ISLANDS CROPS1' 02028 CNAMES(518,2)='SPAIN W COAST CROPS1' 02029 CNAMES(519,2)='ESTREMADURA CROPS4' 02030 CNAMES(520,2)='MECOAST SPARSE CROPS1' 02031 CNAMES(521,2)='BRITTANY CROPS1' 02032 CNAMES(522,2)='SYRIAN CROPS2' 02033 02034 !irrigated crops 02035 CNAMES(523,2)='NIL VALLEY CROPS1' 02036 CNAMES(524,2)='NIL VALLEY CROPS2' 02037 CNAMES(525,2)='NIL VALLEY CROPS3' 02038 CNAMES(526,2)='NIL VALLEY CROPS4' 02039 CNAMES(527,2)='SPANISH IRR CROPS1' 02040 CNAMES(528,2)='NIL VALLEY CROPS5' 02041 CNAMES(529,2)='EGEE IRR CROPS1' 02042 CNAMES(530,2)='MEDITER IRR CROPS1' 02043 CNAMES(531,2)='S SPAIN IRR CROPS1' 02044 CNAMES(532,2)='NIL VALLEY CROPS6' 02045 02046 !bare land 02047 CNAMES(533,2)='BARE ROCK1' 02048 CNAMES(534,2)='BARE ROCK2' 02049 CNAMES(535,2)='SANDY DESERT1' 02050 CNAMES(536,2)='BARE LAND1' 02051 CNAMES(537,2)='BARE LAND2' 02052 CNAMES(538,2)='BARE LAND3' 02053 CNAMES(539,2)='BARE LAND4' 02054 CNAMES(540,2)='BARE LAND5' 02055 CNAMES(541,2)='BARE LAND6' 02056 CNAMES(542,2)='BARE LAND7' 02057 CNAMES(543,2)='BARE LAND8' 02058 CNAMES(544,2)='BARE LAND9' 02059 CNAMES(545,2)='BARE LAND10' 02060 CNAMES(546,2)='BARE LAND11' 02061 CNAMES(547,2)='BARE LAND12' 02062 CNAMES(548,2)='PERMANENT SNOW1' 02063 02064 !swamp areas and inland waters 02065 CNAMES(549,2)='INLAND WATERS1' 02066 CNAMES(550,2)='UNDEFINED1' 02067 CNAMES(551,2)='INLAND WATERS2' 02068 CNAMES(552,2)='POLAR WETLANDS1' 02069 CNAMES(553,2)='INLAND WATERS3' 02070 CNAMES(554,2)='INLAND WATERS4' 02071 CNAMES(555,2)='INLAND WATERS5' 02072 CNAMES(556,2)='INLAND WATERS6' 02073 CNAMES(557,2)='POLAR WETLANDS2' 02074 CNAMES(558,2)='SUBPOLAR WETLANDS1' 02075 CNAMES(559,2)='SUBPOLAR WETLANDS2' 02076 CNAMES(560,2)='SUBPOLAR WETLANDS3' 02077 02078 !urban 02079 CNAMES(561,2)='TEMPERATE SUBURBAN1' 02080 CNAMES(562,2)='TEMPERATE SUBURBAN2' 02081 CNAMES(563,2)='TEMPERATE SUBURBAN3' 02082 CNAMES(564,2)='TEMPERATE SUBURBAN4' 02083 CNAMES(565,2)='TEMPERATE SUBURBAN5' 02084 CNAMES(566,2)='COLD SUBURBAN1' 02085 CNAMES(567,2)='WARM SUBURBAN1' 02086 CNAMES(568,2)='WARM SUBURBAN2' 02087 CNAMES(569,2)='TEMPERATE SUBURBAN6' 02088 CNAMES(570,2)='TEMPERATE SUBURBAN7' 02089 CNAMES(571,2)='WARM SUBURBAN3' 02090 02091 !added classes of permanent crops 02092 CNAMES(572,2)='SPANISH VINEYARDS1' 02093 CNAMES(573,2)='LANGUEDOC VINEYARDS1' 02094 02095 02096 IF (.NOT. ALLOCATED(CNAME)) ALLOCATE(CNAME(JPCOVER)) 02097 IF (CLANG=='EN') THEN 02098 DO JCOVER=1,JPCOVER 02099 CNAME(JCOVER) = CNAMES(JCOVER,1) 02100 ENDDO 02101 ELSE 02102 DO JCOVER=1,JPCOVER 02103 CNAME(JCOVER) = CNAMES(JCOVER,2) 02104 ENDDO 02105 END IF 02106 ! 02107 !------------------------------------------------------------------------------- 02108 ! 02109 !* 8. Arrange cover (optional nam_pgd_arrange_cover) 02110 ! ---------------------------------------------- 02111 ! 02112 CALL ARRANGE_COVER 02113 ! 02114 !------------------------------------------------------------------------------- 02115 ! 02116 !* 9. LAI for ecoclimap2: climatological or not 02117 ! ----------------------------------------- 02118 ! 02119 CALL ECOCLIMAP2_LAI 02120 ! 02121 !------------------------------------------------------------------------------- 02122 ! 02123 !* 10. Secondary variables on natural covers 02124 ! ------------------------------------- 02125 ! 02126 CALL INI_DATA_PARAM(XDATA_VEGTYPE, PSURF=XDATA_NATURE, PSURF2=XDATA_GARDEN, PH_TREE=XDATA_H_TREE,PLAI=XDATA_LAI, & 02127 PALBNIR_VEG=XDATA_ALBNIR_VEG, PALBVIS_VEG=XDATA_ALBVIS_VEG, & 02128 PALBUV_VEG=XDATA_ALBUV_VEG, PRSMIN=XDATA_RSMIN, & 02129 PRGL=XDATA_RGL, PCV=XDATA_CV, PGAMMA=XDATA_GAMMA, & 02130 PGMES=XDATA_GMES, PGC=XDATA_GC, PBSLAI=XDATA_BSLAI, & 02131 PSEFOLD=XDATA_SEFOLD, PLAIMIN=XDATA_LAIMIN, PDMAX=XDATA_DMAX, & 02132 PSTRESS=XDATA_STRESS, PF2I=XDATA_F2I, PVEG_OUT=XDATA_VEG, & 02133 PGREEN=XDATA_GREEN, PZ0=XDATA_Z0, PZ0_O_Z0H=XDATA_Z0_O_Z0H, & 02134 PEMIS_ECO=XDATA_EMIS_ECO, PWRMAX_CF=XDATA_WRMAX_CF, & 02135 PROOT_LIN=XDATA_ROOT_LIN, PROOT_EXTINCTION=XDATA_ROOT_EXTINCTION, & 02136 PSOILRC_SO2=XDATA_SOILRC_SO2, PSOILRC_O3=XDATA_SOILRC_O3, PRE25=XDATA_RE25, & 02137 PCE_NITRO=XDATA_CE_NITRO,PCF_NITRO=XDATA_CF_NITRO,PCNA_NITRO=XDATA_CNA_NITRO, & 02138 PGMES_ST=XDATA_GMES_ST, PGC_ST=XDATA_GC_ST, PBSLAI_ST=XDATA_BSLAI_ST, & 02139 PSEFOLD_ST=XDATA_SEFOLD_ST, PDMAX_ST=XDATA_DMAX_ST) 02140 ! 02141 IDC = 1 02142 ! 02143 !$OMP END SINGLE 02144 ! 02145 !------------------------------------------------------------------------------- 02146 ! 02147 !* 10. Takes into account gardens or not in parameters 02148 ! ----------------------------------------------- 02149 ! 02150 CALL UPDATE_DATA_FRAC_n(XDATA_NATURE,XDATA_TOWN,XDATA_GARDEN,LGARDEN, & 02151 XDATA_BLD, XDATA_WALL_O_HOR ) 02152 ! 02153 IF (LHOOK) CALL DR_HOOK('INI_DATA_COVER',1,ZHOOK_HANDLE) 02154 ! 02155 !------------------------------------------------------------------------------ 02156 ! 02157 END SUBROUTINE INI_DATA_COVER
1.8.0
