62 USE modd_data_cover, ONLY : xdata_town, xdata_nature, xdata_sea, xdata_water, &
63 xdata_lai, xdata_vegtype, xdata_h_tree, &
64 xdata_alb_veg_vis, xdata_alb_veg_nir, &
65 xdata_alb_soil_vis, xdata_alb_soil_nir, &
66 xdata_albnir_veg, xdata_albvis_veg, &
67 xdata_albuv_veg, xdata_rsmin, &
68 xdata_rgl, xdata_cv, xdata_gamma, xdata_gmes, &
69 xdata_gc, xdata_bslai, xdata_sefold, xdata_laimin,&
70 xdata_dmax, xdata_stress, xdata_f2i, &
71 xdata_veg, xdata_green, xdata_z0, xdata_z0_o_z0h, &
72 xdata_emis_eco, xdata_wrmax_cf, &
73 xdata_ce_nitro,xdata_cf_nitro,xdata_cna_nitro, &
74 xdata_ground_depth, xdata_root_depth, &
76 xdata_root_extinction, xdata_root_lin, &
77 xdata_soilrc_so2, xdata_soilrc_o3, &
78 xdata_z0_town, xdata_z0h_town, xdata_alb_roof, &
79 xdata_emis_roof, xdata_hc_roof, xdata_tc_roof, &
80 xdata_d_roof, xdata_alb_road, xdata_emis_road, &
81 xdata_hc_road, xdata_tc_road, xdata_d_road, &
82 xdata_alb_wall, xdata_emis_wall, xdata_hc_wall, &
83 xdata_tc_wall, xdata_d_wall, xdata_bld_height, &
84 xdata_wall_o_hor, xdata_bld, xdata_can_hw_ratio, &
85 xdata_garden, xdata_dice, &
86 xdata_h_traffic, xdata_le_traffic, &
87 xdata_h_industry, xdata_le_industry, xdata_re25, &
88 xdata_gmes_st, xdata_bslai_st, xdata_sefold_st, &
89 xdata_gc_st, xdata_dmax_st, tdata_seed, &
90 tdata_reap, xdata_watsup, xdata_irrig, &
91 xdata_lai_all_years, lread_data_cover, &
92 xdata_hc_floor, xdata_tc_floor, xdata_d_floor, &
93 xdata_tcool_target, xdata_theat_target, &
94 xdata_f_waste_can, xdata_eff_heat, xdata_qin, &
95 xdata_qin_frad, xdata_shgc, xdata_u_win, xdata_gr,&
96 xdata_shgc_sh, xdata_floor_height, xdata_inf, &
97 xdata_f_water_cond, xdata_qin_flat, &
98 xdata_hr_target, xdata_v_vent, xdata_cap_sys_heat,&
99 xdata_cap_sys_rat, xdata_t_adp, xdata_m_sys_rat, &
100 xdata_cop_rat, xdata_t_size_max, xdata_t_size_min,&
101 xdata_shade, xdata_natvent, xdata_rough_roof, &
102 xdata_rough_wall, xdata_frac_gr,xdata_residential,&
103 xdata_emis_panel, xdata_alb_panel, &
104 xdata_eff_panel, xdata_frac_panel, &
106 xdata_rglgv, xdata_gammagv, xdata_rsmingv, &
107 xdata_root_extinctiongv, xdata_wrmax_cfgv, &
108 xdata_laigv, xdata_z0litter, xdata_h_veg
111 nvt_tebd, nvt_bone, nvt_trbe, nvt_c3, &
112 nvt_c4, nvt_irr, nvt_gras, nvt_trog, &
113 nvt_park, nvt_trbd, nvt_tebe, nvt_tene, &
114 nvt_bobd, nvt_bond, nvt_bogr, nvt_shrb, &
115 jpcover, ndata_road_layer, &
116 ndata_wall_layer, ndata_roof_layer, &
117 ndata_floor_layer, cnames, nbare_soil, &
118 nrock, nsea, nwater, npermsnow
125 USE modi_read_covers_param
129 USE modi_default_data_cover
131 USE modi_default_lai_eco1_01
132 USE modi_default_lai_eco1_02
133 USE modi_default_lai_eco1_03
134 USE modi_default_lai_eco1_04
135 USE modi_default_lai_eco1_05
136 USE modi_default_lai_eco1_06
137 USE modi_default_lai_eco1_07
138 USE modi_default_lai_eco1_08
139 USE modi_default_lai_eco1_09
140 USE modi_default_lai_eco1_10
141 USE modi_default_lai_eco1_11
142 USE modi_default_lai_eco1_12
143 USE modi_default_lai_eco1_13
144 USE modi_default_lai_eco1_14
145 USE modi_default_lai_eco1_15
146 USE modi_default_lai_eco1_16
147 USE modi_default_lai_eco1_17
148 USE modi_default_lai_eco1_18
149 USE modi_default_lai_eco1_19
151 USE modi_default_alb_soil_eco1
152 USE modi_default_alb_soil_eco2
154 USE modi_default_alb_veg_eco1_01
155 USE modi_default_alb_veg_eco1_02
156 USE modi_default_alb_veg_eco1_03
157 USE modi_default_alb_veg_eco1_04
158 USE modi_default_alb_veg_eco1_05
159 USE modi_default_alb_veg_eco1_06
160 USE modi_default_alb_veg_eco1_07
161 USE modi_default_alb_veg_eco1_08
162 USE modi_default_alb_veg_eco1_09
163 USE modi_default_alb_veg_eco1_10
164 USE modi_default_alb_veg_eco1_11
165 USE modi_default_alb_veg_eco1_12
166 USE modi_default_alb_veg_eco1_13
167 USE modi_default_alb_veg_eco1_14
168 USE modi_default_alb_veg_eco1_15
169 USE modi_default_alb_veg_eco1_16
170 USE modi_default_alb_veg_eco1_17
171 USE modi_default_alb_veg_eco1_18
172 USE modi_default_alb_veg_eco1_19
174 USE modi_arrange_cover
175 USE modi_cover301_573
176 USE modi_ecoclimap2_lai
177 USE modi_ini_data_param
179 USE yomhook
,ONLY : lhook, dr_hook
180 USE parkind1
,ONLY : jprb
194 INTEGER :: jcover, jvegtype
195 INTEGER :: icpt_sea, icpt_water
199 REAL(KIND=JPRB) :: zhook_handle
206 IF (lhook) CALL dr_hook(
'INI_DATA_COVER',0,zhook_handle)
215 ALLOCATE(xdata_town(jpcover))
219 ALLOCATE(xdata_garden(jpcover))
228 ALLOCATE(xdata_nature(jpcover))
237 ALLOCATE(xdata_water(jpcover))
246 ALLOCATE(xdata_sea(jpcover))
285 ALLOCATE(xdata_lai(jpcover,36,nvegtype))
287 xdata_lai(:,:,:) = xundef
290 ALLOCATE(xdata_lai_all_years(jpcover,5*36,nvegtype))
292 xdata_lai_all_years(:,:,:) = xundef
296 ALLOCATE(xdata_vegtype(jpcover,nvegtype))
298 xdata_vegtype(:,:) = 0.
305 ALLOCATE(xdata_h_tree(jpcover,nvegtype))
307 xdata_h_tree(:,:) = xundef
314 ALLOCATE(xdata_ground_depth(jpcover,nvegtype))
316 xdata_ground_depth(:,:) = xundef
323 ALLOCATE(xdata_root_depth(jpcover,nvegtype))
324 xdata_root_depth(:,:) = xundef
327 ALLOCATE(xdata_root_depthgv(jpcover,nvegtype))
328 xdata_root_depthgv(:,:) = xundef
335 ALLOCATE(xdata_dice(jpcover,nvegtype))
337 xdata_dice(:,:) = xundef
344 ALLOCATE(xdata_root_extinction(jpcover,nvegtype))
346 xdata_root_extinction(:,:) = xundef
353 ALLOCATE(xdata_root_lin(jpcover,nvegtype))
355 xdata_root_lin(:,:) = xundef
362 ALLOCATE(xdata_albnir_veg(jpcover,nvegtype))
364 xdata_albnir_veg(:,:) = xundef
371 ALLOCATE(xdata_albvis_veg(jpcover,nvegtype))
373 xdata_albvis_veg(:,:) = xundef
380 ALLOCATE(xdata_albuv_veg(jpcover,nvegtype))
382 xdata_albuv_veg(:,:) = xundef
386 ALLOCATE(xdata_alb_veg_vis(jpcover,36,nvegtype))
388 xdata_alb_veg_vis(:,:,:) = xundef
390 ALLOCATE(xdata_alb_veg_nir(jpcover,36,nvegtype))
392 xdata_alb_veg_nir(:,:,:) = xundef
394 ALLOCATE(xdata_alb_soil_vis(jpcover,36,nvegtype))
396 xdata_alb_soil_vis(:,:,:) = xundef
398 ALLOCATE(xdata_alb_soil_nir(jpcover,36,nvegtype))
400 xdata_alb_soil_nir(:,:,:) = xundef
407 ALLOCATE(xdata_rsmin(jpcover,nvegtype))
409 xdata_rsmin(:,:) = xundef
416 ALLOCATE(xdata_gamma(jpcover,nvegtype))
418 xdata_gamma(:,:) = xundef
425 ALLOCATE(xdata_wrmax_cf(jpcover,nvegtype))
427 xdata_wrmax_cf(:,:) = xundef
434 ALLOCATE(xdata_rgl(jpcover,nvegtype))
436 xdata_rgl(:,:) = xundef
443 ALLOCATE(xdata_cv(jpcover,nvegtype))
445 xdata_cv(:,:) = xundef
452 ALLOCATE(xdata_gmes(jpcover,nvegtype))
454 xdata_gmes(:,:) = xundef
456 ALLOCATE(xdata_gmes_st(jpcover,nvegtype))
458 xdata_gmes_st(:,:) = xundef
465 ALLOCATE(xdata_re25(jpcover,nvegtype))
467 xdata_re25(:,:) = xundef
474 ALLOCATE(xdata_gc(jpcover,nvegtype))
476 xdata_gc(:,:) = xundef
478 ALLOCATE(xdata_gc_st(jpcover,nvegtype))
480 xdata_gc_st(:,:) = xundef
487 ALLOCATE(xdata_f2i(jpcover,nvegtype))
489 xdata_f2i(:,:) = xundef
496 ALLOCATE(xdata_bslai(jpcover,nvegtype))
498 xdata_bslai(:,:) = xundef
500 ALLOCATE(xdata_bslai_st(jpcover,nvegtype))
502 xdata_bslai_st(:,:) = xundef
509 ALLOCATE(xdata_dmax(jpcover,nvegtype))
511 xdata_dmax(:,:) = xundef
513 ALLOCATE(xdata_dmax_st(jpcover,nvegtype))
515 xdata_dmax_st(:,:) = xundef
522 ALLOCATE(xdata_stress(jpcover,nvegtype))
524 xdata_stress(:,:) = xundef
531 ALLOCATE(xdata_sefold(jpcover,nvegtype))
533 xdata_sefold(:,:) = xundef
535 ALLOCATE(xdata_sefold_st(jpcover,nvegtype))
537 xdata_sefold_st(:,:) = xundef
544 ALLOCATE(xdata_laimin(jpcover,nvegtype))
546 xdata_laimin(:,:) = xundef
553 ALLOCATE(xdata_veg(jpcover,36,nvegtype))
555 xdata_veg(:,:,:) = xundef
557 ALLOCATE(xdata_green(jpcover,36,nvegtype))
559 xdata_green(:,:,:) = xundef
566 ALLOCATE(xdata_z0(jpcover,36,nvegtype))
568 xdata_z0(:,:,:) = xundef
575 ALLOCATE(xdata_z0_o_z0h(jpcover,nvegtype))
577 xdata_z0_o_z0h(:,:) = xundef
584 ALLOCATE(xdata_emis_eco(jpcover,36,nvegtype))
586 xdata_emis_eco(:,:,:) = xundef
593 ALLOCATE(xdata_soilrc_so2(jpcover,nvegtype))
594 ALLOCATE(xdata_soilrc_o3(jpcover,nvegtype))
596 xdata_soilrc_so2(:,:) = xundef
597 xdata_soilrc_o3(:,:) = xundef
604 ALLOCATE(xdata_ce_nitro(jpcover,nvegtype))
606 xdata_ce_nitro(:,:) = xundef
613 ALLOCATE(xdata_cf_nitro(jpcover,nvegtype))
615 xdata_cf_nitro(:,:) = xundef
622 ALLOCATE(xdata_cna_nitro(jpcover,nvegtype))
624 xdata_cna_nitro(:,:) = xundef
631 ALLOCATE(tdata_seed(jpcover,nvegtype))
633 tdata_seed(:,:)%TDATE%YEAR = 9999
634 tdata_seed(:,:)%TDATE%MONTH = nundef
635 tdata_seed(:,:)%TDATE%DAY = nundef
636 tdata_seed(:,:)%TIME = 0.
638 ALLOCATE(tdata_reap(jpcover,nvegtype))
640 tdata_reap(:,:)%TDATE%YEAR = 9999
641 tdata_reap(:,:)%TDATE%MONTH = nundef
642 tdata_reap(:,:)%TDATE%DAY = nundef
643 tdata_reap(:,:)%TIME = 0.
650 ALLOCATE(xdata_irrig(jpcover,nvegtype))
652 xdata_irrig(:,:) = 0.
659 ALLOCATE(xdata_watsup(jpcover,nvegtype))
661 xdata_watsup(:,:) = 0.
668 ALLOCATE(xdata_rglgv(jpcover,nvegtype))
669 xdata_rglgv(:,:) = xundef
671 ALLOCATE(xdata_gammagv(jpcover,nvegtype))
672 xdata_gammagv(:,:) = xundef
674 ALLOCATE(xdata_rsmingv(jpcover,nvegtype))
675 xdata_rsmingv(:,:) = xundef
677 ALLOCATE(xdata_root_extinctiongv(jpcover,nvegtype))
678 xdata_root_extinctiongv(:,:) = xundef
680 ALLOCATE(xdata_wrmax_cfgv(jpcover,nvegtype))
681 xdata_wrmax_cfgv(:,:) = xundef
683 ALLOCATE(xdata_laigv(jpcover,36,nvegtype))
684 xdata_laigv(:,:,:) = xundef
686 ALLOCATE(xdata_gndlitter(jpcover,36,nvegtype))
687 xdata_gndlitter(:,:,:) = xundef
689 ALLOCATE(xdata_z0litter(jpcover,36,nvegtype))
690 xdata_z0litter(:,:,:) = xundef
692 ALLOCATE(xdata_h_veg(jpcover,36,nvegtype))
693 xdata_h_veg(:,:,:) = xundef
700 ALLOCATE(xdata_z0_town(jpcover))
702 xdata_z0_town(:) = xundef
709 ALLOCATE(xdata_alb_roof(jpcover))
711 xdata_alb_roof(:) = xundef
713 ALLOCATE(xdata_alb_road(jpcover))
715 xdata_alb_road(:) = xundef
717 ALLOCATE(xdata_alb_wall(jpcover))
719 xdata_alb_wall(:) = xundef
726 ALLOCATE(xdata_emis_roof(jpcover))
728 xdata_emis_roof(:) = xundef
730 ALLOCATE(xdata_emis_road(jpcover))
732 xdata_emis_road(:) = xundef
734 ALLOCATE(xdata_emis_wall(jpcover))
736 xdata_emis_wall(:) = xundef
748 ALLOCATE(xdata_hc_roof(jpcover,ndata_roof_layer))
750 xdata_hc_roof(:,:) = xundef
752 ALLOCATE(xdata_hc_road(jpcover,ndata_road_layer))
754 xdata_hc_road(:,:) = xundef
756 ALLOCATE(xdata_hc_wall(jpcover,ndata_wall_layer))
758 xdata_hc_wall(:,:) = xundef
760 ALLOCATE(xdata_hc_floor(jpcover,ndata_floor_layer))
762 xdata_hc_floor(:,:) = xundef
769 ALLOCATE(xdata_tc_roof(jpcover,ndata_roof_layer))
771 xdata_tc_roof(:,:) = xundef
773 ALLOCATE(xdata_tc_road(jpcover,ndata_road_layer))
775 xdata_tc_road(:,:) = xundef
777 ALLOCATE(xdata_tc_wall(jpcover,ndata_wall_layer))
779 xdata_tc_wall(:,:) = xundef
781 ALLOCATE(xdata_tc_floor(jpcover,ndata_floor_layer))
783 xdata_tc_floor(:,:) = xundef
790 ALLOCATE(xdata_d_roof(jpcover,ndata_roof_layer))
792 xdata_d_roof(:,:) = xundef
794 ALLOCATE(xdata_d_road(jpcover,ndata_road_layer))
796 xdata_d_road(:,:) = xundef
798 ALLOCATE(xdata_d_wall(jpcover,ndata_wall_layer))
800 xdata_d_wall(:,:) = xundef
802 ALLOCATE(xdata_d_floor(jpcover,ndata_floor_layer))
804 xdata_d_floor(:,:) = xundef
811 ALLOCATE(xdata_bld_height(jpcover))
813 xdata_bld_height(:) = xundef
820 ALLOCATE(xdata_wall_o_hor(jpcover))
822 xdata_wall_o_hor(:) = xundef
829 ALLOCATE(xdata_bld(jpcover))
831 xdata_bld(:) = xundef
838 ALLOCATE(xdata_can_hw_ratio(jpcover))
840 xdata_can_hw_ratio(:) = xundef
847 ALLOCATE(xdata_h_traffic(jpcover))
848 ALLOCATE(xdata_le_traffic(jpcover))
849 ALLOCATE(xdata_h_industry(jpcover))
850 ALLOCATE(xdata_le_industry(jpcover))
852 xdata_h_traffic(:) = xundef
853 xdata_le_traffic(:) = xundef
854 xdata_h_industry(:) = xundef
855 xdata_le_industry(:) = xundef
862 ALLOCATE(xdata_tcool_target(jpcover))
863 ALLOCATE(xdata_theat_target(jpcover))
865 xdata_tcool_target(:) = xundef
866 xdata_theat_target(:) = xundef
868 ALLOCATE(xdata_f_waste_can(jpcover))
869 ALLOCATE(xdata_eff_heat(jpcover))
870 ALLOCATE(xdata_qin(jpcover))
871 ALLOCATE(xdata_qin_frad(jpcover))
872 ALLOCATE(xdata_shgc(jpcover))
873 ALLOCATE(xdata_u_win(jpcover))
874 ALLOCATE(xdata_gr(jpcover))
875 ALLOCATE(xdata_shgc_sh(jpcover))
876 ALLOCATE(xdata_floor_height(jpcover))
877 ALLOCATE(xdata_inf(jpcover))
879 xdata_f_waste_can(:) = xundef
880 xdata_eff_heat(:) = xundef
881 xdata_qin(:) = xundef
882 xdata_qin_frad(:) = xundef
883 xdata_shgc(:) = xundef
884 xdata_u_win(:) = xundef
886 xdata_shgc_sh(:) = xundef
887 xdata_floor_height(:) = xundef
888 xdata_inf(:) = xundef
890 ALLOCATE(xdata_f_water_cond(jpcover))
891 ALLOCATE(xdata_qin_flat(jpcover))
892 ALLOCATE(xdata_hr_target(jpcover))
893 ALLOCATE(xdata_v_vent(jpcover))
894 ALLOCATE(xdata_cap_sys_heat(jpcover))
895 ALLOCATE(xdata_cap_sys_rat(jpcover))
896 ALLOCATE(xdata_t_adp(jpcover))
897 ALLOCATE(xdata_m_sys_rat(jpcover))
898 ALLOCATE(xdata_cop_rat(jpcover))
899 ALLOCATE(xdata_t_size_max(jpcover))
900 ALLOCATE(xdata_t_size_min(jpcover))
901 ALLOCATE(xdata_shade(jpcover))
902 ALLOCATE(xdata_natvent(jpcover))
904 xdata_f_water_cond(:) = xundef
905 xdata_qin_flat(:) = xundef
906 xdata_hr_target(:) = xundef
907 xdata_v_vent(:) = xundef
908 xdata_cap_sys_heat(:) = xundef
909 xdata_cap_sys_rat(:) = xundef
910 xdata_t_adp(:) = xundef
911 xdata_m_sys_rat(:) = xundef
912 xdata_cop_rat(:) = xundef
913 xdata_t_size_max(:) = xundef
914 xdata_t_size_min(:) = xundef
916 xdata_natvent(:) = 0.
918 ALLOCATE(xdata_rough_roof(jpcover))
919 ALLOCATE(xdata_rough_wall(jpcover))
920 xdata_rough_roof(:) = xundef
921 xdata_rough_wall(:) = xundef
923 ALLOCATE(xdata_residential(jpcover))
924 xdata_residential(:) = xundef
931 ALLOCATE(xdata_frac_gr(jpcover))
933 xdata_frac_gr(:) = 0.
940 ALLOCATE(xdata_emis_panel(jpcover))
941 ALLOCATE(xdata_alb_panel(jpcover))
942 ALLOCATE(xdata_eff_panel(jpcover))
943 ALLOCATE(xdata_frac_panel(jpcover))
945 xdata_emis_panel(:) = xundef
946 xdata_alb_panel(:) = xundef
947 xdata_eff_panel(:) = xundef
948 xdata_frac_panel(:) = xundef
966 IF (lread_data_cover)
THEN
1021 DO jvegtype=2,nvegtype
1022 DO jcover = 1, jpcover
1023 xdata_alb_soil_nir(jcover,:,jvegtype) = xdata_alb_soil_nir(jcover,:,1)
1024 xdata_alb_soil_vis(jcover,:,jvegtype) = xdata_alb_soil_vis(jcover,:,1)
1033 DO jcover = 1, jpcover
1035 IF (xdata_nature(jcover)==1.)
THEN
1036 IF (xdata_vegtype(jcover,nvt_no )==1.) nbare_soil = jcover
1037 IF (xdata_vegtype(jcover,nvt_rock)==1.) nrock = jcover
1038 IF (xdata_vegtype(jcover,nvt_snow)==1.) npermsnow = jcover
1041 IF (xdata_sea(jcover)==1.)
THEN
1042 icpt_sea = icpt_sea + 1
1043 IF(icpt_sea>
SIZE(nsea))
THEN
1044 CALL
abor1_sfx(
'INI_DATA_COVER: problem with ecoclimap param : ICPT_SEA > SIZE(NSEA) ')
1046 nsea(icpt_sea) = jcover
1049 IF (xdata_water(jcover)==1.)
THEN
1050 icpt_water = icpt_water + 1
1051 IF(icpt_water>
SIZE(nwater))
THEN
1052 CALL
abor1_sfx(
'INI_DATA_COVER: problem with ecoclimap param : ICPT_WATER > SIZE(NWATER) ')
1054 nwater(icpt_water) = jcover
1057 IF (xdata_town(jcover)==0.) cycle
1059 xdata_can_hw_ratio(jcover) = 0.5 * xdata_wall_o_hor(jcover) / (1.-xdata_bld(jcover))
1063 xdata_hc_floor(jcover,:) = 2016000.
1064 xdata_tc_floor(jcover,:) = 1.95
1065 xdata_d_floor(jcover,1) = 0.01
1066 xdata_d_floor(jcover,2) = 0.04
1067 xdata_d_floor(jcover,3) = 0.10
1069 xdata_tcool_target(jcover) = 297.16
1070 xdata_theat_target(jcover) = 292.16
1071 xdata_f_waste_can(jcover) = 1.0
1072 xdata_eff_heat(jcover) = 0.9
1073 xdata_qin(jcover) = 5.8
1074 xdata_qin_frad(jcover) = 0.2
1075 xdata_qin_flat(jcover) = 0.2
1076 xdata_shgc(jcover) = 0.763
1077 xdata_u_win(jcover) = 2.716
1078 xdata_gr(jcover) = 0.3
1079 xdata_shgc_sh(jcover) = 0.763
1080 xdata_floor_height(jcover) = 3.0
1081 xdata_inf(jcover) = 0.5
1082 xdata_f_water_cond(jcover) = 0.
1083 xdata_qin_flat(jcover) = 0.2
1084 xdata_hr_target(jcover) = 0.5
1085 xdata_v_vent(jcover) = 0.0
1086 xdata_cap_sys_heat(jcover) = 100.
1087 xdata_cap_sys_rat(jcover) = 90.
1088 xdata_t_adp(jcover) = 285.66
1089 xdata_m_sys_rat(jcover) = 0.0067
1090 xdata_cop_rat(jcover) = 2.5
1091 xdata_t_size_max(jcover) = 301.95
1092 xdata_t_size_min(jcover) = 268.96
1093 xdata_shade(jcover) = 0.0
1094 xdata_natvent(jcover) = 0.0
1095 xdata_rough_roof(jcover) = 1.52
1096 xdata_rough_wall(jcover) = 1.52
1097 xdata_residential(jcover) = 1.
1099 xdata_emis_panel(jcover) = 0.9
1100 xdata_alb_panel(jcover) = 0.1
1101 xdata_eff_panel(jcover) = 0.14
1102 xdata_frac_panel(jcover) = 0.
1104 IF (xdata_garden(jcover)/=0.)
THEN
1105 DO jvegtype=1,nvegtype
1106 IF (xdata_vegtype(jcover,jvegtype)/=0.)
THEN
1107 xdata_alb_soil_nir(jcover,:,jvegtype) = 0.3
1108 xdata_alb_soil_vis(jcover,:,jvegtype) = 0.1
1109 xdata_alb_veg_nir(jcover,:,jvegtype) = 0.3
1110 xdata_alb_veg_vis(jcover,:,jvegtype) = 0.1
1117 IF(icpt_sea<
SIZE(nsea))
THEN
1118 CALL
abor1_sfx(
'INI_DATA_COVER: problem with ecoclimap param : ICPT_SEA < SIZE(NSEA) ')
1120 IF(icpt_water<
SIZE(nwater))
THEN
1121 CALL
abor1_sfx(
'INI_DATA_COVER: problem with ecoclimap param : ICPT_WATER < SIZE(NWATER) ')
1128 cnames(1,1) =
'Sea and ocean'
1129 cnames(2,1) =
'Lakes'
1130 cnames(3,1) =
'Rivers'
1131 cnames(4,1) =
'Bare land'
1132 cnames(5,1) =
'Rocks'
1133 cnames(6,1) =
'Permanent snow and ice'
1134 cnames(7,1) =
'Urban and built-up'
1136 cnames(8,1) =
'Tropical undefined islands'
1137 cnames(9,1) =
'Subpolar undefined islands'
1139 cnames(10,1) =
'S-America cool ENF'
1140 cnames(11,1) =
'Boreal ENF'
1141 cnames(12,1) =
'Asia subtropical ENF'
1142 cnames(13,1) =
'American Continental ENF'
1143 cnames(14,1) =
'American Subtropical ENF'
1144 cnames(15,1) =
'American Cool Marine ENF'
1146 cnames(16,1) =
'Africa Equatorial EBF'
1147 cnames(17,1) =
'Africa Tr. wind EBF'
1148 cnames(18,1) =
'Oceanian Equatorial EBF'
1149 cnames(19,1) =
'Asia tropical EBF'
1150 cnames(20,1) =
'Oceania tropical EBF'
1151 cnames(21,1) =
'Amazonian EBF'
1152 cnames(22,1) =
'SH subtropical EBF'
1153 cnames(23,1) =
'Cent. America Tr. wind EBF'
1155 cnames(24,1) =
'Asian boreal DNF'
1157 cnames(25,1) =
'S-America tropical DBF'
1158 cnames(26,1) =
'N-America humid continental DBF'
1159 cnames(27,1) =
'Cent. America Tr. wind DBF'
1160 cnames(28,1) =
'S-America humid subtropical DBF'
1162 cnames(29,1) =
'Africa dry tropical MF'
1163 cnames(30,1) =
'S-America cool MF'
1164 cnames(31,1) =
'NH Subpolar MF'
1165 cnames(32,1) =
'NH Humid subtropical MF'
1166 cnames(33,1) =
'NH Continental MF'
1168 cnames(34,1) =
'NH Africa WL'
1169 cnames(35,1) =
'SH Africa WL'
1170 cnames(36,1) =
'Tr. wind humid and subtrop. WL'
1171 cnames(37,1) =
'Oceanian Equatorial WL'
1172 cnames(38,1) =
'Asia wet tropical WL'
1173 cnames(39,1) =
'S-America tropical WL'
1174 cnames(40,1) =
'S-America humid subtropical WL'
1175 cnames(41,1) =
'NH Subpolar WL'
1176 cnames(42,1) =
'NH Continental WL'
1177 cnames(43,1) =
'Asia humid subtropical WL'
1178 cnames(44,1) =
'N-America Semi arid WL'
1179 cnames(45,1) =
'N-America moderate polar WL'
1180 cnames(46,1) =
'S-America moderate polar WL'
1181 cnames(47,1) =
'N-America humid subtropical WL'
1183 cnames(48,1) =
'NH Africa semiarid WG'
1184 cnames(49,1) =
'NH Africa dry tropical WG'
1185 cnames(50,1) =
'Africa dry equatorial WG'
1186 cnames(51,1) =
'SH Africa dry tropical WG'
1187 cnames(52,1) =
'Oceania tropical WG'
1188 cnames(53,1) =
'Oceania semiarid WG'
1189 cnames(54,1) =
'Oceania subtrop. cool marine WG'
1190 cnames(55,1) =
'Asia humid and subtropical WG'
1191 cnames(56,1) =
'S-America trop. and subtrop. WG'
1192 cnames(57,1) =
'S-America Tr. wind WG'
1193 cnames(58,1) =
'S-America semiarid WG'
1194 cnames(59,1) =
'NH Subpolar WG'
1195 cnames(60,1) =
'NH Continental WG'
1196 cnames(61,1) =
'Asia wet and dry tropical WG'
1197 cnames(62,1) =
'N-America semi arid WG'
1198 cnames(63,1) =
'N-America humid subtropical WG'
1199 cnames(64,1) =
'S-America moderate polar WG'
1200 cnames(65,1) =
'Cent. Amer. Tr. wind \& trop. WG'
1201 cnames(66,1) =
'NH Africa dry summer subtrop. WG'
1203 cnames(67,1) =
'NH Africa arid CS'
1204 cnames(68,1) =
'NH Africa semiarid CS'
1205 cnames(69,1) =
'SH Africa semiarid CS'
1206 cnames(70,1) =
'Oceania arid CS'
1207 cnames(71,1) =
'Oceania, S-America semiarid CS'
1208 cnames(72,1) =
'Oceania Tr. wind CS'
1209 cnames(73,1) =
'SH dry summer subtropical CS'
1210 cnames(74,1) =
'Asia polar CS'
1211 cnames(75,1) =
'Asia continental CS'
1212 cnames(76,1) =
'Asia tropical CS'
1213 cnames(77,1) =
'N-America polar CS'
1214 cnames(78,1) =
'N-America continental CS'
1215 cnames(79,1) =
'NH Africa dry summer subtrop. CS'
1217 cnames(80,1) =
'NH arid OS'
1218 cnames(81,1) =
'NH semiarid tropical OS'
1219 cnames(82,1) =
'SH Africa and Oceania arid OS'
1220 cnames(83,1) =
'S-America semiarid tropical OS'
1221 cnames(84,1) =
'Asia dry tropical OS'
1222 cnames(85,1) =
'NH Polar OS'
1223 cnames(86,1) =
'N-America Subpolar OS'
1224 cnames(87,1) =
'N-America semiarid continental OS'
1226 cnames(88,1) =
'Africa wet Tropical G'
1227 cnames(89,1) =
'NH Africa Semiarid G'
1228 cnames(90,1) =
'SH Africa Semiarid G'
1229 cnames(91,1) =
'S-America, Oceania equatorial G'
1230 cnames(92,1) =
'S-America, Oceania Semiarid G'
1231 cnames(93,1) =
'Oceania cool littoral G'
1232 cnames(94,1) =
'Asia wet and dry tropical G'
1233 cnames(95,1) =
'NH S-America wet tropical G'
1234 cnames(96,1) =
'SH S-America wet tropical G'
1235 cnames(97,1) =
'S-America semiarid G'
1236 cnames(98,1) =
'S-America moderate polar G'
1237 cnames(99,1) =
'NH semiarid Continental G'
1238 cnames(100,1) =
'Asia Subpolar G'
1239 cnames(101,1) =
'Asia humid Continental G'
1240 cnames(102,1) =
'Asia semiarid tropical G'
1241 cnames(103,1) =
'N-America continental G'
1242 cnames(104,1) =
'Asia humid subtropical G'
1244 cnames(105,1) =
'NH Africa arid C'
1245 cnames(106,1) =
'NH Africa, Asia wet and dry trop. C'
1246 cnames(107,1) =
'SH Africa wet and dry tropical C'
1247 cnames(108,1) =
'SH Afr. Tr. wind \& semiarid trop. C'
1248 cnames(109,1) =
'Oceania dry summer subtropical C'
1249 cnames(110,1) =
'Cent. \& S-Amer., Oceania Tr. wind C'
1250 cnames(111,1) =
'S-America humid subtropical C'
1251 cnames(112,1) =
'SH S-America tropical C'
1252 cnames(113,1) =
'N-Amer., Asia semiarid continental C'
1253 cnames(114,1) =
'Asia humid continental C'
1254 cnames(115,1) =
'Asia humid subtropical C'
1255 cnames(116,1) =
'Asia subpolar C'
1256 cnames(117,1) =
'Asia semiarid tropical C'
1257 cnames(118,1) =
'N-America humid continental C'
1258 cnames(119,1) =
'N-America humid subtropical C'
1259 cnames(120,1) =
'NH dry summer subtropical C'
1260 cnames(121,1) =
'NH Africa dry summer subtropical C'
1261 cnames(122,1) =
'SH Africa dry summer subtropical C'
1263 cnames(123,1) =
'Bare soil with sparse polar vegetation'
1265 cnames(124,1) =
'Warm subtropical wetlands'
1266 cnames(125,1) =
'Subpolar wetlands'
1268 cnames(151,1) =
'Dense urban'
1269 cnames(152,1) =
'Mediterranean sub-urban'
1270 cnames(153,1) =
'Temperate sub-urban'
1271 cnames(154,1) =
'Cold sub-urban'
1272 cnames(155,1) =
'Industries and commercial areas'
1273 cnames(156,1) =
'Road and rail networks'
1274 cnames(157,1) =
'Port facilities'
1275 cnames(158,1) =
'Airport'
1276 cnames(159,1) =
'Mineral extraction, construction sites'
1277 cnames(160,1) =
'Urban parks'
1278 cnames(161,1) =
'Sport facilities'
1280 cnames(162,1) =
'Spanish crops'
1281 cnames(163,1) =
'Estremadura crops'
1282 cnames(164,1) =
'Mediterranean crops'
1283 cnames(165,1) =
'Atlantic coast crops'
1284 cnames(166,1) =
'Temperate crops'
1285 cnames(167,1) =
'Po plain crops'
1286 cnames(168,1) =
'Warm temperate crops'
1287 cnames(169,1) =
'Ukrainian crops'
1288 cnames(170,1) =
'Subpolar crops'
1289 cnames(171,1) =
'Mountain crops'
1290 cnames(172,1) =
'Central Europe crops'
1291 cnames(173,1) =
'Turkish crops'
1293 cnames(174,1) =
'Mediterranean irrigated crops'
1294 cnames(175,1) =
'Irrigated crops'
1295 cnames(176,1) =
'Rice fields'
1297 cnames(177,1) =
'Mediterranean vineyards'
1298 cnames(178,1) =
'Temperate vineyards'
1299 cnames(179,1) =
'Mediterranean fruit trees'
1300 cnames(180,1) =
'Temperate fruit trees'
1301 cnames(181,1) =
'Olive groves'
1303 cnames(182,1) =
'Temperate pastures'
1304 cnames(183,1) =
'Atlantic border pastures'
1305 cnames(184,1) =
'Central and Eastern Europe pastures'
1306 cnames(185,1) =
'Ukrainian pastures'
1307 cnames(186,1) =
'Subpolar pastures'
1309 cnames(187,1) =
'Spanish complex cultivation pattern'
1310 cnames(188,1) =
'Mediter. complex cultivation pat.'
1311 cnames(189,1) =
'Temperate complex cultivation pat.'
1312 cnames(190,1) =
'French complex cultivation pat.'
1313 cnames(191,1) =
'Balkanish complex cultivation pat.'
1315 cnames(192,1) =
'Mediterranean crops and woodland'
1316 cnames(193,1) =
'Crops and woodland'
1317 cnames(194,1) =
'French crops and woodland'
1318 cnames(195,1) =
'Balkanish crops and woodland'
1319 cnames(196,1) =
'Spanish crops and woodland'
1320 cnames(197,1) =
'Baltic states crops and woodland'
1322 cnames(198,1) =
'Agro-forestry areas'
1324 cnames(199,1) =
'Spanish broad-leaved forest'
1325 cnames(200,1) =
'Estremadura broad-leaved forest'
1326 cnames(201,1) =
'Mediterranean broad-leaved forest'
1327 cnames(202,1) =
'Atlantic coast broad-leaved forest'
1328 cnames(203,1) =
'Temperate broad-leaved forest'
1329 cnames(204,1) =
'Moutain broad-leaved forest'
1330 cnames(205,1) =
'Balkanish broad-leaved forest'
1331 cnames(206,1) =
'Subpolar broad-leaved forest'
1332 cnames(207,1) =
'Black Sea broad-leaved forest'
1334 cnames(208,1) =
'Mediterranean pines'
1335 cnames(209,1) =
'Landes forest'
1336 cnames(210,1) =
'Moutain coniferous forest'
1337 cnames(211,1) =
'Temperate coniferous forest'
1338 cnames(212,1) =
'Subpolar Taiga'
1339 cnames(213,1) =
'Russian Taiga'
1340 cnames(214,1) =
'Turkish coniferous forest'
1342 cnames(215,1) =
'Mediterranean mixed forest'
1343 cnames(216,1) =
'Atlantic coast \& french mixed forest'
1344 cnames(217,1) =
'Subpolar mixed forest'
1345 cnames(218,1) =
'Mountain mixed forest'
1346 cnames(219,1) =
'Eastern Europe mixed forest'
1348 cnames(220,1) =
'Mediterranean GR'
1349 cnames(221,1) =
'Atlantic coast GR'
1350 cnames(222,1) =
'Balkanish GR'
1351 cnames(223,1) =
'Estremadura GR'
1352 cnames(224,1) =
'Subpolar GR'
1353 cnames(225,1) =
'Tundra'
1355 cnames(226,1) =
'Turkish moors'
1356 cnames(227,1) =
'Mediter. moors \& heath lands'
1357 cnames(228,1) =
'Moutain moors \& heath lands'
1358 cnames(229,1) =
'Atlantic coast moors \& heath lands'
1360 cnames(230,1) =
'Turkish shrubland'
1361 cnames(231,1) =
'Mediterranean maquis'
1362 cnames(232,1) =
'Moutain maquis'
1364 cnames(233,1) =
'Spanish woodland'
1365 cnames(234,1) =
'Mediterranean woodland'
1366 cnames(235,1) =
'Temperate woodland'
1368 cnames(236,1) =
'Sparsely vegetated areas'
1369 cnames(237,1) =
'Burnt areas'
1370 cnames(238,1) =
'Temperate wetlands'
1371 cnames(239,1) =
'Subpolar wetlands'
1372 cnames(240,1) =
'Peat bogs'
1373 cnames(241,1) =
'Salines and salt marshes'
1375 cnames(242,1) =
'Intertidal flats'
1376 cnames(243,1) =
'Coastal lagoons'
1378 cnames(301,1)=
'N SCANDINAVIA TUNDRA1'
1379 cnames(302,1)=
'OURAL BF1'
1380 cnames(303,1)=
'CARELIE BF1'
1381 cnames(304,1)=
'NORTH RUSSIAN TAIGA1'
1382 cnames(305,1)=
'NORTH RUSSIAN TAIGA2'
1383 cnames(306,1)=
'CARELIE BF2'
1384 cnames(307,1)=
'RUSSIAN TAIGA3'
1385 cnames(308,1)=
'RUSSIAN BF1'
1386 cnames(309,1)=
'RUSSIAN TAIGA4'
1387 cnames(310,1)=
'S SCANDINAVIA TAIGA1'
1388 cnames(311,1)=
'SOUTH FINLANDIA MF1'
1389 cnames(312,1)=
'SOUTH NORWAY MF1'
1390 cnames(313,1)=
'BALTIC BF1'
1391 cnames(314,1)=
'BALTIC MF1'
1392 cnames(315,1)=
'SOUTH SWEDEN CF1'
1393 cnames(316,1)=
'BALTIC MF2'
1394 cnames(317,1)=
'SOUTH SWEDEN CF2'
1395 cnames(318,1)=
'SOUTH SWEDEN CF3'
1396 cnames(319,1)=
'SOUTH SWEDEN MF1'
1397 cnames(320,1)=
'MOUNTAIN MF1'
1398 cnames(321,1)=
'MOUNTAIN BF1'
1399 cnames(322,1)=
'TEMPERATE BF1'
1400 cnames(323,1)=
'TEMPERATE COMPLEX1'
1401 cnames(324,1)=
'MOUNTAIN CF1'
1402 cnames(325,1)=
'TEMP HERBACEOUS CF1'
1403 cnames(326,1)=
'ATLANTIC COAST BF1'
1404 cnames(327,1)=
'TURKISH CF1'
1405 cnames(328,1)=
'BALKAN CF1'
1406 cnames(329,1)=
'N SPAIN HERBAC MF1'
1407 cnames(330,1)=
'TEMP SW HERBAC CF1'
1408 cnames(331,1)=
'ATLANTIC COMPLEX1'
1409 cnames(332,1)=
'N SPAIN HERBAC MF2'
1410 cnames(333,1)=
'MEDITER COMPLEX1'
1411 cnames(334,1)=
'MEDITER COMPLEX2'
1412 cnames(335,1)=
'MEDITER COMPLEX3'
1413 cnames(336,1)=
'MEDITER COMPLEX4'
1414 cnames(337,1)=
'MEDITER COMPLEX5'
1415 cnames(338,1)=
'BURNT PORT HERBAC CF1'
1416 cnames(339,1)=
'BURNT PORT HERBAC BF1'
1417 cnames(340,1)=
'EGEE COAST COMPLEX1'
1418 cnames(341,1)=
'W MED COAST COMPLEX1'
1419 cnames(342,1)=
'MAGHR HERBACEOUS MF1'
1420 cnames(343,1)=
'ESTREM HERBACEOUS MF1'
1423 cnames(344,1)=
'POLAR MOUNT TUNDRA1'
1424 cnames(345,1)=
'POLAR MOUNT TUNDRA2'
1425 cnames(346,1)=
'S SCANDINAVIA TUNDRA1'
1426 cnames(347,1)=
'NORTH TUNDRA1'
1427 cnames(348,1)=
'S SCANDINAVIA TUNDRA2'
1428 cnames(349,1)=
'NORTH RUSSIA TUNDRA1'
1429 cnames(350,1)=
'ARAL CONTINENTAL GR1'
1430 cnames(351,1)=
'MOUNTAIN TAIGA MOORS1'
1431 cnames(352,1)=
'SCOTTISH SWAMP MOORS1'
1432 cnames(353,1)=
'ATLANTIC COMPLEX2'
1433 cnames(354,1)=
'ATLANTIC GR1'
1434 cnames(355,1)=
'IR SCOT SWAMP MOORS1'
1435 cnames(356,1)=
'ASIAN SPARSE GR1'
1436 cnames(357,1)=
'AS SPARSE SW COMPLEX1'
1437 cnames(358,1)=
'N CASPIAN DES OS1'
1438 cnames(359,1)=
'ATLAS AS SPARSE COMP1'
1439 cnames(360,1)=
'SPARSE SCO CEN EU GR1'
1440 cnames(361,1)=
'TEMPERATE COMPLEX2'
1441 cnames(362,1)=
'ATLANTIC COMPLEX3'
1442 cnames(363,1)=
'ATLANTIC COMPLEX4'
1443 cnames(364,1)=
'N ATLANTIC PASTURES1'
1444 cnames(365,1)=
'SPARSE SCO CEN EU GR2'
1445 cnames(366,1)=
'SPARSE MOUNT E EU GR1'
1446 cnames(367,1)=
'TUR N CASP CONT GR1'
1447 cnames(368,1)=
'N CASPIAN CONT GR1'
1448 cnames(369,1)=
'IRA N CASP CONT GR1'
1449 cnames(370,1)=
'TUR IRA MOUNT CONT GR1'
1450 cnames(371,1)=
'E CASPIAN DES OS1'
1451 cnames(372,1)=
'N CASPIAN COMPLEX1'
1452 cnames(373,1)=
'IRAN MOUNT CONT GR1'
1453 cnames(374,1)=
'ASIAN SPARSE DES OS1'
1454 cnames(375,1)=
'E CASPIAN DES OS2'
1455 cnames(376,1)=
'N MEDITER COMPLEX1'
1456 cnames(377,1)=
'N MEDITER COMPLEX2'
1457 cnames(378,1)=
'ASIAN MEDIT CONT GR1'
1458 cnames(379,1)=
'SOUTH RUSSIA CONT GR1'
1459 cnames(380,1)=
'BLSEA SPARSE CONT GR1'
1460 cnames(381,1)=
'BLSEA SPARSE CONT GR2'
1461 cnames(382,1)=
'TURK MOUNT CONT GR1'
1462 cnames(383,1)=
'TURKISH COMPLEX1'
1463 cnames(384,1)=
'CAUCASIAN COMPLEX1'
1464 cnames(385,1)=
'N CASPIAN CONT GR2'
1465 cnames(386,1)=
'VOLGA VALLEY CONT GR1'
1466 cnames(387,1)=
'VOLGA VALLEY CONT GR2'
1467 cnames(388,1)=
'W CASPIAN CONT GR1'
1468 cnames(389,1)=
'CAUCASIAN COMPLEX2'
1469 cnames(390,1)=
'CAUCASIAN COMPLEX3'
1470 cnames(391,1)=
'BLSEA SPARSE CONT GR3'
1471 cnames(392,1)=
'CENT MASSIF COMPLEX1'
1472 cnames(393,1)=
'CENT MASSIF COMPLEX2'
1473 cnames(394,1)=
'TURK COAST COMPLEX1'
1474 cnames(395,1)=
'MESOPOTAMIA GR1'
1475 cnames(396,1)=
'TURK CILICIA COMPLEX1'
1476 cnames(397,1)=
'ASIAN COMPLEX1'
1477 cnames(398,1)=
'N MED SPARSE COMPLEX1'
1478 cnames(399,1)=
'MEDITER COMPLEX6'
1479 cnames(400,1)=
'MEDIT SPARSE COMPLEX1'
1480 cnames(401,1)=
'MEDIT SPARSE COMPLEX2'
1481 cnames(402,1)=
'MEDIT SPARSE COMPLEX3'
1482 cnames(403,1)=
'MEDIT SPARSE COMPLEX4'
1483 cnames(404,1)=
'N MED HERBACEOUS CF1'
1484 cnames(405,1)=
'ESTREMADURA GR1'
1485 cnames(406,1)=
'TUNISIA COMPLEX1'
1486 cnames(407,1)=
'TUNISIA HERBACEOUS1'
1487 cnames(408,1)=
'ALGERIA HERBACEOUS1'
1488 cnames(409,1)=
'DESERTIC HERBACEOUS1'
1489 cnames(410,1)=
'DESERTIC HERBACEOUS2'
1490 cnames(411,1)=
'SPAIN DES COMPLEX1'
1491 cnames(412,1)=
'MED SPARSE COMPLEX5'
1492 cnames(413,1)=
'MED SPARSE COMPLEX6'
1493 cnames(414,1)=
'MED SPARSE COMPLEX7'
1494 cnames(415,1)=
'ME SPARSE DES COMPL1'
1495 cnames(416,1)=
'NORTH ARABIA GR1'
1496 cnames(417,1)=
'N ARABIA DES COMPLEX1'
1497 cnames(418,1)=
'N ARABIA DESERTIC GR1'
1498 cnames(419,1)=
'MOROCCO HERBACEOUS1'
1499 cnames(420,1)=
'S MED COAST HERBAC1'
1500 cnames(421,1)=
'W MEDITER WOODLAND1'
1501 cnames(422,1)=
'S MED COAST HERBAC2'
1502 cnames(423,1)=
'MESOP DES HERBACEOUS1'
1503 cnames(424,1)=
'MAG COAST DES HERBAC1'
1504 cnames(425,1)=
'TU AR SPARSE HERBAC1'
1505 cnames(426,1)=
'MEDIT SPARSE COMPLEX8'
1506 cnames(427,1)=
'MED SPARSE HERBAC1'
1507 cnames(428,1)=
'MEDIT SPARSE COMPLEX9'
1508 cnames(429,1)=
'SPAIN SPARSE COMPLEX1'
1509 cnames(430,1)=
'N MED SPARSE COMPLEX2'
1510 cnames(431,1)=
'N MED SPARSE COMPLEX3'
1511 cnames(432,1)=
'MAGHRE DES HERBAC1'
1512 cnames(433,1)=
'MAGHRE DES HERBAC2'
1513 cnames(434,1)=
'MAGHRE DES HERBAC3'
1514 cnames(435,1)=
'N ARAB DES HERBAC1'
1515 cnames(436,1)=
'MESOPO DES HERBAC2'
1516 cnames(437,1)=
'TOURAN DES HERBAC1'
1517 cnames(438,1)=
'MESOPO DES HERBAC2'
1518 cnames(439,1)=
'TOURAN DES HERBAC2'
1519 cnames(440,1)=
'NEW ZEMBLE HERBAC1'
1520 cnames(441,1)=
'NEW ZEMBLE HERBAC2'
1523 cnames(442,1)=
'TRANS SIBERIAN CROPS1'
1524 cnames(443,1)=
'PO PLAIN CROPS1'
1525 cnames(444,1)=
'PO PLAIN CROPS2'
1526 cnames(445,1)=
'SPANISH FRENCH CROPS1'
1527 cnames(446,1)=
'SPANISH FR ITAL CROPS1'
1528 cnames(447,1)=
'DANUBE PLAIN CROPS1'
1529 cnames(448,1)=
'N MED SPARSE COMPLEX4'
1530 cnames(449,1)=
'BALKAN CROPS1'
1531 cnames(450,1)=
'SPAIN FR ITAL CROPS2'
1532 cnames(451,1)=
'ATLANTIC CROPS1'
1533 cnames(452,1)=
'FR MED SPARSE CROPS1'
1534 cnames(453,1)=
'FR MED SPARSE CROPS2'
1535 cnames(454,1)=
'ATL MED SPARSE CROPS1'
1536 cnames(455,1)=
'BENE BLACK SEA CROPS1'
1537 cnames(456,1)=
'FRENCH ITALIAN CROPS1'
1538 cnames(457,1)=
'FR MED SPARSE CROPS3'
1539 cnames(458,1)=
'MEDITER SPARSE CROPS1'
1540 cnames(459,1)=
'ATLANTIC CROPS2'
1541 cnames(460,1)=
'NORTH ATLANTIC CROPS1'
1542 cnames(461,1)=
'SOUTH RUSSIA CROPS1'
1543 cnames(462,1)=
'S RUSSIA BALTIC CROPS1'
1544 cnames(463,1)=
'UKRAINIAN CROPS1'
1545 cnames(464,1)=
'EAST CARPATES CROPS1'
1546 cnames(465,1)=
'E CENT EUROPE CROPS1'
1547 cnames(466,1)=
'W CENT EU SW CROPS1'
1548 cnames(467,1)=
'HUNGARIAN CROPS1'
1549 cnames(468,1)=
'N BLACK SEA CROPS1'
1550 cnames(469,1)=
'HUNG BULG CAUC CROPS1'
1551 cnames(470,1)=
'SOUTH SWEDEN CROPS1'
1552 cnames(471,1)=
'SW RUSSIA CROPS1'
1553 cnames(472,1)=
'SOUTH RUSSIA CROPS1'
1554 cnames(473,1)=
'IRAN N CASPIAN CROPS1'
1555 cnames(474,1)=
'FR TEMP SPARSE CROPS1'
1556 cnames(475,1)=
'BULGARIAN CROPS1'
1557 cnames(476,1)=
'BULGARIAN CROPS2'
1558 cnames(477,1)=
'SP TURK SPARSE CROPS1'
1559 cnames(478,1)=
'FRENCH CENT EU CROPS1'
1560 cnames(479,1)=
'N BLACK SEA CROPS2'
1561 cnames(480,1)=
'BULGARIAN CROPS3'
1562 cnames(481,1)=
'POLE CROPS1'
1563 cnames(482,1)=
'POLE CROPS2'
1564 cnames(483,1)=
'N BLACK SEA CROPS3'
1565 cnames(484,1)=
'CENT EU SPARSE CROPS1'
1566 cnames(485,1)=
'GERMAN CROPS1'
1567 cnames(486,1)=
'BEAUCE CROPS1'
1568 cnames(487,1)=
'DANE CROPS1'
1569 cnames(488,1)=
'DANE CROPS2'
1570 cnames(489,1)=
'NEU ATL SPARSE CROPS1'
1571 cnames(490,1)=
'SYRIAN CROPS1'
1572 cnames(491,1)=
'GERMAN CROPS2'
1573 cnames(492,1)=
'CHANNEL CROPS1'
1574 cnames(493,1)=
'CHANNEL CROPS2'
1575 cnames(494,1)=
'ITALIAN CROPS1'
1576 cnames(495,1)=
'TURKISH CROPS1'
1577 cnames(496,1)=
'N MEDIT SPARSE CROPS1'
1578 cnames(497,1)=
'SPAIN TUR ARAB CROPS1'
1579 cnames(498,1)=
'NORTH SPAIN CROPS1'
1580 cnames(499,1)=
'MOROCCO TUNIS CROPS1'
1581 cnames(500,1)=
'MOROCCO CROPS1'
1582 cnames(501,1)=
'MOROCCO CROPS2'
1583 cnames(502,1)=
'ALGERIAN CROPS1'
1584 cnames(503,1)=
'MOROCCO CROPS3'
1585 cnames(504,1)=
'WEST SPAIN CROPS1'
1586 cnames(505,1)=
'MOROCCO CROPS4'
1587 cnames(506,1)=
'NORTH MEDITER CROPS1'
1588 cnames(507,1)=
'SOUTH SPANISH CROPS1'
1589 cnames(508,1)=
'SICILIAN CROPS1'
1590 cnames(509,1)=
'MAGHREB SPARSE CROPS1'
1591 cnames(510,1)=
'N MEDIT SPARSE CROPS2'
1592 cnames(511,1)=
'N MEDIT SPARSE CROPS3'
1593 cnames(512,1)=
'SP IT WCOAST CROPS1'
1594 cnames(513,1)=
'ESTREMADURA CROPS1'
1595 cnames(514,1)=
'ESTREMADURA CROPS2'
1596 cnames(515,1)=
'SP IT WCOAST CROPS2'
1597 cnames(516,1)=
'ESTREMADURA CROPS3'
1598 cnames(517,1)=
'MEDIT ISLANDS CROPS1'
1599 cnames(518,1)=
'SPAIN W COAST CROPS1'
1600 cnames(519,1)=
'ESTREMADURA CROPS4'
1601 cnames(520,1)=
'MECOAST SPARSE CROPS1'
1602 cnames(521,1)=
'BRITTANY CROPS1'
1603 cnames(522,1)=
'SYRIAN CROPS2'
1606 cnames(523,1)=
'NIL VALLEY CROPS1'
1607 cnames(524,1)=
'NIL VALLEY CROPS2'
1608 cnames(525,1)=
'NIL VALLEY CROPS3'
1609 cnames(526,1)=
'NIL VALLEY CROPS4'
1610 cnames(527,1)=
'SPANISH IRR CROPS1'
1611 cnames(528,1)=
'NIL VALLEY CROPS5'
1612 cnames(529,1)=
'EGEE IRR CROPS1'
1613 cnames(530,1)=
'MEDITER IRR CROPS1'
1614 cnames(531,1)=
'S SPAIN IRR CROPS1'
1615 cnames(532,1)=
'NIL VALLEY CROPS6'
1618 cnames(533,1)=
'BARE ROCK1'
1619 cnames(534,1)=
'BARE ROCK2'
1620 cnames(535,1)=
'SANDY DESERT1'
1621 cnames(536,1)=
'BARE LAND1'
1622 cnames(537,1)=
'BARE LAND2'
1623 cnames(538,1)=
'BARE LAND3'
1624 cnames(539,1)=
'BARE LAND4'
1625 cnames(540,1)=
'BARE LAND5'
1626 cnames(541,1)=
'BARE LAND6'
1627 cnames(542,1)=
'BARE LAND7'
1628 cnames(543,1)=
'BARE LAND8'
1629 cnames(544,1)=
'BARE LAND9'
1630 cnames(545,1)=
'BARE LAND10'
1631 cnames(546,1)=
'BARE LAND11'
1632 cnames(547,1)=
'BARE LAND12'
1633 cnames(548,1)=
'PERMANENT SNOW1'
1636 cnames(549,1)=
'WADDEN SEA'
1637 cnames(550,1)=
'ESTUARY1'
1638 cnames(551,1)=
'ESTUARY2'
1639 cnames(552,1)=
'POLAR WETLANDS1'
1640 cnames(553,1)=
'ESTUARY3'
1641 cnames(554,1)=
'ESTUARY4'
1642 cnames(555,1)=
'ESTUARY5'
1643 cnames(556,1)=
'ESTUARY6'
1644 cnames(557,1)=
'POLAR WETLANDS2'
1645 cnames(558,1)=
'SUBPOLAR WETLANDS1'
1646 cnames(559,1)=
'SUBPOLAR WETLANDS2'
1647 cnames(560,1)=
'SUBPOLAR WETLANDS3'
1650 cnames(561,1)=
'TEMPERATE SUBURBAN1'
1651 cnames(562,1)=
'TEMPERATE SUBURBAN2'
1652 cnames(563,1)=
'TEMPERATE SUBURBAN3'
1653 cnames(564,1)=
'TEMPERATE SUBURBAN4'
1654 cnames(565,1)=
'TEMPERATE SUBURBAN5'
1655 cnames(566,1)=
'COLD SUBURBAN1'
1656 cnames(567,1)=
'WARM SUBURBAN1'
1657 cnames(568,1)=
'WARM SUBURBAN2'
1658 cnames(569,1)=
'TEMPERATE SUBURBAN6'
1659 cnames(570,1)=
'TEMPERATE SUBURBAN7'
1660 cnames(571,1)=
'WARM SUBURBAN3'
1663 cnames(572,1)=
'SPANISH VINEYARDS1'
1664 cnames(573,1)=
'LANGUEDOC VINEYARDS1'
1669 cnames(1,2) =
"Mers et oc\'eans"
1670 cnames(2,2) =
"Lacs"
1671 cnames(3,2) =
"rivi\`eres"
1672 cnames(4,2) =
"Sol nu"
1673 cnames(5,2) =
"Rochers"
1674 cnames(6,2) =
"Neiges perp\'etuelles"
1675 cnames(7,2) =
"Ville"
1677 cnames(8,2) =
"\^iles non-d\'efinies (tropicales)"
1678 cnames(9,2) =
"\^iles non-d\'efinies (subpolaires)"
1680 cnames(10,2) =
"For\^et persistante de Patagonie "
1681 cnames(11,2) =
'Taiga'
1682 cnames(12,2) =
"For\^et de conif\`eres d'Extr\^eme-Orient "
1683 cnames(13,2) =
"For\^et de conif\`eres continentale am\'ericaine"
1684 cnames(14,2) =
"For\^et de conif\`eres subtropicale am\'ericaine"
1685 cnames(15,2) =
'"Rain forest"'
1687 cnames(16,2) =
"For\^et \'equatoriale africaine"
1688 cnames(17,2) =
"For\^et de Madagascar (aliz\'es)"
1689 cnames(18,2) =
"For\^et \'equatoriale d'Oc\'eanie"
1690 cnames(19,2) =
"For\^et persistante de Mousson"
1691 cnames(20,2) =
"For\^et tropicale humide d'Oc\'eanie"
1692 cnames(21,2) =
"For\^et amazonienne"
1693 cnames(22,2) =
"For\^et primaire de Tasmanie"
1694 cnames(23,2) =
"For\^et pan-am\'ericaine"
1696 cnames(24,2) =
"Taiga sib\'erienne caduque"
1698 cnames(25,2) =
"For\^et sub-amazonienne"
1699 cnames(26,2) =
"For\^et caduque am\'ericaine"
1700 cnames(27,2) =
"For\^et du Yucatan"
1701 cnames(28,2) =
"For\^et sub-tropicale br\'esilienne"
1703 cnames(29,2) =
"For\^et m\'elang\'ee tropicale s\`eche d'Afrique"
1704 cnames(30,2) =
"For\^et m\'elang\'ee caduque de Patagonie"
1705 cnames(31,2) =
"For\^et m\'elang\'ee sub-polaire"
1706 cnames(32,2) =
"For\^et m\'elang\'ee humide sub-tropicale"
1707 cnames(33,2) =
"For\^et m\'elang\'ee continentale"
1709 cnames(34,2) =
"Prairie bois\'ee sah\'elienne"
1710 cnames(35,2) =
"Prairie bois\'ee d'Afrique m\'eridionale"
1711 cnames(36,2) =
"Prairie bois\'ee \`a feuilles persistante"
1712 cnames(37,2) =
"Prairie bois\'ee \'equatoriale d'Oc\'eanie"
1713 cnames(38,2) =
"Prairie bois\'ee de Mousson"
1714 cnames(39,2) =
"Cerradao"
1715 cnames(40,2) =
"Cerradao d'Argentine"
1716 cnames(41,2) =
"Prairie bois\'ee polaire"
1717 cnames(42,2) =
"Prairie bois\'ee continentale"
1718 cnames(43,2) =
"Prairie bois\'ee d'Extr\^eme-Orient"
1719 cnames(44,2) =
"Prairie bois\'ee semi-aride"
1720 cnames(45,2) =
"Prairie bois\'ee des Rocheuses"
1721 cnames(46,2) =
"Prairie bois\'ee de Patagonie"
1722 cnames(47,2) =
"Prairie bois\'ee des Etats du Sud"
1724 cnames(48,2) =
"Savane arbor\'ee sub-saharienne"
1725 cnames(49,2) =
"Savane arbor\'ee sah\'elienne"
1726 cnames(50,2) =
"Prairie arbor\'ee \'equatoriale africaine"
1727 cnames(51,2) =
"Prairie arbor\'ee subtropicale africaine"
1728 cnames(52,2) =
"Prairie arbor\'ee nord-australienne"
1729 cnames(53,2) =
"Savane arbor\'ee australienne aride"
1730 cnames(54,2) =
"Prairie arbor\'ee n\'eo-z\'elandaise"
1731 cnames(55,2) =
"Prairie arbor\'ee d'Extr\^eme-Orient"
1732 cnames(56,2) =
"Cerrado"
1733 cnames(57,2) =
"Cerrado c\^otier"
1734 cnames(58,2) =
"Sertao"
1735 cnames(59,2) =
"Prairie arbor\'ee polaire"
1736 cnames(60,2) =
"Prairie arbor\'ee continentale"
1737 cnames(61,2) =
"Prairie arbor\'ee de Mousson"
1738 cnames(62,2) =
"Prairie arbor\'ee pan-am\'ericaine"
1739 cnames(63,2) =
"Prairie arbor\'ee des Etats du sud"
1740 cnames(64,2) =
"Prairie arbor\'ee de la cordill\`ere des Andes"
1741 cnames(65,2) =
"Prairie arbor\'ee Amazonienne"
1742 cnames(66,2) =
"Prairie arbor\'ee du Maghreb"
1744 cnames(67,2) =
"Savane arbustive d'Ethiopie"
1745 cnames(68,2) =
"Savane arbustive sah\'elienne"
1746 cnames(69,2) =
'"Bush" africain'
1747 cnames(70,2) =
'"Bush" australien'
1748 cnames(71,2) =
"Savane arbustive semi-d\'esertique"
1749 cnames(72,2) =
"Savane arbustive dense c\^oti\`ere d'Oc\'eanie"
1750 cnames(73,2) =
'"Bush" dense sud-australien'
1751 cnames(74,2) =
"Tundra arbustive dense"
1752 cnames(75,2) =
"Steppe asiatique arbustive dense"
1753 cnames(76,2) =
"Prairie arbustive de Mousson"
1754 cnames(77,2) =
"Tundra dense am\'ericaine"
1755 cnames(78,2) =
"Prairie arbustive d'altitude (Rocheuses)"
1756 cnames(79,2) =
"Prairie arbustive du Maghreb"
1758 cnames(80,2) =
"Savane \'eparse semi-d\'esertique"
1759 cnames(81,2) =
"Savane Sah\'elienne"
1760 cnames(82,2) =
"Bush \'epars"
1761 cnames(83,2) =
"Pampa"
1762 cnames(84,2) =
"Prairie \'eparse de Mousson"
1763 cnames(85,2) =
"Tundra polaire"
1764 cnames(86,2) =
"Tundra sub-polaire"
1765 cnames(87,2) =
"Prairie d'altitude (Rocheuses)"
1767 cnames(88,2) =
"Prairie tropicale africaine"
1768 cnames(89,2) =
"Prairie africaine semi-aride"
1769 cnames(90,2) =
"Prairie d'Afrique m\'eridionale"
1770 cnames(91,2) =
"Prairie \'equatoriale c\^oti\`ere"
1771 cnames(92,2) =
"Prairie semi-d\'esertique"
1772 cnames(93,2) =
"Prairie n\'eo-z\'elandaise"
1773 cnames(94,2) =
"Prairie de Mousson"
1774 cnames(95,2) =
"Prairie v\'en\'ezu\'elienne"
1775 cnames(96,2) =
"Prairie sub-amazonienne"
1776 cnames(97,2) =
"Pampa et prairie"
1777 cnames(98,2) =
"Prairie de Patagonie"
1778 cnames(99,2) =
"Steppes"
1779 cnames(100,2) =
"Prairie polaire"
1780 cnames(101,2) =
"Prairie d'Extr\^eme-Orient"
1781 cnames(102,2) =
"Prairie indienne"
1782 cnames(103,2) =
"Prairie d'altitude (Rocheuses)"
1783 cnames(104,2) =
"Prairie chinoise"
1785 cnames(105,2) =
"Cultures d\'esertique et le long du Nil"
1786 cnames(106,2) =
"Cultures sah\'elienne"
1787 cnames(107,2) =
"Cultures tropicales"
1788 cnames(108,2) =
"Cultures c\^oti\`eres africaines"
1789 cnames(109,2) =
"Cultures sud-australiennes"
1790 cnames(110,2) =
"Cultures pan-am\'ericaines"
1791 cnames(111,2) =
"Cultures de la plaine du Parana"
1792 cnames(112,2) =
"Zones cultiv\'ees sub-amazoniennes"
1793 cnames(113,2) =
"Zones cultiv\'ees trans-siberiennes"
1794 cnames(114,2) =
"Zones cultiv\'ees de Mandchourie"
1795 cnames(115,2) =
"Zones cultiv\'ees de Chine"
1796 cnames(116,2) =
"Zones cultiv\'ees sub-polaires"
1797 cnames(117,2) =
"Zones cultiv\'ees sub-himalayennes"
1798 cnames(118,2) =
"Cultures des Grandes Plaines"
1799 cnames(119,2) =
"Cultures des Etats du Sud"
1800 cnames(120,2) =
"Cultures californiennes"
1801 cnames(121,2) =
"Zones cultiv\'ees du Maghreb"
1802 cnames(122,2) =
"Zones cultiv\'ees d'Afrique du Sud"
1804 cnames(123,2) =
"Tundra \'eparse"
1806 cnames(124,2) =
"Marais tropicaux et sub-tropicaux"
1807 cnames(125,2) =
"Marais polaires et sub-polaires"
1809 cnames(151,2) =
"Urbain dense"
1810 cnames(152,2) =
"Suburbain m\'editerran\'een"
1811 cnames(153,2) =
"Suburbain temp\'er\'e"
1812 cnames(154,2) =
"Suburbain froid"
1813 cnames(155,2) =
"Zones industrielles et commerciales"
1814 cnames(156,2) =
"R\'eseaux routiers et ferroviaires"
1815 cnames(157,2) =
"Zones portuaires"
1816 cnames(158,2) =
"A\'eroports"
1817 cnames(159,2) =
"Extraction de mat\'eriaux, sites de construction"
1818 cnames(160,2) =
"Parcs urbains"
1819 cnames(161,2) =
"Equipements sportifs et de loisirs"
1821 cnames(162,2) =
"Cultures espagnoles"
1822 cnames(163,2) =
"Cultures d\'Estremadure"
1823 cnames(164,2) =
"Cultures m\'editerran\'eennes"
1824 cnames(165,2) =
"Cultures de la c\^ote atlantique"
1825 cnames(166,2) =
"Cultures temp\'er\'ees"
1826 cnames(167,2) =
"Cultures de la plaine du P\^o"
1827 cnames(168,2) =
"Cultures temp\'er\'ees chaudes"
1828 cnames(169,2) =
"Cultures ukrainiennes"
1829 cnames(170,2) =
"Cultures subpolaires"
1830 cnames(171,2) =
"Cultures montagneuses"
1831 cnames(172,2) =
"Cultures d'Europe Centrale"
1832 cnames(173,2) =
"Cultures turques"
1834 cnames(174,2) =
"Cultures m\'editerran\'eennes irrigu\'ees"
1835 cnames(175,2) =
"Cultures irrigu\'ees"
1836 cnames(176,2) =
"Rizi\`eres"
1838 cnames(177,2) =
"Vignobles m\'editerran\'eens"
1839 cnames(178,2) =
"Vignobles temp\'er\'es"
1840 cnames(179,2) =
"Arbres fruitiers m\'editerran\'eens"
1841 cnames(180,2) =
"Arbres fruitiers temp\'er\'es"
1842 cnames(181,2) =
"Oliveraies"
1844 cnames(182,2) =
"P\^atures temp\'er\'ees"
1845 cnames(183,2) =
"P\^atures c\^oti\`eres atlantiques"
1846 cnames(184,2) =
"P\^atures d'Europe Centrale et orientale"
1847 cnames(185,2) =
"P\^atures ukrainiennes"
1848 cnames(186,2) =
"P\^atures subpolaires"
1850 cnames(187,2) =
"Cultures complexes espagnoles"
1851 cnames(188,2) =
"Cultures complexes m\'editerran\'eennes"
1852 cnames(189,2) =
"Cultures complexes temp\'er\'ees"
1853 cnames(190,2) =
"Cultures complexes françaises"
1854 cnames(191,2) =
"Cultures complexes balkaniques"
1856 cnames(192,2) =
"Cultures bois\'ees m\'editerran\'eennes"
1857 cnames(193,2) =
"Cultures bois\'ees"
1858 cnames(194,2) =
"Cultures bois\'ees françaises"
1859 cnames(195,2) =
"Cultures bois\'ees m\'editerran\'eennes"
1860 cnames(196,2) =
"Cultures bois\'ees espagnoles"
1861 cnames(197,2) =
"Cultures bois\'ees des pays baltes"
1863 cnames(198,2) =
"Zones agro-foresti\`eres"
1865 cnames(199,2) =
"For\^et de feuillus espagnole"
1866 cnames(200,2) =
"For\^et de feuillus d\'Estremadure"
1867 cnames(201,2) =
"For\^et de feuillus m\'editerran\'eennes"
1868 cnames(202,2) =
"For\^et de feuillus de la c\^ote atlantique"
1869 cnames(203,2) =
"For\^et de feuillus temp\'er\'ee"
1870 cnames(204,2) =
"For\^et de feuillus montagneuses"
1871 cnames(205,2) =
"For\^et de feuillus balkanique"
1872 cnames(206,2) =
"For\^et de feuillus balkanique"
1873 cnames(207,2) =
"For\^et de feuillus de la mer Noire"
1875 cnames(208,2) =
"Pins m\'editerran\'eens"
1876 cnames(209,2) =
"For\^et des Landes"
1877 cnames(210,2) =
"For\^et de conif\`eres montagneuse"
1878 cnames(211,2) =
"For\^et de conif\`eres temp\'er\'ee"
1879 cnames(212,2) =
"Taiga subpolaire"
1880 cnames(213,2) =
"Taiga russe"
1881 cnames(214,2) =
"For\^et de conif\`eres turque"
1883 cnames(215,2) =
"For\^et mixte m\'editerran\'eenne"
1884 cnames(216,2) =
"For\^et mixte française \& c\^oti\`ere atlantique"
1885 cnames(217,2) =
"For\^et mixte subpolaire"
1886 cnames(218,2) =
"For\^et mixte montagneuses"
1887 cnames(219,2) =
"For\^et mixte d'Europe orientale"
1889 cnames(220,2) =
"Prairie m\'editerran\'eenne"
1890 cnames(221,2) =
"Prairie c\^oti\`ere atlantique"
1891 cnames(222,2) =
"Prairie balkanique"
1892 cnames(223,2) =
"Prairie d\'Estremadure"
1893 cnames(224,2) =
"Prairie subpolaire"
1894 cnames(225,2) =
"Tundra"
1896 cnames(226,2) =
"Landes turques"
1897 cnames(227,2) =
"Landes et broussailles m\'editerran\'eennes"
1898 cnames(228,2) =
"Landes et broussailles montagneuses"
1899 cnames(229,2) =
"Landes et broussailles c\^oti\`eres atlantiques"
1901 cnames(230,2) =
"V\'eg\'etation arbustive turque"
1902 cnames(231,2) =
"Maquis m\'editerran\'een"
1903 cnames(232,2) =
"Maquis montagneux"
1905 cnames(233,2) =
"Zones bois\'ees espagnoles"
1906 cnames(234,2) =
"Zones bois\'ees m\'editerran\'eennes"
1907 cnames(235,2) =
"Zones bois\'ees temp\'er\'ees"
1909 cnames(236,2) =
"V\'eg\'etation clairsem\'ee"
1910 cnames(237,2) =
"Zones br\^ul\'ees"
1911 cnames(238,2) =
"Zones humides temp\'er\'ees"
1912 cnames(239,2) =
"Zones humides subpolaires"
1913 cnames(240,2) =
"Tourbi\`eres"
1914 cnames(241,2) =
"Marais salants"
1917 cnames(242,2) =
"Zones intertidales"
1918 cnames(243,2) =
"Lagunes littorales"
1920 cnames(301,2)=
'N SCANDINAVIA TUNDRA1'
1921 cnames(302,2)=
'OURAL BF1'
1922 cnames(303,2)=
'CARELIE BF1'
1923 cnames(304,2)=
'NORTH RUSSIAN TAIGA1'
1924 cnames(305,2)=
'NORTH RUSSIAN TAIGA2'
1925 cnames(306,2)=
'CARELIE BF2'
1926 cnames(307,2)=
'RUSSIAN TAIGA3'
1927 cnames(308,2)=
'RUSSIAN BF1'
1928 cnames(309,2)=
'RUSSIAN TAIGA4'
1929 cnames(310,2)=
'S SCANDINAVIA TAIGA1'
1930 cnames(311,2)=
'SOUTH FINLANDIA MF1'
1931 cnames(312,2)=
'SOUTH NORWAY MF1'
1932 cnames(313,2)=
'BALTIC BF1'
1933 cnames(314,2)=
'BALTIC MF1'
1934 cnames(315,2)=
'SOUTH SWEDEN CF1'
1935 cnames(316,2)=
'BALTIC MF2'
1936 cnames(317,2)=
'SOUTH SWEDEN CF2'
1937 cnames(318,2)=
'SOUTH SWEDEN CF3'
1938 cnames(319,2)=
'SOUTH SWEDEN MF1'
1939 cnames(320,2)=
'MOUNTAIN MF1'
1940 cnames(321,2)=
'MOUNTAIN BF1'
1941 cnames(322,2)=
'TEMPERATE BF1'
1942 cnames(323,2)=
'TEMPERATE COMPLEX1'
1943 cnames(324,2)=
'MOUNTAIN CF1'
1944 cnames(325,2)=
'TEMP HERBACEOUS CF1'
1945 cnames(326,2)=
'ATLANTIC COAST BF1'
1946 cnames(327,2)=
'TURKISH CF1'
1947 cnames(328,2)=
'BALKAN CF1'
1948 cnames(329,2)=
'N SPAIN HERBAC MF1'
1949 cnames(330,2)=
'TEMP SW HERBAC CF1'
1950 cnames(331,2)=
'ATLANTIC COMPLEX1'
1951 cnames(332,2)=
'N SPAIN HERBAC MF2'
1952 cnames(333,2)=
'MEDITER COMPLEX1'
1953 cnames(334,2)=
'MEDITER COMPLEX2'
1954 cnames(335,2)=
'MEDITER COMPLEX3'
1955 cnames(336,2)=
'MEDITER COMPLEX4'
1956 cnames(337,2)=
'MEDITER COMPLEX5'
1957 cnames(338,2)=
'BURNT PORT HERBAC CF1'
1958 cnames(339,2)=
'BURNT PORT HERBAC BF1'
1959 cnames(340,2)=
'EGEE COAST COMPLEX1'
1960 cnames(341,2)=
'W MED COAST COMPLEX1'
1961 cnames(342,2)=
'MAGHR HERBACEOUS MF1'
1962 cnames(343,2)=
'ESTREM HERBACEOUS MF1'
1965 cnames(344,2)=
'POLAR MOUNT TUNDRA1'
1966 cnames(345,2)=
'POLAR MOUNT TUNDRA2'
1967 cnames(346,2)=
'S SCANDINAVIA TUNDRA1'
1968 cnames(347,2)=
'NORTH TUNDRA1'
1969 cnames(348,2)=
'S SCANDINAVIA TUNDRA2'
1970 cnames(349,2)=
'NORTH RUSSIA TUNDRA1'
1971 cnames(350,2)=
'ARAL CONTINENTAL GR1'
1972 cnames(351,2)=
'MOUNTAIN TAIGA MOORS1'
1973 cnames(352,2)=
'SCOTTISH SWAMP MOORS1'
1974 cnames(353,2)=
'ATLANTIC COMPLEX2'
1975 cnames(354,2)=
'ATLANTIC GR1'
1976 cnames(355,2)=
'IR SCOT SWAMP MOORS1'
1977 cnames(356,2)=
'ASIAN SPARSE GR1'
1978 cnames(357,2)=
'AS SPARSE SW COMPLEX1'
1979 cnames(358,2)=
'N CASPIAN DES OS1'
1980 cnames(359,2)=
'ATLAS AS SPARSE COMP1'
1981 cnames(360,2)=
'SPARSE SCO CEN EU GR1'
1982 cnames(361,2)=
'TEMPERATE COMPLEX2'
1983 cnames(362,2)=
'ATLANTIC COMPLEX3'
1984 cnames(363,2)=
'ATLANTIC COMPLEX4'
1985 cnames(364,2)=
'N ATLANTIC PASTURES1'
1986 cnames(365,2)=
'SPARSE SCO CEN EU GR2'
1987 cnames(366,2)=
'SPARSE MOUNT E EU GR1'
1988 cnames(367,2)=
'TUR N CASP CONT GR1'
1989 cnames(368,2)=
'N CASPIAN CONT GR1'
1990 cnames(369,2)=
'IRA N CASP CONT GR1'
1991 cnames(370,2)=
'TUR IRA MOUNT CONT GR1'
1992 cnames(371,2)=
'E CASPIAN DES OS1'
1993 cnames(372,2)=
'N CASPIAN COMPLEX1'
1994 cnames(373,2)=
'IRAN MOUNT CONT GR1'
1995 cnames(374,2)=
'ASIAN SPARSE DES OS1'
1996 cnames(375,2)=
'E CASPIAN DES OS2'
1997 cnames(376,2)=
'N MEDITER COMPLEX1'
1998 cnames(377,2)=
'N MEDITER COMPLEX2'
1999 cnames(378,2)=
'ASIAN MEDIT CONT GR1'
2000 cnames(379,2)=
'SOUTH RUSSIA CONT GR1'
2001 cnames(380,2)=
'BLSEA SPARSE CONT GR1'
2002 cnames(381,2)=
'BLSEA SPARSE CONT GR2'
2003 cnames(382,2)=
'TURK MOUNT CONT GR1'
2004 cnames(383,2)=
'TURKISH COMPLEX1'
2005 cnames(384,2)=
'CAUCASIAN COMPLEX1'
2006 cnames(385,2)=
'N CASPIAN CONT GR2'
2007 cnames(386,2)=
'VOLGA VALLEY CONT GR1'
2008 cnames(387,2)=
'VOLGA VALLEY CONT GR2'
2009 cnames(388,2)=
'W CASPIAN CONT GR1'
2010 cnames(389,2)=
'CAUCASIAN COMPLEX2'
2011 cnames(390,2)=
'CAUCASIAN COMPLEX3'
2012 cnames(391,2)=
'BLSEA SPARSE CONT GR3'
2013 cnames(392,2)=
'CENT MASSIF COMPLEX1'
2014 cnames(393,2)=
'CENT MASSIF COMPLEX2'
2015 cnames(394,2)=
'TURK COAST COMPLEX1'
2016 cnames(395,2)=
'MESOPOTAMIA GR1'
2017 cnames(396,2)=
'TURK CILICIA COMPLEX1'
2018 cnames(397,2)=
'ASIAN COMPLEX1'
2019 cnames(398,2)=
'N MED SPARSE COMPLEX1'
2020 cnames(399,2)=
'MEDITER COMPLEX6'
2021 cnames(400,2)=
'MEDIT SPARSE COMPLEX1'
2022 cnames(401,2)=
'MEDIT SPARSE COMPLEX2'
2023 cnames(402,2)=
'MEDIT SPARSE COMPLEX3'
2024 cnames(403,2)=
'MEDIT SPARSE COMPLEX4'
2025 cnames(404,2)=
'N MED HERBACEOUS CF1'
2026 cnames(405,2)=
'ESTREMADURA GR1'
2027 cnames(406,2)=
'TUNISIA COMPLEX1'
2028 cnames(407,2)=
'TUNISIA HERBACEOUS1'
2029 cnames(408,2)=
'ALGERIA HERBACEOUS1'
2030 cnames(409,2)=
'DESERTIC HERBACEOUS1'
2031 cnames(410,2)=
'DESERTIC HERBACEOUS2'
2032 cnames(411,2)=
'SPAIN DES COMPLEX1'
2033 cnames(412,2)=
'MED SPARSE COMPLEX5'
2034 cnames(413,2)=
'MED SPARSE COMPLEX6'
2035 cnames(414,2)=
'MED SPARSE COMPLEX7'
2036 cnames(415,2)=
'ME SPARSE DES COMPL1'
2037 cnames(416,2)=
'NORTH ARABIA GR1'
2038 cnames(417,2)=
'N ARABIA DES COMPLEX1'
2039 cnames(418,2)=
'N ARABIA DESERTIC GR1'
2040 cnames(419,2)=
'MOROCCO HERBACEOUS1'
2041 cnames(420,2)=
'S MED COAST HERBAC1'
2042 cnames(421,2)=
'W MEDITER WOODLAND1'
2043 cnames(422,2)=
'S MED COAST HERBAC2'
2044 cnames(423,2)=
'MESOP DES HERBACEOUS1'
2045 cnames(424,2)=
'MAG COAST DES HERBAC1'
2046 cnames(425,2)=
'TU AR SPARSE HERBAC1'
2047 cnames(426,2)=
'MEDIT SPARSE COMPLEX8'
2048 cnames(427,2)=
'MED SPARSE HERBAC1'
2049 cnames(428,2)=
'MEDIT SPARSE COMPLEX9'
2050 cnames(429,2)=
'SPAIN SPARSE COMPLEX1'
2051 cnames(430,2)=
'N MED SPARSE COMPLEX2'
2052 cnames(431,2)=
'N MED SPARSE COMPLEX3'
2053 cnames(432,2)=
'MAGHRE DES HERBAC1'
2054 cnames(433,2)=
'MAGHRE DES HERBAC2'
2055 cnames(434,2)=
'MAGHRE DES HERBAC3'
2056 cnames(435,2)=
'N ARAB DES HERBAC1'
2057 cnames(436,2)=
'MESOPO DES HERBAC2'
2058 cnames(437,2)=
'TOURAN DES HERBAC1'
2059 cnames(438,2)=
'MESOPO DES HERBAC2'
2060 cnames(439,2)=
'TOURAN DES HERBAC2'
2061 cnames(440,2)=
'NEW ZEMBLE HERBAC1'
2062 cnames(441,2)=
'NEW ZEMBLE HERBAC2'
2065 cnames(442,2)=
'TRANS SIBERIAN CROPS1'
2066 cnames(443,2)=
'PO PLAIN CROPS1'
2067 cnames(444,2)=
'PO PLAIN CROPS2'
2068 cnames(445,2)=
'SPANISH FRENCH CROPS1'
2069 cnames(446,2)=
'SPANISH FR ITAL CROPS1'
2070 cnames(447,2)=
'DANUBE PLAIN CROPS1'
2071 cnames(448,2)=
'N MED SPARSE COMPLEX4'
2072 cnames(449,2)=
'BALKAN CROPS1'
2073 cnames(450,2)=
'SPAIN FR ITAL CROPS2'
2074 cnames(451,2)=
'ATLANTIC CROPS1'
2075 cnames(452,2)=
'FR MED SPARSE CROPS1'
2076 cnames(453,2)=
'FR MED SPARSE CROPS2'
2077 cnames(454,2)=
'ATL MED SPARSE CROPS1'
2078 cnames(455,2)=
'BENE BLACK SEA CROPS1'
2079 cnames(456,2)=
'FRENCH ITALIAN CROPS1'
2080 cnames(457,2)=
'FR MED SPARSE CROPS3'
2081 cnames(458,2)=
'MEDITER SPARSE CROPS1'
2082 cnames(459,2)=
'ATLANTIC CROPS2'
2083 cnames(460,2)=
'NORTH ATLANTIC CROPS1'
2084 cnames(461,2)=
'SOUTH RUSSIA CROPS1'
2085 cnames(462,2)=
'S RUSSIA BALTIC CROPS1'
2086 cnames(463,2)=
'UKRAINIAN CROPS1'
2087 cnames(464,2)=
'EAST CARPATES CROPS1'
2088 cnames(465,2)=
'E CENT EUROPE CROPS1'
2089 cnames(466,2)=
'W CENT EU SW CROPS1'
2090 cnames(467,2)=
'HUNGARIAN CROPS1'
2091 cnames(468,2)=
'N BLACK SEA CROPS1'
2092 cnames(469,2)=
'HUNG BULG CAUC CROPS1'
2093 cnames(470,2)=
'SOUTH SWEDEN CROPS1'
2094 cnames(471,2)=
'SW RUSSIA CROPS1'
2095 cnames(472,2)=
'SOUTH RUSSIA CROPS1'
2096 cnames(473,2)=
'IRAN N CASPIAN CROPS1'
2097 cnames(474,2)=
'FR TEMP SPARSE CROPS1'
2098 cnames(475,2)=
'BULGARIAN CROPS1'
2099 cnames(476,2)=
'BULGARIAN CROPS2'
2100 cnames(477,2)=
'SP TURK SPARSE CROPS1'
2101 cnames(478,2)=
'FRENCH CENT EU CROPS1'
2102 cnames(479,2)=
'N BLACK SEA CROPS2'
2103 cnames(480,2)=
'BULGARIAN CROPS3'
2104 cnames(481,2)=
'POLE CROPS1'
2105 cnames(482,2)=
'POLE CROPS2'
2106 cnames(483,2)=
'N BLACK SEA CROPS3'
2107 cnames(484,2)=
'CENT EU SPARSE CROPS1'
2108 cnames(485,2)=
'GERMAN CROPS1'
2109 cnames(486,2)=
'BEAUCE CROPS1'
2110 cnames(487,2)=
'DANE CROPS1'
2111 cnames(488,2)=
'DANE CROPS2'
2112 cnames(489,2)=
'NEU ATL SPARSE CROPS1'
2113 cnames(490,2)=
'SYRIAN CROPS1'
2114 cnames(491,2)=
'GERMAN CROPS2'
2115 cnames(492,2)=
'CHANNEL CROPS1'
2116 cnames(493,2)=
'CHANNEL CROPS2'
2117 cnames(494,2)=
'ITALIAN CROPS1'
2118 cnames(495,2)=
'TURKISH CROPS1'
2119 cnames(496,2)=
'N MEDIT SPARSE CROPS1'
2120 cnames(497,2)=
'SPAIN TUR ARAB CROPS1'
2121 cnames(498,2)=
'NORTH SPAIN CROPS1'
2122 cnames(499,2)=
'MOROCCO TUNIS CROPS1'
2123 cnames(500,2)=
'MOROCCO CROPS1'
2124 cnames(501,2)=
'MOROCCO CROPS2'
2125 cnames(502,2)=
'ALGERIAN CROPS1'
2126 cnames(503,2)=
'MOROCCO CROPS3'
2127 cnames(504,2)=
'WEST SPAIN CROPS1'
2128 cnames(505,2)=
'MOROCCO CROPS4'
2129 cnames(506,2)=
'NORTH MEDITER CROPS1'
2130 cnames(507,2)=
'SOUTH SPANISH CROPS1'
2131 cnames(508,2)=
'SICILIAN CROPS1'
2132 cnames(509,2)=
'MAGHREB SPARSE CROPS1'
2133 cnames(510,2)=
'N MEDIT SPARSE CROPS2'
2134 cnames(511,2)=
'N MEDIT SPARSE CROPS3'
2135 cnames(512,2)=
'SP IT WCOAST CROPS1'
2136 cnames(513,2)=
'ESTREMADURA CROPS1'
2137 cnames(514,2)=
'ESTREMADURA CROPS2'
2138 cnames(515,2)=
'SP IT WCOAST CROPS2'
2139 cnames(516,2)=
'ESTREMADURA CROPS3'
2140 cnames(517,2)=
'MEDIT ISLANDS CROPS1'
2141 cnames(518,2)=
'SPAIN W COAST CROPS1'
2142 cnames(519,2)=
'ESTREMADURA CROPS4'
2143 cnames(520,2)=
'MECOAST SPARSE CROPS1'
2144 cnames(521,2)=
'BRITTANY CROPS1'
2145 cnames(522,2)=
'SYRIAN CROPS2'
2148 cnames(523,2)=
'NIL VALLEY CROPS1'
2149 cnames(524,2)=
'NIL VALLEY CROPS2'
2150 cnames(525,2)=
'NIL VALLEY CROPS3'
2151 cnames(526,2)=
'NIL VALLEY CROPS4'
2152 cnames(527,2)=
'SPANISH IRR CROPS1'
2153 cnames(528,2)=
'NIL VALLEY CROPS5'
2154 cnames(529,2)=
'EGEE IRR CROPS1'
2155 cnames(530,2)=
'MEDITER IRR CROPS1'
2156 cnames(531,2)=
'S SPAIN IRR CROPS1'
2157 cnames(532,2)=
'NIL VALLEY CROPS6'
2160 cnames(533,2)=
'BARE ROCK1'
2161 cnames(534,2)=
'BARE ROCK2'
2162 cnames(535,2)=
'SANDY DESERT1'
2163 cnames(536,2)=
'BARE LAND1'
2164 cnames(537,2)=
'BARE LAND2'
2165 cnames(538,2)=
'BARE LAND3'
2166 cnames(539,2)=
'BARE LAND4'
2167 cnames(540,2)=
'BARE LAND5'
2168 cnames(541,2)=
'BARE LAND6'
2169 cnames(542,2)=
'BARE LAND7'
2170 cnames(543,2)=
'BARE LAND8'
2171 cnames(544,2)=
'BARE LAND9'
2172 cnames(545,2)=
'BARE LAND10'
2173 cnames(546,2)=
'BARE LAND11'
2174 cnames(547,2)=
'BARE LAND12'
2175 cnames(548,2)=
'PERMANENT SNOW1'
2178 cnames(549,2)=
'WADDEN SEA'
2179 cnames(550,2)=
'ESTUARY1'
2180 cnames(551,2)=
'ESTUARY2'
2181 cnames(552,2)=
'POLAR WETLANDS1'
2182 cnames(553,2)=
'ESTUARY3'
2183 cnames(554,2)=
'ESTUARY4'
2184 cnames(555,2)=
'ESTUARY5'
2185 cnames(556,2)=
'ESTUARY6'
2186 cnames(557,2)=
'POLAR WETLANDS2'
2187 cnames(558,2)=
'SUBPOLAR WETLANDS1'
2188 cnames(559,2)=
'SUBPOLAR WETLANDS2'
2189 cnames(560,2)=
'SUBPOLAR WETLANDS3'
2192 cnames(561,2)=
'TEMPERATE SUBURBAN1'
2193 cnames(562,2)=
'TEMPERATE SUBURBAN2'
2194 cnames(563,2)=
'TEMPERATE SUBURBAN3'
2195 cnames(564,2)=
'TEMPERATE SUBURBAN4'
2196 cnames(565,2)=
'TEMPERATE SUBURBAN5'
2197 cnames(566,2)=
'COLD SUBURBAN1'
2198 cnames(567,2)=
'WARM SUBURBAN1'
2199 cnames(568,2)=
'WARM SUBURBAN2'
2200 cnames(569,2)=
'TEMPERATE SUBURBAN6'
2201 cnames(570,2)=
'TEMPERATE SUBURBAN7'
2202 cnames(571,2)=
'WARM SUBURBAN3'
2205 cnames(572,2)=
'SPANISH VINEYARDS1'
2206 cnames(573,2)=
'LANGUEDOC VINEYARDS1'
2209 IF (.NOT.
ALLOCATED(cname))
ALLOCATE(cname(jpcover))
2210 IF (clang==
'EN')
THEN
2212 cname(jcover) = cnames(jcover,1)
2216 cname(jcover) = cnames(jcover,2)
2229 xdata_nature,xdata_town,xdata_sea,xdata_water,xdata_vegtype, &
2230 xdata_garden,u%LGARDEN, xdata_bld, xdata_wall_o_hor )
2232 xdata_root_depthgv(:,:) = xdata_root_depth(:,:)
2246 CALL
ini_data_param(dtco%XDATA_VEGTYPE, psurf=dtco%XDATA_NATURE, psurf2=dtco%XDATA_GARDEN, ph_tree=xdata_h_tree,plai=xdata_lai, &
2247 palbnir_veg=xdata_albnir_veg, palbvis_veg=xdata_albvis_veg, &
2248 palbuv_veg=xdata_albuv_veg, prsmin=xdata_rsmin, &
2249 prgl=xdata_rgl, pcv=xdata_cv, pgamma=xdata_gamma, &
2250 pgmes=xdata_gmes, pgc=xdata_gc, pbslai=xdata_bslai, &
2251 psefold=xdata_sefold, plaimin_out=xdata_laimin, pdmax=xdata_dmax, &
2252 pstress=xdata_stress, pf2i=xdata_f2i, pveg_out=xdata_veg, &
2253 pgreen=xdata_green, pz0=xdata_z0, pz0_o_z0h=xdata_z0_o_z0h, &
2254 pemis_eco=xdata_emis_eco, pwrmax_cf=xdata_wrmax_cf, &
2255 proot_lin=xdata_root_lin, proot_extinction=xdata_root_extinction, &
2256 psoilrc_so2=xdata_soilrc_so2, psoilrc_o3=xdata_soilrc_o3, pre25=xdata_re25, &
2257 pce_nitro=xdata_ce_nitro,pcf_nitro=xdata_cf_nitro,pcna_nitro=xdata_cna_nitro, &
2258 pgmes_st=xdata_gmes_st, pgc_st=xdata_gc_st, pbslai_st=xdata_bslai_st, &
2259 psefold_st=xdata_sefold_st, pdmax_st=xdata_dmax_st, &
2260 pgndlitter=xdata_gndlitter, &
2261 prglgv=xdata_rglgv,pgammagv=xdata_gammagv, prsmingv=xdata_rsmingv, &
2262 proot_extinctiongv=xdata_root_extinctiongv, pwrmax_cfgv=xdata_wrmax_cfgv, &
2263 ph_veg=xdata_h_veg, plaigv_out=xdata_laigv, pz0litter=xdata_z0litter )
2278 IF (lhook) CALL dr_hook(
'INI_DATA_COVER',1,zhook_handle)
subroutine default_lai_eco1_02
subroutine default_alb_veg_eco1_07
subroutine default_alb_veg_eco1_17
subroutine default_lai_eco1_04
subroutine default_alb_veg_eco1_18
subroutine default_alb_veg_eco1_10
subroutine default_alb_veg_eco1_15
subroutine default_lai_eco1_19
subroutine read_covers_param(KFILE)
subroutine default_lai_eco1_14
subroutine default_lai_eco1_11
subroutine default_lai_eco1_10
subroutine default_alb_veg_eco1_09
subroutine default_lai_eco1_06
subroutine abor1_sfx(YTEXT)
subroutine default_lai_eco1_08
subroutine default_lai_eco1_09
subroutine default_alb_veg_eco1_05
subroutine default_alb_veg_eco1_01
subroutine default_lai_eco1_07
subroutine ini_data_param(PTYPE, PSURF, PSURF2, PLAI, PH_TREE, PALBNIR_VEG, PALBVIS_VEG, PALBUV_VEG, PRSMIN, PRGL, PCV, PGAMMA, PGMES, PGC, PBSLAI, PSEFOLD, PLAIMIN_IN, PLAIMIN_OUT, PDMAX, PSTRESS, PF2I, PVEG_IN, PVEG_OUT, PGREEN, PZ0, PZ0_O_Z0H, PEMIS_ECO, PWRMAX_CF, PROOT_LIN, PROOT_EXTINCTION, PSOILRC_SO2, PSOILRC_O3, PRE25, PCE_NITRO, PCF_NITRO, PCNA_NITRO, PGMES_ST, PGC_ST, PBSLAI_ST, PSEFOLD_ST, PDMAX_ST, PGNDLITTER, PZF_TALLVEG, PRGLGV, PGAMMAGV, PRSMINGV, PROOT_EXTINCTIONGV, PWRMAX_CFGV, PH_VEG, PLAIGV_IN, PLAIGV_OUT, PZ0LITTER, OAGRI_TO_GRASS)
subroutine arrange_cover(DTCO, U, PDATA_NATURE, PDATA_TOWN, PDATA_SEA, PDATA_WATER, PDATA_VEGTYPE, PDATA_GARDEN, OGARDEN, PDATA_BLD, PDATA_WALL_O_HOR)
subroutine default_lai_eco1_03
subroutine default_lai_eco1_05
subroutine default_alb_veg_eco1_08
subroutine default_alb_veg_eco1_11
subroutine default_lai_eco1_16
subroutine default_lai_eco1_13
subroutine default_alb_veg_eco1_03
subroutine default_alb_veg_eco1_16
subroutine default_lai_eco1_18
subroutine wlog_mpi(HLOG, PLOG, KLOG, KLOG2, OLOG)
subroutine default_lai_eco1_12
subroutine default_data_cover
subroutine default_alb_veg_eco1_13
subroutine default_lai_eco1_01
subroutine ecoclimap2_lai(DTCO)
subroutine default_alb_veg_eco1_12
subroutine default_alb_veg_eco1_19
subroutine default_alb_veg_eco1_06
subroutine default_lai_eco1_15
subroutine default_lai_eco1_17
subroutine default_alb_soil_eco2
subroutine default_alb_soil_eco1
subroutine default_alb_veg_eco1_04
subroutine default_alb_veg_eco1_02
subroutine ini_data_cover(DTCO, U)
subroutine default_alb_veg_eco1_14