Gaelle 26/01/2018 SURFEX V8.1
authorGaelle DELAUTIER <gaelle.delautier@meteo.fr>
Fri, 26 Jan 2018 09:16:40 +0000 (10:16 +0100)
committerGaelle DELAUTIER <gaelle.delautier@meteo.fr>
Fri, 26 Jan 2018 09:16:40 +0000 (10:16 +0100)
1228 files changed:
src/SURFEX/adapt_horibl_surf.F90 [deleted file]
src/SURFEX/albedo.F90
src/SURFEX/albedo_ta96.F90
src/SURFEX/albedo_veg_update.F90 [deleted file]
src/SURFEX/alloc_diag_surf_atmn.F90
src/SURFEX/alloc_diag_teb_greenroof.F90 [deleted file]
src/SURFEX/alloc_surfex.F90 [deleted file]
src/SURFEX/allocate_gr_snow.F90
src/SURFEX/allocate_physio.F90
src/SURFEX/allocate_teb_garden.F90 [deleted file]
src/SURFEX/allocate_teb_garden_pgd.F90 [deleted file]
src/SURFEX/allocate_teb_greenroof.F90 [deleted file]
src/SURFEX/allocate_teb_greenroof_pgd.F90 [deleted file]
src/SURFEX/allocate_teb_veg.F90 [new file with mode: 0644]
src/SURFEX/allocate_teb_veg_pgd.F90 [new file with mode: 0644]
src/SURFEX/arpege_stretch_a.F90 [moved from src/SURFEX/hor_interpol_gauss_1cov.F90 with 67% similarity]
src/SURFEX/arrange_cover.F90
src/SURFEX/assim_inland_watern.F90 [deleted file]
src/SURFEX/assim_isba_update_snow.F90 [deleted file]
src/SURFEX/assim_isban.F90 [deleted file]
src/SURFEX/assim_nature_isba_ekf.F90 [deleted file]
src/SURFEX/assim_nature_isba_enkf.F90 [deleted file]
src/SURFEX/assim_nature_isba_oi.F90 [deleted file]
src/SURFEX/assim_naturen.F90 [deleted file]
src/SURFEX/assim_sean.F90 [deleted file]
src/SURFEX/assim_set_sst.F90 [deleted file]
src/SURFEX/assim_surf_atmn.F90 [deleted file]
src/SURFEX/assim_tebn.F90 [deleted file]
src/SURFEX/assim_townn.F90 [deleted file]
src/SURFEX/autogen_modintfb.h [deleted file]
src/SURFEX/av_pgd.F90
src/SURFEX/av_pgd_1p.F90 [new file with mode: 0644]
src/SURFEX/av_pgd_param.F90
src/SURFEX/average1_cover.F90
src/SURFEX/average1_cti.F90
src/SURFEX/average1_ldb.F90
src/SURFEX/average1_mesh.F90
src/SURFEX/average1_orography.F90
src/SURFEX/average2_cover.F90
src/SURFEX/average2_cti.F90
src/SURFEX/average2_ldb.F90
src/SURFEX/average2_mesh.F90
src/SURFEX/average2_orography.F90
src/SURFEX/average_diag.F90
src/SURFEX/average_diag_evap_isban.F90
src/SURFEX/average_diag_isban.F90
src/SURFEX/average_diag_misc_isban.F90
src/SURFEX/averaged_albedo_emis_isba.F90
src/SURFEX/averaged_albedo_teb.F90
src/SURFEX/averaged_tsrad_teb.F90
src/SURFEX/avg_albedo_emis_garden.F90 [deleted file]
src/SURFEX/avg_albedo_emis_greenroof.F90 [deleted file]
src/SURFEX/avg_albedo_emis_teb_veg.F90 [new file with mode: 0644]
src/SURFEX/avg_urban_fluxes.F90
src/SURFEX/bem.F90
src/SURFEX/bem_morpho.F90
src/SURFEX/bilin.F90 [deleted file]
src/SURFEX/bilin_coef.F90 [new file with mode: 0644]
src/SURFEX/bilin_extrap.F90 [new file with mode: 0644]
src/SURFEX/bilin_gridin.F90 [new file with mode: 0644]
src/SURFEX/bilin_value.F90 [new file with mode: 0644]
src/SURFEX/bld_occ_calendar.F90
src/SURFEX/build_emisstabn.F90
src/SURFEX/build_pronoslistn.F90
src/SURFEX/canopy.F90
src/SURFEX/canopy_evol.F90
src/SURFEX/canopy_evol_neutral.F90 [deleted file]
src/SURFEX/canopy_evol_temp.F90
src/SURFEX/canopy_evol_tke.F90
src/SURFEX/canopy_evol_wind.F90
src/SURFEX/canopy_grid.F90
src/SURFEX/canopy_grid_update.F90
src/SURFEX/carbon_evol.F90
src/SURFEX/carbon_init.F90
src/SURFEX/carbon_spinup.F90
src/SURFEX/ch_bvocemn.F90
src/SURFEX/ch_conversion_factor.F90
src/SURFEX/ch_dep_isba.F90
src/SURFEX/ch_emission_fluxn.F90
src/SURFEX/ch_emission_snapn.F90
src/SURFEX/ch_emission_to_atmn.F90
src/SURFEX/ch_init_dep_isban.F90
src/SURFEX/ch_init_depconst.F90
src/SURFEX/ch_init_emissionn.F90
src/SURFEX/ch_init_names.F90
src/SURFEX/ch_init_snapn.F90
src/SURFEX/choldc.F90 [deleted file]
src/SURFEX/cholsl.F90 [deleted file]
src/SURFEX/circumsolar_rad.F90
src/SURFEX/cli_lake.F90
src/SURFEX/close_aux_io_surf.F90
src/SURFEX/close_aux_io_surf_asc.F90
src/SURFEX/close_aux_io_surf_fa.F90
src/SURFEX/close_file_asc.F90
src/SURFEX/close_file_fa.F90
src/SURFEX/close_namelist.F90
src/SURFEX/close_namelist_asc.F90
src/SURFEX/close_namelist_fa.F90
src/SURFEX/cls_tq.F90
src/SURFEX/cls_wind.F90
src/SURFEX/co2_initn.F90
src/SURFEX/co2_teb_greenroof_initn.F90 [deleted file]
src/SURFEX/coare30_flux.F90
src/SURFEX/coare30_seaflux.F90
src/SURFEX/coef_ver_interp_lin_surf.F90
src/SURFEX/compute_isba_parameters.F90
src/SURFEX/conserv_global_mass.F90
src/SURFEX/consphy.h [deleted file]
src/SURFEX/convert_cover_ch_isba.F90
src/SURFEX/convert_cover_isba.F90
src/SURFEX/convert_cover_teb_veg.F90 [deleted file]
src/SURFEX/convert_patch_garden.F90 [deleted file]
src/SURFEX/convert_patch_isba.F90
src/SURFEX/convert_patch_teb.F90
src/SURFEX/convert_patch_teb_greenroof.F90 [deleted file]
src/SURFEX/convert_teb.F90
src/SURFEX/cotwoinitn.F90
src/SURFEX/cotwores.F90
src/SURFEX/coupling_dstn.F90
src/SURFEX/coupling_flake_orographyn.F90
src/SURFEX/coupling_flake_sbln.F90
src/SURFEX/coupling_flaken.F90
src/SURFEX/coupling_icefluxn.F90
src/SURFEX/coupling_ideal_flux.F90
src/SURFEX/coupling_inland_watern.F90
src/SURFEX/coupling_isba_canopyn.F90
src/SURFEX/coupling_isba_orographyn.F90
src/SURFEX/coupling_isba_svatn.F90
src/SURFEX/coupling_isban.F90
src/SURFEX/coupling_naturen.F90
src/SURFEX/coupling_seaflux_orogn.F90
src/SURFEX/coupling_seaflux_sbln.F90
src/SURFEX/coupling_seafluxn.F90
src/SURFEX/coupling_sean.F90
src/SURFEX/coupling_seawat_sbln.F90 [deleted file]
src/SURFEX/coupling_surf_atmn.F90
src/SURFEX/coupling_teb_orographyn.F90
src/SURFEX/coupling_tebn.F90
src/SURFEX/coupling_townn.F90
src/SURFEX/coupling_tsz0n.F90
src/SURFEX/coupling_watflux_orogn.F90
src/SURFEX/coupling_watflux_sbln.F90
src/SURFEX/coupling_watfluxn.F90
src/SURFEX/cpl_gcmn.F90
src/SURFEX/cumul_diag_tebn.F90
src/SURFEX/dealloc_diag_surf_atmn.F90
src/SURFEX/dealloc_flaken.F90
src/SURFEX/dealloc_gr_snow.F90 [new file with mode: 0644]
src/SURFEX/dealloc_inland_watern.F90
src/SURFEX/dealloc_isban.F90
src/SURFEX/dealloc_naturen.F90
src/SURFEX/dealloc_seafluxn.F90
src/SURFEX/dealloc_sean.F90
src/SURFEX/dealloc_surf_atmn.F90
src/SURFEX/dealloc_surfex.F90 [deleted file]
src/SURFEX/dealloc_tebn.F90
src/SURFEX/dealloc_townn.F90
src/SURFEX/dealloc_watfluxn.F90
src/SURFEX/deepsoil_update.F90
src/SURFEX/default_assim.F90
src/SURFEX/default_data_cover.F90
src/SURFEX/default_diag_isba.F90
src/SURFEX/default_diag_seaflux.F90
src/SURFEX/default_diag_surf_atm.F90
src/SURFEX/default_diag_teb.F90
src/SURFEX/default_dst.F90
src/SURFEX/default_flake.F90
src/SURFEX/default_isba.F90
src/SURFEX/default_prep_flake.F90
src/SURFEX/default_prep_isba.F90
src/SURFEX/default_prep_seaflux.F90
src/SURFEX/default_prep_teb.F90
src/SURFEX/default_prep_teb_garden.F90
src/SURFEX/default_prep_teb_greenroof.F90
src/SURFEX/default_prep_watflux.F90
src/SURFEX/default_seaflux.F90
src/SURFEX/default_seaice.F90
src/SURFEX/default_slt.F90
src/SURFEX/default_teb_veg.F90
src/SURFEX/default_write_surf_atm.F90
src/SURFEX/detect_field.F90
src/SURFEX/dgam.F90
src/SURFEX/diag_cpl_esm_flake.F90
src/SURFEX/diag_cpl_esm_isba.F90
src/SURFEX/diag_cpl_esm_sea.F90
src/SURFEX/diag_cpl_esm_water.F90
src/SURFEX/diag_evap_cumul_isban.F90 [new file with mode: 0644]
src/SURFEX/diag_evap_isban.F90 [deleted file]
src/SURFEX/diag_flake_initn.F90
src/SURFEX/diag_flaken.F90 [deleted file]
src/SURFEX/diag_ideal_initn.F90
src/SURFEX/diag_idealn.F90 [deleted file]
src/SURFEX/diag_inland_watern.F90
src/SURFEX/diag_inline_flaken.F90
src/SURFEX/diag_inline_idealn.F90
src/SURFEX/diag_inline_isban.F90
src/SURFEX/diag_inline_oceann.F90
src/SURFEX/diag_inline_seafluxn.F90
src/SURFEX/diag_inline_surf_atmn.F90
src/SURFEX/diag_inline_tebn.F90
src/SURFEX/diag_inline_watfluxn.F90
src/SURFEX/diag_isba_initn.F90
src/SURFEX/diag_isban.F90 [deleted file]
src/SURFEX/diag_misc_flaken.F90
src/SURFEX/diag_misc_isban.F90
src/SURFEX/diag_misc_teb_initn.F90
src/SURFEX/diag_misc_tebn.F90 [deleted file]
src/SURFEX/diag_naturen.F90
src/SURFEX/diag_seaflux_initn.F90
src/SURFEX/diag_seafluxn.F90 [deleted file]
src/SURFEX/diag_seaice_initn.F90 [new file with mode: 0644]
src/SURFEX/diag_sean.F90
src/SURFEX/diag_surf_atmn.F90
src/SURFEX/diag_surf_budget_flake.F90
src/SURFEX/diag_surf_budget_isba.F90
src/SURFEX/diag_surf_budget_sea.F90
src/SURFEX/diag_surf_budget_teb.F90
src/SURFEX/diag_surf_budget_water.F90
src/SURFEX/diag_surf_budgetc.F90 [new file with mode: 0644]
src/SURFEX/diag_surf_budgetc_flake.F90 [deleted file]
src/SURFEX/diag_surf_budgetc_ideal.F90 [deleted file]
src/SURFEX/diag_surf_budgetc_sea.F90 [deleted file]
src/SURFEX/diag_surf_budgetc_water.F90 [deleted file]
src/SURFEX/diag_teb_garden_initn.F90 [deleted file]
src/SURFEX/diag_teb_greenroof_initn.F90 [deleted file]
src/SURFEX/diag_teb_initn.F90
src/SURFEX/diag_teb_veg_initn.F90 [new file with mode: 0644]
src/SURFEX/diag_tebn.F90 [deleted file]
src/SURFEX/diag_townn.F90
src/SURFEX/diag_watflux_initn.F90
src/SURFEX/diag_watfluxn.F90 [deleted file]
src/SURFEX/dif_layer.F90
src/SURFEX/drag.F90
src/SURFEX/drag_meb.F90
src/SURFEX/dry_wet_soil_albedos.F90
src/SURFEX/e_budget.F90
src/SURFEX/e_budget_meb.F90
src/SURFEX/ecoclimap2_lai.F90
src/SURFEX/ecume_seaflux.F90
src/SURFEX/ecumev6_flux.F90
src/SURFEX/emis_from_veg.F90
src/SURFEX/end_io_surf_ascn.F90
src/SURFEX/end_io_surf_fan.F90
src/SURFEX/end_io_surfn.F90
src/SURFEX/exp_decay_soil_dif.F90 [deleted file]
src/SURFEX/exp_decay_soil_fr.F90
src/SURFEX/explicit_slope.F90
src/SURFEX/extend_grid_on_halo.F90
src/SURFEX/extrapol_fields.F90
src/SURFEX/facade_e_budget.F90
src/SURFEX/fapair.F90
src/SURFEX/fix_meb_veg.F90
src/SURFEX/flag_diag_update.F90
src/SURFEX/flag_gr_snow.F90
src/SURFEX/flag_teb_greenroofn.F90 [deleted file]
src/SURFEX/flag_teb_vegn.F90 [moved from src/SURFEX/flag_teb_gardenn.F90 with 55% similarity]
src/SURFEX/flag_update.F90
src/SURFEX/flake_interface.F90
src/SURFEX/floor_layer_e_budget.F90
src/SURFEX/garden.F90
src/SURFEX/gather_and_write_mpi.F90
src/SURFEX/gather_and_write_mpi_k4.F90
src/SURFEX/gauss_index.F90 [deleted file]
src/SURFEX/get_aosn.F90
src/SURFEX/get_coordn.F90
src/SURFEX/get_cpl_gcmn.F90
src/SURFEX/get_current_teb_patch.F90 [deleted file]
src/SURFEX/get_default_namn.F90
src/SURFEX/get_dim_fulln.F90
src/SURFEX/get_fluxn.F90
src/SURFEX/get_grid_coord.F90
src/SURFEX/get_grid_dim_gauss.F90
src/SURFEX/get_ign_maskall.F90 [new file with mode: 0644]
src/SURFEX/get_iok_assim.F90
src/SURFEX/get_isba_confn.F90
src/SURFEX/get_latlonmaskn.F90
src/SURFEX/get_lcovern.F90
src/SURFEX/get_lonlatn.F90
src/SURFEX/get_luout.F90
src/SURFEX/get_mesh_corner.F90
src/SURFEX/get_mesh_corner_cartesian.F90 [new file with mode: 0644]
src/SURFEX/get_mesh_corner_conf_proj.F90
src/SURFEX/get_mesh_corner_gauss.F90
src/SURFEX/get_mesh_corner_ign.F90
src/SURFEX/get_mesh_corner_lonlat_reg.F90
src/SURFEX/get_mesh_corner_lonlaval.F90
src/SURFEX/get_mesh_index.F90
src/SURFEX/get_mesh_index_conf_proj.F90
src/SURFEX/get_mesh_index_gauss.F90
src/SURFEX/get_mesh_index_ign.F90
src/SURFEX/get_mesh_index_lonlat_reg.F90
src/SURFEX/get_mesh_index_lonlat_rot.F90
src/SURFEX/get_mesh_index_lonlatval.F90
src/SURFEX/get_near_meshes_cartesian.F90
src/SURFEX/get_near_meshes_conf_proj.F90
src/SURFEX/get_near_meshes_gauss.F90
src/SURFEX/get_near_meshes_ign.F90
src/SURFEX/get_near_meshes_lonlat_reg.F90
src/SURFEX/get_near_meshes_lonlat_rot.F90
src/SURFEX/get_near_meshes_lonlatval.F90
src/SURFEX/get_prep_interp.F90 [new file with mode: 0644]
src/SURFEX/get_qsn.F90
src/SURFEX/get_sfx_land.F90
src/SURFEX/get_sfxcpln.F90
src/SURFEX/get_size_fulln.F90
src/SURFEX/get_sizes_parallel.F90
src/SURFEX/get_sso_stdevn.F90
src/SURFEX/get_sson.F90
src/SURFEX/get_surf_atm_sso_rough.F90 [deleted file]
src/SURFEX/get_surf_grid_dimn.F90
src/SURFEX/get_surf_maskn.F90
src/SURFEX/get_surf_varn.F90
src/SURFEX/get_teb_depths.F90
src/SURFEX/get_type_dimn.F90
src/SURFEX/get_var_naturen.F90
src/SURFEX/get_var_sean.F90
src/SURFEX/get_var_townn.F90
src/SURFEX/get_var_watern.F90
src/SURFEX/get_vegn.F90
src/SURFEX/get_vegtype_2_patch_mask.F90
src/SURFEX/get_xyall_ign.F90
src/SURFEX/get_z0n.F90
src/SURFEX/get_z0rel.F90 [new file with mode: 0644]
src/SURFEX/goto_surfex.F90 [deleted file]
src/SURFEX/goto_teb.F90 [deleted file]
src/SURFEX/goto_wrapper_flake.F90 [deleted file]
src/SURFEX/goto_wrapper_ideal.F90 [deleted file]
src/SURFEX/goto_wrapper_isba.F90 [deleted file]
src/SURFEX/goto_wrapper_ocean.F90 [deleted file]
src/SURFEX/goto_wrapper_pack.F90 [deleted file]
src/SURFEX/goto_wrapper_seaflux.F90 [deleted file]
src/SURFEX/goto_wrapper_surfatm.F90 [deleted file]
src/SURFEX/goto_wrapper_teb.F90 [deleted file]
src/SURFEX/goto_wrapper_teb_patch.F90 [deleted file]
src/SURFEX/goto_wrapper_watflux.F90 [deleted file]
src/SURFEX/green_from_lai.F90
src/SURFEX/greenroof.F90
src/SURFEX/greenroof_properties.F90 [deleted file]
src/SURFEX/grid_from_file.F90
src/SURFEX/grid_modif.F90
src/SURFEX/grid_modif_cartesian.F90
src/SURFEX/grid_modif_conf_proj.F90
src/SURFEX/hor_extrapol_surf.F90
src/SURFEX/hor_extrapol_surf_cheap.F90 [deleted file]
src/SURFEX/hor_interpol.F90
src/SURFEX/hor_interpol_1cov.F90 [deleted file]
src/SURFEX/hor_interpol_arome.F90
src/SURFEX/hor_interpol_arome_1cov.F90 [deleted file]
src/SURFEX/hor_interpol_buffer.F90
src/SURFEX/hor_interpol_buffer_1cov.F90 [deleted file]
src/SURFEX/hor_interpol_cartesian.F90
src/SURFEX/hor_interpol_cartesian_1cov.F90 [deleted file]
src/SURFEX/hor_interpol_conf_proj.F90
src/SURFEX/hor_interpol_conf_proj_1cov.F90 [deleted file]
src/SURFEX/hor_interpol_gauss.F90
src/SURFEX/hor_interpol_latlon.F90
src/SURFEX/hor_interpol_latlon_1cov.F90 [deleted file]
src/SURFEX/hor_interpol_none_1cov.F90 [deleted file]
src/SURFEX/hor_interpol_rotlatlon.F90
src/SURFEX/hor_interpol_rotlatlon_1cov.F90 [deleted file]
src/SURFEX/horibl_surf.F90 [deleted file]
src/SURFEX/horibl_surf_coef.F90 [new file with mode: 0644]
src/SURFEX/horibl_surf_extrap.F90 [new file with mode: 0644]
src/SURFEX/horibl_surf_gridin.F90 [new file with mode: 0644]
src/SURFEX/horibl_surf_init.F90 [new file with mode: 0644]
src/SURFEX/horibl_surf_value.F90 [new file with mode: 0644]
src/SURFEX/hvac_autosize.F90
src/SURFEX/hydro.F90
src/SURFEX/hydro_glacier.F90
src/SURFEX/hydro_sgh.F90
src/SURFEX/hydro_snow.F90
src/SURFEX/hydro_soil.F90
src/SURFEX/hydro_soildif.F90
src/SURFEX/ice_soildif.F90
src/SURFEX/ice_soilfr.F90
src/SURFEX/impnone.h [deleted file]
src/SURFEX/info_lcover [new file with mode: 0644]
src/SURFEX/info_rsmin [new file with mode: 0644]
src/SURFEX/ini_data_cover.F90
src/SURFEX/ini_data_param.F90
src/SURFEX/ini_data_rootfrac.F90
src/SURFEX/ini_data_soil.F90
src/SURFEX/ini_ssowork.F90
src/SURFEX/ini_surf_csts.F90
src/SURFEX/ini_var_from_data.F90
src/SURFEX/ini_var_from_data_0d.F90
src/SURFEX/ini_var_from_data_0d_in.F90 [new file with mode: 0644]
src/SURFEX/ini_var_from_patch.F90
src/SURFEX/ini_var_from_vegtype_data.F90
src/SURFEX/init_bemn.F90
src/SURFEX/init_chemicaln.F90
src/SURFEX/init_cpl_gcmn.F90
src/SURFEX/init_dst.F90
src/SURFEX/init_flaken.F90
src/SURFEX/init_from_data_grdnn.F90 [deleted file]
src/SURFEX/init_from_data_greenroofn.F90 [deleted file]
src/SURFEX/init_from_data_teb_vegn.F90 [new file with mode: 0644]
src/SURFEX/init_garden_optionsn.F90 [deleted file]
src/SURFEX/init_ideal_flux.F90
src/SURFEX/init_inland_watern.F90
src/SURFEX/init_io_surf_ascn.F90
src/SURFEX/init_io_surf_fan.F90
src/SURFEX/init_io_surfn.F90
src/SURFEX/init_isba_landuse.F90
src/SURFEX/init_isba_mixpar.F90
src/SURFEX/init_isba_sbl.F90
src/SURFEX/init_isban.F90
src/SURFEX/init_naturen.F90
src/SURFEX/init_pgd_surf_atm.F90
src/SURFEX/init_seafluxn.F90
src/SURFEX/init_sean.F90
src/SURFEX/init_snow_lw.F90
src/SURFEX/init_surf_atmn.F90
src/SURFEX/init_surfconsphy.F90 [deleted file]
src/SURFEX/init_teb_garden_pgdn.F90
src/SURFEX/init_teb_gardenn.F90
src/SURFEX/init_teb_greenroof_pgdn.F90
src/SURFEX/init_teb_greenroofn.F90
src/SURFEX/init_teb_veg_optionsn.F90
src/SURFEX/init_tebn.F90
src/SURFEX/init_top.F90
src/SURFEX/init_townn.F90
src/SURFEX/init_types_param.F90 [new file with mode: 0644]
src/SURFEX/init_veg_gardenn.F90 [deleted file]
src/SURFEX/init_veg_pgd_gardenn.F90 [deleted file]
src/SURFEX/init_veg_pgdn.F90
src/SURFEX/init_vegn.F90
src/SURFEX/init_water_sbl.F90
src/SURFEX/init_watfluxn.F90
src/SURFEX/interp_grid.F90
src/SURFEX/interp_grid_nat.F90
src/SURFEX/interpol_field2d.F90
src/SURFEX/interpol_npts.F90
src/SURFEX/interpol_sst_mth.F90
src/SURFEX/interpol_ts_water_mth.F90
src/SURFEX/inverse_matrix.F90 [deleted file]
src/SURFEX/io_buff_clean.F90
src/SURFEX/io_buff_cleann.F90 [deleted file]
src/SURFEX/io_buffn.F90 [deleted file]
src/SURFEX/irrigation_update.F90
src/SURFEX/isba.F90
src/SURFEX/isba_albedo.F90
src/SURFEX/isba_budget.F90
src/SURFEX/isba_budget_init.F90
src/SURFEX/isba_canopy.F90
src/SURFEX/isba_ceb.F90
src/SURFEX/isba_fluxes.F90
src/SURFEX/isba_fluxes_meb.F90
src/SURFEX/isba_lwnet_meb.F90
src/SURFEX/isba_meb.F90
src/SURFEX/isba_properties.F90
src/SURFEX/isba_sgh_update.F90
src/SURFEX/isba_snow_agr.F90
src/SURFEX/isba_snow_frac.F90
src/SURFEX/isba_soc_parameters.F90
src/SURFEX/isba_swnet_meb.F90 [deleted file]
src/SURFEX/laigain.F90
src/SURFEX/lailoss.F90
src/SURFEX/latlon_grid.F90
src/SURFEX/latlon_gridtype_cartesian.F90
src/SURFEX/latlon_gridtype_conf_proj.F90
src/SURFEX/latlon_gridtype_gauss.F90
src/SURFEX/latlon_gridtype_ign.F90
src/SURFEX/latlon_gridtype_lonlat_reg.F90
src/SURFEX/latlon_gridtype_lonlat_rot.F90
src/SURFEX/latlon_gridtype_lonlatval.F90
src/SURFEX/lib_mpp.F90
src/SURFEX/liste_emis [new file with mode: 0644]
src/SURFEX/liste_oasis [new file with mode: 0644]
src/SURFEX/make_choice_array.F90 [new file with mode: 0644]
src/SURFEX/make_lcover.F90 [new file with mode: 0644]
src/SURFEX/mass_layer_e_budget.F90
src/SURFEX/minzs_vert_shift.F90
src/SURFEX/mixtln.F90
src/SURFEX/mkflag_snow.F90
src/SURFEX/mod1dn.F90
src/SURFEX/modd_agrin.F90
src/SURFEX/modd_assim.F90
src/SURFEX/modd_bem_optionn.F90
src/SURFEX/modd_bemn.F90
src/SURFEX/modd_bld_descriptionn.F90
src/SURFEX/modd_canopyn.F90 [moved from src/SURFEX/modd_teb_canopyn.F90 with 70% similarity]
src/SURFEX/modd_ch_flaken.F90
src/SURFEX/modd_ch_isban.F90
src/SURFEX/modd_ch_seafluxn.F90
src/SURFEX/modd_ch_snapn.F90
src/SURFEX/modd_ch_surfn.F90
src/SURFEX/modd_ch_tebn.F90
src/SURFEX/modd_ch_watfluxn.F90
src/SURFEX/modd_co2v_par.F90
src/SURFEX/modd_data_bemn.F90
src/SURFEX/modd_data_cover.F90
src/SURFEX/modd_data_cover_par.F90
src/SURFEX/modd_data_covern.F90
src/SURFEX/modd_data_isban.F90
src/SURFEX/modd_data_seafluxn.F90
src/SURFEX/modd_data_teb_gardenn.F90 [deleted file]
src/SURFEX/modd_data_teb_greenroofn.F90 [deleted file]
src/SURFEX/modd_data_tebn.F90
src/SURFEX/modd_data_tsz0n.F90
src/SURFEX/modd_diag_cumul_tebn.F90 [deleted file]
src/SURFEX/modd_diag_evap_isban.F90
src/SURFEX/modd_diag_flaken.F90 [deleted file]
src/SURFEX/modd_diag_idealn.F90 [deleted file]
src/SURFEX/modd_diag_isban.F90 [deleted file]
src/SURFEX/modd_diag_misc_flaken.F90
src/SURFEX/modd_diag_misc_isban.F90
src/SURFEX/modd_diag_misc_seaicen.F90 [moved from src/SURFEX/modd_diag_seaicen.F90 with 64% similarity]
src/SURFEX/modd_diag_misc_teb_optionsn.F90 [moved from src/SURFEX/modd_diag_misc_teb_optionn.F90 with 94% similarity]
src/SURFEX/modd_diag_misc_tebn.F90
src/SURFEX/modd_diag_oceann.F90
src/SURFEX/modd_diag_seafluxn.F90 [deleted file]
src/SURFEX/modd_diag_surf_atmn.F90 [deleted file]
src/SURFEX/modd_diag_teb_gardenn.F90 [deleted file]
src/SURFEX/modd_diag_teb_greenroofn.F90 [deleted file]
src/SURFEX/modd_diag_tebn.F90 [deleted file]
src/SURFEX/modd_diag_utci_tebn.F90
src/SURFEX/modd_diag_watfluxn.F90 [deleted file]
src/SURFEX/modd_diagn.F90 [new file with mode: 0644]
src/SURFEX/modd_dstn.F90
src/SURFEX/modd_dummy_surf_fieldsn.F90
src/SURFEX/modd_emis_gr_fieldn.F90
src/SURFEX/modd_flake_albedo_ref.F90 [deleted file]
src/SURFEX/modd_flake_gridn.F90 [deleted file]
src/SURFEX/modd_flake_sbln.F90 [deleted file]
src/SURFEX/modd_flaken.F90
src/SURFEX/modd_full_grid.F90 [new file with mode: 0644]
src/SURFEX/modd_get_mesh_index_lonlat_reg.F90
src/SURFEX/modd_glt_param.F90
src/SURFEX/modd_gr_biog_gardenn.F90
src/SURFEX/modd_gr_biog_greenroofn.F90
src/SURFEX/modd_gr_biogn.F90
src/SURFEX/modd_grid_arome.F90
src/SURFEX/modd_grid_cartesian.F90
src/SURFEX/modd_grid_conf_projn.F90 [moved from src/SURFEX/modd_grid_conf_proj.F90 with 70% similarity]
src/SURFEX/modd_grid_gauss.F90
src/SURFEX/modd_grid_grib.F90
src/SURFEX/modd_horibl.F90 [new file with mode: 0644]
src/SURFEX/modd_idealn.F90
src/SURFEX/modd_ign.F90
src/SURFEX/modd_io_buff.F90
src/SURFEX/modd_io_buffn.F90 [deleted file]
src/SURFEX/modd_io_surf_asc.F90
src/SURFEX/modd_io_surf_fa.F90
src/SURFEX/modd_isba_canopyn.F90 [deleted file]
src/SURFEX/modd_isba_optionsn.F90 [new file with mode: 0644]
src/SURFEX/modd_isban.F90
src/SURFEX/modd_mask.F90
src/SURFEX/modd_ocean_gridn.F90 [deleted file]
src/SURFEX/modd_ocean_reln.F90
src/SURFEX/modd_oceann.F90
src/SURFEX/modd_pack_ch_isba.F90 [deleted file]
src/SURFEX/modd_pack_diag_isba.F90 [deleted file]
src/SURFEX/modd_pack_isba.F90 [deleted file]
src/SURFEX/modd_pgdwork.F90
src/SURFEX/modd_prep.F90
src/SURFEX/modd_reprod_oper.F90
src/SURFEX/modd_seaflux_gridn.F90 [deleted file]
src/SURFEX/modd_seaflux_sbln.F90 [deleted file]
src/SURFEX/modd_seafluxn.F90
src/SURFEX/modd_sfx_gridn.F90 [moved from src/SURFEX/modd_isba_gridn.F90 with 64% similarity]
src/SURFEX/modd_sfx_oasis.F90
src/SURFEX/modd_sltn.F90
src/SURFEX/modd_snow_par.F90
src/SURFEX/modd_sso_canopyn.F90 [deleted file]
src/SURFEX/modd_sson.F90 [moved from src/SURFEX/modd_surf_atm_sson.F90 with 60% similarity]
src/SURFEX/modd_surf_atm_gridn.F90
src/SURFEX/modd_surf_atmn.F90
src/SURFEX/modd_surf_reprod_oper.F90 [deleted file]
src/SURFEX/modd_surfex_mpi.F90
src/SURFEX/modd_surfex_omp.F90
src/SURFEX/modd_surfexn.F90
src/SURFEX/modd_svn.F90
src/SURFEX/modd_teb_garden_optionn.F90 [deleted file]
src/SURFEX/modd_teb_garden_pgd_evoln.F90 [deleted file]
src/SURFEX/modd_teb_garden_pgdn.F90 [deleted file]
src/SURFEX/modd_teb_gardenn.F90 [deleted file]
src/SURFEX/modd_teb_greenroof_optionn.F90 [deleted file]
src/SURFEX/modd_teb_greenroof_pgd_evoln.F90 [deleted file]
src/SURFEX/modd_teb_greenroof_pgdn.F90 [deleted file]
src/SURFEX/modd_teb_greenroofn.F90 [deleted file]
src/SURFEX/modd_teb_gridn.F90 [deleted file]
src/SURFEX/modd_teb_irrign.F90
src/SURFEX/modd_teb_optionn.F90
src/SURFEX/modd_teb_paneln.F90
src/SURFEX/modd_teb_vegn.F90 [deleted file]
src/SURFEX/modd_tebn.F90
src/SURFEX/modd_type_snow.F90
src/SURFEX/modd_utci.F90
src/SURFEX/modd_watflux_gridn.F90 [deleted file]
src/SURFEX/modd_watflux_sbln.F90 [deleted file]
src/SURFEX/modd_watfluxn.F90
src/SURFEX/modd_write_surf_atm.F90
src/SURFEX/modd_xios.F90 [new file with mode: 0644]
src/SURFEX/mode_aer_surf.F90
src/SURFEX/mode_av_pgd.F90 [new file with mode: 0644]
src/SURFEX/mode_char2real.F90
src/SURFEX/mode_coare30_psi.F90
src/SURFEX/mode_conv_DOE.F90
src/SURFEX/mode_cotwo.F90
src/SURFEX/mode_coupling_canopy.F90
src/SURFEX/mode_crodebug.F90
src/SURFEX/mode_diag.F90 [new file with mode: 0644]
src/SURFEX/mode_dslt_surf.F90
src/SURFEX/mode_dstmblutl.F90
src/SURFEX/mode_ekf.F90
src/SURFEX/mode_fasurfex.F90
src/SURFEX/mode_flake.F90
src/SURFEX/mode_gauss_index.F90 [deleted file]
src/SURFEX/mode_geo_gauss.F90
src/SURFEX/mode_glt_dia_ar5.F90
src/SURFEX/mode_glt_dia_glt.F90
src/SURFEX/mode_glt_dia_lu.F90
src/SURFEX/mode_glt_nemo_bound.F90
src/SURFEX/mode_gltools_strlast.F90
src/SURFEX/mode_gltools_wrivais.F90
src/SURFEX/mode_gridtype_cartesian.F90
src/SURFEX/mode_gridtype_conf_proj.F90
src/SURFEX/mode_gridtype_gauss.F90
src/SURFEX/mode_gridtype_ign.F90
src/SURFEX/mode_gridtype_lonlat_reg.F90
src/SURFEX/mode_gridtype_lonlat_rot.F90
src/SURFEX/mode_gridtype_lonlatval.F90
src/SURFEX/mode_hydro_dif.F90
src/SURFEX/mode_meb.F90
src/SURFEX/mode_modeln_surfex_handler.F90
src/SURFEX/mode_modeln_teb_handler.F90 [deleted file]
src/SURFEX/mode_pos_surf.F90
src/SURFEX/mode_prep_ctl.F90 [new file with mode: 0644]
src/SURFEX/mode_random.F90
src/SURFEX/mode_read_buffer.F90
src/SURFEX/mode_read_cdf.F90
src/SURFEX/mode_read_extern.F90
src/SURFEX/mode_read_grib.F90
src/SURFEX/mode_read_netcdf_mercator.F90
src/SURFEX/mode_read_surf_asc.F90
src/SURFEX/mode_read_surf_cov.F90
src/SURFEX/mode_read_surf_fa.F90
src/SURFEX/mode_read_surf_layers.F90 [new file with mode: 0644]
src/SURFEX/mode_sbls.F90
src/SURFEX/mode_sfcflx.F90
src/SURFEX/mode_snow3l.F90
src/SURFEX/mode_snowcro_flanner.F90
src/SURFEX/mode_soil.F90
src/SURFEX/mode_splines.F90
src/SURFEX/mode_split_grid_parameter.F90
src/SURFEX/mode_surf_flood_frac.F90
src/SURFEX/mode_surf_snow_frac.F90
src/SURFEX/mode_tartes.F90
src/SURFEX/mode_teb_veg.F90 [new file with mode: 0644]
src/SURFEX/mode_thermos.F90
src/SURFEX/mode_write_cover_tex.F90
src/SURFEX/mode_write_surf_asc.F90
src/SURFEX/mode_write_surf_cov.F90
src/SURFEX/mode_write_surf_fa.F90
src/SURFEX/modi_glt_gelato.F90
src/SURFEX/modi_glt_thermo.F90
src/SURFEX/modi_glt_updasn_r.F90
src/SURFEX/modi_glt_vhdiff_r.F90
src/SURFEX/modi_gltools_nextline.F90
src/SURFEX/modi_gltools_nextval.F90
src/SURFEX/modi_gltools_nwords.F90
src/SURFEX/modi_gltools_readnam.F90
src/SURFEX/modi_gltools_strsplit.F90
src/SURFEX/modn_assim.F90
src/SURFEX/modn_flaken.F90
src/SURFEX/modn_idealn.F90
src/SURFEX/modn_io_offline.F90
src/SURFEX/modn_isban.F90
src/SURFEX/modn_prep_isba_snow.F90
src/SURFEX/modn_prep_seaflux.F90
src/SURFEX/modn_prep_surf_atm.F90
src/SURFEX/modn_seafluxn.F90
src/SURFEX/modn_sfx_oasis.F90
src/SURFEX/modn_sson.F90
src/SURFEX/modn_surf_atmn.F90
src/SURFEX/modn_teb_greenroofn.F90
src/SURFEX/modn_teb_vegn.F90
src/SURFEX/modn_tebn.F90
src/SURFEX/modn_watfluxn.F90
src/SURFEX/modn_write_surf_atm.F90
src/SURFEX/nitro_decline.F90
src/SURFEX/ocean_mercatorvergrid.F90
src/SURFEX/oi_acsolw.F90 [deleted file]
src/SURFEX/oi_bc_soil_moisture.F90 [deleted file]
src/SURFEX/oi_cacsts.F90 [deleted file]
src/SURFEX/oi_cavegi.F90 [deleted file]
src/SURFEX/oi_control.F90 [deleted file]
src/SURFEX/oi_fctveg.F90 [deleted file]
src/SURFEX/oi_hor_extrapol_surf.F90 [deleted file]
src/SURFEX/oi_jacobians.F90 [deleted file]
src/SURFEX/oi_kalman_gain.F90 [deleted file]
src/SURFEX/oi_latlon_conf_proj.F90 [deleted file]
src/SURFEX/oi_tsl.F90 [deleted file]
src/SURFEX/old_name.F90
src/SURFEX/open_aux_io_surf.F90
src/SURFEX/open_aux_io_surf_asc.F90
src/SURFEX/open_aux_io_surf_fa.F90
src/SURFEX/open_file_asc.F90
src/SURFEX/open_file_fa.F90
src/SURFEX/open_namelist.F90
src/SURFEX/outer_product.F90 [deleted file]
src/SURFEX/pack_ch_isba_patchn.F90 [deleted file]
src/SURFEX/pack_diag_patch_get_sizen.F90 [deleted file]
src/SURFEX/pack_diag_patchn.F90 [deleted file]
src/SURFEX/pack_grid_gauss.F90
src/SURFEX/pack_grid_ign.F90
src/SURFEX/pack_init.F90 [new file with mode: 0644]
src/SURFEX/pack_isba_patch_get_sizen.F90 [deleted file]
src/SURFEX/pack_isba_patchn.F90 [deleted file]
src/SURFEX/pack_pgd.F90
src/SURFEX/pack_pgd_isba.F90
src/SURFEX/pack_pgd_seaflux.F90
src/SURFEX/pack_pgd_soil.F90 [deleted file]
src/SURFEX/pack_same_rank.F90
src/SURFEX/pack_sso.F90 [new file with mode: 0644]
src/SURFEX/param_cls.F90 [deleted file]
src/SURFEX/permafrost_depth.F90
src/SURFEX/pgd_bathyfield.F90
src/SURFEX/pgd_bem_par.F90
src/SURFEX/pgd_chemistry.F90
src/SURFEX/pgd_chemistry_snap.F90
src/SURFEX/pgd_cover.F90
src/SURFEX/pgd_dummy.F90
src/SURFEX/pgd_ecoclimap2_data.F90
src/SURFEX/pgd_field.F90
src/SURFEX/pgd_fieldin.F90 [new file with mode: 0644]
src/SURFEX/pgd_flake.F90
src/SURFEX/pgd_frac.F90
src/SURFEX/pgd_gauss_index.F90 [deleted file]
src/SURFEX/pgd_grid.F90
src/SURFEX/pgd_grid_io_init.F90
src/SURFEX/pgd_grid_surf_atm.F90
src/SURFEX/pgd_inland_water.F90
src/SURFEX/pgd_isba.F90
src/SURFEX/pgd_isba_par.F90
src/SURFEX/pgd_nature.F90
src/SURFEX/pgd_orography.F90
src/SURFEX/pgd_sea.F90
src/SURFEX/pgd_seaflux.F90
src/SURFEX/pgd_seaflux_par.F90
src/SURFEX/pgd_snap_temp_profile.F90
src/SURFEX/pgd_surf_atm.F90
src/SURFEX/pgd_teb.F90
src/SURFEX/pgd_teb_garden_par.F90
src/SURFEX/pgd_teb_greenroof.F90
src/SURFEX/pgd_teb_greenroof_par.F90
src/SURFEX/pgd_teb_irrig.F90
src/SURFEX/pgd_teb_par.F90
src/SURFEX/pgd_teb_veg.F90
src/SURFEX/pgd_topo_index.F90
src/SURFEX/pgd_town.F90
src/SURFEX/pgd_tsz0_par.F90
src/SURFEX/pgd_watflux.F90
src/SURFEX/prep_ctrl.F90 [moved from src/SURFEX/prep_ctrl_ideal.F90 with 55% similarity]
src/SURFEX/prep_ctrl_flake.F90
src/SURFEX/prep_ctrl_isba.F90
src/SURFEX/prep_ctrl_seaflux.F90
src/SURFEX/prep_ctrl_surf_atm.F90
src/SURFEX/prep_ctrl_teb.F90
src/SURFEX/prep_ctrl_watflux.F90 [deleted file]
src/SURFEX/prep_flake.F90
src/SURFEX/prep_flake_ascllv.F90
src/SURFEX/prep_flake_buffer.F90
src/SURFEX/prep_flake_extern.F90
src/SURFEX/prep_flake_grib.F90
src/SURFEX/prep_flake_sbl.F90 [deleted file]
src/SURFEX/prep_flake_unif.F90
src/SURFEX/prep_grib_grid.F90
src/SURFEX/prep_grid_cartesian.F90
src/SURFEX/prep_grid_conf_proj.F90
src/SURFEX/prep_grid_extern.F90
src/SURFEX/prep_grid_gauss.F90
src/SURFEX/prep_grid_lonlat_reg.F90
src/SURFEX/prep_hor_flake_field.F90
src/SURFEX/prep_hor_isba_cc_field.F90
src/SURFEX/prep_hor_isba_field.F90
src/SURFEX/prep_hor_ocean_field.F90
src/SURFEX/prep_hor_ocean_fields.F90
src/SURFEX/prep_hor_seaflux_field.F90
src/SURFEX/prep_hor_snow_field.F90
src/SURFEX/prep_hor_snow_fields.F90
src/SURFEX/prep_hor_teb_field.F90
src/SURFEX/prep_hor_teb_garden_field.F90
src/SURFEX/prep_hor_teb_greenroof_field.F90
src/SURFEX/prep_hor_watflux_field.F90
src/SURFEX/prep_inland_water.F90
src/SURFEX/prep_isba.F90
src/SURFEX/prep_isba_ascllv.F90
src/SURFEX/prep_isba_buffer.F90
src/SURFEX/prep_isba_canopy.F90 [deleted file]
src/SURFEX/prep_isba_cc_extern.F90
src/SURFEX/prep_isba_extern.F90
src/SURFEX/prep_isba_grib.F90
src/SURFEX/prep_isba_netcdf.F90
src/SURFEX/prep_isba_unif.F90
src/SURFEX/prep_nature.F90
src/SURFEX/prep_ocean_ascllv.F90
src/SURFEX/prep_ocean_mercatorvergrid.F90
src/SURFEX/prep_ocean_netcdf.F90
src/SURFEX/prep_ocean_unif.F90
src/SURFEX/prep_output_grid.F90
src/SURFEX/prep_perm_snow.F90
src/SURFEX/prep_sbl.F90 [moved from src/SURFEX/prep_teb_canopy.F90 with 72% similarity]
src/SURFEX/prep_sea.F90
src/SURFEX/prep_seaflux.F90
src/SURFEX/prep_seaflux_buffer.F90
src/SURFEX/prep_seaflux_extern.F90
src/SURFEX/prep_seaflux_grib.F90
src/SURFEX/prep_seaflux_netcdf.F90
src/SURFEX/prep_seaflux_sbl.F90 [deleted file]
src/SURFEX/prep_seaflux_unif.F90
src/SURFEX/prep_seaice.F90
src/SURFEX/prep_snow_buffer.F90
src/SURFEX/prep_snow_extern.F90
src/SURFEX/prep_snow_grib.F90
src/SURFEX/prep_snow_unif.F90
src/SURFEX/prep_sst_init.F90
src/SURFEX/prep_surf_atm.F90
src/SURFEX/prep_teb.F90
src/SURFEX/prep_teb_buffer.F90
src/SURFEX/prep_teb_extern.F90
src/SURFEX/prep_teb_garden.F90
src/SURFEX/prep_teb_garden_ascllv.F90
src/SURFEX/prep_teb_garden_buffer.F90
src/SURFEX/prep_teb_garden_extern.F90
src/SURFEX/prep_teb_garden_grib.F90
src/SURFEX/prep_teb_garden_unif.F90
src/SURFEX/prep_teb_greenroof.F90
src/SURFEX/prep_teb_greenroof_ascllv.F90
src/SURFEX/prep_teb_greenroof_buffer.F90
src/SURFEX/prep_teb_greenroof_extern.F90
src/SURFEX/prep_teb_greenroof_grib.F90
src/SURFEX/prep_teb_greenroof_unif.F90
src/SURFEX/prep_teb_grib.F90
src/SURFEX/prep_teb_unif.F90
src/SURFEX/prep_town.F90
src/SURFEX/prep_ver_isba.F90
src/SURFEX/prep_ver_snow.F90
src/SURFEX/prep_ver_teb.F90
src/SURFEX/prep_ver_teb_greenroof.F90 [deleted file]
src/SURFEX/prep_ver_teb_veg.F90 [moved from src/SURFEX/prep_ver_teb_garden.F90 with 56% similarity]
src/SURFEX/prep_watflux.F90
src/SURFEX/prep_watflux_buffer.F90
src/SURFEX/prep_watflux_extern.F90
src/SURFEX/prep_watflux_grib.F90
src/SURFEX/prep_watflux_sbl.F90 [deleted file]
src/SURFEX/prep_watflux_unif.F90
src/SURFEX/preps_for_meb_drag.F90
src/SURFEX/preps_for_meb_ebud_rad.F90
src/SURFEX/pt_by_pt_treatment.F90
src/SURFEX/put_in_time.F90
src/SURFEX/put_pgd_grid.F90
src/SURFEX/put_rad_sean.F90 [deleted file]
src/SURFEX/put_rad_watn.F90 [deleted file]
src/SURFEX/put_sfx_land.F90
src/SURFEX/put_sfx_sea.F90
src/SURFEX/put_sfxcpln.F90
src/SURFEX/put_zs_inland_watern.F90
src/SURFEX/put_zs_naturen.F90
src/SURFEX/put_zsn.F90
src/SURFEX/radiative_transfert.F90
src/SURFEX/read_all_namelists.F90
src/SURFEX/read_and_send_mpi.F90
src/SURFEX/read_ascllv.F90
src/SURFEX/read_assim_conf.F90
src/SURFEX/read_binllv.F90
src/SURFEX/read_binllvfast.F90
src/SURFEX/read_bld_descriptionn.F90
src/SURFEX/read_buffer.F90
src/SURFEX/read_covern.F90
src/SURFEX/read_covers_and_av_pgd_on_layers.F90 [deleted file]
src/SURFEX/read_covers_param.F90
src/SURFEX/read_csvdata_teb.F90
src/SURFEX/read_default_flaken.F90
src/SURFEX/read_default_idealn.F90
src/SURFEX/read_default_isban.F90
src/SURFEX/read_default_seafluxn.F90
src/SURFEX/read_default_surf_atmn.F90
src/SURFEX/read_default_teb_vegn.F90
src/SURFEX/read_default_tebn.F90
src/SURFEX/read_default_watfluxn.F90
src/SURFEX/read_direct.F90
src/SURFEX/read_direct_gauss.F90
src/SURFEX/read_dummyn.F90
src/SURFEX/read_flake_confn.F90
src/SURFEX/read_flake_sbln.F90 [deleted file]
src/SURFEX/read_flaken.F90
src/SURFEX/read_from_surfex_file.F90
src/SURFEX/read_gr_snow.F90
src/SURFEX/read_grid.F90
src/SURFEX/read_gridtype_cartesian.F90
src/SURFEX/read_gridtype_conf_proj.F90
src/SURFEX/read_gridtype_gauss.F90
src/SURFEX/read_gridtype_ign.F90
src/SURFEX/read_gridtype_lonlat_reg.F90
src/SURFEX/read_gridtype_lonlat_rot.F90
src/SURFEX/read_gridtype_lonlatval.F90
src/SURFEX/read_ideal_confn.F90
src/SURFEX/read_ideal_flux_conf.F90
src/SURFEX/read_isba_canopyn.F90 [deleted file]
src/SURFEX/read_isba_confn.F90
src/SURFEX/read_isban.F90
src/SURFEX/read_latlon.F90
src/SURFEX/read_lcover.F90
src/SURFEX/read_lecoclimap.F90
src/SURFEX/read_nam_grid_cartesian.F90
src/SURFEX/read_nam_grid_conf_proj.F90
src/SURFEX/read_nam_grid_gauss.F90
src/SURFEX/read_nam_grid_ign.F90
src/SURFEX/read_nam_grid_lonlat_reg.F90
src/SURFEX/read_nam_grid_lonlat_rot.F90
src/SURFEX/read_nam_grid_lonlatval.F90
src/SURFEX/read_nam_gridtype.F90
src/SURFEX/read_nam_pgd_chemistry.F90
src/SURFEX/read_nam_pgd_cover.F90
src/SURFEX/read_nam_pgd_dummy.F90
src/SURFEX/read_nam_pgd_gauss_index.F90 [deleted file]
src/SURFEX/read_nam_pgd_isba.F90
src/SURFEX/read_nam_pgd_isba_meb.F90
src/SURFEX/read_nam_pgd_orography.F90
src/SURFEX/read_nam_pgd_teb.F90
src/SURFEX/read_nam_pgd_teb_greenroof.F90
src/SURFEX/read_nam_prep_seafluxn.F90
src/SURFEX/read_nam_prep_surfn.F90
src/SURFEX/read_namelists_assim.F90
src/SURFEX/read_namelists_flaken.F90
src/SURFEX/read_namelists_idealn.F90
src/SURFEX/read_namelists_isban.F90
src/SURFEX/read_namelists_seafluxn.F90
src/SURFEX/read_namelists_surf.F90
src/SURFEX/read_namelists_surfn.F90
src/SURFEX/read_namelists_tebn.F90
src/SURFEX/read_namelists_watfluxn.F90
src/SURFEX/read_netcdf.F90
src/SURFEX/read_oceann.F90
src/SURFEX/read_pgd_flaken.F90
src/SURFEX/read_pgd_isba_parn.F90
src/SURFEX/read_pgd_isban.F90
src/SURFEX/read_pgd_netcdf.F90
src/SURFEX/read_pgd_seaflux_parn.F90
src/SURFEX/read_pgd_seafluxn.F90
src/SURFEX/read_pgd_teb_garden_parn.F90
src/SURFEX/read_pgd_teb_gardenn.F90
src/SURFEX/read_pgd_teb_greenroof_parn.F90
src/SURFEX/read_pgd_teb_greenroofn.F90
src/SURFEX/read_pgd_teb_irrign.F90
src/SURFEX/read_pgd_teb_parn.F90
src/SURFEX/read_pgd_tebn.F90
src/SURFEX/read_pgd_tsz0_parn.F90
src/SURFEX/read_pgd_watfluxn.F90
src/SURFEX/read_precipn.F90 [deleted file]
src/SURFEX/read_prep_file_date.F90
src/SURFEX/read_prep_garden_snow.F90
src/SURFEX/read_prep_greenroof_snow.F90
src/SURFEX/read_prep_seaflux_conf.F90
src/SURFEX/read_sbln.F90 [moved from src/SURFEX/read_teb_canopyn.F90 with 50% similarity]
src/SURFEX/read_seaflux_confn.F90
src/SURFEX/read_seaflux_date.F90
src/SURFEX/read_seaflux_sbln.F90 [deleted file]
src/SURFEX/read_seafluxn.F90
src/SURFEX/read_seaicen.F90
src/SURFEX/read_sso_canopyn.F90
src/SURFEX/read_sson.F90
src/SURFEX/read_surf.F90
src/SURFEX/read_surf_atm_confn.F90
src/SURFEX/read_surf_field3d.F90 [deleted file]
src/SURFEX/read_surf_isba_parn.F90
src/SURFEX/read_teb_confn.F90
src/SURFEX/read_teb_gardenn.F90
src/SURFEX/read_teb_greenroofn.F90
src/SURFEX/read_teb_patch.F90
src/SURFEX/read_teb_veg_confn.F90
src/SURFEX/read_tebn.F90
src/SURFEX/read_watflux_confn.F90
src/SURFEX/read_watflux_date.F90
src/SURFEX/read_watflux_sbln.F90 [deleted file]
src/SURFEX/read_watfluxn.F90
src/SURFEX/read_z1d_netcdf.F90
src/SURFEX/readhead.F90
src/SURFEX/refresh_pgdwork.F90
src/SURFEX/regular_grid_spawn.F90
src/SURFEX/reproj_diag_isban.F90 [new file with mode: 0644]
src/SURFEX/road_layer_e_budget.F90
src/SURFEX/roof_impl_coef.F90
src/SURFEX/roof_layer_e_budget.F90
src/SURFEX/rw_precipn.F90 [deleted file]
src/SURFEX/seaice_gelato1dn.F90
src/SURFEX/second_sfx.F90
src/SURFEX/set_axis.F90 [new file with mode: 0644]
src/SURFEX/set_rough.F90 [deleted file]
src/SURFEX/set_sso_levels.F90
src/SURFEX/set_surfex_filein.F90
src/SURFEX/sfx_oasis_check.F90
src/SURFEX/sfx_oasis_define.F90
src/SURFEX/sfx_oasis_end.F90
src/SURFEX/sfx_oasis_init.F90
src/SURFEX/sfx_oasis_prep.F90
src/SURFEX/sfx_oasis_read_nam.F90
src/SURFEX/sfx_oasis_recv.F90
src/SURFEX/sfx_oasis_send.F90
src/SURFEX/sfx_xios_check_field.F90 [new file with mode: 0644]
src/SURFEX/sfx_xios_check_field_2d.F90 [new file with mode: 0644]
src/SURFEX/sfx_xios_declare_field.F90 [new file with mode: 0644]
src/SURFEX/sfx_xios_send_block.F90 [new file with mode: 0644]
src/SURFEX/sfx_xios_set_domain.F90 [new file with mode: 0644]
src/SURFEX/sfx_xios_setup.F90 [new file with mode: 0644]
src/SURFEX/snow3L_isba.F90
src/SURFEX/snow3l.F90
src/SURFEX/snow_cover_1layer.F90
src/SURFEX/snow_load_meb.F90
src/SURFEX/snowcro.F90
src/SURFEX/snowcro_diag.F90 [new file with mode: 0644]
src/SURFEX/soda.F90 [deleted file]
src/SURFEX/soil.F90
src/SURFEX/soil_albedo.F90
src/SURFEX/soildif.F90
src/SURFEX/soilemisnon.F90
src/SURFEX/soilgrid.F90
src/SURFEX/soilstress.F90
src/SURFEX/soiltemp_arp_par.F90
src/SURFEX/solar_panel.F90
src/SURFEX/split_grid.F90
src/SURFEX/split_grid_cartesian.F90
src/SURFEX/split_grid_conf_proj.F90
src/SURFEX/sso.F90
src/SURFEX/sso_be04_frictionn.F90
src/SURFEX/sso_beljaars04.F90
src/SURFEX/sso_z0_frictionn.F90
src/SURFEX/sst_update.F90
src/SURFEX/stabfunc2.h [deleted file]
src/SURFEX/start_lake_of.F90
src/SURFEX/stores_hvac_autosize.F90
src/SURFEX/subscale_aos.F90
src/SURFEX/subscale_z0eff.F90
src/SURFEX/subscale_z0eff_1d.F90 [deleted file]
src/SURFEX/sum_on_all_procs.F90
src/SURFEX/sunpos.F90
src/SURFEX/surf_patch.F90
src/SURFEX/surface_aero_cond.F90
src/SURFEX/surface_air_meb.F90
src/SURFEX/surface_cd.F90
src/SURFEX/surfcon.h [deleted file]
src/SURFEX/surfex_alloc.F90
src/SURFEX/surfex_deallo.F90
src/SURFEX/teb.F90
src/SURFEX/teb_canopy.F90
src/SURFEX/teb_garden.F90
src/SURFEX/teb_morpho.F90
src/SURFEX/teb_veg_properties.F90 [moved from src/SURFEX/garden_properties.F90 with 61% similarity]
src/SURFEX/tebgrid.F90
src/SURFEX/test_nam_var_surf.F90
src/SURFEX/test_record_len.F90
src/SURFEX/thermal_layers_conf.F90
src/SURFEX/town_presence.F90
src/SURFEX/trans_chaine.F90
src/SURFEX/treat_bathyfield.F90
src/SURFEX/treat_field.F90
src/SURFEX/treat_global_lake_depth.F90
src/SURFEX/tsz0.F90
src/SURFEX/uncompress_field.F90 [new file with mode: 0644]
src/SURFEX/unpack_ch_isba_patchn.F90 [deleted file]
src/SURFEX/unpack_diag_patchn.F90
src/SURFEX/unpack_isba_patchn.F90 [deleted file]
src/SURFEX/unpack_same_rank.F90
src/SURFEX/update_data_cover.F90
src/SURFEX/update_esm_flaken.F90
src/SURFEX/update_esm_isban.F90
src/SURFEX/update_esm_seafluxn.F90
src/SURFEX/update_esm_surf_atmn.F90
src/SURFEX/update_esm_watfluxn.F90
src/SURFEX/update_rad_flake.F90
src/SURFEX/update_rad_isban.F90
src/SURFEX/update_rad_sea.F90
src/SURFEX/update_rad_seawat.F90 [deleted file]
src/SURFEX/update_rad_water.F90
src/SURFEX/urban_drag.F90
src/SURFEX/urban_exch_coef.F90
src/SURFEX/urban_fluxes.F90
src/SURFEX/urban_lw_coef.F90
src/SURFEX/urban_snow_evol.F90
src/SURFEX/urban_solar_abs.F90
src/SURFEX/utci_teb.F90
src/SURFEX/veg_from_lai.F90
src/SURFEX/veg_height_from_lai.F90
src/SURFEX/vegetation_evol.F90
src/SURFEX/vegetation_update.F90
src/SURFEX/vegetation_update_garden.F90 [deleted file]
src/SURFEX/vegetation_update_greenroof.F90 [deleted file]
src/SURFEX/vegtype_grid_to_patch_grid.F90
src/SURFEX/vegtype_to_patch.F90
src/SURFEX/ver_interp_lin3d_surf.F90
src/SURFEX/ver_interp_lin_surf.F90
src/SURFEX/vslog.F90
src/SURFEX/wall_layer_e_budget.F90
src/SURFEX/water_flux.F90
src/SURFEX/window_data.F90
src/SURFEX/window_e_budget.F90
src/SURFEX/write_bld_descriptionn.F90
src/SURFEX/write_cover_tex_end.F90
src/SURFEX/write_cover_tex_isba.F90
src/SURFEX/write_cover_tex_isba_par.F90
src/SURFEX/write_cover_tex_start.F90
src/SURFEX/write_data.F90
src/SURFEX/write_diag_ch_aggr.F90
src/SURFEX/write_diag_ch_snapn.F90
src/SURFEX/write_diag_flaken.F90
src/SURFEX/write_diag_inland_watern.F90
src/SURFEX/write_diag_isban.F90
src/SURFEX/write_diag_misc_flaken.F90
src/SURFEX/write_diag_misc_isban.F90
src/SURFEX/write_diag_misc_seaicen.F90 [new file with mode: 0644]
src/SURFEX/write_diag_misc_tebn.F90
src/SURFEX/write_diag_naturen.F90
src/SURFEX/write_diag_pgd_grdnn.F90
src/SURFEX/write_diag_pgd_isban.F90
src/SURFEX/write_diag_pgd_tebn.F90
src/SURFEX/write_diag_seafluxn.F90
src/SURFEX/write_diag_sean.F90
src/SURFEX/write_diag_seb_flaken.F90
src/SURFEX/write_diag_seb_isban.F90
src/SURFEX/write_diag_seb_oceann.F90
src/SURFEX/write_diag_seb_seafluxn.F90
src/SURFEX/write_diag_seb_seaicen.F90
src/SURFEX/write_diag_seb_surf_atmn.F90
src/SURFEX/write_diag_seb_tebn.F90
src/SURFEX/write_diag_seb_watfluxn.F90
src/SURFEX/write_diag_surf_atmn.F90
src/SURFEX/write_diag_tebn.F90
src/SURFEX/write_diag_townn.F90
src/SURFEX/write_diag_watfluxn.F90
src/SURFEX/write_dst_conf.F90
src/SURFEX/write_ecoclimap2_data.F90
src/SURFEX/write_field_1d_patch.F90 [new file with mode: 0644]
src/SURFEX/write_field_2d_patch.F90 [new file with mode: 0644]
src/SURFEX/write_flaken.F90
src/SURFEX/write_grid.F90
src/SURFEX/write_gridtype_cartesian.F90
src/SURFEX/write_gridtype_conf_proj.F90
src/SURFEX/write_gridtype_gauss.F90
src/SURFEX/write_gridtype_ign.F90
src/SURFEX/write_gridtype_lonlat_reg.F90
src/SURFEX/write_gridtype_lonlat_rot.F90
src/SURFEX/write_gridtype_lonlatval.F90
src/SURFEX/write_header_fa.F90
src/SURFEX/write_inland_watern.F90
src/SURFEX/write_isban.F90
src/SURFEX/write_lcover.F90
src/SURFEX/write_naturen.F90
src/SURFEX/write_pgd_flaken.F90
src/SURFEX/write_pgd_inland_watern.F90
src/SURFEX/write_pgd_isban.F90
src/SURFEX/write_pgd_naturen.F90
src/SURFEX/write_pgd_seafluxn.F90
src/SURFEX/write_pgd_sean.F90
src/SURFEX/write_pgd_surf_atmn.F90
src/SURFEX/write_pgd_tebn.F90
src/SURFEX/write_pgd_townn.F90
src/SURFEX/write_pgd_watfluxn.F90
src/SURFEX/write_seafluxn.F90
src/SURFEX/write_sean.F90
src/SURFEX/write_surf.F90
src/SURFEX/write_surf_atmn.F90
src/SURFEX/write_surf_field2d.F90
src/SURFEX/write_surf_field3d.F90 [deleted file]
src/SURFEX/write_surf_xios.F90 [new file with mode: 0644]
src/SURFEX/write_tebn.F90
src/SURFEX/write_tfield_1d_patch.F90 [new file with mode: 0644]
src/SURFEX/write_townn.F90
src/SURFEX/write_watfluxn.F90
src/SURFEX/writesurf_atm_confn.F90
src/SURFEX/writesurf_ch_emisn.F90
src/SURFEX/writesurf_covern.F90
src/SURFEX/writesurf_cpl_gcmn.F90
src/SURFEX/writesurf_dummyn.F90
src/SURFEX/writesurf_flake_confn.F90
src/SURFEX/writesurf_flake_sbln.F90 [deleted file]
src/SURFEX/writesurf_flaken.F90
src/SURFEX/writesurf_gr_snow.F90
src/SURFEX/writesurf_isba_canopyn.F90 [deleted file]
src/SURFEX/writesurf_isba_confn.F90
src/SURFEX/writesurf_isban.F90
src/SURFEX/writesurf_oceann.F90
src/SURFEX/writesurf_pgd_flaken.F90
src/SURFEX/writesurf_pgd_isba_parn.F90
src/SURFEX/writesurf_pgd_isban.F90
src/SURFEX/writesurf_pgd_seaf_parn.F90
src/SURFEX/writesurf_pgd_seafluxn.F90
src/SURFEX/writesurf_pgd_teb_gardenn.F90 [new file with mode: 0644]
src/SURFEX/writesurf_pgd_teb_greenroofn.F90
src/SURFEX/writesurf_pgd_teb_irrign.F90
src/SURFEX/writesurf_pgd_teb_parn.F90
src/SURFEX/writesurf_pgd_teb_vegn.F90 [deleted file]
src/SURFEX/writesurf_pgd_tebn.F90
src/SURFEX/writesurf_pgd_tsz0_parn.F90
src/SURFEX/writesurf_pgd_watfluxn.F90
src/SURFEX/writesurf_precipn.F90 [deleted file]
src/SURFEX/writesurf_sbln.F90 [new file with mode: 0644]
src/SURFEX/writesurf_seaflux_confn.F90
src/SURFEX/writesurf_seaflux_sbln.F90 [deleted file]
src/SURFEX/writesurf_seafluxn.F90
src/SURFEX/writesurf_seaicen.F90
src/SURFEX/writesurf_snapn.F90
src/SURFEX/writesurf_sso_canopyn.F90
src/SURFEX/writesurf_sson.F90
src/SURFEX/writesurf_teb_canopyn.F90 [deleted file]
src/SURFEX/writesurf_teb_confn.F90
src/SURFEX/writesurf_teb_gardenn.F90
src/SURFEX/writesurf_teb_greenroofn.F90
src/SURFEX/writesurf_tebn.F90
src/SURFEX/writesurf_watflux_confn.F90
src/SURFEX/writesurf_watflux_sbln.F90 [deleted file]
src/SURFEX/writesurf_watfluxn.F90
src/SURFEX/z0eff.F90
src/SURFEX/z0rel_1d.F90 [deleted file]
src/SURFEX/z0v_from_lai.F90
src/SURFEX/zoom_pgd_cover.F90
src/SURFEX/zoom_pgd_inland_water.F90
src/SURFEX/zoom_pgd_isba.F90
src/SURFEX/zoom_pgd_isba_full.F90
src/SURFEX/zoom_pgd_nature.F90
src/SURFEX/zoom_pgd_orography.F90
src/SURFEX/zoom_pgd_sea.F90
src/SURFEX/zoom_pgd_seaflux.F90
src/SURFEX/zoom_pgd_surf_atm.F90
src/SURFEX/zoom_pgd_teb.F90
src/SURFEX/zoom_pgd_town.F90
src/SURFEX/zsfilter.F90

diff --git a/src/SURFEX/adapt_horibl_surf.F90 b/src/SURFEX/adapt_horibl_surf.F90
deleted file mode 100644 (file)
index 010dfbc..0000000
+++ /dev/null
@@ -1,792 +0,0 @@
-!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
-!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
-!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
-!SFX_LIC for details. version 1.
-!     #########
-    SUBROUTINE ADAPT_HORIBL_SURF(PILATARRAY,PILA1,PILO1,PILA2,PILO2,KINLA,KINLO,&
-                                   KILEN,PARIN,KOLEN,PXOUT,PYOUT,PAROUT,ODVECT, &
-                                   KLUOUT,OINTERP,KLSMIN,KLSMOUT                  )  
-!   ###########################################################################
-!
-!!****  *HORIBL_SURF* - horitontal bilinear interpolation
-!!
-!!    PURPOSE
-!!    -------
-!!
-!!    Interpolates a field, supports masks.
-!!
-!!    METHOD
-!!    ------
-!!
-!!    This routine performs a bilinear interpolation based on the 12 surrounding
-!!    points. It begins with an interpolation along the latitudes (with third order
-!!    polynoms interpolation with 4 points and linear interpolation for 2 points)
-!!    and then a second along the longitude (third order polynoms interpolation).
-!!    Two interpolations are performed : first along the parallels then between the
-!!    four resulting points.
-!!
-!!    The disposition of the points is the following :
-!!
-!!
-!!            N         1   2
-!!
-!!            ^     3   4   5   6
-!!            |           x
-!!            |     7   8   9  10
-!!            |
-!!                     11  12
-!!            S
-!!              W ---------------> E
-!!
-!!   Note : the name 'south', 'north', may not be exact if the last data point is
-!!     to the south of first (delta latitude < 0). This does not affect computations.
-!!
-!!   The formula used to compute the weight is :
-!!        (Lon   - Lon.i) . (Lon   - Lon.i) . (Lon   - Lon.i)
-!!   Wi = ---------------------------------------------------
-!!        (Lon.i - Lon.j) . (Lon.i - Lon.k) . (Lon.i - Lon.l)
-!!   Where j,k,l are the other points of the line.
-!!
-!!   When masks are used, points with different types than the output points are
-!!   not taken in account (in the formula, the corresponding coefficient is set
-!!   to 1). If no points of the same nature are available, the interpolation is
-!!   performed anyway with the 12 points. It is the task of the calling program
-!!   to react to this situation.
-!!
-!!   When the inputs parameters define a circular map (or global), the inputs data
-!!   are extended. The value of the parameter ODVECT is used to know if the datas
-!!   are vectorial or scalar (this affects the sign of extended values).
-!!
-!!   EXTERNAL
-!!   --------
-!!
-!!   subroutine FMLOOK_ll : to retrieve the logical unit number of the listing file
-!!
-!!   IMPLICIT ARGUMENTS
-!!   ------------------
-!!
-!!   REFERENCE
-!!   ---------
-!!
-!!   This routine is based on the one used by the software FULL-POS from Meteo France.
-!!   More informations may be found in 'Book 1'
-!!
-!!   AUTHOR
-!!   ------
-!!
-!!   J.Pettre & V.Bousquet
-!!
-!!   MODIFICATIONS
-!!   -------------
-!!
-!!   Original       07/01/1999
-!!                  21/04/1999 (V. Masson) set correct prefixes and bug in
-!!                             a logical definition
-!!                  21/04/1999 (V. Masson) bug in north and south poles
-!!                             extension for input map land-sea mask
-!!                  27/05/1999 (V. Masson) bug in 'grib south pole'
-!!                             extrapolation (number of point per parallel)
-!!                  27/05/1999 (V. Masson) bug in 'grib pole' extrapolation
-!!                             extra latitudes are now computed symetrically
-!!                             to the poles.
-!!
-!------------------------------------------------------------------------------
-!
-!
-!*      0. DECLARATIONS
-!       ---------------
-!
-USE MODI_HOR_EXTRAPOL_SURF
-!
-USE MODD_SURF_PAR,  ONLY : XUNDEF
-!
-!
-USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
-USE PARKIND1  ,ONLY : JPRB
-!
-USE MODI_ABOR1_SFX
-!
-IMPLICIT NONE
-!
-!*      0.1. Declaration of arguments
-!
-REAL,                      INTENT(IN)  :: PILA1   ! Lat. (y) of first input point
-REAL,                      INTENT(IN)  :: PILO1   ! Lon. (x) of first input point
-REAL,                      INTENT(IN)  :: PILA2   ! Lat. (y) of last input point
-REAL,                      INTENT(IN)  :: PILO2   ! Lon. (x) of last input point
-INTEGER,                   INTENT(IN)  :: KINLA   ! Number of parallels
-INTEGER, DIMENSION(KINLA), INTENT(IN)  :: KINLO   ! Number of point along a parallel
-INTEGER,                   INTENT(IN)  :: KILEN   ! size of input arrays
-REAL,    DIMENSION(KINLA), INTENT(IN)  :: PILATARRAY! latitudes array
-REAL,    DIMENSION(KILEN), INTENT(IN)  :: PARIN   ! input array
-INTEGER,                   INTENT(IN)  :: KOLEN   ! size of output array
-REAL,    DIMENSION(KOLEN), INTENT(IN)  :: PXOUT   ! X (lon.) of output points
-REAL,    DIMENSION(KOLEN), INTENT(IN)  :: PYOUT   ! Y (lat.) of output points
-REAL,    DIMENSION(KOLEN), INTENT(OUT) :: PAROUT  ! output array
-LOGICAL, DIMENSION(KOLEN), INTENT(IN)  :: OINTERP ! .true. where physical value is needed
-LOGICAL,                   INTENT(IN)  :: ODVECT  ! data is vectorial (True/False)
-INTEGER,                   INTENT(IN)  :: KLUOUT  ! output listing logical unit
-INTEGER, DIMENSION(KILEN), INTENT(IN), OPTIONAL  :: KLSMIN  ! input land/sea mask
-INTEGER, DIMENSION(KOLEN), INTENT(IN), OPTIONAL  :: KLSMOUT ! output land/sea mask
-!
-!*      0.2. Declaration of local variables
-!
- ! Variables used to perform the interpolation
-REAL                               :: ZOLA     ! Latitude of the output point
-REAL                               :: ZOLO     ! Longitude of the output point
-REAL                               :: ZIDLA    ! Delta latitude
-REAL, DIMENSION(KINLA+1)           :: ZIDLAT   ! Deltai latitude
-REAL                               :: ZIDLO    ! Delta longitude
-INTEGER, DIMENSION(:), ALLOCATABLE :: IOFS     ! Offset of each parallel in the array
-  ! Number of the surrounding latitudes
-INTEGER                            :: IOSS,IOS,ION,IONN
-  ! Posiiton in the array of the twelwe surrounding points
-INTEGER                            :: IP1,IP2,IP3,IP4,IP5,IP6,IP7,IP8,IP9,IP10, &
-                                        IP11,IP12  
-  ! Latitudes and longitudes of the surrounding points
-REAL                               :: ZLANN,ZLAN,ZLAS,ZLASS
-REAL                               :: ZLOP1,ZLOP2,ZLOP3,ZLOP4 ,ZLOP5 ,ZLOP6,    &
-                                        ZLOP7,ZLOP8,ZLOP9,ZLOP10,ZLOP11,ZLOP12  
-  ! Weights of the latitudes and of the points
-REAL                               :: ZWNN,ZWN,ZWS,ZWSS
-REAL                               :: ZW1,ZW2,ZW3,ZW4,ZW5,ZW6,ZW7,ZW8,ZW9,ZW10, &
-                                        ZW11,ZW12  
-  ! Land/sea mask coefficient for each point : 0 -> point not taken in account,
-  !                                            1 -> point taken in account
-REAL                               :: ZLSM1,ZLSM2 ,ZLSM3 ,ZLSM4 ,ZLSM5 ,ZLSM6,ZLSM7,ZLSM8, &
-                                        ZLSM9,ZLSM10,ZLSM11,ZLSM12,ZLSMNN,ZLSMN,ZLSMS,ZLSMSS,&
-                                        ZLSMTOT  
- ! Variables implied in the extension procedure
-REAL                               :: ZILO1     ! Longitude of the first data point
-REAL                               :: ZILO2     ! Longitude of the last data point
-LOGICAL                            :: GGLOBLON  ! True if the map is circular
-LOGICAL                            :: GGLOBN    ! True if the map has the north pole
-LOGICAL                            :: GGLOBS    ! True if the map has the south pole
-INTEGER                            :: IBIGSIZE  ! Size of the extended map
-INTEGER                            :: IMIDDLE   ! Used for extensions around the poles
-INTEGER                            :: IOFFSET1  ! Offset in map
-INTEGER                            :: IOFFSET2  ! Offset in map
-REAL                               :: ZSOUTHPOLE! south pole latitude (-90 or  90)
-REAL                               :: ZNORTHPOLE! north pole latitude ( 90 or -90)
-REAL,    DIMENSION(:), ALLOCATABLE :: ZLA       ! input "latitude"  coordinate
-REAL,    DIMENSION(:), ALLOCATABLE :: ZLO       ! input "longitude" coordinate
-REAL,    DIMENSION(:), ALLOCATABLE :: ZARIN     ! Extended input datas
-INTEGER, DIMENSION(:), ALLOCATABLE :: ILSMIN    ! Extended land/sea mask
-INTEGER, DIMENSION(:), ALLOCATABLE :: IINLO     ! Extended KINLO
-INTEGER                            :: IINLA     ! Number of parallel
-REAL                               :: ZVECT     ! -1 if input is vectorial
-LOGICAL                            :: LDLSM     ! Specify if land/sea mask is present or not
- ! Loop counters
-INTEGER                            :: JOPOS     ! Output position
-INTEGER                            :: JIPOS     ! Input position
-INTEGER                            :: JLOOP1    ! Dummy counter
-!
-!
-!------------------------------------------------------------------------------
-REAL                               :: ZMAX      ! Max of 12 surrounding values
-REAL                               :: ZMIN      ! Min of 12 surrounding values
-INTEGER                            :: JLOOP2    ! Dummy counter
-INTEGER,    DIMENSION(12)          :: IP        ! Array for IPn
-INTEGER                            :: JLAT      ! latitude  loop counter
-INTEGER                            :: JLON      ! longitude loop counter
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-!------------------------------------------------------------------------------
-!
-!*     1. DETERMINATION  of the latitude of the poles (depending of the latitude
-!         -------------                                 of the first data point)
-!
-IF (LHOOK) CALL DR_HOOK('ADAPT_HORIBL_SURF',0,ZHOOK_HANDLE)
-IF (PILA1>0.) THEN
-  ZSOUTHPOLE= 90.
-  ZNORTHPOLE=-90.
-ELSE
-  ZSOUTHPOLE=-90.
-  ZNORTHPOLE= 90.
-END IF
-!
-!------------------------------------------------------------------------------
-!
-!*     2. EXTEND DATA GRID
-!         ----------------
-  ! Land / Sea mask
-LDLSM = .FALSE.
-IF (PRESENT(KLSMIN) .AND. PRESENT(KLSMOUT)) LDLSM = .TRUE.
-!
-!*    2.1 Alias input data
-!
-ZILO1 = PILO1
-ZILO2 = PILO2
-ZVECT = 1.
-IF (ODVECT) ZVECT=-1.
-!
-!*   2.2 Center input domain in order to have Lo1 < Lo 2
-!
-IF (ZILO2 < 0.)    ZILO2 = ZILO2 + 360.
-IF (ZILO1 < 0.)    ZILO1 = ZILO1 + 360.
-IF (ZILO2 < ZILO1) ZILO1 = ZILO1 - 360.
-!
-!*   2.3 Extend one point (needed for reduced grids)
-!
-! Longitude coordinate of points are found by :
-!                      i
-!  Lon(i) = Lon1 + ------------- . (Lon2 - Lon1)
-!                   Npts(Lat)-1
-! Where i goes from 0 to Npts(Lat)-1. The result of this is that the last point of
-! each parallel is located at Lon2. This is not the case for reduced grid where the
-! position of the last point depends upon the number of points of the parallel. For
-! reduced grid, the right formula to use is the following :
-!                       i
-!  Lon(i) = Lon1 + ----------- . (Lon2' - Lon1)
-!                   Npts(Lat)
-! Where Lon2' = Lon1 + 2.PI.
-!
-!                                              Lon2 - Lon1
-! This can be generalized with Lon2' = Lon2 + -------------
-!                                              Nptsmax - 1
-!
-JOPOS = MAXVAL(KINLO(1:KINLA))
-ZILO2 = ZILO1 + (ZILO2 - ZILO1) * JOPOS / (JOPOS - 1.)
-!
-!
-!* 2.4 Test if the input is global or partially global
-!
-! Note that we must have a global map to make extension around the poles
-GGLOBN   = .FALSE.
-GGLOBS   = .FALSE.
-GGLOBLON = .FALSE.
-IF (ZILO2-360.>ZILO1-1.E-3) GGLOBLON = .TRUE.
-ZIDLA = (PILA2 - PILA1) / (KINLA - 1)
-ZIDLAT(KINLA+1)=0.
-DO JLAT=2,KINLA
-  ZIDLAT(JLAT)=PILATARRAY(JLAT)-PILATARRAY(JLAT-1)
-END DO
-ZIDLAT(1)=ZIDLAT(2)
-IF ((PILA1-ZIDLA>= 90.) .OR. (PILA1-ZIDLA<=-90.)) GGLOBS=GGLOBLON
-IF ((PILA2+ZIDLA>= 90.) .OR. (PILA2+ZIDLA<=-90.)) GGLOBN=GGLOBLON
-! Aladin case (input PILA2, PILO2 are in meters) no extension
-IF ( PILA2 > 100. ) THEN
-  GGLOBN   = .FALSE.
-  GGLOBS   = .FALSE.
-  GGLOBLON = .FALSE.
-END IF
-!
-!* 2.5  Compute the size of the resulting map
-!
-IBIGSIZE = KILEN
-IF (GGLOBS  ) IBIGSIZE=IBIGSIZE+(4+KINLO(    1))+(4+KINLO(      2))
-IF (GGLOBN  ) IBIGSIZE=IBIGSIZE+(4+KINLO(KINLA))+(4+KINLO(KINLA-1))
-IF (GGLOBLON) IBIGSIZE=IBIGSIZE+ 4*KINLA
-!
-!* 2.6 Compute the resulting map
-!
-ALLOCATE (ZARIN(IBIGSIZE))
-ALLOCATE (ILSMIN(IBIGSIZE))
-!
-! 2.6.1 Compute the longitude extension
-!
-! This is a basic copy of the data. If extension is possible, the first and last
-! two lines are copied twice this way :
-!
-!    /---------------\
-!    |               |
-!   [.] [.] [....   ...] [.] [.]
-!        |            |
-!        \------------/
-!
-! A point represent a data.
-!
-JIPOS = 1
-JOPOS = 1
-IF (GGLOBS) JOPOS=JOPOS+(4+KINLO(1))+(4+KINLO(2))
-IF (GGLOBLON) THEN
-  DO JLOOP1 = 1, KINLA
-    ZARIN(JOPOS  ) = PARIN(JIPOS+KINLO(JLOOP1)-2)
-    ZARIN(JOPOS+1) = PARIN(JIPOS+KINLO(JLOOP1)-1)
-    ZARIN(JOPOS+2:JOPOS+2+KINLO(JLOOP1)-1) = PARIN(JIPOS:JIPOS+KINLO(JLOOP1)-1)
-    ZARIN(JOPOS+2+KINLO(JLOOP1)  ) = PARIN(JIPOS  )
-    ZARIN(JOPOS+2+KINLO(JLOOP1)+1) = PARIN(JIPOS+1)
-    IF (LDLSM) THEN
-      ILSMIN(JOPOS  ) = KLSMIN(JIPOS+KINLO(JLOOP1)-2)
-      ILSMIN(JOPOS+1) = KLSMIN(JIPOS+KINLO(JLOOP1)-1)
-      ILSMIN(JOPOS+2:JOPOS+2+KINLO(JLOOP1)-1) = KLSMIN(JIPOS:JIPOS+KINLO(JLOOP1)-1)
-      ILSMIN(JOPOS+2+KINLO(JLOOP1)  ) = KLSMIN(JIPOS  )
-      ILSMIN(JOPOS+2+KINLO(JLOOP1)+1) = KLSMIN(JIPOS+1)
-    END IF
-    JIPOS = JIPOS + KINLO(JLOOP1)
-    JOPOS = JOPOS + KINLO(JLOOP1) + 4
-  END DO
-ELSE
-  ZARIN(JOPOS:JOPOS+KILEN-1) = PARIN(JIPOS:JIPOS+KILEN-1)
-  IF (LDLSM) THEN
-    ILSMIN(JOPOS:JOPOS+KILEN-1) = KLSMIN(JIPOS:JIPOS+KILEN-1)
-  END IF
-END IF
-!
-! 2.6.2 Compute the south pole extension
-!
-! Pole extension is performed by copying the first half datas to the last half
-! datas of the extension parallel :
-!
-!  [.] [.] [....] [....] [.] [.]
-!                  ||||
-!            /-------/
-!           ||||
-!  [.] [.] [....] [....] [.] [.]
-!
-IF (GGLOBS) THEN ! South pole (south meaning begining of the grib)
-  IOFFSET1 = 4 + KINLO(2)
-  IOFFSET2 = IOFFSET1 + 4 + KINLO(1)
-  IMIDDLE = (KINLO(1)+4) / 2
-  ZARIN(IOFFSET1+1:IOFFSET1+IMIDDLE) = &
-      ZVECT*ZARIN(IOFFSET2+1+IMIDDLE-2:IOFFSET2+2*IMIDDLE-2)  
-  ZARIN(IOFFSET1+IMIDDLE+1:IOFFSET1+KINLO(1)+4) = &
-      ZVECT*ZARIN(IOFFSET2+1+2:IOFFSET2+KINLO(1)+4-IMIDDLE+2)  
-  IF (LDLSM) THEN
-    ILSMIN(IOFFSET1+1:IOFFSET1+IMIDDLE) = &
-        ILSMIN(IOFFSET2+1+IMIDDLE-2:IOFFSET2+2*IMIDDLE-2)  
-    ILSMIN(IOFFSET1+IMIDDLE+1:IOFFSET1+KINLO(1)+4) = &
-        ILSMIN(IOFFSET2+1+2:IOFFSET2+KINLO(1)+4-IMIDDLE+2)  
-  END IF
-  IOFFSET2 = IOFFSET2 + 4 + KINLO(1)
-  IMIDDLE = (KINLO(2)+4) / 2
-  ZARIN(1:IMIDDLE) = ZVECT*ZARIN(IOFFSET2+1+IMIDDLE-2:IOFFSET2+2*IMIDDLE-2)
-  ZARIN(IMIDDLE+1:KINLO(2)+4) = &
-      ZVECT*ZARIN(IOFFSET2+1+2:IOFFSET2+KINLO(2)+4-IMIDDLE+2)  
-  IF (LDLSM) THEN
-    ILSMIN(1:IMIDDLE) = ILSMIN(IOFFSET2+1+IMIDDLE:IOFFSET2+2*IMIDDLE)
-    ILSMIN(IMIDDLE+1:KINLO(2)+4) = ILSMIN(IOFFSET2+1+2:IOFFSET2+KINLO(2)+4-IMIDDLE+2)
-  END IF
-END IF
-!
-! 2.6.3 Compute the north pole extension
-!
-IF (GGLOBN) THEN ! North pole (north meaning end of the grib)
-  IOFFSET1 = IBIGSIZE - (4+KINLO(KINLA-1)) - (4+KINLO(KINLA))
-  IOFFSET2 = IOFFSET1 - (4+KINLO(KINLA))
-  IMIDDLE = (KINLO(KINLA)+4) / 2
-  ZARIN(IOFFSET1+1:IOFFSET1+IMIDDLE) = &
-      ZVECT*ZARIN(IOFFSET2+1+IMIDDLE-2:IOFFSET2+2*IMIDDLE-2)  
-  ZARIN(IOFFSET1+IMIDDLE+1:IOFFSET1+KINLO(1)+4) = &
-      ZVECT*ZARIN(IOFFSET2+1+2:IOFFSET2+KINLO(1)+4-IMIDDLE+2)  
-  IF (LDLSM) THEN
-    ILSMIN(IOFFSET1+1:IOFFSET1+IMIDDLE) = &
-        ILSMIN(IOFFSET2+1+IMIDDLE-2:IOFFSET2+2*IMIDDLE-2)  
-    ILSMIN(IOFFSET1+IMIDDLE+1:IOFFSET1+KINLO(1)+4) = &
-        ILSMIN(IOFFSET2+1+2:IOFFSET2+KINLO(1)+4-IMIDDLE+2)  
-  END IF
-  IOFFSET1 = IOFFSET1 + (4+KINLO(KINLA))
-  IOFFSET2 = IOFFSET2 - (4+KINLO(KINLA-1))
-  IMIDDLE = (KINLO(KINLA-1)+4) / 2
-  ZARIN(IOFFSET1+1:IOFFSET1+IMIDDLE) = &
-      ZVECT*ZARIN(IOFFSET2+1+IMIDDLE-2:IOFFSET2+2*IMIDDLE-2)  
-  ZARIN(IOFFSET1+IMIDDLE+1:IOFFSET1+KINLO(1)+4) = &
-      ZVECT*ZARIN(IOFFSET2+1+2:IOFFSET2+KINLO(1)+4-IMIDDLE+2)  
-  IF (LDLSM) THEN
-    ILSMIN(IOFFSET1+1:IOFFSET1+IMIDDLE) = &
-        ILSMIN(IOFFSET2+1+IMIDDLE-2:IOFFSET2+2*IMIDDLE-2)  
-    ILSMIN(IOFFSET1+IMIDDLE+1:IOFFSET1+KINLO(1)+4) = &
-        ILSMIN(IOFFSET2+1+2:IOFFSET2+KINLO(1)+4-IMIDDLE+2)  
-  END IF
-END IF
-!
-!*  2.7  Compute the resulting parameters of the map
-!
-IINLA = KINLA
-IF (GGLOBS) IINLA = IINLA + 2
-IF (GGLOBN) IINLA = IINLA + 2
-!
-ALLOCATE (IINLO(IINLA))
-IOFFSET1 = 0
-IF (GGLOBS) THEN
-  IINLO(IOFFSET1+1) = KINLO(2)
-  IINLO(IOFFSET1+2) = KINLO(1)
-  IOFFSET1 = IOFFSET1 + 2
-END IF
-IINLO(IOFFSET1+1:IOFFSET1+KINLA) = KINLO(1:KINLA)
-IOFFSET1 = IOFFSET1 + KINLA
-IF (GGLOBN) THEN
-  IINLO(IOFFSET1+1) = KINLO(KINLA)
-  IINLO(IOFFSET1+2) = KINLO(KINLA-1)
-  IOFFSET1 = IOFFSET1 + 2
-END IF
-!
-!*  2.8  Compute Offset array used to acces the lines
-!
-ALLOCATE (IOFS(IINLA))
-IOFS(1) = 1
-IF (GGLOBLON) IOFS(1)=IOFS(1)+2
-DO JLOOP1=2, IINLA
-  IOFS(JLOOP1) = IOFS(JLOOP1-1) + IINLO(JLOOP1-1)
-  IF (GGLOBLON) IOFS(JLOOP1) = IOFS(JLOOP1) + 4
-END DO
-!
-!------------------------------------------------------------------------------
-!
-!*     3.   LOOP OVER ALL THE POINTS OF THE OUTPUT GRID
-!           -------------------------------------------
-!
-PAROUT(:) = XUNDEF
-!
-JOPOS = 0
-DO JLOOP1 = 1, KOLEN
-  JOPOS = JOPOS + 1
-  IF (.NOT. OINTERP(JOPOS)) CYCLE
-  ZOLA  = PYOUT(JOPOS)
-  ZOLO  = PXOUT(JOPOS)
-  IF (ZOLO < ZILO1) ZOLO = ZOLO + 360.
-  IF (ZOLO > ZILO2) ZOLO = ZOLO - 360.
-!
-!* 3.1 Locate the 12 input points around the interpolated output point
-!*
-!*            N         1   2
-!*
-!*            ^     3   4   5   6
-!*            |           x
-!*            |     7   8   9  10
-!*            |
-!*                     11  12
-!*            S
-!*              W ---------------> E
-!*
-!* Note : the name 'south', 'north', may not be exact if the point 2 is
-!*   to the south of point 1 (IDLA < 0). This does not affect computation.
-!
-    ! 3.1.1. find positions of latitudes
-  DO JLAT=1,KINLA
-    IF((ZOLA>=(PILATARRAY(JLAT)-ZIDLAT(JLAT  )/2.)).AND.(ZOLA<(PILATARRAY(JLAT)&
-           +ZIDLAT(JLAT+1)/2.)))  IOS = JLAT  
-  ENDDO
-  ZLAS = PILATARRAY(IOS)
-  IF (GGLOBS)  IOS  = IOS + 2
-  IOSS = IOS - 1
-  ION  = IOS + 1
-  IONN = ION + 1
-  IF (IOSS==0) THEN
-    ZLASS=PILATARRAY(1)-ZIDLAT(1)/2.
-  ELSE
-    ZLASS = PILATARRAY(IOS-1)
-  ENDIF
-  ZLAN  = PILATARRAY(IOS+1)
-  ZLANN = PILATARRAY(ION+1)
-      !
-      ! extra latitudes are computed symetrically compared to the poles
-      !
-  IF (GGLOBS .AND. IOS==2) THEN
-    ZLASS = 2. * ZSOUTHPOLE - ZLANN
-    ZLAS  = 2. * ZSOUTHPOLE - ZLAN
-  END IF
-  IF (GGLOBS .AND. IOS==3) THEN
-    ZLASS = 2. * ZSOUTHPOLE - ZLAS
-  END IF
-  IF (GGLOBN .AND. IOS==IINLA-2) THEN
-    ZLANN = 2. * ZNORTHPOLE - ZLASS
-    ZLAN  = 2. * ZNORTHPOLE - ZLAS
-  END IF
-  IF (GGLOBN .AND. IOS==IINLA-3) THEN
-     ZLANN = 2. * ZNORTHPOLE - ZLAN
-  END IF
-!
-  IF ((IOSS<1).OR.(IONN>IINLA).OR. &
-       (IOSS<1).OR.(IONN>IINLA)) THEN  
-    WRITE (KLUOUT,'(A)') &
-        ' -> [HORIBL_SURF.F90] Input domain is smaller than output one - latitude. Abort'  
-      CALL ABOR1_SFX('ADAPT_HORIBLE_SURF: INPUT DOMAIN TOO SMALL - LATITUDE')
-  END IF
-!
-      ! 3.1.2. northern
-  ZIDLO = (ZILO2 - ZILO1) / (IINLO(IONN))
-  IP1   = INT((ZOLO - ZILO1) / ZIDLO)
-  IP2   = IP1  + 1
-  ZLOP1 = ZILO1 + IP1 * ZIDLO
-  ZLOP2 = ZLOP1 + ZIDLO
-!
-      ! 3.1.3. north
-  ZIDLO = (ZILO2 - ZILO1) / (IINLO(ION ))
-  IP4   = INT((ZOLO - ZILO1) / ZIDLO)
-  IP3   = IP4  - 1
-  IP5   = IP4  + 1
-  IP6   = IP5  + 1
-  ZLOP4 = ZILO1 + IP4 * ZIDLO
-  ZLOP3 = ZLOP4 - ZIDLO
-  ZLOP5 = ZLOP4 + ZIDLO
-  ZLOP6 = ZLOP5 + ZIDLO
-!
-      ! 3.1.4. south
-  ZIDLO = (ZILO2 - ZILO1) / (IINLO(IOS ))
-  IP8   = INT((ZOLO - ZILO1) / ZIDLO)
-  IP7   = IP8  - 1
-  IP9   = IP8  + 1
-  IP10  = IP9  + 1
-  ZLOP8 = ZILO1 + IP8 * ZIDLO
-  ZLOP7 = ZLOP8 - ZIDLO
-  ZLOP9 = ZLOP8 + ZIDLO
-  ZLOP10= ZLOP9 + ZIDLO
-!
-      ! 3.1.5. southern
-  ZIDLO = (ZILO2 - ZILO1) / (IINLO(IOSS))
-  IP11  = INT((ZOLO - ZILO1) / ZIDLO)
-  IP12  = IP11 + 1
-  ZLOP11= ZILO1 + IP11* ZIDLO
-  ZLOP12= ZLOP11+ ZIDLO
-!
-      ! 3.1.6. check position of points
-  IF (GGLOBLON) THEN
-    IF ((IP1 <-2) .OR. (IP2 >IINLO(IONN)+1) .OR. &
-          (IP3 <-2) .OR. (IP6 >IINLO(ION )+1) .OR. &
-          (IP7 <-2) .OR. (IP10>IINLO(IOS )+1) .OR. &
-        (IP11<-2) .OR. (IP12>IINLO(IOSS)+1)) THEN  
-      WRITE (KLUOUT,'(A,A)')                                         &
-           ' -> [HORIBL_SURF.F90] Input domain is smaller than output one ', &
-           '- longitude global, abort'  
-      CALL ABOR1_SFX('ADAPT_HORIBLE_SURF: INPUT DOMAIN TOO SMALL - LONGITUDE GLOBAL')
-    END IF
-  ELSE
-    IF ((IP1 <0) .OR. (IP2 >IINLO(IONN)-1) .OR. &
-          (IP3 <0) .OR. (IP6 >IINLO(ION )-1) .OR. &
-          (IP7 <0) .OR. (IP10>IINLO(IOS )-1) .OR. &
-          (IP11<0) .OR. (IP12>IINLO(IOSS)-1)) THEN  
-      WRITE (KLUOUT,'(A,A)')                                        &
-          ' -> [HORIBL_SURF.F90] Input domain is smaller than output one ', &
-          '- longitude local, abort'  
-      CALL ABOR1_SFX('ADAPT_HORIBLE_SURF: INPUT DOMAIN TOO SMALL - LONGITUDE LOCAL')
-    END IF
-  END IF
-!
-      ! 3.1.7. add parallel offset
-  IP1 =IP1 + IOFS(IONN)
-  IP2 =IP2 + IOFS(IONN)
-  IP3 =IP3 + IOFS(ION )
-  IP4 =IP4 + IOFS(ION )
-  IP5 =IP5 + IOFS(ION )
-  IP6 =IP6 + IOFS(ION )
-  IP7 =IP7 + IOFS(IOS )
-  IP8 =IP8 + IOFS(IOS )
-  IP9 =IP9 + IOFS(IOS )
-  IP10=IP10+ IOFS(IOS )
-  IP11=IP11+ IOFS(IOSS)
-  IP12=IP12+ IOFS(IOSS)
-!
-!*  3.2 Land / Sea mask
-!
-  ZLSM1  = 1.
-  ZLSM2  = 1.
-  ZLSM3  = 1.
-  ZLSM4  = 1.
-  ZLSM5  = 1.
-  ZLSM6  = 1.
-  ZLSM7  = 1.
-  ZLSM8  = 1.
-  ZLSM9  = 1.
-  ZLSM10 = 1.
-  ZLSM11 = 1.
-  ZLSM12 = 1.
-  ZLSMNN = 1.
-  ZLSMN  = 1.
-  ZLSMS  = 1.
-  ZLSMSS = 1.
-  IF (LDLSM) THEN
-    IF (ILSMIN(IP1 ).NE.KLSMOUT(JOPOS)) ZLSM1  = 0.
-    IF (ILSMIN(IP2 ).NE.KLSMOUT(JOPOS)) ZLSM2  = 0.
-    IF (ILSMIN(IP3 ).NE.KLSMOUT(JOPOS)) ZLSM3  = 0.
-    IF (ILSMIN(IP4 ).NE.KLSMOUT(JOPOS)) ZLSM4  = 0.
-    IF (ILSMIN(IP5 ).NE.KLSMOUT(JOPOS)) ZLSM5  = 0.
-    IF (ILSMIN(IP6 ).NE.KLSMOUT(JOPOS)) ZLSM6  = 0.
-    IF (ILSMIN(IP7 ).NE.KLSMOUT(JOPOS)) ZLSM7  = 0.
-    IF (ILSMIN(IP8 ).NE.KLSMOUT(JOPOS)) ZLSM8  = 0.
-    IF (ILSMIN(IP9 ).NE.KLSMOUT(JOPOS)) ZLSM9  = 0.
-    IF (ILSMIN(IP10).NE.KLSMOUT(JOPOS)) ZLSM10 = 0.
-    IF (ILSMIN(IP11).NE.KLSMOUT(JOPOS)) ZLSM11 = 0.
-    IF (ILSMIN(IP12).NE.KLSMOUT(JOPOS)) ZLSM12 = 0.
-    ZLSMNN = MIN(ZLSM1 +ZLSM2,1.)
-    ZLSMN  = MIN(ZLSM3 +ZLSM4 +ZLSM5 +ZLSM6,1.)
-    ZLSMS  = MIN(ZLSM7 +ZLSM8 +ZLSM9 +ZLSM10,1.)
-    ZLSMSS = MIN(ZLSM11+ZLSM12,1.)
-    ZLSMTOT = MIN(ZLSMNN+ZLSMN+ZLSMS+ZLSMSS,1.)
-    IF (ZLSMNN < 1.E-3) THEN
-      ZLSM1 = 1.
-      ZLSM2 = 1.
-    END IF
-    IF (ZLSMN  < 1.E-3) THEN
-      ZLSM3 = 1.
-      ZLSM4 = 1.
-      ZLSM5 = 1.
-      ZLSM6 = 1.
-    END IF
-    IF (ZLSMS  < 1.E-3) THEN
-      ZLSM7 = 1.
-      ZLSM8 = 1.
-      ZLSM9 = 1.
-      ZLSM10= 1.
-    END IF
-    IF (ZLSMSS < 1.E-3) THEN
-      ZLSM11= 1.
-      ZLSM12= 1.
-    END IF
-    IF (ZLSMTOT < 1.E-3) THEN
-      ZLSMNN = 1.
-      ZLSMN  = 1.
-      ZLSMS  = 1.
-      ZLSMSS = 1.
-    END IF
-  ENDIF
-!
-!*  3.3 Weight of points
-!
-      ! 3.3.1 northern
-  ZW1  = ZLSM1 * (1.+ZLSM2 *(ZOLO -ZLOP1 )/(ZLOP1 -ZLOP2 ))
-  ZW2  = 1. - ZW1
-  ZWNN = ZLSMNN* (1.+ZLSMN *(ZOLA -ZLANN)/(ZLANN-ZLAN )) &
-                 * (1.+ZLSMS *(ZOLA -ZLANN)/(ZLANN-ZLAS )) &
-                 * (1.+ZLSMSS*(ZOLA -ZLANN)/(ZLANN-ZLASS))  
-!
-      ! 3.3.2. north
-  ZW3  = ZLSM3 * (1.+ZLSM4 *(ZOLO -ZLOP3 )/(ZLOP3 -ZLOP4 )) &
-                 * (1.+ZLSM5 *(ZOLO -ZLOP3 )/(ZLOP3 -ZLOP5 )) &
-                 * (1.+ZLSM6 *(ZOLO -ZLOP3 )/(ZLOP3 -ZLOP6 ))  
-  ZW4  = ZLSM4 * (1.+ZLSM3 *(ZOLO -ZLOP4 )/(ZLOP4 -ZLOP3 )) &
-                 * (1.+ZLSM5 *(ZOLO -ZLOP4 )/(ZLOP4 -ZLOP5 )) &
-                 * (1.+ZLSM6 *(ZOLO -ZLOP4 )/(ZLOP4 -ZLOP6 ))  
-  ZW5  = ZLSM5 * (1.+ZLSM3 *(ZOLO -ZLOP5 )/(ZLOP5 -ZLOP3 )) &
-                 * (1.+ZLSM4 *(ZOLO -ZLOP5 )/(ZLOP5 -ZLOP4 )) &
-                 * (1.+ZLSM6 *(ZOLO -ZLOP5 )/(ZLOP5 -ZLOP6 ))  
-  ZW6 = 1. - ZW3 - ZW4 - ZW5
-  ZWN  = ZLSMN * (1.+ZLSMNN*(ZOLA -ZLAN )/(ZLAN -ZLANN)) &
-                 * (1.+ZLSMS *(ZOLA -ZLAN )/(ZLAN -ZLAS )) &
-                 * (1.+ZLSMSS*(ZOLA -ZLAN )/(ZLAN -ZLASS))  
-!
-      ! 3.3.3. south
-  ZW7  = ZLSM7 * (1.+ZLSM8 *(ZOLO -ZLOP7 )/(ZLOP7 -ZLOP8 )) &
-                 * (1.+ZLSM9 *(ZOLO -ZLOP7 )/(ZLOP7 -ZLOP9 )) &
-                 * (1.+ZLSM10*(ZOLO -ZLOP7 )/(ZLOP7 -ZLOP10))  
-  ZW8  = ZLSM8 * (1.+ZLSM7 *(ZOLO -ZLOP8 )/(ZLOP8 -ZLOP7 )) &
-                 * (1.+ZLSM9 *(ZOLO -ZLOP8 )/(ZLOP8 -ZLOP9 )) &
-                 * (1.+ZLSM10*(ZOLO -ZLOP8 )/(ZLOP8 -ZLOP10))  
-  ZW9  = ZLSM9 * (1.+ZLSM7 *(ZOLO -ZLOP9 )/(ZLOP9 -ZLOP7 )) &
-                 * (1.+ZLSM8 *(ZOLO -ZLOP9 )/(ZLOP9 -ZLOP8 )) &
-                 * (1.+ZLSM10*(ZOLO -ZLOP9 )/(ZLOP9 -ZLOP10))  
-  ZW10 = 1. - ZW7 - ZW8 - ZW9
-  ZWS  = ZLSMS * (1.+ZLSMNN*(ZOLA -ZLAS )/(ZLAS -ZLANN)) &
-                 * (1.+ZLSMN *(ZOLA -ZLAS )/(ZLAS -ZLAN )) &
-                 * (1.+ZLSMSS*(ZOLA -ZLAS )/(ZLAS -ZLASS))  
-!
-      ! 3.3.4. southern
-  ZW11 = ZLSM11* (1.+ZLSM12*(ZOLO -ZLOP11)/(ZLOP11-ZLOP12))
-  ZW12 = 1. - ZW11
-  ZWSS = 1. - ZWNN - ZWN - ZWS
-!
-      ! 3.3.5. longitude weight x latitude weight
-  ZW1  = ZW1  * ZWNN
-  ZW2  = ZW2  * ZWNN
-  ZW3  = ZW3  * ZWN
-  ZW4  = ZW4  * ZWN
-  ZW5  = ZW5  * ZWN
-  ZW6  = ZW6  * ZWN
-  ZW7  = ZW7  * ZWS
-  ZW8  = ZW8  * ZWS
-  ZW9  = ZW9  * ZWS
-  ZW10 = ZW10 * ZWS
-  ZW11 = ZW11 * ZWSS
-  ZW12 = ZW12 * ZWSS
-!
-  PAROUT (JOPOS) = ZW1  * ZARIN(IP1 ) + &
-                     ZW2  * ZARIN(IP2 ) + &
-                     ZW3  * ZARIN(IP3 ) + &
-                     ZW4  * ZARIN(IP4 ) + &
-                     ZW5  * ZARIN(IP5 ) + &
-                     ZW6  * ZARIN(IP6 ) + &
-                     ZW7  * ZARIN(IP7 ) + &
-                     ZW8  * ZARIN(IP8 ) + &
-                     ZW9  * ZARIN(IP9 ) + &
-                     ZW10 * ZARIN(IP10) + &
-                     ZW11 * ZARIN(IP11) + &
-                     ZW12 * ZARIN(IP12)  
-!
-! For surface fields, the interpoalted value is bounded
-! by the min max values of the initial field
-
-  IF (PRESENT(KLSMIN)) THEN
-
-    IP(1)=IP1
-    IP(2)=IP2
-    IP(3)=IP3
-    IP(4)=IP4
-    IP(5)=IP5
-    IP(6)=IP6
-    IP(7)=IP7
-    IP(8)=IP8
-    IP(9)=IP9
-    IP(10)=IP10
-    IP(11)=IP11
-    IP(12)=IP12
-
-    ZMIN=XUNDEF
-    ZMAX=XUNDEF
-
-    DO JLOOP2=1,12
-      IF (ZARIN(IP(JLOOP2))==XUNDEF) CYCLE
-
-      IF ((ZMAX==XUNDEF)) THEN
-        ZMAX=ZARIN(IP(JLOOP2))
-        ZMIN=ZARIN(IP(JLOOP2))
-      ELSE
-        ZMAX=MAX(ZMAX,ZARIN(IP(JLOOP2)))
-        ZMIN=MIN(ZMIN,ZARIN(IP(JLOOP2)))
-      ENDIF
-
-    END DO
-
-    PAROUT(JOPOS) = MAX(MIN(PAROUT(JOPOS),ZMAX),ZMIN)
-
-  ENDIF
-
-END DO
-!
-DEALLOCATE (IINLO)
-DEALLOCATE (ZARIN)
-DEALLOCATE (ILSMIN)
-DEALLOCATE (IOFS)
-!
-WHERE(ABS(PAROUT-XUNDEF)<1.E-6) PAROUT=XUNDEF
-!
-!------------------------------------------------------------------------------
-!
-!*     4.   EXTRAPOLATIONS IF SOME POINTS WERE NOT INTERPOLATED
-!           ---------------------------------------------------
-!
-!* no missing point
-IF (COUNT(PAROUT(:)==XUNDEF .AND. OINTERP(:))==0 .AND. LHOOK) CALL DR_HOOK('ADAPT_HORIBL_SURF',1,ZHOOK_HANDLE)
-IF (COUNT(PAROUT(:)==XUNDEF .AND. OINTERP(:))==0) RETURN
-!
-!* no data point
-IF (COUNT(PARIN(:)/=XUNDEF)==0 .AND. LHOOK) CALL DR_HOOK('ADAPT_HORIBL_SURF',1,ZHOOK_HANDLE)
-IF (COUNT(PARIN(:)/=XUNDEF)==0) RETURN
-!
-WRITE(KLUOUT,*) ' Remaining horizontal extrapolations'
-WRITE(KLUOUT,*) ' Total number of input data     : ',COUNT(PARIN(:)/=XUNDEF)
-WRITE(KLUOUT,*) ' Number of points to interpolate: ',COUNT(PAROUT(:)==XUNDEF .AND. OINTERP(:))
-!
-!* input grid coordinates
-!
-ALLOCATE(ZLA(KILEN))
-ALLOCATE(ZLO(KILEN))
-!
-JIPOS = 0
-DO JLAT=1,KINLA
-  ZIDLO = (ZILO2-ZILO1) / KINLO(JLAT)
-  DO JLON=1,KINLO(JLAT)
-    JIPOS = JIPOS + 1
-    ZLA(JIPOS) = PILATARRAY(JLAT)
-    ZLO(JIPOS) = ZILO1 + (JLON-1) * ZIDLO
-  END DO
-END DO
-!
- CALL HOR_EXTRAPOL_SURF(KLUOUT,'LALO',ZLA,ZLO,PARIN,PYOUT,PXOUT,PAROUT,OINTERP)
-!
-DEALLOCATE(ZLA)
-DEALLOCATE(ZLO)
-IF (LHOOK) CALL DR_HOOK('ADAPT_HORIBL_SURF',1,ZHOOK_HANDLE)
-!
-!------------------------------------------------------------------------------
-!
-!
-END SUBROUTINE ADAPT_HORIBL_SURF
index 056aaa5..35926e8 100644 (file)
@@ -2,207 +2,8 @@
 !SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
 !SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
 !SFX_LIC for details. version 1.
-!      ###########
-MODULE MODI_ALBEDO
-!      ###########
-!
-INTERFACE ALBEDO
-!
-!
-      SUBROUTINE ALBEDO_1D(HALBEDO,                                      &
-                             PALBVIS_VEG,PALBNIR_VEG,PALBUV_VEG,PVEG,      &
-                             PALBVIS_SOIL,PALBNIR_SOIL,PALBUV_SOIL,        &
-                             PALBVIS_ECO ,PALBNIR_ECO, PALBUV_ECO,         &
-                             PSNOW, OMASK                                  )  
-!
-!
-!*      0.1    declarations of arguments
-!              -------------------------
-!
- CHARACTER(LEN=*),       INTENT(IN)   :: HALBEDO
-! Albedo dependance wxith surface soil water content
-!   "EVOL" = albedo evolves with soil wetness
-!   "DRY " = constant albedo value for dry soil
-!   "WET " = constant albedo value for wet soil
-!   "MEAN" = constant albedo value for medium soil wetness
-!
-REAL, DIMENSION(:), INTENT(IN)  :: PALBVIS_VEG ! visible, near infra-red and UV
-REAL, DIMENSION(:), INTENT(IN)  :: PALBNIR_VEG ! albedo of the vegetation
-REAL, DIMENSION(:), INTENT(IN)  :: PALBUV_VEG  !
-REAL, DIMENSION(:), INTENT(IN)  :: PVEG        ! fraction of vegetation
-REAL, DIMENSION(:), INTENT(IN)  :: PALBVIS_SOIL! visible, near infra-red and UV
-REAL, DIMENSION(:), INTENT(IN)  :: PALBNIR_SOIL! soil albedo
-REAL, DIMENSION(:), INTENT(IN)  :: PALBUV_SOIL !
-!
-REAL, DIMENSION(:), INTENT(INOUT) :: PALBVIS_ECO ! visible, near infra-red and UV
-REAL, DIMENSION(:), INTENT(INOUT) :: PALBNIR_ECO ! averaged albedo
-REAL, DIMENSION(:), INTENT(INOUT) :: PALBUV_ECO  !
-REAL,    DIMENSION(:), INTENT(IN), OPTIONAL  :: PSNOW ! fraction of permanent snow and ice
-LOGICAL, DIMENSION(:), INTENT(IN), OPTIONAL  :: OMASK ! mask where computations are done
-!
-END SUBROUTINE ALBEDO_1D
-!
-!
-      SUBROUTINE ALBEDO_1D_PATCH(HALBEDO,                                &
-                             PALBVIS_VEG,PALBNIR_VEG,PALBUV_VEG,PVEG,      &
-                             PALBVIS_SOIL,PALBNIR_SOIL,PALBUV_SOIL,        &
-                             PALBVIS_ECO ,PALBNIR_ECO, PALBUV_ECO,         &
-                             PVEGTYPE, OMASK                               )  
-!
-!
-!*      0.1    declarations of arguments
-!              -------------------------
-!
-!
- CHARACTER(LEN=*),       INTENT(IN)   :: HALBEDO
-! Albedo dependance wxith surface soil water content
-!   "EVOL" = albedo evolves with soil wetness
-!   "DRY " = constant albedo value for dry soil
-!   "WET " = constant albedo value for wet soil
-!   "MEAN" = constant albedo value for medium soil wetness
-!
-REAL, DIMENSION(:,:), INTENT(IN)  :: PALBVIS_VEG ! visible, near infra-red and UV
-REAL, DIMENSION(:,:), INTENT(IN)  :: PALBNIR_VEG ! albedo of the vegetation
-REAL, DIMENSION(:,:), INTENT(IN)  :: PALBUV_VEG  !
-REAL, DIMENSION(:,:), INTENT(IN)  :: PVEG        ! fraction of vegetation
-REAL, DIMENSION(:,:), INTENT(IN)  :: PALBVIS_SOIL! visible, near infra-red and UV
-REAL, DIMENSION(:,:), INTENT(IN)  :: PALBNIR_SOIL! soil albedo
-REAL, DIMENSION(:,:), INTENT(IN)  :: PALBUV_SOIL !
-!
-REAL, DIMENSION(:,:), INTENT(INOUT) :: PALBVIS_ECO ! visible, near infra-red and UV
-REAL, DIMENSION(:,:), INTENT(INOUT) :: PALBNIR_ECO ! averaged albedo
-REAL, DIMENSION(:,:), INTENT(INOUT) :: PALBUV_ECO  !
-REAL,    DIMENSION(:,:), INTENT(IN), OPTIONAL :: PVEGTYPE ! vegetation type
-LOGICAL, DIMENSION(:),   INTENT(IN), OPTIONAL :: OMASK    ! mask where computations are done
-!
-END SUBROUTINE ALBEDO_1D_PATCH
-!
-END INTERFACE
-!
-END MODULE MODI_ALBEDO
-!
-!     ####################################################################
-      SUBROUTINE ALBEDO_1D(HALBEDO,                                      &
-                             PALBVIS_VEG,PALBNIR_VEG,PALBUV_VEG,PVEG,      &
-                             PALBVIS_SOIL,PALBNIR_SOIL,PALBUV_SOIL,        &
-                             PALBVIS_ECO ,PALBNIR_ECO, PALBUV_ECO,         &
-                             PSNOW, OMASK                                  )  
-!     ####################################################################
-!
-!!****  *ALBEDO*  
-!!
-!!    PURPOSE
-!!    -------
-!       computes the albedo of the natural continental parts, from
-! vegetation albedo and soil albedo.
-! Soil albedo is estimated from sand fraction.
-! A correction due to the soil humidity is used.
-!
-!     
-!!**  METHOD
-!!    ------
-!
-!!    EXTERNAL
-!!    --------
-!!
-!!    IMPLICIT ARGUMENTS
-!!    ------------------ 
-!!
-!!      
-!!    REFERENCE
-!!    ---------
-!!
-!!      
-!!    AUTHOR
-!!    ------
-!!      V. Masson           * Meteo-France *
-!!
-!!    MODIFICATIONS
-!!    -------------
-!!      Original    17/12/99 
-!!                  01/2004  Externalization (V. Masson)
-!-------------------------------------------------------------------------------
-!
-!*       0.     DECLARATIONS
-!               ------------
-!
-USE MODD_SNOW_PAR, ONLY : XANSMAX
-!
-!
-USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
-USE PARKIND1  ,ONLY : JPRB
-!
-IMPLICIT NONE
-!
-!*      0.1    declarations of arguments
-!              -------------------------
-!
- CHARACTER(LEN=*),       INTENT(IN)   :: HALBEDO
-! Albedo dependance wxith surface soil water content
-!   "EVOL" = albedo evolves with soil wetness
-!   "DRY " = constant albedo&