From 01d4c129a757e160942069a3375bda5393461b6b Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Wed, 18 Apr 2018 14:16:14 +0200 Subject: [PATCH] Philippe 18/04/2018: add comment in headers + modify copyright date --- LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 | 5 +++++ LIBTOOLS/tools/lfi2cdf/src/mode_options.f90 | 5 +++++ LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 | 5 +++++ src/LIB/SURCOUCHE/src/fmread_ll.f90 | 13 +++---------- src/LIB/SURCOUCHE/src/fmreadwrit.f90 | 12 +++--------- src/LIB/SURCOUCHE/src/fmwrit_ll.f90 | 12 +++--------- src/LIB/SURCOUCHE/src/io_write_field.f90 | 8 ++++++++ src/LIB/SURCOUCHE/src/modd_dim_ll.f90 | 13 +++---------- src/LIB/SURCOUCHE/src/modd_io.f90 | 11 +++-------- src/LIB/SURCOUCHE/src/modd_netcdf.f90 | 8 ++++++++ src/LIB/SURCOUCHE/src/modd_structure_ll.f90 | 10 +--------- src/LIB/SURCOUCHE/src/mode_allocbuff.f90 | 11 +++-------- src/LIB/SURCOUCHE/src/mode_exchange_ll.f90 | 12 +++--------- src/LIB/SURCOUCHE/src/mode_field.f90 | 6 +++++- src/LIB/SURCOUCHE/src/mode_fm.f90 | 12 +++--------- src/LIB/SURCOUCHE/src/mode_gather.f90 | 14 +++----------- src/LIB/SURCOUCHE/src/mode_init_ll.f90 | 11 ++--------- src/LIB/SURCOUCHE/src/mode_io.f90 | 11 ++--------- src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 | 7 ++++--- src/LIB/SURCOUCHE/src/mode_lb_ll.f90 | 11 ++--------- src/LIB/SURCOUCHE/src/mode_mnh_world.f90 | 4 +++- src/LIB/SURCOUCHE/src/mode_mppdb.f90 | 4 +++- src/LIB/SURCOUCHE/src/mode_nest_ll.f90 | 14 ++++---------- src/LIB/SURCOUCHE/src/mode_netcdf.f90 | 4 ++-- src/LIB/SURCOUCHE/src/mode_splittingz_ll.f90 | 12 +++--------- src/LIB/SURCOUCHE/src/modn_confio.f90 | 6 ++++++ src/MNH/adv_forcingn.f90 | 3 ++- src/MNH/advec_4th_order_aux.f90 | 5 ----- src/MNH/advection_metsv.f90 | 3 ++- src/MNH/aircraft_balloon.f90 | 8 ++------ src/MNH/aircraft_balloon_evol.f90 | 8 ++------ src/MNH/anel_balancen.f90 | 8 ++------ src/MNH/ares.f | 8 ++------ src/MNH/bl89.f90 | 7 ++----- src/MNH/budget.f90 | 7 ++----- src/MNH/c2r2_adjust.f90 | 8 ++------ src/MNH/call_rttov11.f90 | 3 ++- src/MNH/call_rttov8.f90 | 3 ++- src/MNH/ch_aer_mod_init.f90 | 8 ++------ src/MNH/ch_emission_flux0d.f90 | 8 ++------ src/MNH/ch_f77.fx90 | 7 ++----- src/MNH/ch_field_valuen.f90 | 8 ++------ src/MNH/ch_init_constn.f90 | 8 ++------ src/MNH/ch_init_meteo.f90 | 8 ++------ src/MNH/ch_model0d.f90 | 8 ++------ src/MNH/ch_monitorn.f90 | 3 ++- src/MNH/ch_open_input.f90 | 8 ++------ src/MNH/ch_read_chem.f90 | 8 ++------ src/MNH/ch_read_meteo.f90 | 8 ++------ src/MNH/ch_surface0d.f90 | 8 ++------ src/MNH/change_gribex_var.f90 | 3 ++- src/MNH/check_zhat.f90 | 8 ++------ src/MNH/check_zs.f90 | 7 ++----- src/MNH/clean_conc_ice_c1r3.f90 | 8 ++------ src/MNH/clean_conc_rain_c2r2.f90 | 8 ++------ src/MNH/close_file_mnh.f90 | 8 ++------ src/MNH/compare_dad.f90 | 8 ++------ src/MNH/compare_with_pgd_domain.f90 | 8 ++------ src/MNH/compute_exner_from_ground.f90 | 9 +++------ src/MNH/compute_exner_from_top.f90 | 9 +++------ src/MNH/compute_r00.f90 | 8 ++------ src/MNH/compute_spectre.f90 | 3 ++- src/MNH/deallocate_model1.f90 | 8 ++------ src/MNH/default_desfmn.f90 | 4 ++-- src/MNH/define_maskn.f90 | 7 ++----- src/MNH/diag.f90 | 4 ++-- src/MNH/dry_mass.f90 | 8 ++------ src/MNH/eddyUV_flux_one_wayn.f90 | 7 ++----- src/MNH/eddyUV_fluxn.f90 | 7 ++----- src/MNH/eddy_flux_one_wayn.f90 | 7 ++----- src/MNH/eddy_fluxn.f90 | 7 ++----- src/MNH/elec_trid.f90 | 7 ++----- src/MNH/elec_tridz.f90 | 8 ++------ src/MNH/endstep_budget.f90 | 8 ++------ src/MNH/error_on_temperature.f90 | 8 ++------ src/MNH/exchange.f90 | 9 ++------- src/MNH/fast_terms.f90 | 8 ++------ src/MNH/fill_zsmtn.f90 | 8 ++------ src/MNH/forcing.f90 | 8 ++------ src/MNH/free_atm_profile.f90 | 7 ++----- src/MNH/fun.f90 | 8 ++------ src/MNH/get_nb_procio_read_mnh.f90 | 4 +++- src/MNH/get_nb_procio_write_mnh.f90 | 4 +++- src/MNH/get_sizex_lb.f90 | 7 ++----- src/MNH/get_sizey_lb.f90 | 7 ++----- src/MNH/goto_model_wrapper.f90 | 8 ++------ src/MNH/gps_zenith.f90 | 7 ++----- src/MNH/gps_zenith_grid.f90 | 7 ++----- src/MNH/ground_paramn.f90 | 7 +------ src/MNH/horibl.f90 | 8 ++------ src/MNH/ice_adjust.f90 | 7 ++----- src/MNH/ice_adjust_elec.f90 | 7 ++----- src/MNH/ini_aircraft_balloon.f90 | 8 ++------ src/MNH/ini_budget.f90 | 8 ++------ src/MNH/ini_cpl.f90 | 8 ++------ src/MNH/ini_cst.f90 | 8 ++------ src/MNH/ini_deep_convection.f90 | 4 +++- src/MNH/ini_dynamics.f90 | 4 +++- src/MNH/ini_elecn.f90 | 7 ++----- src/MNH/ini_ice_c1r3.f90 | 8 ++------ src/MNH/ini_lb.f90 | 4 +++- src/MNH/ini_les_cart_maskn.f90 | 7 ++----- src/MNH/ini_lesn.f90 | 4 ++-- src/MNH/ini_lima.f90 | 6 ++++++ src/MNH/ini_lima_cold_mixed.f90 | 6 ++++++ src/MNH/ini_lima_warm.f90 | 6 ++++++ src/MNH/ini_ls.f90 | 8 ++------ src/MNH/ini_micron.f90 | 8 ++------ src/MNH/ini_modeln.f90 | 4 ++-- src/MNH/ini_one_wayn.f90 | 7 ++----- src/MNH/ini_param_elec.f90 | 4 +++- src/MNH/ini_posprofilern.f90 | 8 ++------ src/MNH/ini_prog_var.f90 | 7 ++----- src/MNH/ini_radiations.f90 | 7 ++----- src/MNH/ini_radiations_ecmwf.f90 | 3 ++- src/MNH/ini_rain_c2r2.f90 | 11 ++--------- src/MNH/ini_segn.f90 | 8 ++------ src/MNH/ini_seriesn.f90 | 8 ++------ src/MNH/ini_size_spawn.f90 | 7 ++----- src/MNH/ini_sizen.f90 | 7 ++----- src/MNH/ini_spectren.f90 | 5 ++--- src/MNH/ini_surf_rad.f90 | 8 ++------ src/MNH/ini_surfstationn.f90 | 8 ++------ src/MNH/init_aerosol_properties.f90 | 6 ++++++ src/MNH/init_for_convlfi.f90 | 8 ++------ src/MNH/init_ground_paramn.f90 | 7 +------ src/MNH/init_mnh.f90 | 10 +++------- src/MNH/isocom.f | 16 ++++++---------- src/MNH/isofwd.f | 17 +++++++---------- src/MNH/isorev.f | 17 +++++++---------- src/MNH/khko_notadjust.f90 | 8 ++------ src/MNH/latlon_to_xy.f90 | 8 ++------ src/MNH/les_specn.f90 | 8 ++------ src/MNH/lesn.f90 | 4 ++-- src/MNH/lima_adjust.f90 | 6 ++++++ src/MNH/lima_cold.f90 | 6 ++++++ src/MNH/lima_cold_hom_nucl.f90 | 6 ++++++ src/MNH/lima_cold_sedimentation.f90 | 6 ++++++ src/MNH/lima_cold_slow_processes.f90 | 6 ++++++ src/MNH/lima_meyers.f90 | 6 ++++++ src/MNH/lima_mixed.f90 | 6 ++++++ src/MNH/lima_phillips.f90 | 6 ++++++ src/MNH/lima_warm.f90 | 6 ++++++ src/MNH/lima_warm_coal.f90 | 6 ++++++ src/MNH/lima_warm_evap.f90 | 6 ++++++ src/MNH/lima_warm_nucl.f90 | 6 ++++++ src/MNH/lima_warm_sedim.f90 | 6 ++++++ src/MNH/lochead.f90 | 8 ++------ src/MNH/ls_coupling.f90 | 8 ++------ src/MNH/mean_prof.f90 | 8 ++------ src/MNH/menu_diachro.f90 | 8 ++------ src/MNH/mesonh.f90 | 7 ++----- src/MNH/mnh2lpdm.f90 | 3 ++- src/MNH/mnh2lpdm_ech.f90 | 9 ++++++--- src/MNH/mnh2lpdm_ini.f90 | 4 +++- src/MNH/mnh_surf_grid_io_init.f90 | 8 ++------ src/MNH/mnhclose_aux_io_surf.f90 | 12 ++++++------ src/MNH/mnhclose_namelist.f90 | 8 ++------ src/MNH/mnhclose_write_cover_tex.f90 | 8 ++------ src/MNH/mnhend_io_surfn.f90 | 8 ++------ src/MNH/mnhget_desfmn.f90 | 8 ++------ src/MNH/mnhget_luout.f90 | 8 ++------ src/MNH/mnhinit_io_surfn.f90 | 8 ++------ src/MNH/mnhopen_aux_io_surf.f90 | 3 ++- src/MNH/mnhopen_namelist.f90 | 8 ++------ src/MNH/mnhopen_write_cover_tex.f90 | 8 ++------ src/MNH/mnhread_zs_dummyn.f90 | 8 ++------ src/MNH/mnhwrite_zs_dummyn.f90 | 8 ++------ src/MNH/modd_advn.f90 | 8 ++------ src/MNH/modd_bakout.f90 | 9 ++------- src/MNH/modd_budget.f90 | 3 ++- src/MNH/modd_ch_model0d.f90 | 8 ++------ src/MNH/modd_ch_phn.f90 | 10 ++-------- src/MNH/modd_conf.f90 | 7 ++----- src/MNH/modd_confn.f90 | 8 ++------ src/MNH/modd_deep_convectionn.f90 | 8 ++------ src/MNH/modd_def_eddyUV_fluxn.f90 | 7 ++----- src/MNH/modd_def_eddy_fluxn.f90 | 7 ++----- src/MNH/modd_dynn.f90 | 7 ++----- src/MNH/modd_elecn.f90 | 8 ++------ src/MNH/modd_fieldn.f90 | 8 ++------ src/MNH/modd_gr_fieldn.f90 | 8 ++------ src/MNH/modd_gridn.f90 | 8 ++------ src/MNH/modd_hurr_fieldn.f90 | 8 ++------ src/MNH/modd_io_nam.f90 | 8 ++------ src/MNH/modd_io_surf_mnh.f90 | 8 ++------ src/MNH/modd_lbcn.f90 | 8 ++------ src/MNH/modd_les.f90 | 8 ++------ src/MNH/modd_lima_precip_scavengingn.f90 | 6 ++++++ src/MNH/modd_lsfieldn.f90 | 8 ++------ src/MNH/modd_lunit.f90 | 8 ++------ src/MNH/modd_lunitn.f90 | 8 ++------ src/MNH/modd_nesting.f90 | 9 ++------- src/MNH/modd_outn.f90 | 8 ++------ src/MNH/modd_parameters.f90 | 7 ++----- src/MNH/modd_paramn.f90 | 8 ++------ src/MNH/modd_past_fieldn.f90 | 9 ++------- src/MNH/modd_precipn.f90 | 8 ++------ src/MNH/modd_radiationsn.f90 | 8 ++------ src/MNH/modd_ref.f90 | 8 ++------ src/MNH/modd_refn.f90 | 8 ++------ src/MNH/modd_spawn.f90 | 8 ++------ src/MNH/modd_sto_file.f90 | 8 +++----- src/MNH/modd_sub_modeln.f90 | 8 +++----- src/MNH/modd_timen.f90 | 8 ++------ src/MNH/modd_turbn.f90 | 10 +++------- src/MNH/mode_RBK90_Integrator.f90 | 6 +++++- src/MNH/mode_datetime.f90 | 1 + src/MNH/mode_gatherall_border_ll.f90 | 4 +++- src/MNH/mode_gridcart.f90 | 7 ++----- src/MNH/mode_gridproj.f90 | 8 ++------ src/MNH/mode_les_diachro.f90 | 8 ++------ src/MNH/mode_modeln_handler.f90 | 8 +++----- src/MNH/mode_thermo.f90 | 9 ++------- src/MNH/mode_time.f90 | 8 ++------ src/MNH/mode_type_zdiffu.f90 | 10 ++++------ src/MNH/modeln.f90 | 6 ++---- src/MNH/modn_backup.f90 | 10 +++------- src/MNH/modn_output.f90 | 10 +++------- src/MNH/modules_diachro.f90 | 8 +++----- src/MNH/one_wayn.f90 | 10 +++------- src/MNH/open_file_mnh.f90 | 8 ++------ src/MNH/open_nestpgd_files.f90 | 7 ++----- src/MNH/open_prc_files.f90 | 7 ++----- src/MNH/paspol.f90 | 3 ++- src/MNH/pgd_grid_io_init_mnh.f90 | 9 +++------ src/MNH/phys_paramn.f90 | 5 +++-- src/MNH/polar_calc.f90 | 8 +++----- src/MNH/ppm.f90 | 8 +++----- src/MNH/prandtl.f90 | 8 ++------ src/MNH/prep_ideal_case.f90 | 7 ++----- src/MNH/prep_nest_pgd.f90 | 7 ++----- src/MNH/prep_pgd.f90 | 3 ++- src/MNH/prep_real_case.f90 | 7 ++----- src/MNH/prep_surf_mnh.f90 | 8 ++------ src/MNH/prep_surfex.f90 | 8 ++------ src/MNH/pressure.f90 | 7 ++----- src/MNH/pressure_in_prep.f90 | 7 ++----- src/MNH/pressurez.f90 | 7 ++----- src/MNH/profilern.f90 | 8 ++------ src/MNH/prognos.f90 | 3 ++- src/MNH/radar_c2r2.f90 | 8 ++------ src/MNH/radar_rain_ice.f90 | 3 ++- src/MNH/radar_scattering.f90 | 7 ++----- src/MNH/radar_simulator.f90 | 7 ++----- src/MNH/radiations.f90 | 3 ++- src/MNH/rain_c2r2_khko.f90 | 7 ++----- src/MNH/rain_ice_elec.f90 | 8 ++------ src/MNH/read_all_data_grib_case.f90 | 8 ++------ src/MNH/read_all_data_mesonh_case.f90 | 8 ++------ src/MNH/read_chem_data_netcdf_case.f90 | 5 +++++ src/MNH/read_desfmn.f90 | 7 ++----- src/MNH/read_dummy_gr_fieldn.f90 | 8 ++------ src/MNH/read_exsegn.f90 | 8 ++------ src/MNH/read_exspa.f90 | 8 ++------ src/MNH/read_field.f90 | 3 ++- src/MNH/read_grid_time_mesonh_case.f90 | 8 ++------ src/MNH/read_hgrid.f90 | 8 ++------ src/MNH/read_hgridn.f90 | 7 ++----- src/MNH/read_prc_fmfile.f90 | 7 ++----- src/MNH/read_precip_field.f90 | 8 ++------ src/MNH/read_surf_mnh.f90 | 6 +++++- src/MNH/read_ver_grid.f90 | 8 ++------ src/MNH/rel_forcingn.f90 | 3 ++- src/MNH/removal_vortex.f90 | 8 ++------ src/MNH/reset_exseg.f90 | 8 ++------ src/MNH/resolved_cloud.f90 | 4 ++-- src/MNH/resolved_elecn.f90 | 4 ++-- src/MNH/retrieve2_nest_infon.f90 | 7 ++----- src/MNH/rms_at_z.f90 | 8 ++------ src/MNH/select_avg_pgd.f90 | 8 ++------ src/MNH/select_std_pgd.f90 | 8 ++------ src/MNH/seriesn.f90 | 8 ++------ src/MNH/set_advfrc.f90 | 7 ++----- src/MNH/set_bogus_vortex.f90 | 7 ++----- src/MNH/set_chemaq_1way.f90 | 4 ++-- src/MNH/set_conc_ice_c1r3.f90 | 8 ++------ src/MNH/set_conc_lima.f90 | 6 ++++++ src/MNH/set_conc_rain_c2r2.f90 | 8 ++------ src/MNH/set_cstn.f90 | 7 ++----- src/MNH/set_frc.f90 | 8 ++------ src/MNH/set_geosbal.f90 | 8 ++------ src/MNH/set_grid.f90 | 8 ++------ src/MNH/set_mass.f90 | 3 ++- src/MNH/set_msk.f90 | 7 ++----- src/MNH/set_perturb.f90 | 7 ++----- src/MNH/set_ref.f90 | 7 ++----- src/MNH/set_refz.f90 | 8 ++------ src/MNH/set_relfrc.f90 | 7 ++----- src/MNH/set_rsou.f90 | 7 ++----- src/MNH/set_subdomain.f90 | 8 ++------ src/MNH/setlb_lg.f90 | 7 +------ src/MNH/shallow_mf_pack.f90 | 3 ++- src/MNH/spawn_field2.f90 | 3 ++- src/MNH/spawn_grid2.f90 | 7 ++----- src/MNH/spawn_model2.f90 | 3 ++- src/MNH/spawn_pressure2.f90 | 8 ++------ src/MNH/spawn_surf.f90 | 8 ++------ src/MNH/spawn_surf2_rain.f90 | 8 ++------ src/MNH/spawn_zs.f90 | 7 ++----- src/MNH/spawning.f90 | 4 ++-- src/MNH/spec_ver_int.f90 | 8 ++------ src/MNH/spectre.f90 | 4 +++- src/MNH/spectre_arome.f90 | 4 +++- src/MNH/stationn.f90 | 8 ++------ src/MNH/tke_eps_sources.f90 | 8 ++------ src/MNH/total_dmass.f90 | 8 ++------ src/MNH/trid.f90 | 8 ++------ src/MNH/tridz.f90 | 7 ++----- src/MNH/turb.f90 | 4 +++- src/MNH/turb_cloud_index.f90 | 8 ++------ src/MNH/turb_hor.f90 | 8 ++------ src/MNH/turb_hor_dyn_corr.f90 | 7 ++----- src/MNH/turb_hor_splt.f90 | 7 ++----- src/MNH/turb_hor_sv_flux.f90 | 8 ++------ src/MNH/turb_hor_thermo_corr.f90 | 9 ++------- src/MNH/turb_hor_thermo_flux.f90 | 8 ++------ src/MNH/turb_hor_uv.f90 | 8 ++------ src/MNH/turb_hor_uw.f90 | 8 ++------ src/MNH/turb_hor_vw.f90 | 8 ++------ src/MNH/turb_ver.f90 | 8 ++------ src/MNH/turb_ver_dyn_flux.f90 | 7 ++----- src/MNH/turb_ver_sv_flux.f90 | 8 ++------ src/MNH/turb_ver_thermo_corr.f90 | 8 ++------ src/MNH/turb_ver_thermo_flux.f90 | 7 ++----- src/MNH/two_way.f90 | 8 ++------ src/MNH/two_wayn.f90 | 8 ++------ src/MNH/uv_to_zonal_and_merid.f90 | 5 +++-- src/MNH/ver_dyn.f90 | 7 ++----- src/MNH/ver_int_dyn.f90 | 8 ++------ src/MNH/ver_int_thermo.f90 | 7 ++----- src/MNH/ver_interp_to_mixed_grid.f90 | 7 ++----- src/MNH/ver_prep_gribex_case.f90 | 8 ++------ src/MNH/ver_prep_mesonh_case.f90 | 7 ++----- src/MNH/ver_prep_netcdf_case.f90 | 6 ++++++ src/MNH/ver_thermo.f90 | 7 ++----- src/MNH/version.f90 | 4 ++-- src/MNH/wguess.f90 | 8 ++------ src/MNH/write_aircraft_balloon.f90 | 8 ++------ src/MNH/write_balloonn.f90 | 8 ++------ src/MNH/write_budget.f90 | 10 ++-------- src/MNH/write_desfmn.f90 | 7 ++----- src/MNH/write_diachro.f90 | 8 ++------ src/MNH/write_dummy_gr_fieldn.f90 | 8 ++------ src/MNH/write_hgrid.f90 | 8 ++------ src/MNH/write_hgridn.f90 | 8 ++------ src/MNH/write_lbn.f90 | 8 ++------ src/MNH/write_les_budgetn.f90 | 8 ++------ src/MNH/write_les_rt_budgetn.f90 | 8 ++------ src/MNH/write_les_sv_budgetn.f90 | 8 ++------ src/MNH/write_lesn.f90 | 4 ++-- src/MNH/write_lfifm1_for_diag.f90 | 8 ++------ src/MNH/write_lfifm1_for_diag_supp.f90 | 7 ++----- src/MNH/write_lfifmn_fordiachron.f90 | 7 ++----- src/MNH/write_lfin.f90 | 8 ++------ src/MNH/write_profilern.f90 | 8 ++------ src/MNH/write_seriesn.f90 | 7 ++----- src/MNH/write_stationn.f90 | 8 ++------ src/MNH/write_surf_mnh.f90 | 17 ++++++++++++----- src/MNH/write_ts1d.f90 | 8 ++------ src/MNH/xy_to_latlon.f90 | 8 ++------ src/MNH/xytolatlon.f90 | 8 ++------ src/MNH/zoom_pgd.f90 | 8 ++------ src/MNH/zsmt_pgd.f90 | 3 ++- src/SURFEX/gather_and_write_mpi.F90 | 3 ++- src/SURFEX/horibl_surf_gridin.F90 | 2 +- src/SURFEX/hvac_autosize.F90 | 3 ++- src/SURFEX/init_isban.F90 | 3 ++- src/SURFEX/init_teb_garden_pgdn.F90 | 3 ++- src/SURFEX/init_teb_greenroof_pgdn.F90 | 3 ++- src/SURFEX/interpol_npts.F90 | 3 ++- src/SURFEX/make_lcover.F90 | 3 ++- src/SURFEX/modd_surfex_omp.F90 | 3 ++- src/SURFEX/mode_gridtype_conf_proj.F90 | 3 ++- src/SURFEX/read_direct.F90 | 2 +- src/SURFEX/vegtype_grid_to_patch_grid.F90 | 3 ++- src/SURFEX/writesurf_tebn.F90 | 3 ++- src/include/isrpia.inc | 1 + 378 files changed, 940 insertions(+), 1767 deletions(-) diff --git a/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 b/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 index bade9ffb9..544a2bfee 100644 --- a/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 +++ b/LIBTOOLS/tools/lfi2cdf/src/lfi2cdf.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- program LFI2CDF USE MODD_CONF, ONLY: CPROGRAM USE MODD_CONFZ, ONLY: NB_PROCIO_R diff --git a/LIBTOOLS/tools/lfi2cdf/src/mode_options.f90 b/LIBTOOLS/tools/lfi2cdf/src/mode_options.f90 index 9fa2b0031..4eba3506f 100644 --- a/LIBTOOLS/tools/lfi2cdf/src/mode_options.f90 +++ b/LIBTOOLS/tools/lfi2cdf/src/mode_options.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2015-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- module mode_options USE MODE_FIELD, ONLY: TYPEUNDEF, TYPEINT, TYPELOG, TYPEREAL, TYPECHAR, TYPEDATE diff --git a/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 b/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 index 3007bf5c4..f7b2482a3 100644 --- a/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 +++ b/LIBTOOLS/tools/lfi2cdf/src/mode_util.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- MODULE mode_util USE MODD_IO_ll, ONLY: TFILE_ELT USE MODD_NETCDF, ONLY: DIMCDF, IDCDF_KIND diff --git a/src/LIB/SURCOUCHE/src/fmread_ll.f90 b/src/LIB/SURCOUCHE/src/fmread_ll.f90 index f00bbb7bc..1634d65b0 100644 --- a/src/LIB/SURCOUCHE/src/fmread_ll.f90 +++ b/src/LIB/SURCOUCHE/src/fmread_ll.f90 @@ -1,16 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- #ifdef MNH_MPI_DOUBLE_PRECISION #define MPI_FLOAT MPI_DOUBLE_PRECISION @@ -24,7 +16,8 @@ MODULE MODE_FMREAD ! J.Escobar : 22/08/2005 : BUG : manque un "GOTO 1000" si champs ! lue non trouvé !!! ! J.Escobar : 13/01/2015 : remove comment on BCAST(IRESP in FMREADX2_ll -! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! USE MODD_IO_ll, ONLY : NVERB_FATAL,NVERB_ERROR,NVERB_WARNING,NVERB_INFO,NVERB_DEBUG,TFILEDATA USE MODD_MPIF diff --git a/src/LIB/SURCOUCHE/src/fmreadwrit.f90 b/src/LIB/SURCOUCHE/src/fmreadwrit.f90 index 63edf2961..7e5f20dc5 100644 --- a/src/LIB/SURCOUCHE/src/fmreadwrit.f90 +++ b/src/LIB/SURCOUCHE/src/fmreadwrit.f90 @@ -1,17 +1,11 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- MODULE MODE_READWRITE_LFI +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! USE MODD_IO_ll USE MODD_PARAMETERS, ONLY: NLFIMAXCOMMENTLENGTH diff --git a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90 b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90 index 9c855784e..113318835 100644 --- a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90 +++ b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90 @@ -1,17 +1,11 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- -!Correction : +! Modifications: ! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- #ifdef MNH_MPI_DOUBLE_PRECISION diff --git a/src/LIB/SURCOUCHE/src/io_write_field.f90 b/src/LIB/SURCOUCHE/src/io_write_field.f90 index fe9bbd1ae..0eff3edc0 100644 --- a/src/LIB/SURCOUCHE/src/io_write_field.f90 +++ b/src/LIB/SURCOUCHE/src/io_write_field.f90 @@ -1,3 +1,11 @@ +!MNH_LIC Copyright 2016-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- +! Original version: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O +! MODULE MODE_IO_WRITE_FIELD ! USE MODD_IO_ll, ONLY: TOUTBAK diff --git a/src/LIB/SURCOUCHE/src/modd_dim_ll.f90 b/src/LIB/SURCOUCHE/src/modd_dim_ll.f90 index f4f7453d6..e492819e6 100644 --- a/src/LIB/SURCOUCHE/src/modd_dim_ll.f90 +++ b/src/LIB/SURCOUCHE/src/modd_dim_ll.f90 @@ -1,17 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- - ! ################## MODULE MODD_DIM_ll ! ################## @@ -42,6 +33,8 @@ !! Modifications !! ------------- ! Original 04/05/98 +! Philippe Wautelet: 12/01/2018: renamed dimension variables NIMAX_TMP_ll,NJMAX_TMP_ll, NKMAX_TMP_ll +! to prevent mix-up with modd_dimn ! !------------------------------------------------------------------------------- ! diff --git a/src/LIB/SURCOUCHE/src/modd_io.f90 b/src/LIB/SURCOUCHE/src/modd_io.f90 index b7b9966ad..5c8643728 100644 --- a/src/LIB/SURCOUCHE/src/modd_io.f90 +++ b/src/LIB/SURCOUCHE/src/modd_io.f90 @@ -1,15 +1,10 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- MODULE MODD_IO_ll diff --git a/src/LIB/SURCOUCHE/src/modd_netcdf.f90 b/src/LIB/SURCOUCHE/src/modd_netcdf.f90 index bc9ae7bcb..c8c5c8a1f 100644 --- a/src/LIB/SURCOUCHE/src/modd_netcdf.f90 +++ b/src/LIB/SURCOUCHE/src/modd_netcdf.f90 @@ -1,3 +1,11 @@ +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O +!----------------------------------------------------------------- MODULE MODD_NETCDF IMPLICIT NONE diff --git a/src/LIB/SURCOUCHE/src/modd_structure_ll.f90 b/src/LIB/SURCOUCHE/src/modd_structure_ll.f90 index 3a433f5e0..570dcba7e 100644 --- a/src/LIB/SURCOUCHE/src/modd_structure_ll.f90 +++ b/src/LIB/SURCOUCHE/src/modd_structure_ll.f90 @@ -1,16 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- - ! ######################## MODULE MODD_STRUCTURE_ll ! ######################## diff --git a/src/LIB/SURCOUCHE/src/mode_allocbuff.f90 b/src/LIB/SURCOUCHE/src/mode_allocbuff.f90 index 995ecc320..b6ba60133 100644 --- a/src/LIB/SURCOUCHE/src/mode_allocbuff.f90 +++ b/src/LIB/SURCOUCHE/src/mode_allocbuff.f90 @@ -1,15 +1,10 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- MODULE MODE_ALLOCBUFFER_ll diff --git a/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90 b/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90 index fb8a029a8..9d2c43bb5 100644 --- a/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90 +++ b/src/LIB/SURCOUCHE/src/mode_exchange_ll.f90 @@ -1,17 +1,11 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- -!Correction : +! Modifications: ! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +! Philippe 12/01/2018: renamed dimension variables NKMAX_ll->NKMAX_TMP_ll in modd_dim_ll to prevent mix-up with modd_dimn !----------------------------------------------------------------- ! ######################## diff --git a/src/LIB/SURCOUCHE/src/mode_field.f90 b/src/LIB/SURCOUCHE/src/mode_field.f90 index ac9f6b3ec..c6325263f 100644 --- a/src/LIB/SURCOUCHE/src/mode_field.f90 +++ b/src/LIB/SURCOUCHE/src/mode_field.f90 @@ -1,7 +1,11 @@ -!MNH_LIC Copyright 2016 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2016-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- +! Original version: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O +!----------------------------------------------------------------- MODULE MODE_FIELD ! USE MODD_CONF, ONLY : CPROGRAM diff --git a/src/LIB/SURCOUCHE/src/mode_fm.f90 b/src/LIB/SURCOUCHE/src/mode_fm.f90 index 48aaf6baf..bbe135b02 100644 --- a/src/LIB/SURCOUCHE/src/mode_fm.f90 +++ b/src/LIB/SURCOUCHE/src/mode_fm.f90 @@ -1,18 +1,12 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!Correction : +! Modifications: ! D.Gazen : avril 2016 change error message ! P. Wautelet : may 2016: use NetCDF Fortran module -!----------------------------------------------------------------- +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- MODULE MODE_FM diff --git a/src/LIB/SURCOUCHE/src/mode_gather.f90 b/src/LIB/SURCOUCHE/src/mode_gather.f90 index e8afb0c5c..756d8dcaa 100644 --- a/src/LIB/SURCOUCHE/src/mode_gather.f90 +++ b/src/LIB/SURCOUCHE/src/mode_gather.f90 @@ -1,16 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- #ifdef MNH_MPI_DOUBLE_PRECISION #define MPI_FLOAT MPI_DOUBLE_PRECISION @@ -20,12 +12,12 @@ MODULE MODE_GATHER_ll -! +! Modifications: ! J.Escobar 10/02/2012 : Bug , in MPI_RECV replace MPI_STATUSES_IGNORE ! with MPI_STATUS_IGNORE ! J.Escobar 22/05/2012 : Bug in ISEND with non-contiguous buffer , reintroduce intermediate buffer +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! - USE MODD_MPIF !JUANZ USE MODD_VAR_ll, ONLY : NMNH_COMM_WORLD diff --git a/src/LIB/SURCOUCHE/src/mode_init_ll.f90 b/src/LIB/SURCOUCHE/src/mode_init_ll.f90 index 37d65552d..97faecbb0 100644 --- a/src/LIB/SURCOUCHE/src/mode_init_ll.f90 +++ b/src/LIB/SURCOUCHE/src/mode_init_ll.f90 @@ -1,16 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- #ifdef MNH_MPI_DOUBLE_PRECISION #define MNH_MPI_REAL MPI_DOUBLE_PRECISION @@ -62,6 +54,7 @@ ! Original May 19, 1998 ! Juan 19/08/2005: distinction Halo NORD/SUD & EST/WEST ! M.Moge 05/02/2015: extended HALO (halo size + 1) +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! !------------------------------------------------------------------------------- ! diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90 index 11c8cb51e..f98e29509 100644 --- a/src/LIB/SURCOUCHE/src/mode_io.f90 +++ b/src/LIB/SURCOUCHE/src/mode_io.f90 @@ -1,16 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- !! Authors !! ------- ! @@ -23,6 +15,7 @@ ! D.Gazen : avril 2016 change error message ! P. Wautelet : may 2016: use NetCDF Fortran module ! P. Wautelet : July 2016: added type OUTBAK +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! MODULE MODE_IO_ll diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 index c6ecbd17e..a7332d359 100644 --- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 +++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 @@ -1,14 +1,15 @@ -!MNH_LIC Copyright 1994-2016 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!----------------------------------------------------------------- !! Authors !! ------- ! ! P. Wautelet : 2016: original version -! +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O +!----------------------------------------------------------------- MODULE MODE_IO_MANAGE_STRUCT ! USE MODD_IO_ll diff --git a/src/LIB/SURCOUCHE/src/mode_lb_ll.f90 b/src/LIB/SURCOUCHE/src/mode_lb_ll.f90 index 3e59e81b5..72b5dc99b 100644 --- a/src/LIB/SURCOUCHE/src/mode_lb_ll.f90 +++ b/src/LIB/SURCOUCHE/src/mode_lb_ll.f90 @@ -1,16 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- ! ################# MODULE MODE_LB_ll @@ -846,6 +838,7 @@ !! Modifications !! ------------- ! Original 02 fev. 1999 +! Philippe 12/01/2018: renamed dimension variables NKMAX_ll->NKMAX_TMP_ll to prevent mix-up with modd_dimn ! !------------------------------------------------------------------------------- ! diff --git a/src/LIB/SURCOUCHE/src/mode_mnh_world.f90 b/src/LIB/SURCOUCHE/src/mode_mnh_world.f90 index 11da8603c..e6da700c2 100644 --- a/src/LIB/SURCOUCHE/src/mode_mnh_world.f90 +++ b/src/LIB/SURCOUCHE/src/mode_mnh_world.f90 @@ -1,11 +1,13 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- !! MODIFICATIONS !! ------------- !! !! J.Escobar 3/12/2014 : typo form -> from +!! Philippe 03/10/2017: set IP and NPROC in INIT_NMNH_COMM_WORLD !! MODULE MODE_MNH_WORLD IMPLICIT NONE diff --git a/src/LIB/SURCOUCHE/src/mode_mppdb.f90 b/src/LIB/SURCOUCHE/src/mode_mppdb.f90 index 1e27d47b0..c3181c2c7 100644 --- a/src/LIB/SURCOUCHE/src/mode_mppdb.f90 +++ b/src/LIB/SURCOUCHE/src/mode_mppdb.f90 @@ -1,7 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- MODULE MODE_MPPDB ! ! Modifs : @@ -9,6 +10,7 @@ MODULE MODE_MPPDB !! M.Moge 05/02/2015: MPPDB_CHECK_SURFEX2D and MPPDB_CHECK_SURFEX3D + bug fix in MPPDB_CHECK2D and MPPDB_CHECK3D (call MPI_AllReduce at the beginning) ! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 ! G.Delautier : 23/06/2016 : surfex v8 +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! IMPLICIT NONE diff --git a/src/LIB/SURCOUCHE/src/mode_nest_ll.f90 b/src/LIB/SURCOUCHE/src/mode_nest_ll.f90 index a36485094..e6ac68c6e 100644 --- a/src/LIB/SURCOUCHE/src/mode_nest_ll.f90 +++ b/src/LIB/SURCOUCHE/src/mode_nest_ll.f90 @@ -1,17 +1,11 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- -!Correction : -! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +! Modifications: +! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +! Philippe 12/01/2018: renamed dimension variable NKMAX_ll->NKMAX_TMP_ll to prevent mix-up with modd_dimn !----------------------------------------------------------------- ! ################### diff --git a/src/LIB/SURCOUCHE/src/mode_netcdf.f90 b/src/LIB/SURCOUCHE/src/mode_netcdf.f90 index 3ab0d00d7..3ef456772 100644 --- a/src/LIB/SURCOUCHE/src/mode_netcdf.f90 +++ b/src/LIB/SURCOUCHE/src/mode_netcdf.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2016 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -6,7 +6,7 @@ ! Modifications: ! P. Wautelet : may 2016 : use NetCDF Fortran module ! J.Escobar : 14/12/2017 : Correction for MNH_INT=8 -!----------------------------------------------------------------- +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- #if defined(MNH_IOCDF4) MODULE MODE_NETCDF diff --git a/src/LIB/SURCOUCHE/src/mode_splittingz_ll.f90 b/src/LIB/SURCOUCHE/src/mode_splittingz_ll.f90 index 11566b632..8ee22c5c4 100644 --- a/src/LIB/SURCOUCHE/src/mode_splittingz_ll.f90 +++ b/src/LIB/SURCOUCHE/src/mode_splittingz_ll.f90 @@ -1,16 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for CVS information -!----------------------------------------------------------------- -! $Source$ -! $Name$ -! $Revision$ -! $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- #ifdef MNH_MPI_DOUBLE_PRECISION #define MNH_MPI_REAL MPI_DOUBLE_PRECISION @@ -45,6 +37,8 @@ MODULE MODE_SPLITTINGZ_ll !! ------- ! ! J. ESCOBAR * LA * + ! Modifications: + ! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O USE MODD_MPIF ! USE MODE_SPLITTING_ll diff --git a/src/LIB/SURCOUCHE/src/modn_confio.f90 b/src/LIB/SURCOUCHE/src/modn_confio.f90 index 20787d02d..3f41d09f3 100644 --- a/src/LIB/SURCOUCHE/src/modn_confio.f90 +++ b/src/LIB/SURCOUCHE/src/modn_confio.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ################## MODULE MODN_CONFIO ! ################## @@ -24,6 +29,7 @@ !! MODIFICATIONS !! ------------- !! Original 31/03/2014 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/adv_forcingn.f90 b/src/MNH/adv_forcingn.f90 index eeb0f247b..a4a4038b6 100644 --- a/src/MNH/adv_forcingn.f90 +++ b/src/MNH/adv_forcingn.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -91,6 +91,7 @@ END MODULE MODI_ADV_FORCING_n !! MODIFICATIONS !! ------------- !! Original 08/11/10 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! 28/03/2018 P. Wautelet: replace TEMPORAL_DIST by DATETIME_DISTANCE !! use overloaded comparison operator for date_time !! diff --git a/src/MNH/advec_4th_order_aux.f90 b/src/MNH/advec_4th_order_aux.f90 index 3d3bd9de8..5d98dbed9 100644 --- a/src/MNH/advec_4th_order_aux.f90 +++ b/src/MNH/advec_4th_order_aux.f90 @@ -3,11 +3,6 @@ !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 adiab 2006/05/18 14:35:31 -!----------------------------------------------------------------- ! ############################### MODULE MODI_ADVEC_4TH_ORDER_AUX ! ############################### diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90 index 698f6a5b5..80d4edff8 100644 --- a/src/MNH/advection_metsv.f90 +++ b/src/MNH/advection_metsv.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -133,6 +133,7 @@ END MODULE MODI_ADVECTION_METSV !! 04/2016 (C.Lac) : correction of negativity for KHKO !! 10/2016 (C.Lac) Correction on the flag for Strang splitting !! to insure reproducibility between START and RESTA +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/aircraft_balloon.f90 b/src/MNH/aircraft_balloon.f90 index 162d447ad..fa1872b0a 100644 --- a/src/MNH/aircraft_balloon.f90 +++ b/src/MNH/aircraft_balloon.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/aircraft_balloon.f90,v $ $Revision: 1.1.10.1.16.1.2.2 $ -! MASDEV4_7 balloon 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ##################### MODULE MODI_AIRCRAFT_BALLOON ! ##################### @@ -95,6 +90,7 @@ END MODULE MODI_AIRCRAFT_BALLOON !! Original 15/05/2000 !! !! March, 2008 (P.Lacarrere) Add 3D fluxes +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/aircraft_balloon_evol.f90 b/src/MNH/aircraft_balloon_evol.f90 index 556ce677d..df4675587 100644 --- a/src/MNH/aircraft_balloon_evol.f90 +++ b/src/MNH/aircraft_balloon_evol.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/aircraft_balloon_evol.f90,v $ $Revision: 1.1.8.1.2.4.2.1.10.1.2.4 $ -! MASDEV4_7 balloon 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ########################## MODULE MODI_AIRCRAFT_BALLOON_EVOL ! ########################## @@ -132,6 +127,7 @@ END MODULE MODI_AIRCRAFT_BALLOON_EVOL !! aircraft, ballon and profiler !! October, 2016 (G.DELAUTIER) LIMA !! March,28, 2018 (P. Wautelet) replace TEMPORAL_DIST by DATETIME_DISTANCE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/anel_balancen.f90 b/src/MNH/anel_balancen.f90 index 634fb6a63..6c64978f6 100644 --- a/src/MNH/anel_balancen.f90 +++ b/src/MNH/anel_balancen.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_ideal 2006/07/06 16:35:56 -!----------------------------------------------------------------- ! ########################## MODULE MODI_ANEL_BALANCE_n ! ########################## @@ -108,6 +103,7 @@ END MODULE MODI_ANEL_BALANCE_n !! M.Faivre 2014 !! M.Moge 08/2015 removing UPDATE_HALO_ll(XRHODJ) + EXTRAPOL on ZRU and ZRV in part 3.1 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ares.f b/src/MNH/ares.f index 68ac0c894..646a217f6 100644 --- a/src/MNH/ares.f +++ b/src/MNH/ares.f @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 aerosol 2006/05/18 13:07:25 -!----------------------------------------------------------------- c///////////////////////////////////////////////////////////////////////////// C Calculate the aerosol chemical speciation and water content. @@ -130,6 +125,7 @@ c activity coefficients. The binary activity coefficient c are the same as the previous version c F.Binkowski 8/1/97 Chenged minimum sulfate from 0.0 to 1.0e-6 i.e. c 1 picogram per cubic meter +c P.Wautelet 13/02/2018 use ifdef MNH_REAL to prevent problems with intrinsics on Blue Gene/Q C C----------------------------------------------------------------------- * K. Suhre 6/6/98 diff --git a/src/MNH/bl89.f90 b/src/MNH/bl89.f90 index 28225f342..f90c6a044 100644 --- a/src/MNH/bl89.f90 +++ b/src/MNH/bl89.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ################ MODULE MODI_BL89 ! ################ @@ -69,6 +65,7 @@ END MODULE MODI_BL89 !! 21/02/01 (P. Jabouille) improve vectorization !! 2012-02 (Y. Seity) add possibility to run with !! reversed vertical levels +!! Philippe 13/02/2018: use ifdef MNH_REAL to prevent problems with intrinsics on Blue Gene/Q !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/budget.f90 b/src/MNH/budget.f90 index e5af6155b..a4d5256d2 100644 --- a/src/MNH/budget.f90 +++ b/src/MNH/budget.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- !################## MODULE MODI_BUDGET !################## @@ -80,6 +76,7 @@ END MODULE MODI_BUDGET !! J.-P. Pinty 12/12/96 simplifies the coding !! V. Masson 06/10/02 add LES budgets !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/c2r2_adjust.f90 b/src/MNH/c2r2_adjust.f90 index 3b7084cf6..29333957d 100644 --- a/src/MNH/c2r2_adjust.f90 +++ b/src/MNH/c2r2_adjust.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 microph 2007/03/23 11:52:41 -!----------------------------------------------------------------- ! ####################### MODULE MODI_C2R2_ADJUST ! ####################### @@ -147,6 +142,7 @@ END MODULE MODI_C2R2_ADJUST !! March 2006 (O.Geoffroy) Add KHKO scheme !! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after !! change of YCOMMENT +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/call_rttov11.f90 b/src/MNH/call_rttov11.f90 index 7aabe8ca5..3a5f6b338 100644 --- a/src/MNH/call_rttov11.f90 +++ b/src/MNH/call_rttov11.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -81,6 +81,7 @@ SUBROUTINE CALL_RTTOV11(KDLON, KFLEV, PEMIS, PTSRAD, & !! JP Chaboureau 02/11/2009 move GANGL deallocation outside the sensor loop !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! JP Chaboureau 30/05/2017 exclude the first layer when considering clouds +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!---------------------------------------------------------------------------- !! !!* 0. DECLARATIONS diff --git a/src/MNH/call_rttov8.f90 b/src/MNH/call_rttov8.f90 index 3a8aee400..d8ae1818b 100644 --- a/src/MNH/call_rttov8.f90 +++ b/src/MNH/call_rttov8.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -83,6 +83,7 @@ SUBROUTINE CALL_RTTOV8(KDLON, KFLEV, KSTATM, PEMIS, PTSRAD, PSTATM, & !! JP Chaboureau 27/03/2008 Vectorization !! JP Chaboureau 02/11/2009 move GANGL deallocation outside the sensor loop !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!---------------------------------------------------------------------------- !! !!* 0. DECLARATIONS diff --git a/src/MNH/ch_aer_mod_init.f90 b/src/MNH/ch_aer_mod_init.f90 index 5879105d2..86313a9ed 100644 --- a/src/MNH/ch_aer_mod_init.f90 +++ b/src/MNH/ch_aer_mod_init.f90 @@ -1,13 +1,8 @@ -!ORILAM_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!ORILAM_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !ORILAM_LIC This is part of the ORILAM software governed by the CeCILL-C licence !ORILAM_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !ORILAM_LIC for details. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 chimie 2006/05/18 13:07:25 -!----------------------------------------------------------------- !! ############################ MODULE MODI_CH_AER_MOD_INIT !! ############################ @@ -45,6 +40,7 @@ END MODULE MODI_CH_AER_MOD_INIT !! MODIFICATIONS !! ------------- !! 20/03/03 P . Tulet (CNRM/GMEI) add initialization tabulation +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! EXTERNAL !! -------- diff --git a/src/MNH/ch_emission_flux0d.f90 b/src/MNH/ch_emission_flux0d.f90 index c0eb26e43..f3ba65ed1 100644 --- a/src/MNH/ch_emission_flux0d.f90 +++ b/src/MNH/ch_emission_flux0d.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 chimie 2006/05/18 13:07:25 -!----------------------------------------------------------------- !! ############################ MODULE MODI_CH_EMISSION_FLUX0D !! ############################ @@ -74,6 +69,7 @@ END MODULE MODI_CH_EMISSION_FLUX0D !! MODIFICATIONS !! ------------- !! Original 26/07/1999 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! EXTERNAL !! -------- diff --git a/src/MNH/ch_f77.fx90 b/src/MNH/ch_f77.fx90 index 08341fb19..54036a24c 100644 --- a/src/MNH/ch_f77.fx90 +++ b/src/MNH/ch_f77.fx90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ch_f77.fx90,v $ $Revision: 1.2.2.1.2.2.2.1.8.2.2.3 $ $Date: 2014/06/19 15:18:13 $ -!----------------------------------------------------------------- C**FILE: svode.f C**AUTHOR: Karsten Suhre C**DATE: Fri Nov 10 09:17:45 GMT 1995 @@ -20,6 +16,7 @@ C** in exponential calculation --> problem with "ifort -O2" compiler C**MODIFIED: 22/02/2011 (J.Escobar) remove erroneous 'CALL ABORT' C**MODIFIED: 19/06/2014 (J.Escobar & M.Leriche) write(kout,...) to OUTPUT_LISTING file C & correct IN_LUN = 11 => IN_LUN = 78 to avoid fort.11 creation +C**MODIFIED: 13/02/2018 (P.Wautelet) use ifdef MNH_REAL to prevent problems with intrinsics on Blue Gene/Q C! C! C! diff --git a/src/MNH/ch_field_valuen.f90 b/src/MNH/ch_field_valuen.f90 index 21906d4d3..c20e8e858 100644 --- a/src/MNH/ch_field_valuen.f90 +++ b/src/MNH/ch_field_valuen.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 chimie 2006/05/18 13:07:25 -!----------------------------------------------------------------- !! ############################ MODULE MODI_CH_FIELD_VALUE_n !! ############################ @@ -74,6 +69,7 @@ END MODULE MODI_CH_FIELD_VALUE_n !! 05/08/95 (K. Suhre) restructered !! 11/08/98 (N. Asencio) add parallel code !! 28/07/99 (V. Crassier & K. Suhre) modify initialization scheme (1-D) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! EXTERNAL !! -------- diff --git a/src/MNH/ch_init_constn.f90 b/src/MNH/ch_init_constn.f90 index f8af935b6..4e306a0d0 100644 --- a/src/MNH/ch_init_constn.f90 +++ b/src/MNH/ch_init_constn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 chimie 2006/05/18 13:07:25 -!----------------------------------------------------------------- !! ################################ MODULE MODI_CH_INIT_CONST_n !! ################################ @@ -61,6 +56,7 @@ END MODULE MODI_CH_INIT_CONST_n !! MODIFICATIONS !! ------------- !! Original 16/02/01 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! EXTERNAL !! -------- diff --git a/src/MNH/ch_init_meteo.f90 b/src/MNH/ch_init_meteo.f90 index 5a0414197..95191d0f6 100644 --- a/src/MNH/ch_init_meteo.f90 +++ b/src/MNH/ch_init_meteo.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 chimie 2006/05/18 13:07:25 -!----------------------------------------------------------------- !! ######################### MODULE MODI_CH_INIT_METEO !! ######################### @@ -57,6 +52,7 @@ END MODULE MODI_CH_INIT_METEO !! 20/04/99 (K. Suhre) read all meteodata in one go (this allows !! to interpolate between different forcings) !! 01/12/03 (Gazen) change Chemical scheme interface +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! !! EXTERNAL diff --git a/src/MNH/ch_model0d.f90 b/src/MNH/ch_model0d.f90 index 293573c1c..da17517f3 100644 --- a/src/MNH/ch_model0d.f90 +++ b/src/MNH/ch_model0d.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! BUG2 masdev4_7 2007/09/19 12:46:39 -!----------------------------------------------------------------- ! ################## PROGRAM CH_MODEL0D !! ################## @@ -47,6 +42,7 @@ !! 21/03/06 (P. Tulet) update for MASDEV46 and add ORILAM aerosol scheme !! 24/24/14 (M. Leriche) add ReLACS3 !! M.Leriche 2015 : masse molaire Black carbon à 12 g/mol +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! EXTERNAL !! -------- diff --git a/src/MNH/ch_monitorn.f90 b/src/MNH/ch_monitorn.f90 index fc4230457..fb7fda980 100644 --- a/src/MNH/ch_monitorn.f90 +++ b/src/MNH/ch_monitorn.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -112,6 +112,7 @@ END MODULE MODI_CH_MONITOR_n !! 15/02/16 (M Leriche) call ch_init_rosenbrock only one time !! 20/01/17 (G.Delautier) bug if CPROGRAM/=DIAG !! 01/10/17 (C.Lac) add correction of negativity +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! EXTERNAL !! -------- diff --git a/src/MNH/ch_open_input.f90 b/src/MNH/ch_open_input.f90 index b602ea6f9..86faf3c6f 100644 --- a/src/MNH/ch_open_input.f90 +++ b/src/MNH/ch_open_input.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 chimie 2006/05/18 13:07:25 -!----------------------------------------------------------------- !! ######################### MODULE MODI_CH_OPEN_INPUT !! ######################### @@ -65,6 +60,7 @@ SUBROUTINE CH_OPEN_INPUT(HCHEM_INPUT_FILE,HKEYWORD,TPFILE,KLUOUT,KVERB) !! Original 03/11/95 !! 05/08/96 (K. Suhre) restructured !! 11/08/98 (N. Asencio) add parallel code +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! !! IMPLICIT ARGUMENTS diff --git a/src/MNH/ch_read_chem.f90 b/src/MNH/ch_read_chem.f90 index b37d01f02..d53b435dd 100644 --- a/src/MNH/ch_read_chem.f90 +++ b/src/MNH/ch_read_chem.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 chimie 2006/06/30 14:35:19 -!----------------------------------------------------------------- !! ######################## MODULE MODI_CH_READ_CHEM !! ######################## @@ -60,6 +55,7 @@ END MODULE MODI_CH_READ_CHEM !! 18/02/99 (K. Suhre) allow reading from namelist file !! 01/12/03 (D. Gazen) change Chemical scheme interface !! M.Leriche 2015 : masse molaire Black carbon à 12 g/mol +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! EXTERNAL !! -------- diff --git a/src/MNH/ch_read_meteo.f90 b/src/MNH/ch_read_meteo.f90 index f0132c59c..8dc06a98d 100644 --- a/src/MNH/ch_read_meteo.f90 +++ b/src/MNH/ch_read_meteo.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 chimie 2006/05/18 13:07:25 -!----------------------------------------------------------------- !! ######################### MODULE MODI_CH_READ_METEO !! ######################### @@ -44,6 +39,7 @@ END MODULE MODI_CH_READ_METEO !! Original 21/04/95 !! 27/07/96 (K. Suhre) restructured !! 01/12/03 (D. Gazen) change Chemical scheme interface +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! IMPLICIT ARGUMENTS !! ------------------ diff --git a/src/MNH/ch_surface0d.f90 b/src/MNH/ch_surface0d.f90 index ca58d61ae..05f1207b9 100644 --- a/src/MNH/ch_surface0d.f90 +++ b/src/MNH/ch_surface0d.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 chimie 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! #################################################### SUBROUTINE CH_SURFACE0D(PTSIMUL, PDTACT, PCONC, KEQ) !! #################################################### @@ -43,6 +38,7 @@ !! MODIFICATIONS !! ------------- !! Original 03/03/99 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! EXTERNAL !! -------- diff --git a/src/MNH/change_gribex_var.f90 b/src/MNH/change_gribex_var.f90 index 9517f7cba..af6f23f3d 100644 --- a/src/MNH/change_gribex_var.f90 +++ b/src/MNH/change_gribex_var.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -156,6 +156,7 @@ END MODULE MODI_CHANGE_GRIBEX_VAR !! Masson 12/12/96 add vertical wind component !! Masson 12/06/97 add relative humidity !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/check_zhat.f90 b/src/MNH/check_zhat.f90 index f44d4307f..589de31d5 100644 --- a/src/MNH/check_zhat.f90 +++ b/src/MNH/check_zhat.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/05/18 13:07:25 -!----------------------------------------------------------------- !##################### MODULE MODI_CHECK_ZHAT !##################### @@ -71,6 +66,7 @@ END MODULE MODI_CHECK_ZHAT !! MODIFICATIONS !! ------------- !! Original 24/09/96 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/check_zs.f90 b/src/MNH/check_zs.f90 index aeb678265..200ea82d9 100644 --- a/src/MNH/check_zs.f90 +++ b/src/MNH/check_zs.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- !################### MODULE MODI_CHECK_ZS !################### @@ -76,6 +72,7 @@ END MODULE MODI_CHECK_ZS !! 20/05/98 (V. Masson and J. Stein) include the case where !! the domain is reduced !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/clean_conc_ice_c1r3.f90 b/src/MNH/clean_conc_ice_c1r3.f90 index 089f07cee..2da76e483 100644 --- a/src/MNH/clean_conc_ice_c1r3.f90 +++ b/src/MNH/clean_conc_ice_c1r3.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 microph 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ############################### MODULE MODI_CLEAN_CONC_ICE_C1R3 ! ############################### @@ -64,6 +59,7 @@ END MODULE MODI_CLEAN_CONC_ICE_C1R3 !! MODIFICATIONS !! ------------- !! Original 15/04/01 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/clean_conc_rain_c2r2.f90 b/src/MNH/clean_conc_rain_c2r2.f90 index e65835100..8ee4c1e40 100644 --- a/src/MNH/clean_conc_rain_c2r2.f90 +++ b/src/MNH/clean_conc_rain_c2r2.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 microph 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ######################################### MODULE MODI_CLEAN_CONC_RAIN_C2R2 ! ######################################### @@ -64,6 +59,7 @@ END MODULE MODI_CLEAN_CONC_RAIN_C2R2 !! MODIFICATIONS !! ------------- !! Original 15/12/00 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/close_file_mnh.f90 b/src/MNH/close_file_mnh.f90 index 76ca4f2fb..2bb13e611 100644 --- a/src/MNH/close_file_mnh.f90 +++ b/src/MNH/close_file_mnh.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ############################# MODULE MODI_CLOSE_FILE_MNH ! ############################# @@ -52,6 +47,7 @@ END MODULE MODI_CLOSE_FILE_MNH !! MODIFICATIONS !! ------------- !! Original 01/2003 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/compare_dad.f90 b/src/MNH/compare_dad.f90 index 253c91ada..62398468f 100644 --- a/src/MNH/compare_dad.f90 +++ b/src/MNH/compare_dad.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:17 -!----------------------------------------------------------------- !######################## MODULE MODI_COMPARE_DAD !######################## @@ -62,6 +57,7 @@ END MODULE MODI_COMPARE_DAD !! ------------- !! !! Original O8/04/04 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/compare_with_pgd_domain.f90 b/src/MNH/compare_with_pgd_domain.f90 index 70d97fa25..1378b63db 100644 --- a/src/MNH/compare_with_pgd_domain.f90 +++ b/src/MNH/compare_with_pgd_domain.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ######spl MODULE MODI_COMPARE_WITH_PGD_DOMAIN !################################## @@ -78,6 +73,7 @@ END MODULE MODI_COMPARE_WITH_PGD_DOMAIN !! MODIFICATIONS !! ------------- !! Original 01/02/96 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/compute_exner_from_ground.f90 b/src/MNH/compute_exner_from_ground.f90 index 2d3f5ec28..1edd2e253 100644 --- a/src/MNH/compute_exner_from_ground.f90 +++ b/src/MNH/compute_exner_from_ground.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/06/30 16:46:51 -!----------------------------------------------------------------- ! ##################################### MODULE MODI_COMPUTE_EXNER_FROM_GROUND ! ##################################### @@ -112,6 +107,7 @@ END MODULE MODI_COMPUTE_EXNER_FROM_GROUND3 !! Original 06/03/96 !! 26/08/96 (V. Masson) thinshell approximation only available !! 03/12/02 (P. Jabouille) add no thinshell condition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -224,6 +220,7 @@ END SUBROUTINE COMPUTE_EXNER_FROM_GROUND3D !! MODIFICATIONS !! ------------- !! Original 06/03/96 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/compute_exner_from_top.f90 b/src/MNH/compute_exner_from_top.f90 index e1e36a91a..05f7c026b 100644 --- a/src/MNH/compute_exner_from_top.f90 +++ b/src/MNH/compute_exner_from_top.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/06/30 16:52:06 -!----------------------------------------------------------------- ! ################################## MODULE MODI_COMPUTE_EXNER_FROM_TOP ! ################################## @@ -110,6 +105,7 @@ END MODULE MODI_COMPUTE_EXNER_FROM_TOP3D !! Original 06/03/96 !! 26/08/96 (V. Masson) thinshell approximation only available !! 03/12/02 (P. Jabouille) add no thinshell condition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -226,6 +222,7 @@ END SUBROUTINE COMPUTE_EXNER_FROM_TOP3D !! Original 06/03/96 !! J.Escobar 05/09/2005 Bug : out of bound condition on local variable !! when calling MXF(PZFLUX) with first dimension=1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/compute_r00.f90 b/src/MNH/compute_r00.f90 index 4574ee65a..81249e665 100644 --- a/src/MNH/compute_r00.f90 +++ b/src/MNH/compute_r00.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 diag 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ############################### MODULE MODI_COMPUTE_R00 ! ############################### @@ -60,6 +55,7 @@ END MODULE MODI_COMPUTE_R00 !! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after !! change of YCOMMENT !! Mai 2016 (G.Delautier) replace LG?M by LG?T +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/compute_spectre.f90 b/src/MNH/compute_spectre.f90 index 282da52f4..3006a8268 100644 --- a/src/MNH/compute_spectre.f90 +++ b/src/MNH/compute_spectre.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -48,6 +48,7 @@ END MODULE MODI_COMPUTE_SPECTRE ! ------ ! A. Mary, R. Legrand **ENM** ! D. Ricard **CNRM** +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/deallocate_model1.f90 b/src/MNH/deallocate_model1.f90 index 82791e2bd..9a3b3a5c1 100644 --- a/src/MNH/deallocate_model1.f90 +++ b/src/MNH/deallocate_model1.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /srv/cvsroot/MNH-VX-Y-Z/src/MNH/deallocate_model1.f90,v $ $Revision: 1.2.2.2.2.2.2.1.10.2.2.3 $ -! MASDEV4_7 spawn 2007/01/12 14:12:39 -!----------------------------------------------------------------- !############################ MODULE MODI_DEALLOCATE_MODEL1 !############################ @@ -70,6 +65,7 @@ END MODULE MODI_DEALLOCATE_MODEL1 !! 01/2004 V. Masson surface externalization !! 06/2012 M.Tomasini add 2D nesting ADVFRC !! 10/2016 M.Mazoyer New KHKO output fields +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/default_desfmn.f90 b/src/MNH/default_desfmn.f90 index bf3990910..7f969ac7d 100644 --- a/src/MNH/default_desfmn.f90 +++ b/src/MNH/default_desfmn.f90 @@ -1,8 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! _Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/default_desfmn.f90,v _ !----------------------------------------------------------------- ! ########################### MODULE MODI_DEFAULT_DESFM_n @@ -220,6 +219,7 @@ END MODULE MODI_DEFAULT_DESFM_n !! 10/2016 (R.Honnert and S.Riette) : Improvement of EDKF and adaptation to the grey zone !! 10/2016 (F Brosse) add prod/loss terms computation for chemistry !! 09/2017 Q.Rodier add LTEND_UV_FRC +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/define_maskn.f90 b/src/MNH/define_maskn.f90 index 965c6deed..a22147d55 100644 --- a/src/MNH/define_maskn.f90 +++ b/src/MNH/define_maskn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ######################## MODULE MODI_DEFINE_MASK_n ! ######################## @@ -55,6 +51,7 @@ END MODULE MODI_DEFINE_MASK_n !! Original 26/09/96 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! P. Wautelet : 14/04/2016 : better way to get father coordinates +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/diag.f90 b/src/MNH/diag.f90 index a3e7484c5..e8a868dba 100644 --- a/src/MNH/diag.f90 +++ b/src/MNH/diag.f90 @@ -1,8 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/diag.f90,v $ $Revision: 1.3.2.4.2.4.2.5.2.6.2.3.2.6 $ $Date: 2015/11/26 14:55:02 $ !----------------------------------------------------------------- ! ############ PROGRAM DIAG @@ -86,6 +85,7 @@ !! 01/2018 (G.Delautier) SURFEX 8.1 !! 03/2018 (P.Wautelet) replace SUBTRACT_TO_DATE and ADD_FORECAST_TO_DATE !! by DATETIME_CORRECTDATE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/dry_mass.f90 b/src/MNH/dry_mass.f90 index f85564bd2..a5e0b31c7 100644 --- a/src/MNH/dry_mass.f90 +++ b/src/MNH/dry_mass.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ######spl MODULE MODI_DRY_MASS ! #################### @@ -109,6 +104,7 @@ END MODULE MODI_DRY_MASS !! Jun 10, 1997 (V. Masson) use absolute pressure !! Jul 10, 1997 (V. Masson) removes use to modules of model 1 !! Nov 21, 1997 (V. Masson) use all water species +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/eddyUV_flux_one_wayn.f90 b/src/MNH/eddyUV_flux_one_wayn.f90 index f60d64508..3ec0effa1 100644 --- a/src/MNH/eddyUV_flux_one_wayn.f90 +++ b/src/MNH/eddyUV_flux_one_wayn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ############################### MODULE MODI_EDDYUV_FLUX_ONE_WAY_n ! ############################### @@ -56,6 +52,7 @@ END MODULE MODI_EDDYUV_FLUX_ONE_WAY_n !! ------------- !! Original 07/07/11 !! J.Escobar 2/05/2016 : bug in use of global/local bounds for call of BIKHARDT +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! ! ################################################################################## ! diff --git a/src/MNH/eddyUV_fluxn.f90 b/src/MNH/eddyUV_fluxn.f90 index 2abed9300..fd153a867 100644 --- a/src/MNH/eddyUV_fluxn.f90 +++ b/src/MNH/eddyUV_fluxn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ######################### MODULE MODI_EDDYUV_FLUX_n ! ######################### @@ -70,6 +66,7 @@ END MODULE MODI_EDDYUV_FLUX_n !! ------------- !! Original 18/02/04 !! /05/12 M.Tomasini Grid-nesting +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O USE MODE_ll ! diff --git a/src/MNH/eddy_flux_one_wayn.f90 b/src/MNH/eddy_flux_one_wayn.f90 index 0ec1ed8c2..1aaadbc64 100644 --- a/src/MNH/eddy_flux_one_wayn.f90 +++ b/src/MNH/eddy_flux_one_wayn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ############################### MODULE MODI_EDDY_FLUX_ONE_WAY_n ! ############################### @@ -56,6 +52,7 @@ END MODULE MODI_EDDY_FLUX_ONE_WAY_n !! ------------- !! Original 25/06/11 !! J.Escobar 2/05/2016 : bug in use of global/local bounds for call of BIKHARDT +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! ! ################################################################################## ! diff --git a/src/MNH/eddy_fluxn.f90 b/src/MNH/eddy_fluxn.f90 index 66ddd34b2..e2b92e8a9 100644 --- a/src/MNH/eddy_fluxn.f90 +++ b/src/MNH/eddy_fluxn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ####################### MODULE MODI_EDDY_FLUX_n ! ####################### @@ -73,6 +69,7 @@ END MODULE MODI_EDDY_FLUX_n !! ------------- !! Original 18/02/04 !! M.Tomasini 05/05/09 Grid-nesting +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! USE MODE_ll diff --git a/src/MNH/elec_trid.f90 b/src/MNH/elec_trid.f90 index 7a8e0ecd0..e8a95db3b 100644 --- a/src/MNH/elec_trid.f90 +++ b/src/MNH/elec_trid.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ##################### MODULE MODI_ELEC_TRID ! ##################### @@ -178,6 +174,7 @@ END MODULE MODI_ELEC_TRID !! 01/07/12 (J-P. Pinty) add a non-homogeneous fair-weather !! top boundary condition (Neuman) !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------ ! !* 0. DECLARATIONS diff --git a/src/MNH/elec_tridz.f90 b/src/MNH/elec_tridz.f90 index dc902daf9..214fc6a88 100644 --- a/src/MNH/elec_tridz.f90 +++ b/src/MNH/elec_tridz.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ###################### MODULE MODI_ELEC_TRIDZ ! ###################### @@ -187,6 +182,7 @@ END MODULE MODI_ELEC_TRIDZ !! 01/07/12 (J-P. Pinty) add a non-homogeneous fair-weather !! top boundary condition (Neuman) !! 16/10/14 (C. Bovalo) add the z-splitting +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------ ! !* 0. DECLARATIONS diff --git a/src/MNH/endstep_budget.f90 b/src/MNH/endstep_budget.f90 index 1a6cf88e1..eff9d4bfe 100644 --- a/src/MNH/endstep_budget.f90 +++ b/src/MNH/endstep_budget.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 budget 2006/05/18 13:07:25 -!----------------------------------------------------------------- !########################## MODULE MODI_ENDSTEP_BUDGET !########################## @@ -99,6 +94,7 @@ END MODULE MODI_ENDSTEP_BUDGET !! N. Asensio 22/06/99 // MASK case : delete KIU,KJU,KKU arguments !! and change the write_budget call !! C.Lac 11/09/15 adaptation to FIT temporal scheme +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/error_on_temperature.f90 b/src/MNH/error_on_temperature.f90 index ee23049bb..50b3d4d18 100644 --- a/src/MNH/error_on_temperature.f90 +++ b/src/MNH/error_on_temperature.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/07/07 12:07:03 -!----------------------------------------------------------------- ! ######spl MODULE MODI_ERROR_ON_TEMPERATURE !############################### @@ -64,6 +59,7 @@ END MODULE MODI_ERROR_ON_TEMPERATURE !! 11/07/97 (V. Masson) absolute pressure !! 26/08/97 (V. Masson) call to new linear vertical !! interpolation routine +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/exchange.f90 b/src/MNH/exchange.f90 index 9a5ef3b28..7d161d6aa 100644 --- a/src/MNH/exchange.f90 +++ b/src/MNH/exchange.f90 @@ -1,14 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/exchange.f90,v $ $Revision: 1.2.2.2.2.2.16.1.2.5.2.1 $ $Date: 2015/12/01 15:26:23 $ -!----------------------------------------------------------------- -!----------------------------------------------------------------- -!----------------------------------------------------------------- ! #################### MODULE MODI_EXCHANGE ! #################### @@ -92,6 +86,7 @@ END MODULE MODI_EXCHANGE !! corrections for aq. phase and ice phase (lost mass neglig.) !! 25/08/16 (M.Leriche) remove negative values for aerosols and conserve !! total mass for chemical species in aerosols +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !----------------------------------------------------------------------------------------- ! diff --git a/src/MNH/fast_terms.f90 b/src/MNH/fast_terms.f90 index 3ded9cb76..1362c70cd 100644 --- a/src/MNH/fast_terms.f90 +++ b/src/MNH/fast_terms.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- ! ###################### MODULE MODI_FAST_TERMS ! ###################### @@ -155,6 +150,7 @@ END MODULE MODI_FAST_TERMS !! J.Escobar 21/03/2013: for HALOK comment all NHALO=1 test !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! June 17, 2016 (P. Wautelet) removed unused variables +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/fill_zsmtn.f90 b/src/MNH/fill_zsmtn.f90 index cf64fb3d1..6a8bb7556 100644 --- a/src/MNH/fill_zsmtn.f90 +++ b/src/MNH/fill_zsmtn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:17 -!----------------------------------------------------------------- ! ###################### MODULE MODI_FILL_ZSMTn ! ###################### @@ -61,6 +56,7 @@ END MODULE MODI_FILL_ZSMTn !! Original 12/01/05 !! Modification 20/05/06 Remove Clark and Farley interpolation !! M.Moge 01/2016 bug fix for parallel execution +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/forcing.f90 b/src/MNH/forcing.f90 index 927b01faf..ebb2873db 100644 --- a/src/MNH/forcing.f90 +++ b/src/MNH/forcing.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 forcing 2006/10/16 14:23:23 -!----------------------------------------------------------------- ! ################### MODULE MODI_FORCING ! ################### @@ -150,6 +145,7 @@ END MODULE MODI_FORCING !! 09/2017 Q.Rodier add LTEND_UV_FRC !! 28/03/2018 P. Wautelet Replace TEMPORAL_DIST by DATETIME_DISTANCE !! use overloaded comparison operator for date_time +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/free_atm_profile.f90 b/src/MNH/free_atm_profile.f90 index ff095aac9..3dac2c8b7 100644 --- a/src/MNH/free_atm_profile.f90 +++ b/src/MNH/free_atm_profile.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ############################ MODULE MODI_FREE_ATM_PROFILE ! ############################ @@ -89,6 +85,7 @@ END MODULE MODI_FREE_ATM_PROFILE !! Original 26/08/97 !! C.Lac 04/2016 Modification of the free atm gradient when the top of !! the model is too low +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/fun.f90 b/src/MNH/fun.f90 index 1da74fcb1..46db8b201 100644 --- a/src/MNH/fun.f90 +++ b/src/MNH/fun.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2017 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_ideal 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ############### MODULE MODI_FUN ! ############### @@ -87,6 +82,7 @@ END MODULE MODI_FUN !! G.Tanguy 26/10/10 add PZHAT to aplly funuyz !! to a field on a vertical grid different !! from XZHAT (mixed grid) +!! P.Wautelet 19/10/2017 removed extern_userio.f90 !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/get_nb_procio_read_mnh.f90 b/src/MNH/get_nb_procio_read_mnh.f90 index 7cb260fd4..6e4cca793 100644 --- a/src/MNH/get_nb_procio_read_mnh.f90 +++ b/src/MNH/get_nb_procio_read_mnh.f90 @@ -1,7 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- SUBROUTINE GET_NB_PROCIO_READ_MNH( KNB_PROCIO, KRESP ) ! !!**** *GET_NB_PROCIO_READ_MNH* - gets the number of processes used for Input of file MODD_IO_SURF_MNH::CFILE @@ -33,6 +34,7 @@ !! !! MODIFICATIONS !! ------------- +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/get_nb_procio_write_mnh.f90 b/src/MNH/get_nb_procio_write_mnh.f90 index 24087a743..4fb3ad5f5 100644 --- a/src/MNH/get_nb_procio_write_mnh.f90 +++ b/src/MNH/get_nb_procio_write_mnh.f90 @@ -1,7 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- SUBROUTINE GET_NB_PROCIO_WRITE_MNH( KNB_PROCIO, KRESP ) ! !!**** *GET_NB_PROCIO_WRITE_MNH* - gets the number of processes used for Output of file MODD_IO_SURF_MNH::COUTFILE @@ -30,6 +31,7 @@ !! ------ !! M. Moge *LA - UPS* 08/01/2016 !! J. escobar 19/04/2016 : bypass , For pb IOZ/NETCDF , pretende alway 2 ( > 1 ) I/O processors for homogenus PGD files +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! MODIFICATIONS !! ------------- diff --git a/src/MNH/get_sizex_lb.f90 b/src/MNH/get_sizex_lb.f90 index 1d5ab66c2..275f45402 100644 --- a/src/MNH/get_sizex_lb.f90 +++ b/src/MNH/get_sizex_lb.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ########################## MODULE MODI_GET_SIZEX_LB ! ########################## @@ -86,6 +82,7 @@ END MODULE MODI_GET_SIZEX_LB !! ------------- !! Original 23/09/98 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/get_sizey_lb.f90 b/src/MNH/get_sizey_lb.f90 index ffb87dd6e..a7dbd1039 100644 --- a/src/MNH/get_sizey_lb.f90 +++ b/src/MNH/get_sizey_lb.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ########################## MODULE MODI_GET_SIZEY_LB ! ########################## @@ -86,6 +82,7 @@ END MODULE MODI_GET_SIZEY_LB !! ------------- !! Original 23/09/98 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/goto_model_wrapper.f90 b/src/MNH/goto_model_wrapper.f90 index 80cc349cb..55259821f 100644 --- a/src/MNH/goto_model_wrapper.f90 +++ b/src/MNH/goto_model_wrapper.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/goto_model_wrapper.f90,v $ $Revision: 1.2.4.1.2.3.4.2.2.4.2.1 $ -! MASDEV4_7 newsrc 2006/06/26 12:01:39 -! !! MODIFICATIONS !! ------------- !! 06/12 (Tomasini) Grid-nesting of ADVFRC and EDDY_FLUX @@ -17,6 +12,7 @@ !! Modification 01/2016 (JP Pinty) Add LIMA !! 10/2016 (F Brosse) Add prod/loss terms computation for chemistry !! 07/2017 (M.Leriche) Add DIAG chimical surface fluxes +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- MODULE MODI_GOTO_MODEL_WRAPPER diff --git a/src/MNH/gps_zenith.f90 b/src/MNH/gps_zenith.f90 index bf5b4ec39..ea3602360 100644 --- a/src/MNH/gps_zenith.f90 +++ b/src/MNH/gps_zenith.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- !########################################## MODULE MODI_GPS_ZENITH !########################################## @@ -70,6 +66,7 @@ END MODULE MODI_GPS_ZENITH !! ------------- !! Original 18/11/04 !! Modified 4/12/2007 +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/gps_zenith_grid.f90 b/src/MNH/gps_zenith_grid.f90 index 4d8ed9c58..86b72414f 100644 --- a/src/MNH/gps_zenith_grid.f90 +++ b/src/MNH/gps_zenith_grid.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- !########################################## MODULE MODI_GPS_ZENITH_GRID !########################################## @@ -70,6 +66,7 @@ END MODULE MODI_GPS_ZENITH_GRID !! Modified 4/12/2007 !! July, 2015 (O.Nuissier/F.Duffourg) Add microphysics diagnostic for !! aircraft, ballon and profiler +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ground_paramn.f90 b/src/MNH/ground_paramn.f90 index 032174db1..84f7b9ace 100644 --- a/src/MNH/ground_paramn.f90 +++ b/src/MNH/ground_paramn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 soil 2006/10/27 16:02:47 -!----------------------------------------------------------------- ! ########## MODULE MODI_GROUND_PARAM_n ! ########## diff --git a/src/MNH/horibl.f90 b/src/MNH/horibl.f90 index aad9dafcc..f9d47b2d9 100644 --- a/src/MNH/horibl.f90 +++ b/src/MNH/horibl.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 interpol 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################## MODULE MODI_HORIBL ! ################## @@ -133,6 +128,7 @@ END MODULE MODI_HORIBL !! extrapolation (tabular ZARIN not totaly filled) !! 12/10/2012 J.Escobar & F.Tocquer , interface mismatch, remove OPTIONAL for OMINMAX !! 2011 (P.Peyrille) 2D problem in the formulation +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------ ! diff --git a/src/MNH/ice_adjust.f90 b/src/MNH/ice_adjust.f90 index c31243eab..85d9fe120 100644 --- a/src/MNH/ice_adjust.f90 +++ b/src/MNH/ice_adjust.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ###################### MODULE MODI_ICE_ADJUST ! ###################### @@ -161,6 +157,7 @@ END MODULE MODI_ICE_ADJUST !! S. Riette ice for EDKF !! 2012-02 Y. Seity, add possibility to run with reversed vertical levels !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ice_adjust_elec.f90 b/src/MNH/ice_adjust_elec.f90 index 39b599f5a..00e4b04ed 100644 --- a/src/MNH/ice_adjust_elec.f90 +++ b/src/MNH/ice_adjust_elec.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ########################### MODULE MODI_ICE_ADJUST_ELEC ! ########################### @@ -169,6 +165,7 @@ END MODULE MODI_ICE_ADJUST_ELEC !! C. Barthe 19/11/09 update to version 4.8.1 !! M. Chong Mar. 2010 Add small ions !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_aircraft_balloon.f90 b/src/MNH/ini_aircraft_balloon.f90 index ca0393701..28c4089c9 100644 --- a/src/MNH/ini_aircraft_balloon.f90 +++ b/src/MNH/ini_aircraft_balloon.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2000-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ini_aircraft_balloon.f90,v $ $Revision: 1.3.4.2.2.1.2.1.2.2 $ -! MASDEV4_7 balloon 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ######################### MODULE MODI_INI_AIRCRAFT_BALLOON ! ######################### @@ -78,6 +73,7 @@ END MODULE MODI_INI_AIRCRAFT_BALLOON !! Apr, 20 2001: G.Jaubert: use in diag with stationnary fields !! March, 2013 : O.Caumont, C.Lac : add vertical profiles !! OCT,2016 : G.Delautier LIMA +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_budget.f90 b/src/MNH/ini_budget.f90 index 788f0dfb9..74c1ae319 100644 --- a/src/MNH/ini_budget.f90 +++ b/src/MNH/ini_budget.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ini_budget.f90,v $ $Revision: 1.3.2.5.2.2.2.2.10.2.2.5.2.1 $ -! masdev4_8 budget 2008/06/20 10:08:26 -!----------------------------------------------------------------- ! ###################### MODULE MODI_INI_BUDGET ! ###################### @@ -156,6 +151,7 @@ END MODULE MODI_INI_BUDGET !! 04/2016 (C.LAC) negative contribution to the budget splitted between advection, turbulence and microphysics for KHKO/C2R2 !! C. Barthe 01/2016 Add budget for LIMA !! C.LAc 10/2016 Add budget for droplet deposition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_cpl.f90 b/src/MNH/ini_cpl.f90 index 16d9d956a..5f7909787 100644 --- a/src/MNH/ini_cpl.f90 +++ b/src/MNH/ini_cpl.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 lbc 2006/05/23 09:12:02 -!----------------------------------------------------------------- ! ################### MODULE MODI_INI_CPL ! ################### @@ -213,6 +208,7 @@ END MODULE MODI_INI_CPL !! (Escobar) 2/2014 add Forefire !! (J.Escobar) 26/03/2014 bug in init of NSV_USER on RESTA case !! (P.Wautelet)28/03/2018 replace TEMPORAL_DIST by DATETIME_DISTANCE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_cst.f90 b/src/MNH/ini_cst.f90 index d73d39463..b5a099dbb 100644 --- a/src/MNH/ini_cst.f90 +++ b/src/MNH/ini_cst.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################### MODULE MODI_INI_CST ! ################### @@ -67,6 +62,7 @@ END MODULE MODI_INI_CST !! V. Masson 01/03/03 add XCONDI !! J. Escobar 28/03/2014 for pb with emissivity/aerosol reset XMNH_TINY=1.0e-80 in real8 case !! J.Escobar : 10/2017 : for real*4 , add XMNH_HUGE_12_LOG +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_deep_convection.f90 b/src/MNH/ini_deep_convection.f90 index b2ad309b4..e7f2bed91 100644 --- a/src/MNH/ini_deep_convection.f90 +++ b/src/MNH/ini_deep_convection.f90 @@ -1,7 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ############################### MODULE MODI_INI_DEEP_CONVECTION ! ############################### @@ -108,6 +109,7 @@ END MODULE MODI_INI_DEEP_CONVECTION !! D.Gazen 22/01/01 use MODD_NSV and add names to scalar variables !! P.Jabouille 04/04/02 add PMFCONV used for subgrid condensation !! for a correct restart this variable has to be writen in FM file +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_dynamics.f90 b/src/MNH/ini_dynamics.f90 index 46cf49616..6dba7d3d7 100644 --- a/src/MNH/ini_dynamics.f90 +++ b/src/MNH/ini_dynamics.f90 @@ -1,7 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ######################## MODULE MODI_INI_DYNAMICS ! ######################## @@ -275,6 +276,7 @@ SUBROUTINE INI_DYNAMICS(PLON,PLAT,PRHODJ,PTHVREF,PMAP,PZZ, & !! Modification 13/08/98 (N.Asencio) add parallel code !! Modification 20/05/06 Remove KEPS !! Modification 07/2013 (Bosseur & Filippi) Adds Forefire +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_elecn.f90 b/src/MNH/ini_elecn.f90 index be332d00c..e67a08e8c 100644 --- a/src/MNH/ini_elecn.f90 +++ b/src/MNH/ini_elecn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/Attic/ini_elecn.f90,v $ $Revision: 1.1.2.1.10.1.2.2 $ $Date: 2014/01/09 13:25:03 $ -!----------------------------------------------------------------- ! ###################### MODULE MODI_INI_ELEC_n ! ###################### @@ -77,6 +73,7 @@ END MODULE MODI_INI_ELEC_n !! boundary condition at the top !! J.-P. Pinty 15/11/13 Initialize the flash maps !! 10/2016 (C.Lac) Add droplet deposition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_ice_c1r3.f90 b/src/MNH/ini_ice_c1r3.f90 index 2b87606f0..d847c5a2b 100644 --- a/src/MNH/ini_ice_c1r3.f90 +++ b/src/MNH/ini_ice_c1r3.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/11/23 10:44:34 -!----------------------------------------------------------------- ! ######################## MODULE MODI_INI_ICE_C1R3 ! ######################## @@ -92,6 +87,7 @@ END MODULE MODI_INI_ICE_C1R3 !! J.-P. Pinty 23/09/2001 Review the HM process constants !! J.-P. Pinty 23/10/2001 Add XRHORSMIN !! J.-P. Pinty 05/04/2002 Add computation of the effective radius +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_lb.f90 b/src/MNH/ini_lb.f90 index 39088bf0e..34a5e012f 100644 --- a/src/MNH/ini_lb.f90 +++ b/src/MNH/ini_lb.f90 @@ -1,7 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ###################### MODULE MODI_INI_LB ! ###################### @@ -130,6 +131,7 @@ SUBROUTINE INI_LB(TPINIFILE,OLSOURCE,KSV, & !! J.Escobar : 27/04/2016 : bug , test only on ANY(HGETSVM({{1:KSV}})=='READ' !! J.-P. Pinty 09/02/16 Add LIMA that is LBC for CCN and IFN !! M.Leriche 09/02/16 Treat gas and aq. chemicals separately +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_les_cart_maskn.f90 b/src/MNH/ini_les_cart_maskn.f90 index 67d89717d..b162a3af5 100644 --- a/src/MNH/ini_les_cart_maskn.f90 +++ b/src/MNH/ini_les_cart_maskn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2017 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- !############################# MODULE MODI_INI_LES_CART_MASKn !############################# @@ -62,6 +58,7 @@ END MODULE MODI_INI_LES_CART_MASKn !! Original 07/02/00 !! Modification 01/02/01 (D.Gazen) add module MODD_NSV for NSV variable !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! P.Wautelet: 19/10/2017 : IO: removed extern_userio.f90 !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_lesn.f90 b/src/MNH/ini_lesn.f90 index 371650295..3f398b419 100644 --- a/src/MNH/ini_lesn.f90 +++ b/src/MNH/ini_lesn.f90 @@ -1,8 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! _Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ini_lesn.f90,v _ !----------------------------------------------------------------- ! #################### SUBROUTINE INI_LES_n @@ -33,6 +32,7 @@ !! Modification 01/02/01 (D.Gazen) add module MODD_NSV for NSV variable !! 06/11/02 (V. Masson) add LES budgets !! 10/2016 (C.Lac) Add droplet deposition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_lima.f90 b/src/MNH/ini_lima.f90 index 1a71679b9..6f6a3ba6b 100644 --- a/src/MNH/ini_lima.f90 +++ b/src/MNH/ini_lima.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! #################### MODULE MODI_INI_LIMA ! #################### @@ -38,6 +43,7 @@ END MODULE MODI_INI_LIMA !! MODIFICATIONS !! ------------- !! Original ??/??/13 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_lima_cold_mixed.f90 b/src/MNH/ini_lima_cold_mixed.f90 index 05f3c1b7f..50d7acf3f 100644 --- a/src/MNH/ini_lima_cold_mixed.f90 +++ b/src/MNH/ini_lima_cold_mixed.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ############################### MODULE MODI_INI_LIMA_COLD_MIXED ! ############################### @@ -33,6 +38,7 @@ END MODULE MODI_INI_LIMA_COLD_MIXED !! MODIFICATIONS !! ------------- !! Original ??/??/13 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_lima_warm.f90 b/src/MNH/ini_lima_warm.f90 index c59a9cd74..f59ec111c 100644 --- a/src/MNH/ini_lima_warm.f90 +++ b/src/MNH/ini_lima_warm.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ######################### MODULE MODI_INI_LIMA_WARM ! ######################### @@ -32,6 +37,7 @@ END MODULE MODI_INI_LIMA_WARM !! MODIFICATIONS !! ------------- !! Original ??/??/13 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_ls.f90 b/src/MNH/ini_ls.f90 index 718e918cf..5cf231784 100644 --- a/src/MNH/ini_ls.f90 +++ b/src/MNH/ini_ls.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:17 -!----------------------------------------------------------------- ! ###################### MODULE MODI_INI_LS ! ###################### @@ -84,6 +79,7 @@ END MODULE MODI_INI_LS !! MODIFICATIONS !! ------------- !! Original 22/09/98 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! !------------------------------------------------------------------------------- diff --git a/src/MNH/ini_micron.f90 b/src/MNH/ini_micron.f90 index 064c97c94..ff9761e5f 100644 --- a/src/MNH/ini_micron.f90 +++ b/src/MNH/ini_micron.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ini_micron.f90,v $ $Revision: 1.3.2.2.2.1.2.2.10.2 $ -! MASDEV4_7 init 2007/03/23 11:55:57 -!----------------------------------------------------------------- ! ######################## MODULE MODI_INI_MICRO_n ! ######################## @@ -55,6 +50,7 @@ END MODULE MODI_INI_MICRO_n !! O.Geoffroy (03/2006) : Add KHKO scheme !! Modification 01/2016 (JP Pinty) Add LIMA !! C.LAc 10/2016 Add budget for droplet deposition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90 index 18161ac06..7f2e2fac7 100644 --- a/src/MNH/ini_modeln.f90 +++ b/src/MNH/ini_modeln.f90 @@ -1,8 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! $Source$ $Revision$ $Date$ !----------------------------------------------------------------- ! ####################### MODULE MODI_INI_MODEL_n @@ -274,6 +273,7 @@ END MODULE MODI_INI_MODEL_n !! M.Leriche 10/02/17 prevent negative values in LBX(Y)SVS !! M.Leriche 01/07/2017 Add DIAG chimical surface fluxes !! 09/2017 Q.Rodier add LTEND_UV_FRC +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !--------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_one_wayn.f90 b/src/MNH/ini_one_wayn.f90 index 922a90560..4182d6a2e 100644 --- a/src/MNH/ini_one_wayn.f90 +++ b/src/MNH/ini_one_wayn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ini_one_wayn.f90,v $ $Revision: 1.3.2.2.2.1.2.1.10.1.2.4.2.1 $ -!----------------------------------------------------------------- ! ####################### MODULE MODI_INI_ONE_WAY_n ! ####################### @@ -143,6 +139,7 @@ SUBROUTINE INI_ONE_WAY_n(KDAD,HLUOUT,PTSTEP,KMI,KTCOUNT, & !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! J.Escobar : 18/12/2015 : Correction of bug in bound in // for NHALO <>1 !! B.VIE 2016 : LIMA +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------ ! diff --git a/src/MNH/ini_param_elec.f90 b/src/MNH/ini_param_elec.f90 index 1fcc6b36d..fc1adb10d 100644 --- a/src/MNH/ini_param_elec.f90 +++ b/src/MNH/ini_param_elec.f90 @@ -1,7 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ########################## MODULE MODI_INI_PARAM_ELEC ! ########################## @@ -82,6 +83,7 @@ END MODULE MODI_INI_PARAM_ELEC !! (JGR, 1987, 5661-5675) !! J.-P. Pinty jan 2015 tabulate the equations for Saunders !! J. Escobar 8/01/2016 bug , missing YDIR='XY' in READ +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_posprofilern.f90 b/src/MNH/ini_posprofilern.f90 index b07057047..841ccdb33 100644 --- a/src/MNH/ini_posprofilern.f90 +++ b/src/MNH/ini_posprofilern.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ini_posprofilern.f90,v $ $Revision: 1.2.2.2.2.2.2.2.2.1.2.3 $ -! masdev4_7 BUG1 2007/06/28 11:28:12 -!----------------------------------------------------------------- ! ######################### MODULE MODI_INI_POSPROFILER_n ! ######################### @@ -71,6 +66,7 @@ END MODULE MODI_INI_POSPROFILER_n !! ------------- !! P. Tulet 15/01/2002 !! C.Lac 10/2016 Add visibility diagnostic +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_prog_var.f90 b/src/MNH/ini_prog_var.f90 index f4d1fe18a..ed4ec15e0 100644 --- a/src/MNH/ini_prog_var.f90 +++ b/src/MNH/ini_prog_var.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ######################## MODULE MODI_INI_PROG_VAR ! ######################## @@ -97,6 +93,7 @@ END MODULE MODI_INI_PROG_VAR !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! Mai 2017 (M. Leriche) read aerosol namelists before call ini_nsv !! Mai 2017 (M. Leriche) Get wet dep. sv in Meso-NH init file +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_radiations.f90 b/src/MNH/ini_radiations.f90 index 8c7253c77..698a17878 100644 --- a/src/MNH/ini_radiations.f90 +++ b/src/MNH/ini_radiations.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ########################## MODULE MODI_INI_RADIATIONS ! ########################## @@ -112,6 +108,7 @@ END MODULE MODI_INI_RADIATIONS !! P. Peyrille, M. Tomasini 06/2012: if LFIX_DAT=T, TDTCUR is replaced by !! TDTEXP to have a perpetual day ie. the diurnal cycle is retained !! but the day stays the same during the whole run +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_radiations_ecmwf.f90 b/src/MNH/ini_radiations_ecmwf.f90 index c04e7dbda..bc7617557 100644 --- a/src/MNH/ini_radiations_ecmwf.f90 +++ b/src/MNH/ini_radiations_ecmwf.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -172,6 +172,7 @@ END MODULE MODI_INI_RADIATIONS_ECMWF !! (M.Tomasini P.Peyrille) 06/2012 to set date to a perpetual day if LFIX_DAT=T !! (V. Masson) replaces cover fractions by sea/town/bare soil fractions !! J.Escobar 30/03/2017 : Management of compilation of ECMWF_RAD in REAL*8 with MNH_REAL=R4 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_rain_c2r2.f90 b/src/MNH/ini_rain_c2r2.f90 index 51fdf6cb7..ad3c39efb 100644 --- a/src/MNH/ini_rain_c2r2.f90 +++ b/src/MNH/ini_rain_c2r2.f90 @@ -1,16 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ini_rain_c2r2.f90,v $ $Revision: 1.2.2.4.2.1 $ $Date: 2009/04/21 07:42:51 $ $Log: ini_rain_c2r2.f90,v $ -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ini_rain_c2r2.f90,v $ $Revision: 1.2.2.4.2.1 $ $Date: 2009/04/21 07:42:51 $ Revision 1.1 2006/03/13 15:14:51 lac -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ini_rain_c2r2.f90,v $ $Revision: 1.2.2.4.2.1 $ $Date: 2009/04/21 07:42:51 $ Initial revision -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ini_rain_c2r2.f90,v $ $Revision: 1.2.2.4.2.1 $ $Date: 2009/04/21 07:42:51 $ -!----------------------------------------------------------------- -!----------------------------------------------------------------- ! ######################### MODULE MODI_INI_RAIN_C2R2 ! ######################### @@ -96,6 +88,7 @@ END MODULE MODI_INI_RAIN_C2R2 !! O.Geoffroy 03/2006 Add KHKO scheme !! G.Delautier 09/2014 fusion MODD_RAIN_C2R2_PARAM et MODD_RAIN_KHKO_PARAM !! M.Mazoyer 10/2016 Constants for Droplet sedimentation adapted to fog for KHKO +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_segn.f90 b/src/MNH/ini_segn.f90 index 2395cf621..4e86a1c01 100644 --- a/src/MNH/ini_segn.f90 +++ b/src/MNH/ini_segn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:27 -!----------------------------------------------------------------- ! ################### MODULE MODI_INI_SEG_n ! ################### @@ -166,6 +161,7 @@ END MODULE MODI_INI_SEG_n !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! 01/2015 add GLNOX_EXPLICIT (C. Barthe) !! 04/2016 add ABORT if CINIFILEPGD is not specified (G.Delautier) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_seriesn.f90 b/src/MNH/ini_seriesn.f90 index f39f6086e..e584ca73a 100644 --- a/src/MNH/ini_seriesn.f90 +++ b/src/MNH/ini_seriesn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 series 2006/11/07 10:04:29 -!----------------------------------------------------------------- ! ######################## SUBROUTINE INI_SERIES_n ! ######################## @@ -44,6 +39,7 @@ !! Oct. 2011 : (P.Le Moigne) Surface series !! June 2016: P. Wautelet: corrected writes !! Nov. 2017: J.-P. Chaboureau: fix a bug in dimension check +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_size_spawn.f90 b/src/MNH/ini_size_spawn.f90 index 2e0f50eea..7e9e119aa 100644 --- a/src/MNH/ini_size_spawn.f90 +++ b/src/MNH/ini_size_spawn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- !######################### MODULE MODI_INI_SIZE_SPAWN !######################### @@ -70,6 +66,7 @@ END MODULE MODI_INI_SIZE_SPAWN !! M.Moge 08/2015 bug fix : turning the special case for // case into general case in part 1.4 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_sizen.f90 b/src/MNH/ini_sizen.f90 index 0fd413234..3cfad7f7e 100644 --- a/src/MNH/ini_sizen.f90 +++ b/src/MNH/ini_sizen.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ################# MODULE MODI_INI_SIZE_n ! ################# @@ -98,6 +94,7 @@ END MODULE MODI_INI_SIZE_n !! Jan. 2004 (V. Masson) externalization of surface !! June 2006 (D. Gazen) _n: no more read of updated var. !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ini_spectren.f90 b/src/MNH/ini_spectren.f90 index d823d9efa..31363e2e7 100644 --- a/src/MNH/ini_spectren.f90 +++ b/src/MNH/ini_spectren.f90 @@ -1,9 +1,7 @@ - -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/ini_modeln.f90,v $ $Revision: 1.3.2.4.2.5.2.8.2.9.2.6.2.1 $ $Date: 2015/07/10 15:22:16 $ !----------------------------------------------------------------- ! ####################### MODULE MODI_INI_SPECTRE_n @@ -35,6 +33,7 @@ END MODULE MODI_INI_SPECTRE_n !! ------ !! J.P Chaboureau * L.A* !! 10/2016 (C.Lac) Cleaning of the modules +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !--------------------------------------------------------------------------------- diff --git a/src/MNH/ini_surf_rad.f90 b/src/MNH/ini_surf_rad.f90 index 256639953..552d2bc0a 100644 --- a/src/MNH/ini_surf_rad.f90 +++ b/src/MNH/ini_surf_rad.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ########################## MODULE MODI_INI_SURF_RAD ! ########################## @@ -61,6 +56,7 @@ END MODULE MODI_INI_SURF_RAD !! MODIFICATIONS !! ------------- !! Original 03/03/03 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ini_surfstationn.f90 b/src/MNH/ini_surfstationn.f90 index 3fef3cf0a..0e3770629 100644 --- a/src/MNH/ini_surfstationn.f90 +++ b/src/MNH/ini_surfstationn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/28 11:28:12 -!----------------------------------------------------------------- ! ######################### MODULE MODI_INI_SURFSTATION_n ! ######################### @@ -70,6 +65,7 @@ END MODULE MODI_INI_SURFSTATION_n !! ------------- !! P. Tulet 15/01/2002 !! A. Lemonsu 19/11/2002 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/init_aerosol_properties.f90 b/src/MNH/init_aerosol_properties.f90 index c641a8bed..06b69e668 100644 --- a/src/MNH/init_aerosol_properties.f90 +++ b/src/MNH/init_aerosol_properties.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! #################### MODULE MODI_INIT_AEROSOL_PROPERTIES INTERFACE @@ -28,6 +33,7 @@ END MODULE MODI_INIT_AEROSOL_PROPERTIES !! MODIFICATIONS !! ------------- !! Original ??/??/13 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/init_for_convlfi.f90 b/src/MNH/init_for_convlfi.f90 index 2479f6880..1651fe8bc 100644 --- a/src/MNH/init_for_convlfi.f90 +++ b/src/MNH/init_for_convlfi.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 convert 2006/05/18 13:07:25 -!----------------------------------------------------------------- !########################### MODULE MODI_INIT_FOR_CONVLFI !########################### @@ -64,6 +59,7 @@ END MODULE MODI_INIT_FOR_CONVLFI !! Original 20/02/01 !! J.-P. Pinty and D. Gazen 31/03/04 Add the 2D capability for V5D plots !! 10/10/2011 J.Escobar call INI_PARAZ_ll +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/init_ground_paramn.f90 b/src/MNH/init_ground_paramn.f90 index 4aad8bbd0..0be82b210 100644 --- a/src/MNH/init_ground_paramn.f90 +++ b/src/MNH/init_ground_paramn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/09/14 16:35:59 -!----------------------------------------------------------------- ! ####################### MODULE MODI_INIT_GROUND_PARAM_n ! ####################### diff --git a/src/MNH/init_mnh.f90 b/src/MNH/init_mnh.f90 index cdb20930c..2d0e7ed3e 100644 --- a/src/MNH/init_mnh.f90 +++ b/src/MNH/init_mnh.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:18 -!----------------------------------------------------------------- ! ############### SUBROUTINE INIT_MNH ! ############### @@ -74,8 +69,9 @@ !! V. Masson 15/03/99 call to ini_data_cover !! P.Jabouille 15/07/99 special initialisation for spawning !! J.P Chaboureau 2015 add ini_spectre_n -!! J.Escoabr 2/03/2016 bypass , reset NHALO=1 for SPAWNING +!! J.Escobar 2/03/2016 bypass , reset NHALO=1 for SPAWNING !! 06/2016 (G.Delautier) phasage surfex 8 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/isocom.f b/src/MNH/isocom.f index 814eedca4..a716ae18c 100644 --- a/src/MNH/isocom.f +++ b/src/MNH/isocom.f @@ -1,13 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier -!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence -!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt -!MNH_LIC for details. version 1. -!----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 f77 2006/05/18 13:07:25 -!----------------------------------------------------------------- +CMNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier +CMNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +CMNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +CMNH_LIC for details. version 1. C======================================================================= C C *** ISORROPIA CODE @@ -129,6 +123,8 @@ C C *** COPYRIGHT 1996-2000, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY C *** WRITTEN BY ATHANASIOS NENES C +C Modifications: +C Philippe 13/02/2018: use ifdef MNH_REAL to prevent problems with intrinsics on Blue Gene/Q C======================================================================= C SUBROUTINE ISOROPIA (WI, RHI, TEMPI, CNTRL, diff --git a/src/MNH/isofwd.f b/src/MNH/isofwd.f index 1fabfbf06..e068c3ad2 100644 --- a/src/MNH/isofwd.f +++ b/src/MNH/isofwd.f @@ -1,13 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier -!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence -!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt -!MNH_LIC for details. version 1. -!----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 f77 2006/05/18 13:07:25 -!----------------------------------------------------------------- +CMNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier +CMNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +CMNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +CMNH_LIC for details. version 1. C======================================================================= C C *** ISORROPIA CODE @@ -19,7 +13,10 @@ C THE AMBIENT RELATIVE HUMIDITY. C C *** COPYRIGHT 1996-2000, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY C *** WRITTEN BY ATHANASIOS NENES +C +C Modifications: C J.Escobar : 10/2017 , for real*4 replace DOUBLE => REAL +C Philippe 13/02/2018: use ifdef MNH_REAL to prevent problems with intrinsics on Blue Gene/Q C C======================================================================= C diff --git a/src/MNH/isorev.f b/src/MNH/isorev.f index f774dcd20..75957b2bd 100644 --- a/src/MNH/isorev.f +++ b/src/MNH/isorev.f @@ -1,13 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier -!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence -!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt -!MNH_LIC for details. version 1. -!----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 f77 2006/05/18 13:07:25 -!----------------------------------------------------------------- +CMNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier +CMNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +CMNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +CMNH_LIC for details. version 1. C======================================================================= C C *** ISORROPIA CODE @@ -19,7 +13,10 @@ C THE AMBIENT RELATIVE HUMIDITY. C C *** COPYRIGHT 1996-2000, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY C *** WRITTEN BY ATHANASIOS NENES +C +C Modifications: C J.Escobar : 10/2017 , for real*4 replace DOUBLE => REAL +C Philippe 13/02/2018: use ifdef MNH_REAL to prevent problems with intrinsics on Blue Gene/Q C C======================================================================= C diff --git a/src/MNH/khko_notadjust.f90 b/src/MNH/khko_notadjust.f90 index eb85835cb..a1cf0d41e 100644 --- a/src/MNH/khko_notadjust.f90 +++ b/src/MNH/khko_notadjust.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/Attic/khko_notadjust.f90,v $ $Revision: 1.1.2.1.2.1 $ -! MASDEV4_7 microph 2007/03/23 11:52:41 -!----------------------------------------------------------------- ! ########################## MODULE MODI_KHKO_NOTADJUST ! ########################## @@ -96,6 +91,7 @@ END MODULE MODI_KHKO_NOTADJUST !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! M.Mazoyer : 04/16 : New dummy arguments !! M.Mazoyer : 10/2016 New KHKO output fields +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/latlon_to_xy.f90 b/src/MNH/latlon_to_xy.f90 index a66e25ac4..13abc2383 100644 --- a/src/MNH/latlon_to_xy.f90 +++ b/src/MNH/latlon_to_xy.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 tools 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! #################### PROGRAM LATLON_TO_XY ! #################### @@ -59,6 +54,7 @@ !! remove the USE MODI_DEFAULT_DESFM Apr. 17, 1996 (J.Stein) !! no transfer of the file when closing Dec. 09, 1996 (V.Masson) !! + changes call to READ_HGRID +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATION diff --git a/src/MNH/les_specn.f90 b/src/MNH/les_specn.f90 index 548c68dd1..7e0e83473 100644 --- a/src/MNH/les_specn.f90 +++ b/src/MNH/les_specn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 les 2006/08/30 18:41:37 -!----------------------------------------------------------------- ! ###################### MODULE MODE_LES_SPEC_n ! ###################### @@ -53,6 +48,7 @@ CONTAINS !! Original 07/02/00 !! 01/02/01 (D. Gazen) add module MODD_NSV for NSV variable !! 01/04/03 (V. Masson) bug in spectra normalization +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/lesn.f90 b/src/MNH/lesn.f90 index 793244a9e..fe4a59070 100644 --- a/src/MNH/lesn.f90 +++ b/src/MNH/lesn.f90 @@ -1,8 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! $Source: /srv/cvsroot/MNH-VX-Y-Z/src/MNH/lesn.f90,v $ !----------------------------------------------------------------- ! ################# SUBROUTINE LES_n @@ -41,6 +40,7 @@ !! 10/09 (P. Aumond) Add possibility of user maskS !! 10/14 (C.Lac) Correction on user masks !! 10/16 (C.Lac) Add ground droplet deposition amount +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_adjust.f90 b/src/MNH/lima_adjust.f90 index 592899dfa..a59db3149 100644 --- a/src/MNH/lima_adjust.f90 +++ b/src/MNH/lima_adjust.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ####################### MODULE MODI_LIMA_ADJUST ! ####################### @@ -129,6 +134,7 @@ END MODULE MODI_LIMA_ADJUST !! Original ??/??/13 !! C. Barthe * LACy* jan. 2014 add budgets !! JP Chaboureau *LA* March 2014 fix the calculation of icy cloud fraction +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_cold.f90 b/src/MNH/lima_cold.f90 index 13b135498..61a2b6370 100644 --- a/src/MNH/lima_cold.f90 +++ b/src/MNH/lima_cold.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ##################### MODULE MODI_LIMA_COLD ! ##################### @@ -101,6 +106,7 @@ END MODULE MODI_LIMA_COLD !! MODIFICATIONS !! ------------- !! Original ??/??/13 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_cold_hom_nucl.f90 b/src/MNH/lima_cold_hom_nucl.f90 index 3d0231c7c..8227b52b1 100644 --- a/src/MNH/lima_cold_hom_nucl.f90 +++ b/src/MNH/lima_cold_hom_nucl.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ###################### MODULE MODI_LIMA_COLD_HOM_NUCL ! ###################### @@ -85,6 +90,7 @@ END MODULE MODI_LIMA_COLD_HOM_NUCL !! Original ??/??/13 !! C. Barthe * LACy* jan. 2014 add budgets !! B.Vie 10/2016 Bug zero division +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_cold_sedimentation.f90 b/src/MNH/lima_cold_sedimentation.f90 index f71b9eef2..2845479e3 100644 --- a/src/MNH/lima_cold_sedimentation.f90 +++ b/src/MNH/lima_cold_sedimentation.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ################################### MODULE MODI_LIMA_COLD_SEDIMENTATION ! ################################### @@ -69,6 +74,7 @@ END MODULE MODI_LIMA_COLD_SEDIMENTATION !! ------------- !! Original ??/??/13 !! C. Barthe * LACy * jan. 2014 add budgets +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_cold_slow_processes.f90 b/src/MNH/lima_cold_slow_processes.f90 index 4ee8c4659..08ad1dc79 100644 --- a/src/MNH/lima_cold_slow_processes.f90 +++ b/src/MNH/lima_cold_slow_processes.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ##################### MODULE MODI_LIMA_COLD_SLOW_PROCESSES ! ##################### @@ -72,6 +77,7 @@ END MODULE MODI_LIMA_COLD_SLOW_PROCESSES !! ------------- !! Original ??/??/13 !! C. Barthe * LACy * jan. 2014 add budgets +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_meyers.f90 b/src/MNH/lima_meyers.f90 index de2e06335..5d5607815 100644 --- a/src/MNH/lima_meyers.f90 +++ b/src/MNH/lima_meyers.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ####################### MODULE MODI_LIMA_MEYERS ! ####################### @@ -101,6 +106,7 @@ END MODULE MODI_LIMA_MEYERS !! ------------- !! Original ??/??/13 !! C. Barthe * LACy * jan. 2014 add budgets +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_mixed.f90 b/src/MNH/lima_mixed.f90 index 2d6fae1c3..43ac5c1c4 100644 --- a/src/MNH/lima_mixed.f90 +++ b/src/MNH/lima_mixed.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ###################### MODULE MODI_LIMA_MIXED ! ###################### @@ -86,6 +91,7 @@ END MODULE MODI_LIMA_MIXED !! ------------- !! Original ??/??/13 !! C. Barthe * LACy * jan. 2014 add budgets +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_phillips.f90 b/src/MNH/lima_phillips.f90 index ce5cebc46..e91caa983 100644 --- a/src/MNH/lima_phillips.f90 +++ b/src/MNH/lima_phillips.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ######################### MODULE MODI_LIMA_PHILLIPS ! ######################### @@ -110,6 +115,7 @@ END MODULE MODI_LIMA_PHILLIPS !! ------------- !! Original ??/??/13 !! C. Barthe * LACy * jan. 2014 add budgets +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_warm.f90 b/src/MNH/lima_warm.f90 index 25715dcb8..818adaa1b 100644 --- a/src/MNH/lima_warm.f90 +++ b/src/MNH/lima_warm.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ##################### MODULE MODI_LIMA_WARM ! ##################### @@ -116,6 +121,7 @@ END MODULE MODI_LIMA_WARM !! Original ??/??/13 !! C. Barthe * LACy * jan. 2014 add budgets !! J. Escobar : for real*4 , use XMNH_HUGE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_warm_coal.f90 b/src/MNH/lima_warm_coal.f90 index 727062763..f35e1d839 100644 --- a/src/MNH/lima_warm_coal.f90 +++ b/src/MNH/lima_warm_coal.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ########################## MODULE MODI_LIMA_WARM_COAL ! ########################## @@ -90,6 +95,7 @@ END MODULE MODI_LIMA_WARM_COAL !! ------------- !! Original ??/??/13 !! C. Barthe * LACy * jan. 2014 add budgets +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_warm_evap.f90 b/src/MNH/lima_warm_evap.f90 index 7a26c57c3..5fd0131b3 100644 --- a/src/MNH/lima_warm_evap.f90 +++ b/src/MNH/lima_warm_evap.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ########################## MODULE MODI_LIMA_WARM_EVAP ! ########################## @@ -68,6 +73,7 @@ END MODULE MODI_LIMA_WARM_EVAP !! MODIFICATIONS !! ------------- !! Original ??/??/13 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_warm_nucl.f90 b/src/MNH/lima_warm_nucl.f90 index ba6c96124..8ba955c65 100644 --- a/src/MNH/lima_warm_nucl.f90 +++ b/src/MNH/lima_warm_nucl.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ########################## MODULE MODI_LIMA_WARM_NUCL ! ########################## @@ -91,6 +96,7 @@ END MODULE MODI_LIMA_WARM_NUCL !! ------------- !! Original ??/??/13 !! J. Escobar : 10/2017 , for real*4 use XMNH_EPSILON +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lima_warm_sedim.f90 b/src/MNH/lima_warm_sedim.f90 index 33c399c81..c4232a6bc 100644 --- a/src/MNH/lima_warm_sedim.f90 +++ b/src/MNH/lima_warm_sedim.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ########################### MODULE MODI_LIMA_WARM_SEDIM ! ########################### @@ -85,6 +90,7 @@ END MODULE MODI_LIMA_WARM_SEDIM !! MODIFICATIONS !! ------------- !! Original ??/??/13 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/lochead.f90 b/src/MNH/lochead.f90 index b1fd1435c..d77bbadba 100644 --- a/src/MNH/lochead.f90 +++ b/src/MNH/lochead.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_pgd 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################### MODULE MODI_LOCHEAD ! ################### @@ -75,6 +70,7 @@ END MODULE MODI_LOCHEAD !! ------------ !! !! Original 29/08/95 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !---------------------------------------------------------------------------- ! diff --git a/src/MNH/ls_coupling.f90 b/src/MNH/ls_coupling.f90 index 4eb37c054..b2d17436a 100644 --- a/src/MNH/ls_coupling.f90 +++ b/src/MNH/ls_coupling.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 lbc 2006/05/23 10:09:04 -!----------------------------------------------------------------- ! ############################## MODULE MODI_LS_COUPLING ! ############################## @@ -175,6 +170,7 @@ END MODULE MODI_LS_COUPLING !! 01/2004 (Masson) removes SST forcing (surface externalization) !! 05/2006 Remove KEPS !! 2/2014 (escobar) add paspol for Forefire +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------ ! diff --git a/src/MNH/mean_prof.f90 b/src/MNH/mean_prof.f90 index 0953cddf4..121f80c25 100644 --- a/src/MNH/mean_prof.f90 +++ b/src/MNH/mean_prof.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ##################### MODULE MODI_MEAN_PROF ! ##################### @@ -87,6 +82,7 @@ END MODULE MODI_MEAN_PROF !! MODIFICATIONS !! ------------- !! Original 26/08/97 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/menu_diachro.f90 b/src/MNH/menu_diachro.f90 index e2b18e199..b9147f3b2 100644 --- a/src/MNH/menu_diachro.f90 +++ b/src/MNH/menu_diachro.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 diachro 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################################################## SUBROUTINE MENU_DIACHRO(TPDIAFILE,HGROUP) ! ################################################## @@ -52,6 +47,7 @@ !! Original 08/01/96 !! Updated PM !! Updated JD 24/06/99 : add GPACK to disable pack option +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mesonh.f90 b/src/MNH/mesonh.f90 index a2cbb4fd6..46cd7c3d8 100644 --- a/src/MNH/mesonh.f90 +++ b/src/MNH/mesonh.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ############## PROGRAM MESONH ! ############## @@ -78,6 +74,7 @@ !! J.Escobar 6/11/2014 remove test on LCHECK otherwise never call MPPDB_INIT !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! 06/2016 (G.Delautier) phasage surfex 8 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnh2lpdm.f90 b/src/MNH/mnh2lpdm.f90 index 16535735c..0392d5c3b 100644 --- a/src/MNH/mnh2lpdm.f90 +++ b/src/MNH/mnh2lpdm.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -12,6 +12,7 @@ ! Creation : 16.07.2002 ! Modification : 07.01.2006 (T.LAUVAUX, adaptation LPDM) ! Modification : 04.01.2009 (F. BONNARDOT, DP/SER/ENV ) +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! !----------------------------------------------------------------------------- ! diff --git a/src/MNH/mnh2lpdm_ech.f90 b/src/MNH/mnh2lpdm_ech.f90 index d93a11bc7..4c5c24ae3 100644 --- a/src/MNH/mnh2lpdm_ech.f90 +++ b/src/MNH/mnh2lpdm_ech.f90 @@ -1,15 +1,18 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2009-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------------- ! ######spl SUBROUTINE MNH2LPDM_ECH(TPFILE,TPMETEOFILE) ! ################################################## !----------------------------------------------------------------------- !**** MNH2S2_ECH TRAITEMENT D'UNE ECHEANCE. ! -! Auteur : Francois Bonnardot, DP/SERV/ENV -! Creation : 07.01.2009 +! Auteur : Francois Bonnardot, DP/SERV/ENV +! Creation : 07.01.2009 +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------------- ! !* 0. DECLARATIONS. diff --git a/src/MNH/mnh2lpdm_ini.f90 b/src/MNH/mnh2lpdm_ini.f90 index e39b0fde5..f7d71da91 100644 --- a/src/MNH/mnh2lpdm_ini.f90 +++ b/src/MNH/mnh2lpdm_ini.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -18,6 +18,8 @@ ! TPGRIDFILE Grid file ! TPDATEFILE Date file ! +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !-------------------------------------------------------------------------- ! ! diff --git a/src/MNH/mnh_surf_grid_io_init.f90 b/src/MNH/mnh_surf_grid_io_init.f90 index 39f94602b..7c87e7fc0 100644 --- a/src/MNH/mnh_surf_grid_io_init.f90 +++ b/src/MNH/mnh_surf_grid_io_init.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2015-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:18 -!----------------------------------------------------------------- !####################### MODULE MODI_MNH_SURF_GRID_IO_INIT !####################### @@ -45,6 +40,7 @@ MODULE MODI_MNH_SURF_GRID_IO_INIT !! ------------ !! !! Original 19/03/2015 + !! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATION diff --git a/src/MNH/mnhclose_aux_io_surf.f90 b/src/MNH/mnhclose_aux_io_surf.f90 index 9497f55e3..79d262791 100644 --- a/src/MNH/mnhclose_aux_io_surf.f90 +++ b/src/MNH/mnhclose_aux_io_surf.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2003-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/23 15:47:28 -!----------------------------------------------------------------- ! ######################### MODULE MODI_MNHCLOSE_AUX_IO_SURF ! ######################### @@ -54,6 +49,11 @@ END MODULE MODI_MNHCLOSE_AUX_IO_SURF !! ------------- !! Original 09/2003 !! J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files +!--------------- special set of characters for RCS information +!----------------------------------------------------------------- +! $Source$ $Revision$ +! MASDEV4_7 surfex 2006/05/23 15:47:28 +!----------------------------------------------------------------- !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnhclose_namelist.f90 b/src/MNH/mnhclose_namelist.f90 index cb8d2248e..28193c6ef 100644 --- a/src/MNH/mnhclose_namelist.f90 +++ b/src/MNH/mnhclose_namelist.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ############################# MODULE MODI_MNHCLOSE_NAMELIST ! ############################# @@ -52,6 +47,7 @@ END MODULE MODI_MNHCLOSE_NAMELIST !! MODIFICATIONS !! ------------- !! Original 01/2003 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnhclose_write_cover_tex.f90 b/src/MNH/mnhclose_write_cover_tex.f90 index fd1903d5a..ec04cd869 100644 --- a/src/MNH/mnhclose_write_cover_tex.f90 +++ b/src/MNH/mnhclose_write_cover_tex.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################################## SUBROUTINE MNHCLOSE_WRITE_COVER_TEX ! ################################## @@ -38,6 +33,7 @@ !! MODIFICATIONS !! ------------- !! Original 01/2003 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnhend_io_surfn.f90 b/src/MNH/mnhend_io_surfn.f90 index 60a524b31..3e09c9598 100644 --- a/src/MNH/mnhend_io_surfn.f90 +++ b/src/MNH/mnhend_io_surfn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/23 15:58:05 -!----------------------------------------------------------------- ! ######################### MODULE MODI_MNHEND_IO_SURF_n ! ######################### @@ -51,6 +46,7 @@ END MODULE MODI_MNHEND_IO_SURF_n !! MODIFICATIONS !! ------------- !! Original 09/2003 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnhget_desfmn.f90 b/src/MNH/mnhget_desfmn.f90 index c99de259c..f4afb7796 100644 --- a/src/MNH/mnhget_desfmn.f90 +++ b/src/MNH/mnhget_desfmn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ######################### MODULE MODI_MNHGET_DESFM_n ! ######################### @@ -52,6 +47,7 @@ END MODULE MODI_MNHGET_DESFM_n !! MODIFICATIONS !! ------------- !! Original 09/2003 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnhget_luout.f90 b/src/MNH/mnhget_luout.f90 index a1d74fa00..342b35f47 100644 --- a/src/MNH/mnhget_luout.f90 +++ b/src/MNH/mnhget_luout.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ############################# MODULE MODI_MNHGET_LUOUT ! ############################# @@ -52,6 +47,7 @@ END MODULE MODI_MNHGET_LUOUT !! MODIFICATIONS !! ------------- !! Original 01/2004 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnhinit_io_surfn.f90 b/src/MNH/mnhinit_io_surfn.f90 index b8b30b855..bf67169ff 100644 --- a/src/MNH/mnhinit_io_surfn.f90 +++ b/src/MNH/mnhinit_io_surfn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/23 16:07:10 -!----------------------------------------------------------------- ! ######################### MODULE MODI_MNHINIT_IO_SURF_n ! ######################### @@ -54,6 +49,7 @@ END MODULE MODI_MNHINIT_IO_SURF_n !! ------------- !! Original 09/2003 !! 06/2016 (G.Delautier) phasage surfex 8 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnhopen_aux_io_surf.f90 b/src/MNH/mnhopen_aux_io_surf.f90 index 92c2b2b31..5e6e4e954 100644 --- a/src/MNH/mnhopen_aux_io_surf.f90 +++ b/src/MNH/mnhopen_aux_io_surf.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -51,6 +51,7 @@ END MODULE MODI_MNHOPEN_AUX_IO_SURF !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files !! J.Escobar : 02/06/2016 : abort MNHOPEN with STOP if problem with OPEN of INPUT/READ file +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnhopen_namelist.f90 b/src/MNH/mnhopen_namelist.f90 index df39e9687..7820d3e0d 100644 --- a/src/MNH/mnhopen_namelist.f90 +++ b/src/MNH/mnhopen_namelist.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/24 18:05:49 -!----------------------------------------------------------------- ! ############################# MODULE MODI_MNHOPEN_NAMELIST ! ############################# @@ -53,6 +48,7 @@ END MODULE MODI_MNHOPEN_NAMELIST !! MODIFICATIONS !! ------------- !! Original 01/2004 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnhopen_write_cover_tex.f90 b/src/MNH/mnhopen_write_cover_tex.f90 index eca219526..73904aa62 100644 --- a/src/MNH/mnhopen_write_cover_tex.f90 +++ b/src/MNH/mnhopen_write_cover_tex.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################################## SUBROUTINE MNHOPEN_WRITE_COVER_TEX(KTEX) ! ################################## @@ -38,6 +33,7 @@ !! MODIFICATIONS !! ------------- !! Original 01/2003 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnhread_zs_dummyn.f90 b/src/MNH/mnhread_zs_dummyn.f90 index a22453d05..94376de62 100644 --- a/src/MNH/mnhread_zs_dummyn.f90 +++ b/src/MNH/mnhread_zs_dummyn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ########################## MODULE MODI_MNHREAD_ZS_DUMMY_n ! ########################## @@ -56,6 +51,7 @@ END MODULE MODI_MNHREAD_ZS_DUMMY_n !! MODIFICATIONS !! ------------- !! Original 01/2004 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mnhwrite_zs_dummyn.f90 b/src/MNH/mnhwrite_zs_dummyn.f90 index f33f1aa2c..708cf971d 100644 --- a/src/MNH/mnhwrite_zs_dummyn.f90 +++ b/src/MNH/mnhwrite_zs_dummyn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ########################## MODULE MODI_MNHWRITE_ZS_DUMMY_n ! ########################## @@ -56,6 +51,7 @@ END MODULE MODI_MNHWRITE_ZS_DUMMY_n !! MODIFICATIONS !! ------------- !! Original 01/2004 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_advn.f90 b/src/MNH/modd_advn.f90 index 1da2b2b21..52f24fc62 100644 --- a/src/MNH/modd_advn.f90 +++ b/src/MNH/modd_advn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/modd_advn.f90,v $ $Revision: 1.2.2.1.2.1.18.2 $ -! MASDEV4_7 modd 2007/02/19 11:58:44 -!----------------------------------------------------------------- ! ################ MODULE MODD_ADV_n ! ################ @@ -40,6 +35,7 @@ !! J.-P. Pinty 20/03/10 Add NWENO_ORDER !! C.Lac and V.Masson Add CTEMP_SCHEME and TIME SPLITTING !! C.LAC 10/2016 : Add OSPLIT_WENO +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_bakout.f90 b/src/MNH/modd_bakout.f90 index 2bf52e915..79e3d137d 100644 --- a/src/MNH/modd_bakout.f90 +++ b/src/MNH/modd_bakout.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################## MODULE MODD_BAKOUT ! ################## @@ -39,7 +34,7 @@ !! MODIFICATIONS !! ------------- !! Original 26/07/96 -!! Ph. Wautelet : 2016: new structures for outputs/backups +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_budget.f90 b/src/MNH/modd_budget.f90 index a3eb93448..5bacbfe59 100644 --- a/src/MNH/modd_budget.f90 +++ b/src/MNH/modd_budget.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -40,6 +40,7 @@ !! C.Lac 04/2016 negative contribution to the budget splitted between advection, turbulence and microphysics for KHKO/C2R2 !! C. Barthe /16 add budget terms for LIMA !! C. LAc 10/2016 add droplets deposition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_ch_model0d.f90 b/src/MNH/modd_ch_model0d.f90 index e688bd58e..e91c500ae 100644 --- a/src/MNH/modd_ch_model0d.f90 +++ b/src/MNH/modd_ch_model0d.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/06/30 15:52:28 -!----------------------------------------------------------------- !! ###################### MODULE MODD_CH_MODEL0D !! ###################### @@ -36,6 +31,7 @@ !! CCH_TUV_LOOKUP : name of lookup table file !! CCH_TUV_CLOUDS : method for the impact of clouds on radiation !! 18/02/99 LCH_SURFACE0D : apply surface emission / deposition fluxes +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! IMPLICIT ARGUMENTS !! ------------------ diff --git a/src/MNH/modd_ch_phn.f90 b/src/MNH/modd_ch_phn.f90 index a120f5478..b321995c9 100644 --- a/src/MNH/modd_ch_phn.f90 +++ b/src/MNH/modd_ch_phn.f90 @@ -1,15 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2007-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home//MESONH/MNH-V4-6-5/src/SRC_CHIMAQ/modd_ch_pHn.f90 -!----------------------------------------------------------------- -!----------------------------------------------------------------- -!----------------------------------------------------------------- -!----------------------------------------------------------------------------- !! ######################## MODULE MODD_CH_PH_n !! ######################## @@ -29,6 +22,7 @@ !! Original 01/06/07 !! P. Tulet Nov 2014 accumulated moles of aqueous species that fall at the surface !! P. Tulet & M. Leriche Nov 2015 add pH in rain at the surface +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! IMPLICIT ARGUMENTS !! ------------------ diff --git a/src/MNH/modd_conf.f90 b/src/MNH/modd_conf.f90 index d57b11497..a7995fec5 100644 --- a/src/MNH/modd_conf.f90 +++ b/src/MNH/modd_conf.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ################# MODULE MODD_CONF ! ################# @@ -50,6 +46,7 @@ !! C. Lac 01/04/14 add LCHECK !! G. Tanguy 01/04/14 add LCOUPLING !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/modd_confn.f90 b/src/MNH/modd_confn.f90 index 68f12007a..65c145731 100644 --- a/src/MNH/modd_confn.f90 +++ b/src/MNH/modd_confn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:27 -!----------------------------------------------------------------- ! ################# MODULE MODD_CONF_n ! ################# @@ -39,6 +34,7 @@ !! Original 05/05/94 !! J.-P. Pinty 11/04/96 include the ice concentration !! D. Gazen 22/01/01 move NSV to MODD_NSV module +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_deep_convectionn.f90 b/src/MNH/modd_deep_convectionn.f90 index a4311353c..0a6ace131 100644 --- a/src/MNH/modd_deep_convectionn.f90 +++ b/src/MNH/modd_deep_convectionn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/07/12 18:36:21 -!----------------------------------------------------------------- ! ############################# MODULE MODD_DEEP_CONVECTION_n ! ############################# @@ -35,6 +30,7 @@ !! ------------- !! Original 26/03/96 !! Modif 11/12/98 : add diagnostic variables +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_def_eddyUV_fluxn.f90 b/src/MNH/modd_def_eddyUV_fluxn.f90 index f5ded99e4..ec4b60cca 100644 --- a/src/MNH/modd_def_eddyUV_fluxn.f90 +++ b/src/MNH/modd_def_eddyUV_fluxn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2004-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ############################## MODULE MODD_DEF_EDDYUV_FLUX_n ! ############################## @@ -29,6 +25,7 @@ !! ------------- !! 05/05/09 M.Tomasini Grid-nesting !! 25/06/11 M.Tomasini Add a source term for the one_way grid-nesting +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_def_eddy_fluxn.f90 b/src/MNH/modd_def_eddy_fluxn.f90 index 23a216c8d..bba90d7e7 100644 --- a/src/MNH/modd_def_eddy_fluxn.f90 +++ b/src/MNH/modd_def_eddy_fluxn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2004-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ############################ MODULE MODD_DEF_EDDY_FLUX_n ! ############################ @@ -29,6 +25,7 @@ !! ------------- !! 05/05/09 M.Tomasini Grid-nesting !! 25/06/11 M.Tomasini Add a source term for the one_way grid-nesting +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_dynn.f90 b/src/MNH/modd_dynn.f90 index 204f1396e..821b2129a 100644 --- a/src/MNH/modd_dynn.f90 +++ b/src/MNH/modd_dynn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/modd_dynn.f90,v $ $Revision: 1.2.2.3.2.2.2.2.10.1.2.2 $ $Date: 2014/01/09 15:01:56 $ -!----------------------------------------------------------------- ! ################# MODULE MODD_DYN_n ! ################# @@ -45,6 +41,7 @@ !! Modifications 05/07 (C.Lac) Separation of num diffusion !! Modifications 07/10 (M.Leriche) Add relaxation for ice phase chemical !! Modification 01/2016 (JP Pinty) Add LIMA +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_elecn.f90 b/src/MNH/modd_elecn.f90 index 01107258a..3147dcb18 100644 --- a/src/MNH/modd_elecn.f90 +++ b/src/MNH/modd_elecn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/10/17 13:34:38 -!----------------------------------------------------------------- ! #################### MODULE MODD_ELEC_n ! #################### @@ -29,6 +24,7 @@ !! !! MODIFICATIONS !! ------------- +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/modd_fieldn.f90 b/src/MNH/modd_fieldn.f90 index d966c57c7..5f5e1847b 100644 --- a/src/MNH/modd_fieldn.f90 +++ b/src/MNH/modd_fieldn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/modd_fieldn.f90,v $ $Revision: 1.2.4.1.18.2 $ -! MASDEV4_7 modd 2006/06/27 14:17:24 -!----------------------------------------------------------------- ! ################### MODULE MODD_FIELD_n ! ################### @@ -53,6 +48,7 @@ !! momentum (noted _PRES) + microphysics contrib !! for Theta and r (noted _CLD) !! 04/16 (M.Mazoyer) New supersaturation fields +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/modd_gr_fieldn.f90 b/src/MNH/modd_gr_fieldn.f90 index 867017137..f287396f4 100644 --- a/src/MNH/modd_gr_fieldn.f90 +++ b/src/MNH/modd_gr_fieldn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/06/27 13:55:27 -!----------------------------------------------------------------- ! ##################### MODULE MODD_GR_FIELD_n ! ###################### @@ -48,6 +43,7 @@ !! Modification 01/06/00 (F.Solmon) adaptation for patch approach !! +1D for vegetation variable !! (V.Masson) 01/04 surface externalisation (cleaning) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_gridn.f90 b/src/MNH/modd_gridn.f90 index 75fd2f485..055d3c88f 100644 --- a/src/MNH/modd_gridn.f90 +++ b/src/MNH/modd_gridn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/06/27 13:54:55 -!----------------------------------------------------------------- ! ################## MODULE MODD_GRID_n ! ################## @@ -40,6 +35,7 @@ !! J. Stein 15/11/95 add the slope angle !! V. Ducrocq 13/08/98 // : add XLATOR_ll and XLONOR_ll !! V. Masson nov 2004 supress XLATOR,XLONOR,XLATOR_ll,XLONOR_ll +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_hurr_fieldn.f90 b/src/MNH/modd_hurr_fieldn.f90 index c77045106..48ad3fdeb 100644 --- a/src/MNH/modd_hurr_fieldn.f90 +++ b/src/MNH/modd_hurr_fieldn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2001-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/06/27 13:53:47 -!----------------------------------------------------------------- ! ############################ MODULE MODD_HURR_FIELD_n ! ############################ @@ -37,6 +32,7 @@ !! MODIFICATIONS !! ------------- !! Original 01/12/01 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/modd_io_nam.f90 b/src/MNH/modd_io_nam.f90 index 4bb99bc31..8c4a8e628 100644 --- a/src/MNH/modd_io_nam.f90 +++ b/src/MNH/modd_io_nam.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ###################### MODULE MODD_IO_NAM ! ###################### @@ -31,6 +26,7 @@ !! !! MODIFICATIONS !! ------------- +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! !* 0. DECLARATIONS ! ------------ diff --git a/src/MNH/modd_io_surf_mnh.f90 b/src/MNH/modd_io_surf_mnh.f90 index 320697f96..dffcc6bc7 100644 --- a/src/MNH/modd_io_surf_mnh.f90 +++ b/src/MNH/modd_io_surf_mnh.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/06/27 13:52:59 -!----------------------------------------------------------------- ! ################## MODULE MODD_IO_SURF_MNH ! ################## @@ -33,6 +28,7 @@ !! ------------- !! !! M.Faivre 2014 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! !* 0. DECLARATIONS ! diff --git a/src/MNH/modd_lbcn.f90 b/src/MNH/modd_lbcn.f90 index 5c3dfa3ee..f85b29390 100644 --- a/src/MNH/modd_lbcn.f90 +++ b/src/MNH/modd_lbcn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! NEC0 masdev4_7 2007/06/16 01:41:59 -!----------------------------------------------------------------- ! ################# MODULE MODD_LBC_n ! ################# @@ -42,6 +37,7 @@ !! 01/04/14 (C.Lac) Introduction of CARPKMAX different to !! RIMKMAX !! 08/2015 (Redelsperger & Pianezze) add XPOND coefficient for LBC +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_les.f90 b/src/MNH/modd_les.f90 index d13a5ff3c..c30666b2e 100644 --- a/src/MNH/modd_les.f90 +++ b/src/MNH/modd_les.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- ! ############### MODULE MODD_LES ! ############### @@ -46,6 +41,7 @@ !! J.Pergaud Oct , 2007 MF LES !! P. Aumond Oct ,2009 User multimaskS + 4th order !! C.Lac Oct ,2014 Correction on user masks +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_lima_precip_scavengingn.f90 b/src/MNH/modd_lima_precip_scavengingn.f90 index 188efc6e7..a5f30e7a2 100644 --- a/src/MNH/modd_lima_precip_scavengingn.f90 +++ b/src/MNH/modd_lima_precip_scavengingn.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! #################################### MODULE MODD_LIMA_PRECIP_SCAVENGING_n ! #################################### @@ -19,6 +24,7 @@ !! MODIFICATIONS !! ------------- !! Original ??/??/13 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/modd_lsfieldn.f90 b/src/MNH/modd_lsfieldn.f90 index 424cdd727..208f1d4d2 100644 --- a/src/MNH/modd_lsfieldn.f90 +++ b/src/MNH/modd_lsfieldn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/06/28 09:45:01 -!----------------------------------------------------------------- ! ##################### MODULE MODD_LSFIELD_n ! ##################### @@ -40,6 +35,7 @@ !! 21/01/97 (J.P.Lafore) extention to all variables though !! 2D arrays to store values at lateral boundaries !! 20/05/06 Remove EPS +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! ! diff --git a/src/MNH/modd_lunit.f90 b/src/MNH/modd_lunit.f90 index cea78617a..36027e7cf 100644 --- a/src/MNH/modd_lunit.f90 +++ b/src/MNH/modd_lunit.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################# MODULE MODD_LUNIT ! ################# @@ -36,6 +31,7 @@ !! ------------- !! Original 05/05/94 !! V. Masson 01/2004 add file names for use in externalized surface +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_lunitn.f90 b/src/MNH/modd_lunitn.f90 index 0a0437b7e..10fe48a5f 100644 --- a/src/MNH/modd_lunitn.f90 +++ b/src/MNH/modd_lunitn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! NEC0 masdev4_7 2007/06/16 01:41:59 -!----------------------------------------------------------------- ! ################### MODULE MODD_LUNIT_n ! ################### @@ -39,6 +34,7 @@ !! Modification 20/10/94 (J.Stein) add the output files !! Modification 10/03/95 (I.Mallet) add the coupling files names !! Modification 25/09/95 (J.Stein) add the output diachronic file +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_nesting.f90 b/src/MNH/modd_nesting.f90 index 36db23618..077e97681 100644 --- a/src/MNH/modd_nesting.f90 +++ b/src/MNH/modd_nesting.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################### MODULE MODD_NESTING ! ################### @@ -38,7 +33,7 @@ !! ------------- !! Original 18/08/95 !! updated 29/07/96 (J.P. Lafore) MY_NAME(m) introduction - +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_outn.f90 b/src/MNH/modd_outn.f90 index 9f365bfea..0dceb304a 100644 --- a/src/MNH/modd_outn.f90 +++ b/src/MNH/modd_outn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! NEC0 masdev4_7 2007/06/16 01:41:59 -!----------------------------------------------------------------- ! ################ MODULE MODD_OUT_n ! ################ @@ -36,6 +31,7 @@ !! MODIFICATIONS !! ------------- !! Original 20/10/94 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_parameters.f90 b/src/MNH/modd_parameters.f90 index 775c4d88d..18c76d4c9 100644 --- a/src/MNH/modd_parameters.f90 +++ b/src/MNH/modd_parameters.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/modd_parameters.f90,v $ $Revision: 1.1.8.6.2.1.16.2.2.2 $ -!----------------------------------------------------------------- ! ###################### MODULE MODD_PARAMETERS ! ###################### @@ -43,6 +39,7 @@ !! Modification 17/05/04 (P.Jabouille) add JPOUTMAX !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! B.VIE 2016 LIMA +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_paramn.f90 b/src/MNH/modd_paramn.f90 index fe4d6d0bc..4eb1ba87d 100644 --- a/src/MNH/modd_paramn.f90 +++ b/src/MNH/modd_paramn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/05/18 13:07:53 -!----------------------------------------------------------------- ! #################### MODULE MODD_PARAM_n ! #################### @@ -40,6 +35,7 @@ !! M. Tomasini 11/12/00 add the selector for the fluxes algorithm over water !! JP. Pinty 26/11/02 add the selector for the atmospheric electricity scheme !! V. Masson 01/04 externalised surface: remove CGROUND, CSEA_FLUX, add CSURF +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_past_fieldn.f90 b/src/MNH/modd_past_fieldn.f90 index 3fa92f5a8..1362b0ae0 100644 --- a/src/MNH/modd_past_fieldn.f90 +++ b/src/MNH/modd_past_fieldn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2013-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/06/27 14:17:24 -!----------------------------------------------------------------- ! ################### MODULE MODD_PAST_FIELD_n ! ################### @@ -37,7 +32,7 @@ !! MODIFICATIONS !! ------------- !! Original 01/2013 - +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/modd_precipn.f90 b/src/MNH/modd_precipn.f90 index fffa53c9c..d4d46e61e 100644 --- a/src/MNH/modd_precipn.f90 +++ b/src/MNH/modd_precipn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/modd_precipn.f90,v $ $Revision: 1.2.2.1.2.1.18.1 $ -! MASDEV4_7 modd 2006/10/17 13:34:38 -!----------------------------------------------------------------- ! #################### MODULE MODD_PRECIP_n ! #################### @@ -36,6 +31,7 @@ !! !! J.-P. Pinty 29/11/02 add C3R5, ICE2, ICE4 !! 10/2016 (C.Lac) Add droplet deposition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/modd_radiationsn.f90 b/src/MNH/modd_radiationsn.f90 index 15686b6e1..8dc9773e6 100644 --- a/src/MNH/modd_radiationsn.f90 +++ b/src/MNH/modd_radiationsn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/11/23 17:28:44 -!----------------------------------------------------------------- ! ######################## MODULE MODD_RADIATIONS_n ! ######################## @@ -41,6 +36,7 @@ !! Mar. 15,2002 (F.Solmon) add ozone and aerosol fields !! 03/03/03 (V. Masson) surface radiative schemes and !! multiple wavelengths for surface SW +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/modd_ref.f90 b/src/MNH/modd_ref.f90 index b2605f1c1..8b2f93287 100644 --- a/src/MNH/modd_ref.f90 +++ b/src/MNH/modd_ref.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ############### MODULE MODD_REF ! ############### @@ -38,6 +33,7 @@ !! ------------- !! Original 07/06/94 !! 07/13 (C.Lac) Add LBOUSS +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_refn.f90 b/src/MNH/modd_refn.f90 index 56db08ddb..32c06096c 100644 --- a/src/MNH/modd_refn.f90 +++ b/src/MNH/modd_refn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/06/27 12:51:57 -!----------------------------------------------------------------- ! ################# MODULE MODD_REF_n ! ################# @@ -40,6 +35,7 @@ !! Modification 03/01/95 (Lafore) To add the reference mass variables !! Modification 09/02/95 (Masson) To add LINMASS !! Modification 25/07/97 (Stein) To add XRVREF +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_spawn.f90 b/src/MNH/modd_spawn.f90 index 3f429668d..c4a8c1a23 100644 --- a/src/MNH/modd_spawn.f90 +++ b/src/MNH/modd_spawn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################# MODULE MODD_SPAWN ! ################# @@ -37,6 +32,7 @@ !! ------------- !! Original 12/07/99 !! Modification 08/04/04 (G.Jaubert) Spawning 1 option +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_sto_file.f90 b/src/MNH/modd_sto_file.f90 index 901623324..50ffb8cfe 100644 --- a/src/MNH/modd_sto_file.f90 +++ b/src/MNH/modd_sto_file.f90 @@ -1,12 +1,10 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/05/18 13:07:25 +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- ! ######spl MODULE MODD_STO_FILE diff --git a/src/MNH/modd_sub_modeln.f90 b/src/MNH/modd_sub_modeln.f90 index bb8eae10d..96868a044 100644 --- a/src/MNH/modd_sub_modeln.f90 +++ b/src/MNH/modd_sub_modeln.f90 @@ -1,12 +1,10 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/06/27 12:32:39 +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- ! ################# MODULE MODD_SUB_MODEL_n diff --git a/src/MNH/modd_timen.f90 b/src/MNH/modd_timen.f90 index a2d685036..a75c3363a 100644 --- a/src/MNH/modd_timen.f90 +++ b/src/MNH/modd_timen.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################## MODULE MODD_TIME_n ! ################## @@ -37,6 +32,7 @@ !! Original 07/07/94 !! J.Stein 27/10/95 add the radiation call's instants !! P.Bechtold 26/03/96 add the last deep convection call +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modd_turbn.f90 b/src/MNH/modd_turbn.f90 index b791a8e17..a4f64b46e 100644 --- a/src/MNH/modd_turbn.f90 +++ b/src/MNH/modd_turbn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modd 2006/06/27 12:27:59 -!----------------------------------------------------------------- ! ################## MODULE MODD_TURB_n ! ################## @@ -43,7 +38,8 @@ !! V. Masson Nov 13 2002 add switch for SBL lengths !! May 2006 Remove KEPS !! C.Lac Nov 2014 add terms of TKE production for LES diag - +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O +!! !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mode_RBK90_Integrator.f90 b/src/MNH/mode_RBK90_Integrator.f90 index 8fdf8bc5e..f1e50b243 100644 --- a/src/MNH/mode_RBK90_Integrator.f90 +++ b/src/MNH/mode_RBK90_Integrator.f90 @@ -1,7 +1,11 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- +! Modifications: +! Philippe 13/02/2018: use ifdef MNH_REAL to prevent problems with intrinsics on Blue Gene/Q +!----------------------------------------------------------------- ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Numerical Integrator (Time-Stepping) File diff --git a/src/MNH/mode_datetime.f90 b/src/MNH/mode_datetime.f90 index 1e0f9ed7f..a09557b78 100644 --- a/src/MNH/mode_datetime.f90 +++ b/src/MNH/mode_datetime.f90 @@ -2,6 +2,7 @@ !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- MODULE MODE_DATETIME ! USE MODD_TYPE_DATE diff --git a/src/MNH/mode_gatherall_border_ll.f90 b/src/MNH/mode_gatherall_border_ll.f90 index 2fc38ac68..fe3d0993a 100644 --- a/src/MNH/mode_gatherall_border_ll.f90 +++ b/src/MNH/mode_gatherall_border_ll.f90 @@ -1,7 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2010-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!--------------------------------------------------------------------- MODULE MODE_GATHERALL_BORDER_ll CONTAINS @@ -32,6 +33,7 @@ SUBROUTINE GATHERALL_BORDER_ll(HCODE,PA,PA_ll,KINFO_ll) !! MODIFICATIONS !! ------------- !! Original 08/2010 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! diff --git a/src/MNH/mode_gridcart.f90 b/src/MNH/mode_gridcart.f90 index f4b0104f7..8a701c843 100644 --- a/src/MNH/mode_gridcart.f90 +++ b/src/MNH/mode_gridcart.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! #################### MODULE MODE_GRIDCART ! #################### @@ -37,6 +33,7 @@ !! ------------- !! Original 06/05/94 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !-------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mode_gridproj.f90 b/src/MNH/mode_gridproj.f90 index 0a5ec42aa..f6de1038d 100644 --- a/src/MNH/mode_gridproj.f90 +++ b/src/MNH/mode_gridproj.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/29 16:48:50 -!----------------------------------------------------------------- ! #################### MODULE MODE_GRIDPROJ ! #################### @@ -41,6 +36,7 @@ !! ------------ !! Original 24/05/94 !! 05/02/15 M.Moge (LA-CNRS) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! !------------------------------------------------------------------------------ diff --git a/src/MNH/mode_les_diachro.f90 b/src/MNH/mode_les_diachro.f90 index 3bc56607d..462859ff0 100644 --- a/src/MNH/mode_les_diachro.f90 +++ b/src/MNH/mode_les_diachro.f90 @@ -1,15 +1,11 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 mode 2006/09/13 10:17:42 -! ! Modifications ! G. TANGUY 19/05/2014 : correctoin DATIME in case of time average +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- !####################### MODULE MODE_LES_DIACHRO diff --git a/src/MNH/mode_modeln_handler.f90 b/src/MNH/mode_modeln_handler.f90 index 2b3bec236..42bf4b7ec 100644 --- a/src/MNH/mode_modeln_handler.f90 +++ b/src/MNH/mode_modeln_handler.f90 @@ -1,12 +1,10 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! NEC0 masdev4_7 2007/06/16 01:41:59 +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- MODULE MODE_MODELN_HANDLER IMPLICIT NONE diff --git a/src/MNH/mode_thermo.f90 b/src/MNH/mode_thermo.f90 index eac5efd69..afe39bda9 100644 --- a/src/MNH/mode_thermo.f90 +++ b/src/MNH/mode_thermo.f90 @@ -1,14 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- -!----------------------------------------------------------------- ! ####################### MODULE MODE_THERMO ! ####################### @@ -38,6 +32,7 @@ !! MODIFICATIONS !! ------------- !! Original 28/08/94 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !-------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mode_time.f90 b/src/MNH/mode_time.f90 index 2890fe4ff..1ac45c254 100644 --- a/src/MNH/mode_time.f90 +++ b/src/MNH/mode_time.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 mode 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! #################### MODULE MODE_TIME ! #################### @@ -38,6 +33,7 @@ !! MODIFICATIONS !! ------------- !! Original 07/07/94 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !-------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/mode_type_zdiffu.f90 b/src/MNH/mode_type_zdiffu.f90 index 9b0b7e507..e6a4a6076 100644 --- a/src/MNH/mode_type_zdiffu.f90 +++ b/src/MNH/mode_type_zdiffu.f90 @@ -1,19 +1,17 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 mode 2006/05/18 13:07:25 -!----------------------------------------------------------------- MODULE MODE_TYPE_ZDIFFU USE MODD_DYNZD CONTAINS SUBROUTINE INIT_TYPE_ZDIFFU_HALO2(PTYPE_ZDIFFU_HALO2,KSIZE_ZERO) +! Modifications: +! Philippe 12/01/2018: renamed dimension variable NKMAX_ll->NKMAX_TMP_ll to prevent mix-up with modd_dimn +! ! !* 0. DECLARATIONS ! ------------ diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90 index 0217a48ea..b844e57a8 100644 --- a/src/MNH/modeln.f90 +++ b/src/MNH/modeln.f90 @@ -1,11 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -!----------------------------------------------------------------- ! ################### MODULE MODI_MODEL_n ! ################### @@ -250,6 +247,7 @@ END MODULE MODI_MODEL_n !! the las process modifying XRSVS !! 01/2018 (G.Delautier) SURFEX 8.1 !! 03/2018 (P.Wautelet) replace ADD_FORECAST_TO_DATE by DATETIME_CORRECTDATE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modn_backup.f90 b/src/MNH/modn_backup.f90 index 0339ee4c3..5d681ce14 100644 --- a/src/MNH/modn_backup.f90 +++ b/src/MNH/modn_backup.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2017 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modn 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################## MODULE MODN_BACKUP ! ################## @@ -36,7 +31,8 @@ !! MODIFICATIONS !! ------------- !! Original 26/07/96 -!! Ph. Wautelet : 2016: new structures for outputs/backups +!! Ph. Wautelet 2016 new structures for outputs/backups +!! Ph. Wautelet 02/10/2017 split NAM_OUTPUT in NAM_BACKUP and NAM_OUTPUT !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modn_output.f90 b/src/MNH/modn_output.f90 index 242514428..268632de0 100644 --- a/src/MNH/modn_output.f90 +++ b/src/MNH/modn_output.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2017 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 modn 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################## MODULE MODN_OUTPUT ! ################## @@ -37,7 +32,8 @@ !! MODIFICATIONS !! ------------- !! Original 26/07/96 -!! Ph. Wautelet : 2016: new structures for outputs/backups +!! Ph. Wautelet 2016 new structures for outputs/backups +!! Ph. Wautelet 02/10/2017 split NAM_OUTPUT in NAM_BACKUP and NAM_OUTPUT !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/modules_diachro.f90 b/src/MNH/modules_diachro.f90 index 769f4a769..2dd05edff 100644 --- a/src/MNH/modules_diachro.f90 +++ b/src/MNH/modules_diachro.f90 @@ -1,12 +1,10 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 diachro 2006/05/18 13:07:25 +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- ! ######################### MODULE MODI_MENU_DIACHRO diff --git a/src/MNH/one_wayn.f90 b/src/MNH/one_wayn.f90 index e1bf6f187..0490f8fd1 100644 --- a/src/MNH/one_wayn.f90 +++ b/src/MNH/one_wayn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/one_wayn.f90,v $ $Revision: 1.3.2.3.2.1.2.2.10.1.2.3 $ -! masdev4_7 BUG1 2007/06/15 17:47:18 -!----------------------------------------------------------------- ! ################### MODULE MODI_ONE_WAY_n ! ################### @@ -190,7 +185,8 @@ SUBROUTINE ONE_WAY_n(KDAD,PTSTEP,KMI,KTCOUNT, & !! Bosseur & Filippi 07/2013 Adds Forefire !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! J.Escobar : 18/12/2015 : Correction of bug in bound in // for NHALO <>1 -!!! Modification 01/2016 (JP Pinty) Add LIMA +!! Modification 01/2016 (JP Pinty) Add LIMA +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------ ! !* 0. DECLARATIONS diff --git a/src/MNH/open_file_mnh.f90 b/src/MNH/open_file_mnh.f90 index 072117ec3..8762e066e 100644 --- a/src/MNH/open_file_mnh.f90 +++ b/src/MNH/open_file_mnh.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2003-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 surfex 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ######################### MODULE MODI_OPEN_FILE_MNH ! ######################### @@ -56,6 +51,7 @@ END MODULE MODI_OPEN_FILE_MNH !! MODIFICATIONS !! ------------- !! Original 01/2003 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/open_nestpgd_files.f90 b/src/MNH/open_nestpgd_files.f90 index 743e498a2..9147b1635 100644 --- a/src/MNH/open_nestpgd_files.f90 +++ b/src/MNH/open_nestpgd_files.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- !############################# MODULE MODI_OPEN_NESTPGD_FILES !############################# @@ -70,6 +66,7 @@ END MODULE MODI_OPEN_NESTPGD_FILES !! 01/2016 (M.Moge) Bug fix : open the output file using Z-parallel IO !! J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files !! P.Wautelet : 08/07/2016 : removed MNH_NCWRIT define +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/open_prc_files.f90 b/src/MNH/open_prc_files.f90 index d8219d640..b5c80fd3b 100644 --- a/src/MNH/open_prc_files.f90 +++ b/src/MNH/open_prc_files.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ########################## MODULE MODI_OPEN_PRC_FILES ! ########################## @@ -93,6 +89,7 @@ END MODULE MODI_OPEN_PRC_FILES !! Modification 15/10/01 allow namelists in different orders (I. Mallet) !! J.ESCOBAR 12/11/2008 Improve checking --> add STATUS=OLD in open_ll(PRE_REAL1.nam,... !! J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/paspol.f90 b/src/MNH/paspol.f90 index 35d02ea58..4cab8bd6b 100644 --- a/src/MNH/paspol.f90 +++ b/src/MNH/paspol.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -58,6 +58,7 @@ END MODULE MODI_PASPOL !! remove the diffusion at the release !! C.Lac 11/11 Remove instant M !! P.Wautelet 28/03/2018 Replace TEMPORAL_DIST by DATETIME_DISTANCE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !! EXTERNAL diff --git a/src/MNH/pgd_grid_io_init_mnh.f90 b/src/MNH/pgd_grid_io_init_mnh.f90 index 0e975b441..e7e416226 100644 --- a/src/MNH/pgd_grid_io_init_mnh.f90 +++ b/src/MNH/pgd_grid_io_init_mnh.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2004-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:18 -!----------------------------------------------------------------- !####################### MODULE MODI_PGD_GRID_IO_INIT_MNH !####################### @@ -56,6 +51,7 @@ MODULE MODI_PGD_GRID_IO_INIT_MNH !! of INI_PARAZ_ll/INI_CHILD : INI_PARAZ_CHILD_ll !! In this case, when entering PGD_GRID_IO_INIT_MNH we have only one model : the father !! When exiting, we have only one model : the child + !! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATION @@ -138,6 +134,7 @@ END MODULE MODI_PGD_GRID_IO_INIT_MNH !! 2014 M.Faivre !! 06/2016 (G.Delautier) phasage surfex 8 !! 01/2018 (G.Delautier) SURFEX 8.1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATION diff --git a/src/MNH/phys_paramn.f90 b/src/MNH/phys_paramn.f90 index 781dddfee..64cd1c331 100644 --- a/src/MNH/phys_paramn.f90 +++ b/src/MNH/phys_paramn.f90 @@ -1,8 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -!,! ######################## +! ######################## MODULE MODI_PHYS_PARAM_n ! ######################## ! @@ -230,6 +230,7 @@ END MODULE MODI_PHYS_PARAM_n !! C.Lac 10/2017 : ch_monitor and aer_monitor extracted from phys_param !! to be called directly by modeln as the last process !! 28/03/2018 P. Wautelet: replace TEMPORAL_DIST by DATETIME_DISTANCE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/polar_calc.f90 b/src/MNH/polar_calc.f90 index 93927876e..badf269d5 100644 --- a/src/MNH/polar_calc.f90 +++ b/src/MNH/polar_calc.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2001-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! #################### MODULE MODI_POLAR_CALC ! #################### @@ -73,6 +69,7 @@ END MODULE MODI_POLAR_CALC !! ------------- !! Original 01/12/01 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! @@ -233,6 +230,7 @@ END SUBROUTINE POLAR_CALC3D !! MODIFICATIONS !! ------------- !! Original 01/12/01 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ppm.f90 b/src/MNH/ppm.f90 index 2b27e0e0d..c27623d9a 100644 --- a/src/MNH/ppm.f90 +++ b/src/MNH/ppm.f90 @@ -1,12 +1,10 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:18 +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------- ! ############### MODULE MODI_PPM diff --git a/src/MNH/prandtl.f90 b/src/MNH/prandtl.f90 index 5f66011f0..404a45952 100644 --- a/src/MNH/prandtl.f90 +++ b/src/MNH/prandtl.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/05/24 18:05:53 -!----------------------------------------------------------------- ! ################### MODULE MODI_PRANDTL ! ################### @@ -193,6 +188,7 @@ END MODULE MODI_PRANDTL !! 2012-02 Y. Seity, add possibility to run with reversed !! vertical levels !! 2017-09 J.Escobar, use epsilon XMNH_TINY_12 for R*4 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90 index 8c5af24c9..41adc60d7 100644 --- a/src/MNH/prep_ideal_case.f90 +++ b/src/MNH/prep_ideal_case.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ####################### PROGRAM PREP_IDEAL_CASE ! ####################### @@ -314,6 +310,7 @@ !! 06/2016 (G.Delautier) phasage surfex 8 !! P.Wautelet : 08/07/2016 : removed MNH_NCWRIT define !! 01/2018 (G.Delautier) SURFEX 8.1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/prep_nest_pgd.f90 b/src/MNH/prep_nest_pgd.f90 index 0bbe9f542..7d9b2ae94 100644 --- a/src/MNH/prep_nest_pgd.f90 +++ b/src/MNH/prep_nest_pgd.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ##################### PROGRAM PREP_NEST_PGD ! ##################### @@ -94,6 +90,7 @@ !! J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files !! 06/2016 (G.Delautier) phasage surfex 8 !! P.Wautelet : 08/07/2016 : removed MNH_NCWRIT define +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/prep_pgd.f90 b/src/MNH/prep_pgd.f90 index d9bc738fd..45a14fcf0 100644 --- a/src/MNH/prep_pgd.f90 +++ b/src/MNH/prep_pgd.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -71,6 +71,7 @@ !! P.Wautelet : 08/07/2016 : removed MNH_NCWRIT define !! 10/2016 (S.Faroux S.Bielli) correction for NHALO=0 !! 01/2018 (G.Delautier) SURFEX 8.1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATION diff --git a/src/MNH/prep_real_case.f90 b/src/MNH/prep_real_case.f90 index 302396cca..2a0cbf32a 100644 --- a/src/MNH/prep_real_case.f90 +++ b/src/MNH/prep_real_case.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ###################### PROGRAM PREP_REAL_CASE ! ###################### @@ -382,6 +378,7 @@ !! 06/2016 (G.Delautier) phasage surfex 8 !! P.Wautelet : 08/07/2016 : removed MNH_NCWRIT define !! B.VIE 2016 : LIMA +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/prep_surf_mnh.f90 b/src/MNH/prep_surf_mnh.f90 index 452a44938..afe9493b2 100644 --- a/src/MNH/prep_surf_mnh.f90 +++ b/src/MNH/prep_surf_mnh.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2004-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/06/16 17:22:03 -!----------------------------------------------------------------- ! ############################# MODULE MODI_PREP_SURF_MNH ! ############################# @@ -49,6 +44,7 @@ END MODULE MODI_PREP_SURF_MNH !! 06/2016 (G.Delautier) phasage surfex 8 !! P.Wautelet : 08/07/2016 : removed MNH_NCWRIT define !! 01/2018 (G.Delautier) SURFEX 8.1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------ ! USE MODD_IO_SURF_MNH, ONLY : COUTFILE diff --git a/src/MNH/prep_surfex.f90 b/src/MNH/prep_surfex.f90 index f588034fb..c1e0272b7 100644 --- a/src/MNH/prep_surfex.f90 +++ b/src/MNH/prep_surfex.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2004-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. --------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:27 -!----------------------------------------------------------------- ! ############################# PROGRAM PREP_SURFEX ! ############################# @@ -30,6 +25,7 @@ !! Original 12/2004 (P. Le Moigne) !! 10/10/2011 J.Escobar call INI_PARAZ_ll !! 06/2016 (G.Delautier) phasage surfex 8 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/pressure.f90 b/src/MNH/pressure.f90 index e3feba7a8..43a1caeb9 100644 --- a/src/MNH/pressure.f90 +++ b/src/MNH/pressure.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- !################### MODULE MODI_PRESSURE !################### @@ -202,6 +198,7 @@ END MODULE MODI_PRESSURE !! 11/2010 (V.Masson, C.Lac) PPABST, must not be cyclic => add temp array !! to save it before UPDATE_HALO !! 06/2011 (J.escobar ) Bypass Bug with ifort11/12 on HLBCX,HLBCY +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/pressure_in_prep.f90 b/src/MNH/pressure_in_prep.f90 index df22cb3e9..844b549d6 100644 --- a/src/MNH/pressure_in_prep.f90 +++ b/src/MNH/pressure_in_prep.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1998-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ###################### MODULE MODI_PRESSURE_IN_PREP ! ###################### @@ -68,6 +64,7 @@ END MODULE MODI_PRESSURE_IN_PREP !! 2014 M.Faivre !! 08/2015 M.Moge removing UPDATE_HALO_ll on XUT, XVT, XRHODJ in part 4 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/pressurez.f90 b/src/MNH/pressurez.f90 index 73290bade..7f8785319 100644 --- a/src/MNH/pressurez.f90 +++ b/src/MNH/pressurez.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- !################### MODULE MODI_PRESSUREZ !################### @@ -219,6 +215,7 @@ END MODULE MODI_PRESSUREZ !! 2014 (C.Lac) correction for 3D run with LBOUSS=.TRUE. !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! J.escobar : check nb proc versus ZRESI & min(DIMX,DIMY) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/profilern.f90 b/src/MNH/profilern.f90 index f5c90341b..81c3192c8 100644 --- a/src/MNH/profilern.f90 +++ b/src/MNH/profilern.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/profilern.f90,v $ $Revision: 1.3.4.1.2.1.10.2.2.4 $ -! MASDEV4_7 profiler 2006/06/01 09:51:49 -!----------------------------------------------------------------- ! ########################## MODULE MODI_PROFILER_n ! ########################## @@ -94,6 +89,7 @@ END MODULE MODI_PROFILER_n !! April 2014 : C.Lac : Call RADAR only if ICE3 !! C.Lac 10/2016 Add visibility diagnostic !! March,28, 2018 (P. Wautelet) replace TEMPORAL_DIST by DATETIME_DISTANCE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/prognos.f90 b/src/MNH/prognos.f90 index 8ed96911c..791f813af 100644 --- a/src/MNH/prognos.f90 +++ b/src/MNH/prognos.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2012-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -57,6 +57,7 @@ END MODULE MODI_PROGNOS !! ------------- !! 2014 G.Delautier : remplace MODD_RAIN_C2R2_PARAM par MODD_RAIN_C2R2_KHKO_PARAM !! 2015 M.Mazoyer and O.Thouron : Physical tunings +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/radar_c2r2.f90 b/src/MNH/radar_c2r2.f90 index 2e2703ed3..4a5f14411 100644 --- a/src/MNH/radar_c2r2.f90 +++ b/src/MNH/radar_c2r2.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 operators 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ########################## MODULE MODI_RADAR_C2R2 ! ########################## @@ -82,6 +77,7 @@ END MODULE MODI_RADAR_C2R2 !! 03/12/96 change the arg. list !! 13/10/98 remove function statement !! 2014 G.Delautier : remplace MODD_RAIN_C2R2_PARAM par MODD_RAIN_C2R2_KHKO_PARAM +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/radar_rain_ice.f90 b/src/MNH/radar_rain_ice.f90 index 74759be77..f3d2e2a0d 100644 --- a/src/MNH/radar_rain_ice.f90 +++ b/src/MNH/radar_rain_ice.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -87,6 +87,7 @@ END MODULE MODI_RADAR_RAIN_ICE !! J.-P. Chaboureau 17/06/10 bug correction in reflectivity calculation of icy hydrometeors !! J.-P. Chaboureau 03/02/12 set undef values for radar reflectivities !! O. Caumont 09/04/14 correction of ZDR calculation +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/radar_scattering.f90 b/src/MNH/radar_scattering.f90 index 6ea401981..72dcd4276 100644 --- a/src/MNH/radar_scattering.f90 +++ b/src/MNH/radar_scattering.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2004-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ######spl MODULE MODI_RADAR_SCATTERING ! ############################# @@ -98,6 +94,7 @@ END MODULE MODI_RADAR_SCATTERING !! G.Tanguy 25/03/2010 Introduction of MODD_TMAT and ALLOCATE/DEALLOCATE !! C.Augros 2014 New simulator for T matrice !! G.Delautier 10/2014 : Mise a jour simulateur T-matrice pour LIMA +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/radar_simulator.f90 b/src/MNH/radar_simulator.f90 index b1ccff110..cf74086ae 100644 --- a/src/MNH/radar_simulator.f90 +++ b/src/MNH/radar_simulator.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2004-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ########################### MODULE MODI_RADAR_SIMULATOR ! ########################### @@ -127,6 +123,7 @@ END MODULE MODI_RADAR_SIMULATOR !! NBAZIM set in nameliste (720) !! ZAZIM_BASE(JAZ)=(0.5+JAZ-1)*ZZSTEP !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/radiations.f90 b/src/MNH/radiations.f90 index 26184c445..28479e248 100644 --- a/src/MNH/radiations.f90 +++ b/src/MNH/radiations.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -210,6 +210,7 @@ END MODULE MODI_RADIATIONS !! J.Escobar 30/03/2017 : Management of compilation of ECMWF_RAD in REAL*8 with MNH_REAL=R4 !! J.Escobar 29/06/2017 : Check if Pressure Decreasing with height <-> elsif PB & STOP !! Q.LIBOIS 06/2017 : correction on CLOUD_ONLY +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/rain_c2r2_khko.f90 b/src/MNH/rain_c2r2_khko.f90 index 08e8bf841..591da922a 100644 --- a/src/MNH/rain_c2r2_khko.f90 +++ b/src/MNH/rain_c2r2_khko.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/Attic/rain_c2r2_khko.f90,v $ $Revision: 1.1.2.1.2.3 $ -!----------------------------------------------------------------- ! ###################### MODULE MODI_RAIN_C2R2_KHKO ! ###################### @@ -217,6 +213,7 @@ END MODULE MODI_RAIN_C2R2_KHKO !! M.Mazoyer : 04/2016 : Add supersaturation diagnostics !! C.Lac : 07/2016 : Add droplet deposition !! C.Lac : 01/2017 : Correction on droplet deposition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/rain_ice_elec.f90 b/src/MNH/rain_ice_elec.f90 index dfe87a5c8..ebbe39dde 100644 --- a/src/MNH/rain_ice_elec.f90 +++ b/src/MNH/rain_ice_elec.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:18 -!----------------------------------------------------------------- ! ######################### MODULE MODI_RAIN_ICE_ELEC ! ######################### @@ -229,6 +224,7 @@ END MODULE MODI_RAIN_ICE_ELEC !! J-P Pinty 25/04/14 Many bugs with ZWQ1(:,...) = 0.0 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! J.Escobar : 10/2017 : for real*4 , limit exp() in RAIN_ICE_ELEC_SLOW with XMNH_HUGE_12_LOG +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/read_all_data_grib_case.f90 b/src/MNH/read_all_data_grib_case.f90 index e3d2c0340..67f66348e 100644 --- a/src/MNH/read_all_data_grib_case.f90 +++ b/src/MNH/read_all_data_grib_case.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1998-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG3 2007/11/20 12:25:23 -!----------------------------------------------------------------- ! ################################# MODULE MODI_READ_ALL_DATA_GRIB_CASE ! ################################# @@ -130,6 +125,7 @@ END MODULE MODI_READ_ALL_DATA_GRIB_CASE !! of all the subroutine !! 05/12/2016 (G.Delautier) length of HGRID for grib_api > 1.14 !! 08/03/2018 (P.Wautelet) replace ADD_FORECAST_TO_DATE by DATETIME_CORRECTDATE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/read_all_data_mesonh_case.f90 b/src/MNH/read_all_data_mesonh_case.f90 index 967d12345..8fe3c43b0 100644 --- a/src/MNH/read_all_data_mesonh_case.f90 +++ b/src/MNH/read_all_data_mesonh_case.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:27 -!----------------------------------------------------------------- !#################################### MODULE MODI_READ_ALL_DATA_MESONH_CASE !#################################### @@ -110,6 +105,7 @@ END MODULE MODI_READ_ALL_DATA_MESONH_CASE !! Aou 09, 2005 (D.Barbary) call to compare_dad !! 19/03/2008 (J.Escobar) rename INIT to INIT_MNH --> grib problem !! 2014 (M.Faivre) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/read_chem_data_netcdf_case.f90 b/src/MNH/read_chem_data_netcdf_case.f90 index 25b08203f..0dcff411b 100644 --- a/src/MNH/read_chem_data_netcdf_case.f90 +++ b/src/MNH/read_chem_data_netcdf_case.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2012-2017 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ################################ MODULE MODI_READ_CHEM_DATA_NETCDF_CASE ! ################################# diff --git a/src/MNH/read_desfmn.f90 b/src/MNH/read_desfmn.f90 index e2bbb87cd..459d7d43c 100644 --- a/src/MNH/read_desfmn.f90 +++ b/src/MNH/read_desfmn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /srv/cvsroot/MNH-VX-Y-Z/src/MNH/read_desfmn.f90,v $ $Revision: 1.2.2.1.2.1.2.2.10.1.2.4 $ $Date: 2014/02/14 09:15:53 $ -!----------------------------------------------------------------- ! ###################### MODULE MODI_READ_DESFM_n ! ###################### @@ -192,6 +188,7 @@ END MODULE MODI_READ_DESFM_n !! Modification 01/2015 (C. Barthe) Add explicit LNOx !! Modification 2016 (B.VIE) LIMA !! Modification 11/2016 (Ph. Wautelet) Allocate/initialise some output/backup structures +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/read_dummy_gr_fieldn.f90 b/src/MNH/read_dummy_gr_fieldn.f90 index 4262eb335..3f7cd6842 100644 --- a/src/MNH/read_dummy_gr_fieldn.f90 +++ b/src/MNH/read_dummy_gr_fieldn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/05/18 13:07:25 -!----------------------------------------------------------------- MODULE MODI_READ_DUMMY_GR_FIELD_n ! ! @@ -73,6 +68,7 @@ END MODULE MODI_READ_DUMMY_GR_FIELD_n !! MODIFICATIONS !! ------------- !! Original 2/05/95 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !----------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/read_exsegn.f90 b/src/MNH/read_exsegn.f90 index f1dcefe69..45cf05222 100644 --- a/src/MNH/read_exsegn.f90 +++ b/src/MNH/read_exsegn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /srv/cvsroot/MNH-VX-Y-Z/src/MNH/read_exsegn.f90,v $ $Revision: 1.2.2.5.2.4.2.14.2.5.2.4 $ -! masdev4_8 2008/07/09 16:40:30 -!----------------------------------------------------------------- ! ###################### MODULE MODI_READ_EXSEG_n ! ###################### @@ -289,6 +284,7 @@ END MODULE MODI_READ_EXSEG_n !! LUSERx-type variables for LIMA !! M.Leriche 06/2017 for spawn and prep_real avoid abort if wet dep for !! aerosol and no cloud scheme defined +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!------------------------------------------------------------------------------ ! !* 0. DECLARATIONS diff --git a/src/MNH/read_exspa.f90 b/src/MNH/read_exspa.f90 index eecbe662a..4ca2bb66d 100644 --- a/src/MNH/read_exspa.f90 +++ b/src/MNH/read_exspa.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 spawn 2006/06/27 14:37:30 -!----------------------------------------------------------------- !###################### MODULE MODI_READ_EXSPA !###################### @@ -98,6 +93,7 @@ END MODULE MODI_READ_EXSPA !! Modification 07/07/05 (D.Barbary) spawn with 2 input files (father+son1) !! Modification 30/03/12 (S.Bielli) add NAM_NCOUT for netcdf output (removed 08/07/2016) !! Modification 08/07/2016 (P.Wautelet) removed MNH_NCWRIT define +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90 index 39b434db7..b8e0e4f69 100644 --- a/src/MNH/read_field.f90 +++ b/src/MNH/read_field.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -237,6 +237,7 @@ END MODULE MODI_READ_FIELD !! M. Leriche 02/16 treat gas and aq. chemicals separately !! C.Lac 10/16 CEN4TH with RKC4 + Correction on RK loop !! 09/2017 Q.Rodier add LTEND_UV_FRC +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/read_grid_time_mesonh_case.f90 b/src/MNH/read_grid_time_mesonh_case.f90 index 0f09efecc..e083859ba 100644 --- a/src/MNH/read_grid_time_mesonh_case.f90 +++ b/src/MNH/read_grid_time_mesonh_case.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/05/18 13:07:25 -!----------------------------------------------------------------- !##################################### MODULE MODI_READ_GRID_TIME_MESONH_CASE !##################################### @@ -86,6 +81,7 @@ END MODULE MODI_READ_GRID_TIME_MESONH_CASE !! 21/09/99 (V. Masson) possibility to have atm. file included !! in the PGD file !! 01/2004 (V. Masson) removes surface (externalization) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/read_hgrid.f90 b/src/MNH/read_hgrid.f90 index d2b9555e9..e8b64f378 100644 --- a/src/MNH/read_hgrid.f90 +++ b/src/MNH/read_hgrid.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ###################### MODULE MODI_READ_HGRID ! ###################### @@ -80,6 +75,7 @@ END MODULE MODI_READ_HGRID !! Original 26/09/96 !! M.Faivre 2014 !! G.Delautier 2017 BUG for MNH2LPDM +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/read_hgridn.f90 b/src/MNH/read_hgridn.f90 index 9c141e4ce..6d10da610 100644 --- a/src/MNH/read_hgridn.f90 +++ b/src/MNH/read_hgridn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ####################### MODULE MODI_READ_HGRID_n ! ####################### @@ -77,6 +73,7 @@ END MODULE MODI_READ_HGRID_n !! M.Faivre 2014 !! M.Moge 06/2015 case ( CPROGRAM .EQ. "NESPGD" .OR. CPROGRAM .EQ. "SPAWN ") !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/read_prc_fmfile.f90 b/src/MNH/read_prc_fmfile.f90 index 50274d6a0..e78dd974a 100644 --- a/src/MNH/read_prc_fmfile.f90 +++ b/src/MNH/read_prc_fmfile.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ########################### MODULE MODI_READ_PRC_FMFILE ! ########################### @@ -95,6 +91,7 @@ END MODULE MODI_READ_PRC_FMFILE !! 05/2006 Remove EPS !! 2014 (M.Faivre) !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/read_precip_field.f90 b/src/MNH/read_precip_field.f90 index c56b72cc8..782175957 100644 --- a/src/MNH/read_precip_field.f90 +++ b/src/MNH/read_precip_field.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/read_precip_field.f90,v $ $Revision: 1.1.8.2.2.1.2.1.12.2 $ -! MASDEV4_7 init 2007/03/22 18:24:54 -!----------------------------------------------------------------- ! ############################# MODULE MODI_READ_PRECIP_FIELD ! ############################# @@ -97,6 +92,7 @@ END MODULE MODI_READ_PRECIP_FIELD !! (JP Pinty) 29/11/02 add C3R5, ICE2, ICE4 !! (C.Lac) 04/03/13 add YGETxxx for FIT scheme !! 10/2016 (C.Lac) Add droplet deposition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !----------------------------------------------------------------------------- ! diff --git a/src/MNH/read_surf_mnh.f90 b/src/MNH/read_surf_mnh.f90 index 85307ce6c..9681748fb 100644 --- a/src/MNH/read_surf_mnh.f90 +++ b/src/MNH/read_surf_mnh.f90 @@ -1,7 +1,11 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2003-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- +! Modifications: +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O +!----------------------------------------------------------------- MODULE MODE_READ_SURF_MNH_TOOLS IMPLICIT NONE diff --git a/src/MNH/read_ver_grid.f90 b/src/MNH/read_ver_grid.f90 index 2593caab7..e03293b38 100644 --- a/src/MNH/read_ver_grid.f90 +++ b/src/MNH/read_ver_grid.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/08/30 18:43:25 -!----------------------------------------------------------------- ! ######################### MODULE MODI_READ_VER_GRID ! ######################### @@ -100,6 +95,7 @@ END MODULE MODI_READ_VER_GRID !! Aug. 10, 1996 (V. Masson) add LTHINSHELL in namelist !! Oct, 25, 1996 (V.Masson) deallocations !! Oct. 10, 2001 (I.Mallet) allow namelists in different orders +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/rel_forcingn.f90 b/src/MNH/rel_forcingn.f90 index b676884ff..007380464 100644 --- a/src/MNH/rel_forcingn.f90 +++ b/src/MNH/rel_forcingn.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2010-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -92,6 +92,7 @@ END MODULE MODI_REL_FORCING_n !! Original 08/11/10 !! 28/03/2018 P. Wautelet: replace TEMPORAL_DIST by DATETIME_DISTANCE !! use overloaded comparison operator for date_time +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/removal_vortex.f90 b/src/MNH/removal_vortex.f90 index c79d1f8dd..5fd49d381 100644 --- a/src/MNH/removal_vortex.f90 +++ b/src/MNH/removal_vortex.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2001-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/08/31 14:22:53 -!----------------------------------------------------------------- ! ########################## MODULE MODI_REMOVAL_VORTEX ! ########################## @@ -72,6 +67,7 @@ END MODULE MODI_REMOVAL_VORTEX !! MODIFICATIONS !! ------------- !! Original 01/12/01 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/reset_exseg.f90 b/src/MNH/reset_exseg.f90 index f205b8aca..5fe5ad949 100644 --- a/src/MNH/reset_exseg.f90 +++ b/src/MNH/reset_exseg.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2000-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/06/19 11:51:08 -!----------------------------------------------------------------- ! ####################### MODULE MODI_RESET_EXSEG ! ####################### @@ -60,6 +55,7 @@ END MODULE MODI_RESET_EXSEG !! ------------- !! Original 14/09/00 !! Modifications 04/06/02 (P Jabouille) reset radiation and convective options +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/resolved_cloud.f90 b/src/MNH/resolved_cloud.f90 index 1247a5b56..f1f303e01 100644 --- a/src/MNH/resolved_cloud.f90 +++ b/src/MNH/resolved_cloud.f90 @@ -1,8 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! $Source: /srv/cvsroot/MNH-VX-Y-Z/src/MNH/resolved_cloud.f90,v $ !----------------------------------------------------------------- ! ########################## MODULE MODI_RESOLVED_CLOUD @@ -251,6 +250,7 @@ END MODULE MODI_RESOLVED_CLOUD !! Modification 01/2016 (JP Pinty) Add LIMA !! 10/2016 M.Mazoyer New KHKO output fields !! 10/2016 (C.Lac) Add droplet deposition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! diff --git a/src/MNH/resolved_elecn.f90 b/src/MNH/resolved_elecn.f90 index 315c71bb5..69b069d27 100644 --- a/src/MNH/resolved_elecn.f90 +++ b/src/MNH/resolved_elecn.f90 @@ -1,5 +1,4 @@ - -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2009-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -166,6 +165,7 @@ END MODULE MODI_RESOLVED_ELEC_n !! M. Chong 26/01/10 Add Small ions parameters !! M. Chong 31/07/14 Add explicit LiNOx !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/retrieve2_nest_infon.f90 b/src/MNH/retrieve2_nest_infon.f90 index c6321f788..9464e0431 100644 --- a/src/MNH/retrieve2_nest_infon.f90 +++ b/src/MNH/retrieve2_nest_infon.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/retrieve2_nest_infon.f90,v $ $Revision: 1.2.2.1.2.1.18.2.2.1 $ -!----------------------------------------------------------------- ! ################################ MODULE MODI_RETRIEVE2_NEST_INFO_n ! ################################ @@ -94,6 +90,7 @@ END MODULE MODI_RETRIEVE2_NEST_INFO_n !! M.Faivre 2014 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! J.Escobar : 01/06/2016 : Bug in type of ZBUF INTEGER => REAL & use MPI_PRECISION for r4/R8 compatibility +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/rms_at_z.f90 b/src/MNH/rms_at_z.f90 index 8e4ac658f..94cbf8211 100644 --- a/src/MNH/rms_at_z.f90 +++ b/src/MNH/rms_at_z.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/05/18 13:07:25 -!----------------------------------------------------------------- !################### MODULE MODI_RMS_AT_Z !################### @@ -66,6 +61,7 @@ END MODULE MODI_RMS_AT_Z !! and does not use external points !! 26/08/97 (V. Masson) call to new linear vertical !! interpolation routine +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/select_avg_pgd.f90 b/src/MNH/select_avg_pgd.f90 index 045f16296..61f255ae2 100644 --- a/src/MNH/select_avg_pgd.f90 +++ b/src/MNH/select_avg_pgd.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1997-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_pgd 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ############################# MODULE MODI_SELECT_AVG_PGD ! ############################# @@ -52,6 +47,7 @@ END MODULE MODI_SELECT_AVG_PGD !! ------------ !! !! Original 15/12/97 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !---------------------------------------------------------------------------- ! diff --git a/src/MNH/select_std_pgd.f90 b/src/MNH/select_std_pgd.f90 index 3dd7d97b6..355f99426 100644 --- a/src/MNH/select_std_pgd.f90 +++ b/src/MNH/select_std_pgd.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1997-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_pgd 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ########################## MODULE MODI_SELECT_STD_PGD ! ########################## @@ -53,6 +48,7 @@ END MODULE MODI_SELECT_STD_PGD !! Original 15/12/97 !! F.Solmon 06/00 patch approach : Rq !! value of surface variable are atributed to NPT_USER class +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATION diff --git a/src/MNH/seriesn.f90 b/src/MNH/seriesn.f90 index 455cb1c7c..9fff8dfb8 100644 --- a/src/MNH/seriesn.f90 +++ b/src/MNH/seriesn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 series 2006/10/16 14:23:23 -!----------------------------------------------------------------- ! ################### SUBROUTINE SERIES_n ! ################### @@ -44,6 +39,7 @@ !! 06/2016 (G.Delautier) phasage surfex 8 !! 01/2018 (G.Delautier) SURFEX 8.1 !! 03/2018 (P.Wautelet) replace TEMPORAL_DIST by DATETIME_DISTANCE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/set_advfrc.f90 b/src/MNH/set_advfrc.f90 index 899127565..fbdd5d92a 100644 --- a/src/MNH/set_advfrc.f90 +++ b/src/MNH/set_advfrc.f90 @@ -1,11 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -!----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ !----------------------------------------------------------------- MODULE MODI_SETADVFRC ! ################### @@ -75,6 +71,7 @@ END MODULE MODI_SETADVFRC !! 03/02/10 (Tomasini) USE MODDB_ADVFRC_n for grid-nesting !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! P.Wautelet 28/03/2018 : use overloaded comparison operator for date_time +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/set_bogus_vortex.f90 b/src/MNH/set_bogus_vortex.f90 index d5d6d5f3d..28ae29f47 100644 --- a/src/MNH/set_bogus_vortex.f90 +++ b/src/MNH/set_bogus_vortex.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2001-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ############################ MODULE MODI_SET_BOGUS_VORTEX ! ############################ @@ -70,6 +66,7 @@ END MODULE MODI_SET_BOGUS_VORTEX !! Modification 01/02/08 (D.Barbary) Add convergence angle in bogus !! and use modd_hurr_param for Holland's parameters !! 20/02/08 (D.Barbary) Change condition of ZRADBOGMAX +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/set_chemaq_1way.f90 b/src/MNH/set_chemaq_1way.f90 index bbb1c28ed..55dab5387 100644 --- a/src/MNH/set_chemaq_1way.f90 +++ b/src/MNH/set_chemaq_1way.f90 @@ -1,8 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2009-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! $Source$ $Date$ !----------------------------------------------------------------- ! ########################### MODULE MODI_SET_CHEMAQ_1WAY @@ -71,6 +70,7 @@ END MODULE MODI_SET_CHEMAQ_1WAY !! MODIFICATIONS !! ------------- !! Original 18/11/09 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/set_conc_ice_c1r3.f90 b/src/MNH/set_conc_ice_c1r3.f90 index 78954abd6..ac965cb2e 100644 --- a/src/MNH/set_conc_ice_c1r3.f90 +++ b/src/MNH/set_conc_ice_c1r3.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2001-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 microph 2006/07/12 18:36:22 -!----------------------------------------------------------------- ! ############################# MODULE MODI_SET_CONC_ICE_C1R3 ! ############################# @@ -73,6 +68,7 @@ END MODULE MODI_SET_CONC_ICE_C1R3 !! MODIFICATIONS !! ------------- !! Original 15/04/01 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/set_conc_lima.f90 b/src/MNH/set_conc_lima.f90 index dcc096885..5fdfc4247 100644 --- a/src/MNH/set_conc_lima.f90 +++ b/src/MNH/set_conc_lima.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 2000-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ####################################### MODULE MODI_SET_CONC_LIMA ! ####################################### @@ -72,6 +77,7 @@ END MODULE MODI_SET_CONC_LIMA !! ------------- !! Original 15/11/00 !! 2014 G.Delautier : remplace MODD_RAIN_C2R2_PARAM par MODD_RAIN_C2R2_KHKO_PARAM +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/set_conc_rain_c2r2.f90 b/src/MNH/set_conc_rain_c2r2.f90 index 5c0c0a465..1f1b72c74 100644 --- a/src/MNH/set_conc_rain_c2r2.f90 +++ b/src/MNH/set_conc_rain_c2r2.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2000-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 microph 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ####################################### MODULE MODI_SET_CONC_RAIN_C2R2 ! ####################################### @@ -83,6 +78,7 @@ END MODULE MODI_SET_CONC_RAIN_C2R2 !! ------------- !! Original 15/11/00 !! 2014 G.Delautier : remplace MODD_RAIN_C2R2_PARAM par MODD_RAIN_C2R2_KHKO_PARAM +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/set_cstn.f90 b/src/MNH/set_cstn.f90 index f03f38356..66ad7d4cc 100644 --- a/src/MNH/set_cstn.f90 +++ b/src/MNH/set_cstn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! #################### MODULE MODI_SET_CSTN ! #################### @@ -167,6 +163,7 @@ END MODULE MODI_SET_CSTN !! mixed grid (PREP_REAL_CASE method) !! V.Masson 12/08/13 Parallelization of the initilization profile !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/set_frc.f90 b/src/MNH/set_frc.f90 index 13e80af36..a78aed447 100644 --- a/src/MNH/set_frc.f90 +++ b/src/MNH/set_frc.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 forcing 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################### MODULE MODI_SET_FRC ! ################### @@ -99,6 +94,7 @@ END MODULE MODI_SET_FRC !! 09/2017 Q.Rodier add LTEND_UV_FRC !! 27/11/17 (Chaboureau) fix bug in allocation relative to LTEND_UV_FRC !! 28/03/2018 (P.Wautelet) use overloaded comparison operator for date_time +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/set_geosbal.f90 b/src/MNH/set_geosbal.f90 index a6e10c6ca..4c0316cd6 100644 --- a/src/MNH/set_geosbal.f90 +++ b/src/MNH/set_geosbal.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_ideal 2006/07/06 15:17:49 -!----------------------------------------------------------------- ! #################### MODULE MODI_SET_GEOSBAL ! #################### @@ -251,6 +246,7 @@ END MODULE MODI_SET_GEOSBAL !! Original : oct 2010 !! crée à partir de l'ancienne routine set_mass.f90 en prenant la partie !! concernant la balance geostrophique uniquement +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/set_grid.f90 b/src/MNH/set_grid.f90 index 1e2d99424..9951b1470 100644 --- a/src/MNH/set_grid.f90 +++ b/src/MNH/set_grid.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:30 -!----------------------------------------------------------------- ! #################### MODULE MODI_SET_GRID ! #################### @@ -232,6 +227,7 @@ END MODULE MODI_SET_GRID !! J. STEIN 01/02/99 change the orography at the boundary for the !! grid-nesting lbc !! V.MASSON 12/10/00 read of the orography in all cases, even if LFLAT=T +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/set_mass.f90 b/src/MNH/set_mass.f90 index b5f9efbaa..afcc068fe 100644 --- a/src/MNH/set_mass.f90 +++ b/src/MNH/set_mass.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2010-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -117,6 +117,7 @@ SUBROUTINE SET_MASS(TPFILE,OPROFILE_IN_PROC, PZFLUX_PROFILE, !! V.Masson 12/08/13 Parallelization of the initilization profile !! M.Moge 08/2015 add UPDATE_HALO_ll on XTHT, ZTHV3D, XRT(:,:,1,:) after computation !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- !! diff --git a/src/MNH/set_msk.f90 b/src/MNH/set_msk.f90 index 001b22ab5..6f381239c 100644 --- a/src/MNH/set_msk.f90 +++ b/src/MNH/set_msk.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ######spl MODULE MODI_SET_MSK !#################### @@ -72,6 +68,7 @@ END MODULE MODI_SET_MSK !! precipitating anvils as stratiform part !! O. Caumont 09/04/08 Use in RADAR_SIMULATOR !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/set_perturb.f90 b/src/MNH/set_perturb.f90 index 1d28b2653..863dcbef7 100644 --- a/src/MNH/set_perturb.f90 +++ b/src/MNH/set_perturb.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ####################### MODULE MODI_SET_PERTURB ! ####################### @@ -98,6 +94,7 @@ END MODULE MODI_SET_PERTURB !! J.Escobar 25/03/2012 optim. parallelization of White noise !! J.Escobar 27/03/2012 force identical random seed & correct XOR/YOR global shift !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/set_ref.f90 b/src/MNH/set_ref.f90 index fb9511165..f666cb6f1 100644 --- a/src/MNH/set_ref.f90 +++ b/src/MNH/set_ref.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- !################### MODULE MODI_SET_REF !################### @@ -152,6 +148,7 @@ END MODULE MODI_SET_REF !! Modification 07/13 (J.Colin) Special case for LBOUSS=T !! Modification 07/13 (M.Moge) calling UPDATE_HALO_ll on PRHODJ, PRVREF, !! PRHODREF, PEXNREF, PTHVREF after computation +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/set_refz.f90 b/src/MNH/set_refz.f90 index a3457ab97..d0b12152e 100644 --- a/src/MNH/set_refz.f90 +++ b/src/MNH/set_refz.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! #################### MODULE MODI_SET_REFZ ! #################### @@ -122,6 +117,7 @@ END MODULE MODI_SET_REFZ !! at MINLEVEL, keep 0 for lower levels !! (for ideal case) !! 2014 (M.Faivre) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/set_relfrc.f90 b/src/MNH/set_relfrc.f90 index b794a789f..a87a28a7d 100644 --- a/src/MNH/set_relfrc.f90 +++ b/src/MNH/set_relfrc.f90 @@ -1,11 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -!----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ !----------------------------------------------------------------- MODULE MODI_SET_RELFRC ! ################### @@ -75,6 +71,7 @@ END MODULE MODI_SET_RELFRC !! 03/02/10 (Tomasini) USE MODD_RELFRC_n for grid-nesting !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! P.Wautelet 28/03/2018 : use overloaded comparison operator for date_time +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/set_rsou.f90 b/src/MNH/set_rsou.f90 index b4d647e20..8a16aa38e 100644 --- a/src/MNH/set_rsou.f90 +++ b/src/MNH/set_rsou.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! #################### MODULE MODI_SET_RSOU ! #################### @@ -246,6 +242,7 @@ END MODULE MODI_SET_RSOU !! add PUVTHU case !! V.Masson 12/08/13 Parallelization of the initilization profile !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/set_subdomain.f90 b/src/MNH/set_subdomain.f90 index 458c0dda9..5eb20fb6d 100644 --- a/src/MNH/set_subdomain.f90 +++ b/src/MNH/set_subdomain.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 newsrc 2006/05/23 10:51:27 -!----------------------------------------------------------------- ! ######################### MODULE MODI_SET_SUBDOMAIN ! ######################### @@ -84,6 +79,7 @@ END MODULE MODI_SET_SUBDOMAIN !! 15/10/01 Allow namelists in different orders (I. Mallet) !! 30/10/03 No more used in masdev4_6 version (V. Masson) !! 30/11/04 Used again in masdev4_7 version (V. Masson) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/setlb_lg.f90 b/src/MNH/setlb_lg.f90 index 1227d7518..89bb3d3ec 100644 --- a/src/MNH/setlb_lg.f90 +++ b/src/MNH/setlb_lg.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 lbc 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################### SUBROUTINE SETLB_LG ! ################### diff --git a/src/MNH/shallow_mf_pack.f90 b/src/MNH/shallow_mf_pack.f90 index 9f240bea7..57e35dff8 100644 --- a/src/MNH/shallow_mf_pack.f90 +++ b/src/MNH/shallow_mf_pack.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2010-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -113,6 +113,7 @@ END MODULE MODI_SHALLOW_MF_PACK !! Modification R. Honnert 07/2012 : introduction of vertical wind !! for the height of the thermal !! M. Leriche 02/2017 : avoid negative values for sv tendencies +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/spawn_field2.f90 b/src/MNH/spawn_field2.f90 index 05c47bd8d..8d2031dce 100644 --- a/src/MNH/spawn_field2.f90 +++ b/src/MNH/spawn_field2.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -148,6 +148,7 @@ END MODULE MODI_SPAWN_FIELD2 !! Modification 15/04/2016 (P.Tulet) bug allocation ZSVT_C !! 29/04/2016 (J.Escobar) bug in use of ZSVT_C in SET_LSFIELD_1WAY_ll !! Modification 01/2016 (JP Pinty) Add LIMA +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/spawn_grid2.f90 b/src/MNH/spawn_grid2.f90 index 6b3a51a10..3a12eae81 100644 --- a/src/MNH/spawn_grid2.f90 +++ b/src/MNH/spawn_grid2.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- !###################### MODULE MODI_SPAWN_GRID2 !###################### @@ -149,6 +145,7 @@ END MODULE MODI_SPAWN_GRID2 !! Modification 24/02/15 (M.Moge) parallelization !! Modification 10/06/15 (M.Moge) bug fix for reproductibility !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/spawn_model2.f90 b/src/MNH/spawn_model2.f90 index ba56be923..26039717c 100644 --- a/src/MNH/spawn_model2.f90 +++ b/src/MNH/spawn_model2.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -190,6 +190,7 @@ END MODULE MODI_SPAWN_MODEL2 !! J.Escobar 12/07/2016 : add test on NRIMY & change the one on NRIMX with >= !! Modification 01/2016 (JP Pinty) Add LIMA !! 10/2016 (C.Lac) Add droplet deposition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/spawn_pressure2.f90 b/src/MNH/spawn_pressure2.f90 index 23d25ac16..e2af77d73 100644 --- a/src/MNH/spawn_pressure2.f90 +++ b/src/MNH/spawn_pressure2.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1997-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 spawn 2006/05/23 15:36:44 -!----------------------------------------------------------------- !####################### MODULE MODI_SPAWN_PRESSURE2 !####################### @@ -106,6 +101,7 @@ END MODULE MODI_SPAWN_PRESSURE2 !! Modification 20/05/06 Remove Clark and Farley interpolation !! 2014 (M.Faivre) parallelization !! 10/02/15 (M.Moge) correction of M.Faivre's parallelization attempt +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/spawn_surf.f90 b/src/MNH/spawn_surf.f90 index 95ef4b497..f9e126c20 100644 --- a/src/MNH/spawn_surf.f90 +++ b/src/MNH/spawn_surf.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2004-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 newsrc 2006/05/23 16:20:13 -!----------------------------------------------------------------- !######################## MODULE MODI_SPAWN_SURF !######################## @@ -72,6 +67,7 @@ END MODULE MODI_SPAWN_SURF !! 06/2016 (G.Delautier) phasage surfex 8 !! P.Wautelet 08/07/2016 : removed MNH_NCWRIT define !! 01/2018 (G.Delautier) SURFEX 8.1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/spawn_surf2_rain.f90 b/src/MNH/spawn_surf2_rain.f90 index aadc0f6e7..7d3c5dfab 100644 --- a/src/MNH/spawn_surf2_rain.f90 +++ b/src/MNH/spawn_surf2_rain.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2004-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/spawn_surf2_rain.f90,v $ $Revision: 1.2.2.3.2.1.18.3 $ -! MASDEV4_7 spawn 2007/03/22 18:43:45 -!----------------------------------------------------------------- !########################### MODULE MODI_SPAWN_SURF2_RAIN !########################### @@ -112,6 +107,7 @@ END MODULE MODI_SPAWN_SURF2_RAIN !! Modification 2014 (M.Faivre) !! J.Escobar 2/05/2016 : bug in use of global/local bounds for call of BIKHARDT !! C.Lac 10/2016 : Add droplet deposition for fog +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/spawn_zs.f90 b/src/MNH/spawn_zs.f90 index 7f0362255..63bd460af 100644 --- a/src/MNH/spawn_zs.f90 +++ b/src/MNH/spawn_zs.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2005-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- !################### MODULE MODI_SPAWN_ZS !################### @@ -101,6 +97,7 @@ END MODULE MODI_SPAWN_ZS ! Modification 2014 M.Faivre : parallelizattion attempt ! Modification 10/02/15 M. Moge : paralellization !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/spawning.f90 b/src/MNH/spawning.f90 index faedc7418..cbd533417 100644 --- a/src/MNH/spawning.f90 +++ b/src/MNH/spawning.f90 @@ -1,8 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! $Source$ $Revision$ $Date$ !----------------------------------------------------------------- ! ################ PROGRAM SPAWNING @@ -74,6 +73,7 @@ !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files !! 06/2016 (G.Delautier) phasage surfex 8 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/spec_ver_int.f90 b/src/MNH/spec_ver_int.f90 index 7f9a2860d..abd3ed1e0 100644 --- a/src/MNH/spec_ver_int.f90 +++ b/src/MNH/spec_ver_int.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2000-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 les 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################# MODULE MODI_SPEC_VER_INT ! ################# @@ -54,6 +49,7 @@ END MODULE MODI_SPEC_VER_INT !! MODIFICATIONS !! ------------- !! Original 07/02/00 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/spectre.f90 b/src/MNH/spectre.f90 index d3f31de60..cb1fed073 100644 --- a/src/MNH/spectre.f90 +++ b/src/MNH/spectre.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -15,6 +15,8 @@ !! !! !! +!! Modifications: +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/spectre_arome.f90 b/src/MNH/spectre_arome.f90 index 61846877d..0ebcff242 100644 --- a/src/MNH/spectre_arome.f90 +++ b/src/MNH/spectre_arome.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -23,6 +23,8 @@ END MODULE SUBROUTINE SPECTRE_AROME(HINIFILE,HOUTFILE,PDELTAX,PDELTAY,KI,KJ,KK) ! ###################################################################### ! +! Modifications: +! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! USE MODD_CONF USE MODE_FM diff --git a/src/MNH/stationn.f90 b/src/MNH/stationn.f90 index 2c7d26fd4..c82827ccb 100644 --- a/src/MNH/stationn.f90 +++ b/src/MNH/stationn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 profiler 2006/10/24 10:08:52 -!----------------------------------------------------------------- ! ########################## MODULE MODI_STATION_n ! ########################## @@ -90,6 +85,7 @@ END MODULE MODI_STATION_n !! C.Lac 04/2013 : Correction on the vertical levels !! C.Lac 04/2013 : Add I/J positioning !! P.Wautelet 28/03/2018 : Replace TEMPORAL_DIST by DATETIME_DISTANCE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/tke_eps_sources.f90 b/src/MNH/tke_eps_sources.f90 index b2e897454..bedd4c18b 100644 --- a/src/MNH/tke_eps_sources.f90 +++ b/src/MNH/tke_eps_sources.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/06/06 10:02:03 -!----------------------------------------------------------------- ! ########################### MODULE MODI_TKE_EPS_SOURCES ! ########################### @@ -173,6 +168,7 @@ END MODULE MODI_TKE_EPS_SOURCES !! vertical levels !! 2015-01 (J. Escobar) missing get_halo(ZRES) for JPHEXT<> 1 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/total_dmass.f90 b/src/MNH/total_dmass.f90 index f54de98b0..84fbd8515 100644 --- a/src/MNH/total_dmass.f90 +++ b/src/MNH/total_dmass.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_ideal 2006/07/17 13:23:16 -!----------------------------------------------------------------- ! ####################### MODULE MODI_TOTAL_DMASS ! ####################### @@ -80,6 +75,7 @@ END MODULE MODI_TOTAL_DMASS !! ------------- !! Original 06/02/95 !! J.-P. Pinty 16/12/99 Parallelization +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/trid.f90 b/src/MNH/trid.f90 index f6a77a1d2..3f57d6a9c 100644 --- a/src/MNH/trid.f90 +++ b/src/MNH/trid.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################ MODULE MODI_TRID ! ################ @@ -165,6 +160,7 @@ END MODULE MODI_TRID !! PBFY transposition !! 14/03/02 (P. Jabouille) set values for meaningless spectral coefficients !! (to avoid problem in bouissinesq configuration) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------ ! !* 0. DECLARATIONS diff --git a/src/MNH/tridz.f90 b/src/MNH/tridz.f90 index 7428f6db2..c72b59870 100644 --- a/src/MNH/tridz.f90 +++ b/src/MNH/tridz.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! ################ MODULE MODI_TRIDZ ! ################ @@ -173,6 +169,7 @@ END MODULE MODI_TRIDZ !! 14/03/02 (P. Jabouille) set values for meaningless spectral coefficients !! (to avoid problem in bouissinesq configuration) !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------ ! !* 0. DECLARATIONS diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90 index fba4c9791..da1295a64 100644 --- a/src/MNH/turb.f90 +++ b/src/MNH/turb.f90 @@ -1,7 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ################ MODULE MODI_TURB ! ################ @@ -339,6 +340,7 @@ END MODULE MODI_TURB !! 10/2012 (J. Colin) Correct bug in DearDoff for dry simulations !! 10/2012 J.Escobar Bypass PGI bug , redefine some allocatable array inplace of automatic !! 04/2016 (C.Lac) correction of negativity for KHKO +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_cloud_index.f90 b/src/MNH/turb_cloud_index.f90 index 2a465f39f..b9a42c2fc 100644 --- a/src/MNH/turb_cloud_index.f90 +++ b/src/MNH/turb_cloud_index.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/06/06 15:18:53 -!----------------------------------------------------------------- ! ################ MODULE MODI_TURB_CLOUD_INDEX ! ################ @@ -86,6 +81,7 @@ END MODULE MODI_TURB_CLOUD_INDEX !! MODIFICATIONS !! ------------- !! Original 15/09/94 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O ! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/turb_hor.f90 b/src/MNH/turb_hor.f90 index 8551bc98f..bc99e3bfc 100644 --- a/src/MNH/turb_hor.f90 +++ b/src/MNH/turb_hor.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! #################### MODULE MODI_TURB_HOR ! #################### @@ -252,6 +247,7 @@ END MODULE MODI_TURB_HOR !! Nov 27, 1997 (V. Masson) clearing of the routine !! Nov 06, 2002 (V. Masson) LES budgets !! Feb 20, 2003 (JP Pinty) Add PFRAC_ICE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_hor_dyn_corr.f90 b/src/MNH/turb_hor_dyn_corr.f90 index 134548114..089740f72 100644 --- a/src/MNH/turb_hor_dyn_corr.f90 +++ b/src/MNH/turb_hor_dyn_corr.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- MODULE MODI_TURB_HOR_DYN_CORR ! INTERFACE @@ -139,6 +135,7 @@ END MODULE MODI_TURB_HOR_DYN_CORR !! March 2014 (V.Masson) tridiag_w : bug between !! mass and flux position !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_hor_splt.f90 b/src/MNH/turb_hor_splt.f90 index 4d029f060..88158afa3 100644 --- a/src/MNH/turb_hor_splt.f90 +++ b/src/MNH/turb_hor_splt.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ######################### MODULE MODI_TURB_HOR_SPLT ! ######################### @@ -252,6 +248,7 @@ END MODULE MODI_TURB_HOR_SPLT !! Oct.2009 (C.Lac) Introduction of different PTSTEP according to the !! advection schemes !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_hor_sv_flux.f90 b/src/MNH/turb_hor_sv_flux.f90 index df80e3097..55f2b3947 100644 --- a/src/MNH/turb_hor_sv_flux.f90 +++ b/src/MNH/turb_hor_sv_flux.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ############################ MODULE MODI_TURB_HOR_SV_FLUX ! ############################ @@ -111,6 +106,7 @@ END MODULE MODI_TURB_HOR_SV_FLUX !! Nov 06, 2002 (V. Masson) LES budgets !! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after !! change of YCOMMENT +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_hor_thermo_corr.f90 b/src/MNH/turb_hor_thermo_corr.f90 index 646f08eb7..3f19fbe1b 100644 --- a/src/MNH/turb_hor_thermo_corr.f90 +++ b/src/MNH/turb_hor_thermo_corr.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################################ MODULE MODI_TURB_HOR_THERMO_CORR ! ################################ @@ -119,7 +114,7 @@ END MODULE MODI_TURB_HOR_THERMO_CORR !! Feb 20, 2003 (JP Pinty) Add PFRAC_ICE !! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after !! change of YCOMMENT - +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_hor_thermo_flux.f90 b/src/MNH/turb_hor_thermo_flux.f90 index 02864bfff..6bb5399da 100644 --- a/src/MNH/turb_hor_thermo_flux.f90 +++ b/src/MNH/turb_hor_thermo_flux.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################################ MODULE MODI_TURB_HOR_THERMO_FLUX ! ################################ @@ -128,6 +123,7 @@ END MODULE MODI_TURB_HOR_THERMO_FLUX !! Feb 20, 2003 (JP Pinty) Add PFRAC_ICE !! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after !! change of YCOMMENT +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_hor_uv.f90 b/src/MNH/turb_hor_uv.f90 index 88368aca6..5211fa740 100644 --- a/src/MNH/turb_hor_uv.f90 +++ b/src/MNH/turb_hor_uv.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ####################### MODULE MODI_TURB_HOR_UV ! ####################### @@ -124,6 +119,7 @@ END MODULE MODI_TURB_HOR_UV !! Nov 27, 1997 (V. Masson) clearing of the routine !! Oct 18, 2000 (V. Masson) LES computations + LFLAT switch !! Nov 06, 2002 (V. Masson) LES budgets +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_hor_uw.f90 b/src/MNH/turb_hor_uw.f90 index 0a9b1b27f..a4d369506 100644 --- a/src/MNH/turb_hor_uw.f90 +++ b/src/MNH/turb_hor_uw.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ####################### MODULE MODI_TURB_HOR_UW ! ####################### @@ -115,6 +110,7 @@ END MODULE MODI_TURB_HOR_UW !! Nov 06, 2002 (V. Masson) LES budgets !! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after !! change of YCOMMENT +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_hor_vw.f90 b/src/MNH/turb_hor_vw.f90 index 42f219dba..dc413d468 100644 --- a/src/MNH/turb_hor_vw.f90 +++ b/src/MNH/turb_hor_vw.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ####################### MODULE MODI_TURB_HOR_VW ! ####################### @@ -111,6 +106,7 @@ END MODULE MODI_TURB_HOR_VW !! Nov 06, 2002 (V. Masson) LES budgets !! October 2009 (G. Tanguy) add ILENCH=LEN(YCOMMENT) after !! change of YCOMMENT +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_ver.f90 b/src/MNH/turb_ver.f90 index c115be8d8..51b3acd23 100644 --- a/src/MNH/turb_ver.f90 +++ b/src/MNH/turb_ver.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/06/02 16:29:34 -!----------------------------------------------------------------- ! #################### MODULE MODI_TURB_VER ! #################### @@ -323,6 +318,7 @@ END MODULE MODI_TURB_VER !! reversed vertical levels !! 10/2012 (J.Escobar) Bypass PGI bug , redefine some allocatable array inplace of automatic !! 08/2014 (J.Escobar) Bypass PGI memory leak bug , replace IF statement with IF THEN ENDIF +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!-------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_ver_dyn_flux.f90 b/src/MNH/turb_ver_dyn_flux.f90 index e25fbcc9f..3cfc97228 100644 --- a/src/MNH/turb_ver_dyn_flux.f90 +++ b/src/MNH/turb_ver_dyn_flux.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! #################### MODULE MODI_TURB_VER_DYN_FLUX ! #################### @@ -284,6 +280,7 @@ END MODULE MODI_TURB_VER_DYN_FLUX !! change of YCOMMENT !! 2012-02 Y. Seity, add possibility to run with reversed vertical levels !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!-------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_ver_sv_flux.f90 b/src/MNH/turb_ver_sv_flux.f90 index bfeaf6fcf..21c4bc13f 100644 --- a/src/MNH/turb_ver_sv_flux.f90 +++ b/src/MNH/turb_ver_sv_flux.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- ! #################### MODULE MODI_TURB_VER_SV_FLUX ! #################### @@ -269,6 +264,7 @@ END MODULE MODI_TURB_VER_SV_FLUX !! Feb 2017(M. Leriche) add initialisation of ZSOURCE !! to avoid unknwon values outside physical domain !! and avoid negative values in sv tendencies +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!-------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_ver_thermo_corr.f90 b/src/MNH/turb_ver_thermo_corr.f90 index b525eeed8..ff672ba64 100644 --- a/src/MNH/turb_ver_thermo_corr.f90 +++ b/src/MNH/turb_ver_thermo_corr.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 turb 2006/06/06 09:29:42 -!----------------------------------------------------------------- ! #################### MODULE MODI_TURB_VER_THERMO_CORR ! #################### @@ -311,6 +306,7 @@ END MODULE MODI_TURB_VER_THERMO_CORR !! change of YCOMMENT !! 2012-02 (Y. Seity) add possibility to run with reversed !! vertical levels +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!-------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/turb_ver_thermo_flux.f90 b/src/MNH/turb_ver_thermo_flux.f90 index 4b0c48201..7e5206e0d 100644 --- a/src/MNH/turb_ver_thermo_flux.f90 +++ b/src/MNH/turb_ver_thermo_flux.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- ! #################### MODULE MODI_TURB_VER_THERMO_FLUX ! #################### @@ -328,6 +324,7 @@ END MODULE MODI_TURB_VER_THERMO_FLUX !! change of YCOMMENT !! 2012-02 (Y. Seity) add possibility to run with reversed !! vertical levels +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !!-------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/two_way.f90 b/src/MNH/two_way.f90 index 7d47d8131..7f47e2407 100644 --- a/src/MNH/two_way.f90 +++ b/src/MNH/two_way.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1999-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_8 nesting 2007/09/21 13:55:20 -!----------------------------------------------------------------- ! ################### MODULE MODI_TWO_WAY ! ################### @@ -97,6 +92,7 @@ END MODULE MODI_TWO_WAY !! hydrometeors, the Short and Long Wave !! + MASKkids array !! 20/05/06 Remove EPS +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------ ! diff --git a/src/MNH/two_wayn.f90 b/src/MNH/two_wayn.f90 index 0736f5146..ff6e46c09 100644 --- a/src/MNH/two_wayn.f90 +++ b/src/MNH/two_wayn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1997-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/two_wayn.f90,v $ $Revision: 1.3.2.4.2.2.2.3.8.1.2.3 $ -! masdev4_8 nesting 2008/06/30 12:08:25 -!----------------------------------------------------------------- ! ################### MODULE MODI_TWO_WAY_n ! ################### @@ -117,6 +112,7 @@ END MODULE MODI_TWO_WAY_n !! Bosseur & Filippi 07/2013 Adds Forefire !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! Modification 01/2016 (JP Pinty) Add LIMA +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------ ! !* 0. DECLARATIONS diff --git a/src/MNH/uv_to_zonal_and_merid.f90 b/src/MNH/uv_to_zonal_and_merid.f90 index a3dabbef2..c78aa754a 100644 --- a/src/MNH/uv_to_zonal_and_merid.f90 +++ b/src/MNH/uv_to_zonal_and_merid.f90 @@ -1,8 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2000-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! $Source$ $Revision$ $Date$ !----------------------------------------------------------------- ! ################################# MODULE MODI_UV_TO_ZONAL_AND_MERID @@ -94,6 +93,7 @@ END MODULE MODI_UV_TO_ZONAL_AND_MERID3D !! ------------- !! Original 02/11/00 !! N.Asencio 10/09/03 no pointer for PZC,PMC (no pointer in SHUMAN) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! @@ -269,6 +269,7 @@ END SUBROUTINE UV_TO_ZONAL_AND_MERID3D !! ------------- !! Original 02/11/00 !! I. Mallet 11/09/03 call to UV_ZONAL_AND_MERID3D +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/ver_dyn.f90 b/src/MNH/ver_dyn.f90 index a97b724b1..5b6911d3e 100644 --- a/src/MNH/ver_dyn.f90 +++ b/src/MNH/ver_dyn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ################### MODULE MODI_VER_DYN ! ################### @@ -131,6 +127,7 @@ END MODULE MODI_VER_DYN !! J.Stein 20:01/98 add the LS field interpolation !! M.Faivre 2014 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ver_int_dyn.f90 b/src/MNH/ver_int_dyn.f90 index 81c2cd1e2..4a564f410 100644 --- a/src/MNH/ver_int_dyn.f90 +++ b/src/MNH/ver_int_dyn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ######spl MODULE MODI_VER_INT_DYN ! ####################### @@ -97,6 +92,7 @@ END MODULE MODI_VER_INT_DYN !! Original 15/12/94 !! 26/08/97 (V. Masson) call to new linear vertical !! interpolation routine +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ver_int_thermo.f90 b/src/MNH/ver_int_thermo.f90 index 1a5fcb6d4..cb815488f 100644 --- a/src/MNH/ver_int_thermo.f90 +++ b/src/MNH/ver_int_thermo.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ########################## MODULE MODI_VER_INT_THERMO ! ########################## @@ -137,6 +133,7 @@ END MODULE MODI_VER_INT_THERMO !! 2014 (M.Faivre) !! 08/2015 (M.Moge) add UPDATE_HALO_ll(PR(:,:,:,1)) in part 6.3 !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ver_interp_to_mixed_grid.f90 b/src/MNH/ver_interp_to_mixed_grid.f90 index 7c776377f..7325b1acd 100644 --- a/src/MNH/ver_interp_to_mixed_grid.f90 +++ b/src/MNH/ver_interp_to_mixed_grid.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! #################################### MODULE MODI_VER_INTERP_TO_MIXED_GRID ! #################################### @@ -163,6 +159,7 @@ END MODULE MODI_VER_INTERP_TO_MIXED_GRID !! 24/04/2014 (J.escobar) bypass CRAY internal compiler error on IIJ computation !! 2014 (M.Faivre) !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ver_prep_gribex_case.f90 b/src/MNH/ver_prep_gribex_case.f90 index 32268f558..3abba8e86 100644 --- a/src/MNH/ver_prep_gribex_case.f90 +++ b/src/MNH/ver_prep_gribex_case.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision -! MASDEV4_7 prep_real 2006/05/23 14:49:51 -!----------------------------------------------------------------- ! ################################ MODULE MODI_VER_PREP_GRIBEX_CASE ! ################################ @@ -88,6 +83,7 @@ END MODULE MODI_VER_PREP_GRIBEX_CASE !! Nov, 22 2000 (I. Mallet) add scalar variables !! Nov, 22 2000 (P. Jabouille) change routine name !! May 2006 Remove EPS +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ver_prep_mesonh_case.f90 b/src/MNH/ver_prep_mesonh_case.f90 index 561f2e03f..5d532fbba 100644 --- a/src/MNH/ver_prep_mesonh_case.f90 +++ b/src/MNH/ver_prep_mesonh_case.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ################################ MODULE MODI_VER_PREP_MESONH_CASE ! ################################ @@ -83,6 +79,7 @@ END MODULE MODI_VER_PREP_MESONH_CASE !! Jul, 11 1997 (V. Masson) add scalar variables !! 2014 (M.Faivre) parallelization !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ver_prep_netcdf_case.f90 b/src/MNH/ver_prep_netcdf_case.f90 index f0aab51cd..df0f3b7fc 100644 --- a/src/MNH/ver_prep_netcdf_case.f90 +++ b/src/MNH/ver_prep_netcdf_case.f90 @@ -1,3 +1,8 @@ +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC for details. version 1. +!----------------------------------------------------------------- ! ################################ MODULE MODI_VER_PREP_NETCDF_CASE ! ################################ @@ -78,6 +83,7 @@ END MODULE MODI_VER_PREP_NETCDF_CASE !! Nov, 22 2000 (P. Jabouille) change routine name !! May 2006 Remove EPS !! Oct 2017 (J.Escobar) minor, missing USE MODI_SECOND_MNH +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/ver_thermo.f90 b/src/MNH/ver_thermo.f90 index 72c871414..b7a3dcd0e 100644 --- a/src/MNH/ver_thermo.f90 +++ b/src/MNH/ver_thermo.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ###################### MODULE MODI_VER_THERMO ! ###################### @@ -151,6 +147,7 @@ END MODULE MODI_VER_THERMO !! XRHODREF, XTHVREF, XRVREF, XEXNREF, XRHODJ !! because we now do it in SET_REF !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/version.f90 b/src/MNH/version.f90 index 1d0e9fd6f..61d0e50b7 100644 --- a/src/MNH/version.f90 +++ b/src/MNH/version.f90 @@ -1,8 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2017 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! $Source$ $Revision$ !----------------------------------------------------------------- ! ################## SUBROUTINE VERSION @@ -34,6 +33,7 @@ !! MODIFICATIONS !! ------------- !! Original 17/04/02 +!! Ph.Wautelet 26/09/2017 added NMNHVERSION !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/wguess.f90 b/src/MNH/wguess.f90 index 213bb02b1..189707fef 100644 --- a/src/MNH/wguess.f90 +++ b/src/MNH/wguess.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################## MODULE MODI_WGUESS ! ################## @@ -87,6 +82,7 @@ END MODULE MODI_WGUESS !! ------------- !! Original 15/12/94 !! 15/05/96 spread the residual divergence on the whole domain +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_aircraft_balloon.f90 b/src/MNH/write_aircraft_balloon.f90 index fc48eb4b9..79f94557b 100644 --- a/src/MNH/write_aircraft_balloon.f90 +++ b/src/MNH/write_aircraft_balloon.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2000-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/write_aircraft_balloon.f90,v $ $Revision: 1.2.2.3.2.1.2.2.10.1.2.2 $ -! masdev4_7 BUG1 2007/06/15 17:47:18 -!----------------------------------------------------------------- ! ########################### MODULE MODI_WRITE_AIRCRAFT_BALLOON ! ########################### @@ -67,6 +62,7 @@ END MODULE MODI_WRITE_AIRCRAFT_BALLOON !! aircraft, ballon and profiler !! Oct 2016 : G.Delautier LIMA !! August 2016 (M.Leriche) Add mass concentration of aerosol species +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/write_balloonn.f90 b/src/MNH/write_balloonn.f90 index 9b425c93a..3bfb6091a 100644 --- a/src/MNH/write_balloonn.f90 +++ b/src/MNH/write_balloonn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2001-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ########################### MODULE MODI_WRITE_BALLOON_n ! ########################### @@ -62,6 +57,7 @@ END MODULE MODI_WRITE_BALLOON_n !! MODIFICATIONS !! ------------- !! Original 06/06/01 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_budget.f90 b/src/MNH/write_budget.f90 index 9fa235897..54ea6b7a3 100644 --- a/src/MNH/write_budget.f90 +++ b/src/MNH/write_budget.f90 @@ -1,14 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ $Date$ -!----------------------------------------------------------------- -!----------------------------------------------------------------- -!----------------------------------------------------------------- !######################## MODULE MODI_WRITE_BUDGET !######################## @@ -130,7 +124,7 @@ END MODULE MODI_WRITE_BUDGET !! 24/03/2014 (J.Escobar ) miss placed deallocate in RSV budget !! 11/09/2015 (C.Lac) Correction due to FIT temporal scheme !! 28/03/2018 (P.Wautelet) Replace TEMPORAL_DIST by DATETIME_DISTANCE -!! +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/write_desfmn.f90 b/src/MNH/write_desfmn.f90 index cadcddd33..861d65f3e 100644 --- a/src/MNH/write_desfmn.f90 +++ b/src/MNH/write_desfmn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /srv/cvsroot/MNH-VX-Y-Z/src/MNH/write_desfmn.f90,v $ $Revision: 1.2.2.1.2.1.2.2.10.1.2.4 $ $Date: 2014/02/14 09:15:53 $ -!----------------------------------------------------------------- ! ######################### MODULE MODI_WRITE_DESFM_n ! ######################### @@ -145,6 +141,7 @@ END MODULE MODI_WRITE_DESFM_n !! Modification P. Tulet 01/2005 add dust, orilam !! Modification 05/2006 Remove EPS and OWRIGET !! Modification 01/2016 (JP Pinty) Add LIMA +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90 index 7798f209a..b14011321 100644 --- a/src/MNH/write_diachro.f90 +++ b/src/MNH/write_diachro.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 diachro 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################################################################# SUBROUTINE WRITE_DIACHRO(TPDIAFILE,TPLUOUTDIA,HGROUP,HTYPE, & KGRID,PDATIME,PVAR,PTRAJT, & @@ -72,6 +67,7 @@ !! D.Gazen+ G.Delautier 06/2016 modif for ncl files !! P. Wautelet 09/06/2017: name of the variable added to the name of the written field !! and better comment (true comment + units) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_dummy_gr_fieldn.f90 b/src/MNH/write_dummy_gr_fieldn.f90 index 3f863dd73..358a73cbc 100644 --- a/src/MNH/write_dummy_gr_fieldn.f90 +++ b/src/MNH/write_dummy_gr_fieldn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 init 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ########################### MODULE MODI_WRITE_DUMMY_GR_FIELD_n ! ########################### @@ -60,6 +55,7 @@ END MODULE MODI_WRITE_DUMMY_GR_FIELD_n !! Original 27/09/96 !! 15/03/99 (V. Masson) use of cover types ! 02/07/00 (F.Solmon) adaptation for patch variables +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_hgrid.f90 b/src/MNH/write_hgrid.f90 index 86fbeaea8..9315a86d1 100644 --- a/src/MNH/write_hgrid.f90 +++ b/src/MNH/write_hgrid.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:30 -!----------------------------------------------------------------- ! ####################### MODULE MODI_WRITE_HGRID ! ####################### @@ -55,6 +50,7 @@ END MODULE MODI_WRITE_HGRID !! ------------- !! Original 26/09/96 !! V.Masson 18/08/97 call to fmwrit directly with dates and strings +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_hgridn.f90 b/src/MNH/write_hgridn.f90 index c293c7fa3..92765f2f7 100644 --- a/src/MNH/write_hgridn.f90 +++ b/src/MNH/write_hgridn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:30 -!----------------------------------------------------------------- ! ######################## MODULE MODI_WRITE_HGRIDn ! ######################## @@ -68,6 +63,7 @@ END MODULE MODI_WRITE_HGRIDn !! ------------- !! Original 26/09/96 !! V.Masson 18/08/97 call to fmwrit directly with dates and strings +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_lbn.f90 b/src/MNH/write_lbn.f90 index b0f66ebc2..b4044c86b 100644 --- a/src/MNH/write_lbn.f90 +++ b/src/MNH/write_lbn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1998-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/write_lbn.f90,v $ $Revision: 1.2.2.4.2.2.2.2.10.1.2.2 $ -! masdev4_8 init 2008/06/30 12:13:35 -!----------------------------------------------------------------- ! ###################### MODULE MODI_WRITE_LB_n ! ###################### @@ -80,6 +75,7 @@ END MODULE MODI_WRITE_LB_n !! P. Tulet 09/14 modif SALT !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! J.-P. Pinty 09/02/16 Add LIMA that is LBC for CCN and IFN +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_les_budgetn.f90 b/src/MNH/write_les_budgetn.f90 index 2c7932ee6..5d99d63c7 100644 --- a/src/MNH/write_les_budgetn.f90 +++ b/src/MNH/write_les_budgetn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2000-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 les 2006/05/18 13:07:25 -!----------------------------------------------------------------- !###################### MODULE MODI_WRITE_LES_BUDGET_n !###################### @@ -55,6 +50,7 @@ END MODULE MODI_WRITE_LES_BUDGET_n !! ------------- !! Original 07/02/00 !! 06/11/02 (V. Masson) new LES budgets +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/write_les_rt_budgetn.f90 b/src/MNH/write_les_rt_budgetn.f90 index 88a029d3f..3d0306170 100644 --- a/src/MNH/write_les_rt_budgetn.f90 +++ b/src/MNH/write_les_rt_budgetn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 les 2006/05/18 13:07:25 -!----------------------------------------------------------------- !###################### MODULE MODI_WRITE_LES_RT_BUDGET_n !###################### @@ -54,6 +49,7 @@ END MODULE MODI_WRITE_LES_RT_BUDGET_n !! MODIFICATIONS !! ------------- !! Original 06/11/02 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/write_les_sv_budgetn.f90 b/src/MNH/write_les_sv_budgetn.f90 index a028fee30..af1d62eac 100644 --- a/src/MNH/write_les_sv_budgetn.f90 +++ b/src/MNH/write_les_sv_budgetn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 les 2006/05/18 13:07:25 -!----------------------------------------------------------------- !###################### MODULE MODI_WRITE_LES_SV_BUDGET_n !###################### @@ -54,6 +49,7 @@ END MODULE MODI_WRITE_LES_SV_BUDGET_n !! MODIFICATIONS !! ------------- !! Original 06/11/02 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/write_lesn.f90 b/src/MNH/write_lesn.f90 index 081fe9b23..51bc3e7bb 100644 --- a/src/MNH/write_lesn.f90 +++ b/src/MNH/write_lesn.f90 @@ -1,8 +1,7 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2000-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. -! $Source: /srv/cvsroot/MNH-VX-Y-Z/src/MNH/write_lesn.f90,v $ !----------------------------------------------------------------- !###################### MODULE MODI_WRITE_LES_n @@ -56,6 +55,7 @@ END MODULE MODI_WRITE_LES_n !! 10/10/09 (P. Aumond) Add user multimaskS !! 11/15 (C.Lac) Add production terms of TKE !! 10/2016 (C.Lac) Add droplet deposition +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90 index aac30d81d..824d2834d 100644 --- a/src/MNH/write_lfifm1_for_diag.f90 +++ b/src/MNH/write_lfifm1_for_diag.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/write_lfifm1_for_diag.f90,v $ $Revision: 1.3.2.5.2.4.2.3.2.3.2.9.2.2 $ -! masdev4_7 BUG1 2007/06/15 17:47:18 -!----------------------------------------------------------------- !################################ MODULE MODI_WRITE_LFIFM1_FOR_DIAG !################################ @@ -144,6 +139,7 @@ END MODULE MODI_WRITE_LFIFM1_FOR_DIAG !! C.Lac 04/2016 : add visibility and droplet deposition !! 10/2017 (G.Delautier) New boundary layer height : replace LBLTOP by CBLTOP !! T.Dauhut 10/2017 : add parallel 3D clustering +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_lfifm1_for_diag_supp.f90 b/src/MNH/write_lfifm1_for_diag_supp.f90 index 0cf461b02..001e7f603 100644 --- a/src/MNH/write_lfifm1_for_diag_supp.f90 +++ b/src/MNH/write_lfifm1_for_diag_supp.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2000-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/write_lfifm1_for_diag_supp.f90,v $ $Revision: 1.3.2.3.2.2.2.5.2.2.2.3.2.4 $ $Date: 2016/03/17 12:59:13 $ -!----------------------------------------------------------------- ! ###################################### MODULE MODI_WRITE_LFIFM1_FOR_DIAG_SUPP ! ###################################### @@ -91,6 +87,7 @@ END MODULE MODI_WRITE_LFIFM1_FOR_DIAG_SUPP !! M.Leriche 01/07/2017 Add DIAG chimical surface fluxes !! J.-P. Chaboureau 01/2018 add altitude interpolation !! J.-P. Chaboureau 01/2018 add coarse graining +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_lfifmn_fordiachron.f90 b/src/MNH/write_lfifmn_fordiachron.f90 index a29879a25..cb713df7b 100644 --- a/src/MNH/write_lfifmn_fordiachron.f90 +++ b/src/MNH/write_lfifmn_fordiachron.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- ! ############################################# SUBROUTINE WRITE_LFIFMN_FORDIACHRO_n(TPFILE) ! ############################################# @@ -82,6 +78,7 @@ !! change of YCOMMENT !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! P.Wautelet: 11/07/2016 : removed MNH_NCWRIT define +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90 index 2332bf5d5..765b68c82 100644 --- a/src/MNH/write_lfin.f90 +++ b/src/MNH/write_lfin.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /srv/cvsroot/MNH-VX-Y-Z/src/MNH/write_lfin.f90,v $ $Revision: 1.2.2.4.2.4.2.8.2.4.2.5 $ -! masdev4_7 BUG1 2007/06/20 16:58:20 -!----------------------------------------------------------------- ! ######################### MODULE MODI_WRITE_LFIFM_n ! ######################### @@ -170,6 +165,7 @@ END MODULE MODI_WRITE_LFIFM_n !! M.Mazoyer 04/16 : Add supersaturation fields !! P.Wautelet 11/07/2016 removed MNH_NCWRIT define !! JP Chaboureau 27/11/2017 add wind tendency forcing +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/write_profilern.f90 b/src/MNH/write_profilern.f90 index 3e5cd902f..781c44bd6 100644 --- a/src/MNH/write_profilern.f90 +++ b/src/MNH/write_profilern.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source: /home/cvsroot/MNH-VX-Y-Z/src/MNH/write_profilern.f90,v $ $Revision: 1.2.2.3.2.1.2.2.10.2.2.2 $ -! masdev4_7 BUG1 2007/06/15 17:47:18 -!----------------------------------------------------------------- ! ########################### MODULE MODI_WRITE_PROFILER_n ! ########################### @@ -63,6 +58,7 @@ END MODULE MODI_WRITE_PROFILER_n !! Original 15/02/2002 !! 2016 : G.DELAUTIER : LIMA !! Oct, 2016 (C.Lac) Add visibility diagnostics for fog +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/write_seriesn.f90 b/src/MNH/write_seriesn.f90 index 1ea568bd3..9a0430e09 100644 --- a/src/MNH/write_seriesn.f90 +++ b/src/MNH/write_seriesn.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- !######################## MODULE MODI_WRITE_SERIES_n !######################## @@ -63,6 +59,7 @@ END MODULE MODI_WRITE_SERIES_n !! Modification 7/01/2013 Add key for netcdf writing !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 !! P.Wautelet: 11/07/2016 : removed MNH_NCWRIT define +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/write_stationn.f90 b/src/MNH/write_stationn.f90 index 4c2fc1905..6676aa8b3 100644 --- a/src/MNH/write_stationn.f90 +++ b/src/MNH/write_stationn.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2002-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:18 -!----------------------------------------------------------------- ! ########################### MODULE MODI_WRITE_STATION_n ! ########################### @@ -61,6 +56,7 @@ END MODULE MODI_WRITE_STATION_n !! MODIFICATIONS !! ------------- !! Original 15/02/2002 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! -------------------------------------------------------------------------- ! diff --git a/src/MNH/write_surf_mnh.f90 b/src/MNH/write_surf_mnh.f90 index 0c5687bdc..a79ee316c 100644 --- a/src/MNH/write_surf_mnh.f90 +++ b/src/MNH/write_surf_mnh.f90 @@ -1,12 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1997-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -!----------------------------------------------------------------- MODULE MODE_WRITE_SURF_MNH_TOOLS IMPLICIT NONE @@ -162,6 +158,7 @@ END MODULE MODE_WRITE_SURF_MNH_TOOLS !! 08/2015 M.Moge write the COVERS as 2D fields because SURFEX cannot write/read 3D fields !! with Z-splitting using NB_PROC_IO_W / NB_PROC_IO_W !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -249,6 +246,7 @@ END SUBROUTINE WRITE_SURFX0_MNH !! ------------- !! !! original 01/08/03 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -511,6 +509,7 @@ END SUBROUTINE WRITE_SURFX1_MNH !! original 01/08/03 !! 06/2016 (G.Delautier) phasage surfex 8 !! 01/2018 (G.Delautier) SURFEX 8.1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -711,6 +710,7 @@ END SUBROUTINE WRITE_SURFX2COV_MNH !! !! original 01/08/03 !! G.TANGUY 03/2009 add replace ZUNDEF(surfex) by XUNDEF(MNH) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -861,6 +861,7 @@ END SUBROUTINE WRITE_SURFX2_MNH !! ------------- !! !! original 01/08/03 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -955,6 +956,7 @@ END SUBROUTINE WRITE_SURFN0_MNH !! ------------- !! !! original 01/08/03 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -1057,6 +1059,7 @@ END SUBROUTINE WRITE_SURFN1_MNH !! ------------- !! !! original 01/08/03 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -1162,6 +1165,7 @@ END SUBROUTINE WRITE_SURFC0_MNH !! ------------- !! !! original 01/08/03 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -1276,6 +1280,7 @@ END SUBROUTINE WRITE_SURFL1_MNH !! ------------- !! !! original 01/08/03 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -1358,6 +1363,7 @@ END SUBROUTINE WRITE_SURFL0_MNH !! ------------- !! !! original 18/08/97 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -1451,6 +1457,7 @@ END SUBROUTINE WRITE_SURFT0_MNH !! ------------- !! !! original 03/03/09 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/MNH/write_ts1d.f90 b/src/MNH/write_ts1d.f90 index 246d82af1..df0cd10bd 100644 --- a/src/MNH/write_ts1d.f90 +++ b/src/MNH/write_ts1d.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1995-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 chimie 2006/11/28 12:05:22 -!----------------------------------------------------------------- !! ############################# SUBROUTINE WRITE_TS1D !! ############################# @@ -71,6 +66,7 @@ !! namelist DIAG1.nam. Otherwise treatment is active only in !! 1D case !! 28/03/2018 P. Wautelet: replace TEMPORAL_DIST by DATETIME_DISTANCE +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !! EXTERNAL !! -------- diff --git a/src/MNH/xy_to_latlon.f90 b/src/MNH/xy_to_latlon.f90 index e6decdff5..8c58dddca 100644 --- a/src/MNH/xy_to_latlon.f90 +++ b/src/MNH/xy_to_latlon.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2006-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 tools 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! #################### PROGRAM XY_TO_LATLON ! #################### @@ -58,6 +53,7 @@ !! !! no transfer of the file when closing Dec. 09, 1996 (V.Masson) !! + changes call to READ_HGRID +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATION diff --git a/src/MNH/xytolatlon.f90 b/src/MNH/xytolatlon.f90 index 8e1b0cfc7..d4ff3b6a5 100644 --- a/src/MNH/xytolatlon.f90 +++ b/src/MNH/xytolatlon.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! MASDEV4_7 prep_real 2006/05/18 13:07:25 -!----------------------------------------------------------------- ! ################################################### MODULE MODI_XYTOLATLON ! ################################################### @@ -111,6 +106,7 @@ END MODULE MODI_XYTOLATLON !! Updated VM 24/10/95 projection from north pole (XRPK<0) and !! longitudes set between XLON0-180. and XLON0+180. !! Adapted V.Bousquet 07/01/99 to xytolatlon for grib case +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !------------------------------------------------------------------------------- ! diff --git a/src/MNH/zoom_pgd.f90 b/src/MNH/zoom_pgd.f90 index 58b5344ff..f2ccf946d 100644 --- a/src/MNH/zoom_pgd.f90 +++ b/src/MNH/zoom_pgd.f90 @@ -1,13 +1,8 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2005-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- -!--------------- special set of characters for RCS information -!----------------------------------------------------------------- -! $Source$ $Revision$ -! masdev4_7 BUG1 2007/06/15 17:47:30 -!----------------------------------------------------------------- ! ################ PROGRAM ZOOM_PGD ! ################ @@ -44,6 +39,7 @@ !! 30/03/2012 S.Bielli Add NAM_NCOUT !! 06/2016 (G.Delautier) phasage surfex 8 !! 08/07/2016 P.Wautelet Removed MNH_NCWRIT define +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !---------------------------------------------------------------------------- ! diff --git a/src/MNH/zsmt_pgd.f90 b/src/MNH/zsmt_pgd.f90 index 3f306ad07..0de2cd8a2 100644 --- a/src/MNH/zsmt_pgd.f90 +++ b/src/MNH/zsmt_pgd.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2005-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -56,6 +56,7 @@ END MODULE MODI_ZSMT_PGD !! ------------- !! Original nov 2005 !! J.Escobar 23/06/2015 : correction for JPHEXT<>1 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/SURFEX/gather_and_write_mpi.F90 b/src/SURFEX/gather_and_write_mpi.F90 index e8dd6caa2..055cea409 100644 --- a/src/SURFEX/gather_and_write_mpi.F90 +++ b/src/SURFEX/gather_and_write_mpi.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 1994-2018 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. @@ -8,6 +8,7 @@ MODULE MODI_GATHER_AND_WRITE_MPI !! ------------- !! Original !! J.Escobar 10/06/2013: replace DOUBLE PRECISION by REAL to handle problem for promotion of real on IBM SP +!! P.Wautelet 13/02/2018: re-added #ifndef MNH_SP4 to prevent problems when compiling on Blue Gene/Q with -qautodbl=4 !! J.Escobar 05/04/2018: for real*4 compilation, differenced real(kind=8) & real(kind=4) routine version !---------------------------------------------------- ! diff --git a/src/SURFEX/horibl_surf_gridin.F90 b/src/SURFEX/horibl_surf_gridin.F90 index 0b77db4ce..d366b9200 100644 --- a/src/SURFEX/horibl_surf_gridin.F90 +++ b/src/SURFEX/horibl_surf_gridin.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 1999-2018 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. diff --git a/src/SURFEX/hvac_autosize.F90 b/src/SURFEX/hvac_autosize.F90 index 8853dd1c5..279072a1c 100644 --- a/src/SURFEX/hvac_autosize.F90 +++ b/src/SURFEX/hvac_autosize.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 2011-2018 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. @@ -20,6 +20,7 @@ SUBROUTINE HVAC_AUTOSIZE (B, BOP, G, T, TOP, KI,KLUOUT) !! ------------- !! Original 05/2011 !! modified 08/2013 add solar panels (V. Masson) +!! 13/02/2018: comment OpenMP include/use if compiled without OpenMP (P. Wautelet) !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/SURFEX/init_isban.F90 b/src/SURFEX/init_isban.F90 index 397e5385f..0cb1e95de 100644 --- a/src/SURFEX/init_isban.F90 +++ b/src/SURFEX/init_isban.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 2004-2018 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. @@ -53,6 +53,7 @@ SUBROUTINE INIT_ISBA_n (DTCO, OREAD_BUDGETC, UG, U, USS, GCP, IM, DTZ,& !! J.Escobar 11/13 : add USE MODI_DEFAULT_CROCUS !! B. Decharme 04/2013 new coupling variables !! P. Samuelsson 10/14 : MEB +!! P. Wautelet 16/02/2018: bug correction: allocate some work arrays to 0,1,1 instead of 0,0,1 (crash with XLF) !! !------------------------------------------------------------------------------- ! diff --git a/src/SURFEX/init_teb_garden_pgdn.F90 b/src/SURFEX/init_teb_garden_pgdn.F90 index ff6785167..b3c01cc7e 100644 --- a/src/SURFEX/init_teb_garden_pgdn.F90 +++ b/src/SURFEX/init_teb_garden_pgdn.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 2009-2018 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. @@ -35,6 +35,7 @@ SUBROUTINE INIT_TEB_GARDEN_PGD_n (DTCO, U, OCH_BIO_FLUX, G, PGARDEN, TOP, IO, S, !! ------------- !! Original 09/2009 !! 11/2013 (B. Decharme) No exp profile with DIF +!! P. Wautelet 16/02/2018: bug correction: allocate some work arrays to 0,1,1 instead of 0,0,1 (crash with XLF) !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/SURFEX/init_teb_greenroof_pgdn.F90 b/src/SURFEX/init_teb_greenroof_pgdn.F90 index 78a1249a2..22156cf5b 100644 --- a/src/SURFEX/init_teb_greenroof_pgdn.F90 +++ b/src/SURFEX/init_teb_greenroof_pgdn.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 2009-2018 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. @@ -34,6 +34,7 @@ SUBROUTINE INIT_TEB_GREENROOF_PGD_n (DTCO, U, OCH_BIO_FLUX, G, PGREENROOF, TOP, !! ------------- !! Original 09/2009 !! 11/2013 (B. Decharme) No exp profile with DIF +!! P. Wautelet 16/02/2018: bug correction: allocate some work arrays to 0,1,1 instead of 0,0,1 (crash with XLF) !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/SURFEX/interpol_npts.F90 b/src/SURFEX/interpol_npts.F90 index 9d3f17018..fec3e1315 100644 --- a/src/SURFEX/interpol_npts.F90 +++ b/src/SURFEX/interpol_npts.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 2004-2018 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. @@ -46,6 +46,7 @@ !! Original 03/2004 !! Modification !! B. Decharme 2014 scan all point case if gaussien grid or NHALO = 0 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !---------------------------------------------------------------------------- ! !* 0. DECLARATION diff --git a/src/SURFEX/make_lcover.F90 b/src/SURFEX/make_lcover.F90 index e7b8a655c..b793379d7 100644 --- a/src/SURFEX/make_lcover.F90 +++ b/src/SURFEX/make_lcover.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 1997-2018 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. @@ -33,6 +33,7 @@ !! ------------ !! !! Original 10/12/97 +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! !---------------------------------------------------------------------------- ! diff --git a/src/SURFEX/modd_surfex_omp.F90 b/src/SURFEX/modd_surfex_omp.F90 index 76ed2e96a..852b41ee8 100644 --- a/src/SURFEX/modd_surfex_omp.F90 +++ b/src/SURFEX/modd_surfex_omp.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 2012-2018 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. @@ -28,6 +28,7 @@ !! Original 26/06/12 !! Modified 11/2013 by J.Escobar :add !$ to inhibit completly omp !! dependency +!! P.Wautelet: 13/02/2018: comment OpenMP include/use if compiled without OpenMP ! !* 0. DECLARATIONS ! ------------ diff --git a/src/SURFEX/mode_gridtype_conf_proj.F90 b/src/SURFEX/mode_gridtype_conf_proj.F90 index d80d633d6..ef3407628 100644 --- a/src/SURFEX/mode_gridtype_conf_proj.F90 +++ b/src/SURFEX/mode_gridtype_conf_proj.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 2004-2018 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. @@ -33,6 +33,7 @@ CONTAINS !! ------------- !! Original 01/2004 !! M.Moge 06/2015 broadcast the space step to all MPI processes (necessary for reproductibility) +!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/SURFEX/read_direct.F90 b/src/SURFEX/read_direct.F90 index 608ea4c4e..4296c7b24 100644 --- a/src/SURFEX/read_direct.F90 +++ b/src/SURFEX/read_direct.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 2010-2018 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. diff --git a/src/SURFEX/vegtype_grid_to_patch_grid.F90 b/src/SURFEX/vegtype_grid_to_patch_grid.F90 index 002a37491..ef08f0f1c 100644 --- a/src/SURFEX/vegtype_grid_to_patch_grid.F90 +++ b/src/SURFEX/vegtype_grid_to_patch_grid.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 2004-2018 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. @@ -27,6 +27,7 @@ SUBROUTINE VEGTYPE_GRID_TO_PATCH_GRID(KPATCH,KNPATCH,PVEGTYPE_PATCH,PPATCH,KMASK !! MODIFICATIONS !! ------------- !! Original 01/2004 +!! P. Wautelet 08/02/2018: SURFEX correction: AINT(...,KIND=16) crashes PGI !! !------------------------------------------------------------------------------- diff --git a/src/SURFEX/writesurf_tebn.F90 b/src/SURFEX/writesurf_tebn.F90 index 210b62535..64d3ad520 100644 --- a/src/SURFEX/writesurf_tebn.F90 +++ b/src/SURFEX/writesurf_tebn.F90 @@ -1,4 +1,4 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 2003-2018 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. @@ -33,6 +33,7 @@ !! MODIFICATIONS !! ------------- !! Original 01/2003 +!! P. Wautelet 16/02/2018: bug correction: allocate some work arrays to 0,1,1 instead of 0,0,1 (crash with XLF) !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS diff --git a/src/include/isrpia.inc b/src/include/isrpia.inc index d60e7fbf4..bfe0015ca 100644 --- a/src/include/isrpia.inc +++ b/src/include/isrpia.inc @@ -8,6 +8,7 @@ C C *** COPYRIGHT 1996-2000, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY C *** WRITTEN BY ATHANASIOS NENES C J.Escobar : 10/2017 , for real*4 replace DOUBLE => REAL +C P.Wautelet: 13/02/2018: add HALF, TWO and FOUR variables C C======================================================================= C -- GitLab