subroutine uEMEP_set_landuse_classes use uEMEP_definitions implicit none !test !landuse_proxy_weighting(heating_index,Continuous_urban_fabric_value)=1. !landuse_proxy_weighting(heating_index,Discontinuous_urban_fabric_value)=0.5 Continuous_urban_fabric_value=1 Discontinuous_urban_fabric_value=2 Industrial_or_commercial_units_value=3 Road_and_rail_networks_and_associated_land_value=4 Port_areas_value=5 Airports_value=6 Mineral_extraction_sites_value=7 Dump_sites_value=8 Construction_sites_value=9 Green_urban_areas_value=10 Sport_and_leisure_facilities_value=11 Non_irrigated_arable_land_value=12 Permanently_irrigated_land_value=13 Rice_fields_value=14 Vineyards_value=15 Fruit_trees_and_berry_plantations_value=16 Olive_groves_value=17 Pastures_value=18 Annual_crops_associated_with_permanent_crops_value=19 Complex_cultivation_patterns_value=20 Land_principally_occupied_by_agriculture_value=21 Agro_forestry_areas_value=22 Broad_leaved_forest_value=23 Coniferous_forest_value=24 Mixed_forest_value=25 Natural_grasslands_value=26 Moors_and_heathland_value=27 Sclerophyllous_vegetation_value=28 Transitional_woodland_shrub_value=29 Beaches_dunes_sands_value=30 Bare_rocks_value=31 Sparsely_vegetated_areas_value=32 Burnt_areas_value=33 Glaciers_and_perpetual_snow_value=34 Inland_marshes_value=35 Peat_bogs_value=36 Salt_marshes_value=37 Salines_value=38 Intertidal_flats_value=39 Water_courses_value=40 Water_bodies_value=41 Coastal_lagoons_value=42 Estuaries_value=43 Sea_and_ocean_value=44 NODATA_clc_value=48 Corine_to_EMEP_landuse(Continuous_urban_fabric_value)=urban_index Corine_to_EMEP_landuse(Discontinuous_urban_fabric_value)=urban_index Corine_to_EMEP_landuse(Industrial_or_commercial_units_value)=urban_index Corine_to_EMEP_landuse(Road_and_rail_networks_and_associated_land_value)=urban_index Corine_to_EMEP_landuse(Port_areas_value)=urban_index Corine_to_EMEP_landuse(Airports_value)=urban_index Corine_to_EMEP_landuse(Mineral_extraction_sites_value)=urban_index Corine_to_EMEP_landuse(Dump_sites_value)=urban_index Corine_to_EMEP_landuse(Construction_sites_value)=urban_index Corine_to_EMEP_landuse(Green_urban_areas_value)=grass_index Corine_to_EMEP_landuse(Sport_and_leisure_facilities_value)=urban_index Corine_to_EMEP_landuse(Non_irrigated_arable_land_value)=grass_index Corine_to_EMEP_landuse(Permanently_irrigated_land_value)=grass_index Corine_to_EMEP_landuse(Rice_fields_value)=wetlands_index Corine_to_EMEP_landuse(Vineyards_value)=med_crop_index Corine_to_EMEP_landuse(Fruit_trees_and_berry_plantations_value)=med_crop_index Corine_to_EMEP_landuse(Olive_groves_value)=med_crop_index Corine_to_EMEP_landuse(Pastures_value)=grass_index Corine_to_EMEP_landuse(Annual_crops_associated_with_permanent_crops_value)=temp_crop_index Corine_to_EMEP_landuse(Complex_cultivation_patterns_value)=temp_crop_index Corine_to_EMEP_landuse(Land_principally_occupied_by_agriculture_value)=temp_crop_index Corine_to_EMEP_landuse(Agro_forestry_areas_value)=temp_decid_index Corine_to_EMEP_landuse(Broad_leaved_forest_value)=temp_decid_index Corine_to_EMEP_landuse(Coniferous_forest_value)=med_needle_index Corine_to_EMEP_landuse(Mixed_forest_value)=med_broadleaf_index Corine_to_EMEP_landuse(Natural_grasslands_value)=grass_index Corine_to_EMEP_landuse(Moors_and_heathland_value)=moorland_index Corine_to_EMEP_landuse(Sclerophyllous_vegetation_value)=medscrub_index Corine_to_EMEP_landuse(Transitional_woodland_shrub_value)=moorland_index Corine_to_EMEP_landuse(Beaches_dunes_sands_value)=desert_index Corine_to_EMEP_landuse(Bare_rocks_value)=urban_index Corine_to_EMEP_landuse(Sparsely_vegetated_areas_value)=medscrub_index Corine_to_EMEP_landuse(Burnt_areas_value)=medscrub_index Corine_to_EMEP_landuse(Glaciers_and_perpetual_snow_value)=ice_index Corine_to_EMEP_landuse(Inland_marshes_value)=wetlands_index Corine_to_EMEP_landuse(Peat_bogs_value)=wetlands_index Corine_to_EMEP_landuse(Salt_marshes_value)=wetlands_index Corine_to_EMEP_landuse(Salines_value)=wetlands_index Corine_to_EMEP_landuse(Intertidal_flats_value)=wetlands_index Corine_to_EMEP_landuse(Water_courses_value)=wetlands_index Corine_to_EMEP_landuse(Water_bodies_value)=water_index Corine_to_EMEP_landuse(Coastal_lagoons_value)=water_index Corine_to_EMEP_landuse(Estuaries_value)=water_index Corine_to_EMEP_landuse(Sea_and_ocean_value)=water_index Corine_to_EMEP_landuse(NODATA_clc_value)=grid_index end subroutine uEMEP_set_landuse_classes