[cig-commits] r22473 - in seismo/3D/SPECFEM3D_GLOBE: branches/SPECFEM3D_GLOBE_SUNFLOWER branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D trunk trunk/src/auxiliaries trunk/src/meshfem3D trunk/src/shared trunk/src/specfem3D
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Sun Jun 30 20:05:54 PDT 2013
Author: dkomati1
Date: 2013-06-30 20:05:54 -0700 (Sun, 30 Jun 2013)
New Revision: 22473
Modified:
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/part1_undo_att.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_1D.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_2D.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_corners_chunks.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_faces_chunks.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_AVS_DX.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_paraview_strain_data.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_surf_data.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data_vtk.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/convolve_source_timefunction.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/create_movie_AVS_DX.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/create_movie_GMT_global.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_central_cube_mesh.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_scalar_mesh.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_vector_mesh.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_area.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_coordinates_grid.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_element_properties.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_volumes.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_MPI_interfaces.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_addressing.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_central_cube.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_central_cube_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_chunk_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_doubling_elements.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_mass_matrices.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_meshes.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh_adios.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regular_elements.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/finalize_mesher.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/fix_non_blocking_flags.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_1D_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_cutplanes_eta.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_cutplanes_xi.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_interfaces.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_absorb.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_absorb_adios.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_ellipticity.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_global.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_jacobian_boundaries.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_jacobian_discontinuities.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_model.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_perm_color.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_shape2D.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_shape3D.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/heap_sort.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_layers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_mesher.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/lgndr.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D_models.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D_par.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_1066a.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_1dref.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ak135.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_aniso_inner_core.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_aniso_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_atten3D_QRFSI12.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_attenuation.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_crust.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_crustmaps.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_epcrust.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_eucrust.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gapp2.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gll.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_heterogen_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_iasp91.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_jp1d.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_jp3d.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ppm.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s20rts.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s362ani.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s40rts.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_sea1d.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_sea99_s.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/moho_stretching.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/save_arrays_solver.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/save_arrays_solver_adios.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_MPI_interfaces.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_color_perm.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_counters.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_inner_outer.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_model.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/sort_array_coordinates.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/stretching_function.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/test_MPI_interfaces.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_chunks_data.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_chunks_data_adios.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_data.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_data_adios.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_faces_data.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_faces_data_adios.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_surface_data.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_surface_data_adios.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/adios_helpers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/adios_manager.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/auto_ner.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/broadcast_compute_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_elements.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_number_of_sources.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_points.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/create_name_database.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/create_serial_name_database.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/define_all_layers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/euler_angles.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/exit_mpi.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_model_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_timestep_and_layers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_value_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/gll_library.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/hex_nodes.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/intgrl.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/lagrange_poly.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/make_ellipticity.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/make_gravity.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/memory_eval.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/model_prem.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/model_topo_bathy.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_compute_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_parameter_file.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_value_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/save_header_file.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/write_VTK_file.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/assemble_MPI_scalar.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/assemble_MPI_vector.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/check_simulation_stability.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/comp_source_spectrum.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/comp_source_time_function.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_add_sources.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_adj_source_frechet.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_arrays_source.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_boundary_kernel.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_coupling.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_element.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_acoustic.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_crust_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_crust_mantle_Dev.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_elastic.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_inner_core.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_inner_core_Dev.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_outer_core.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_outer_core_Dev.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_kernels.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_seismograms.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_stacey_crust_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_stacey_outer_core.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/finalize_simulation.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/get_attenuation.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/get_backazimuth.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/initialize_simulation.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_receivers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_sources.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/multiply_arrays_source.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/netlib_specfun_erf.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/prepare_timerun.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver_adios.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_attenuation_adios.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays_adios.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases_adios.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_topography_bathymetry.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_forward_arrays.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_forward_arrays_adios.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_kernels.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_GLL_points.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_sources_receivers.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/specfem3D.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/specfem3D_par.F90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_output.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_surface.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_volume.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_output_ASCII.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_output_SAC.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_seismograms.f90
seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_specfem_adios_header.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/part1_undo_att.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_AVS_DX.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data_vtk.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_AVS_DX.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_410_650.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_central_cube_mesh.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_scalar_mesh.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_vector_mesh.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/calc_jacobian.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_area.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_volumes.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_MPI_interfaces.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_addressing.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_central_cube_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_meshes.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh_adios.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/finalize_mesher.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/fix_non_blocking_flags.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_1D_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_interfaces.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb_adios.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_model.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_perm_color.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/heap_sort.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/initialize_layers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/initialize_mesher.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_par.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ak135.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp1d.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver_adios.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_MPI_interfaces.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_color_perm.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_counters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_inner_outer.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_model.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/test_MPI_interfaces.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_chunks_data_adios.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_data_adios.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_faces_data_adios.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_surface_data_adios.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/adios_helpers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/adios_manager.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_elements.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_points.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/define_all_layers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_timestep_and_layers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/lagrange_poly.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/write_VTK_file.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_acoustic.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_elastic.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/finalize_simulation.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/iterate_time.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_solver_adios.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_attenuation_adios.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_forward_arrays_adios.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases_adios.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_topography_bathymetry.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_forward_arrays_adios.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_GLL_points.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D_par.F90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_output.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_specfem_adios_header.F90
Log:
merged more obvious things
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/part1_undo_att.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/part1_undo_att.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/part1_undo_att.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -918,7 +918,7 @@
write(IMAIN,*) ' Total number of time steps written: ', it-it_begin+1
write(IMAIN,*)
endif
- elseif(SIMULATION_TYPE == 2)then ! case of SIMULATION_TYPE == 2
+ else if(SIMULATION_TYPE == 2)then ! case of SIMULATION_TYPE == 2
if( nrec_local > 0 ) &
call write_adj_seismograms(seismograms,number_receiver_global, &
nrec_local,it,nit_written,DT, &
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_1D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_1D.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_1D.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_2D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_2D.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_2D.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_corners_chunks.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_corners_chunks.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_corners_chunks.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_faces_chunks.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_faces_chunks.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/check_buffers_faces_chunks.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_AVS_DX.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_AVS_DX.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_AVS_DX.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_paraview_strain_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_paraview_strain_data.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_paraview_strain_data.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -50,8 +50,8 @@
logical :: MOVIE_COARSE
do i = 1,6
- call getarg(i,arg(i))
- if (i < 7 .and. trim(arg(i)) == '') then
+ call get_command_argument(i,arg(i))
+ if (i < 7 .and. len_trim(arg(i)) == 0) then
print *, ' '
print *, ' Usage: xcombine_data nnodes dt_movie itstart itstop comp MOVIE_COARSE'
print *, ' component can be SEE, SNE,SEZ,SNN,SNZ,SZZ,I1 or I2'
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_surf_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_surf_data.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_surf_data.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -58,8 +58,8 @@
! ------------------ program starts here -------------------
do i = 1, 7
- call getarg(i,arg(i))
- if (i < 7 .and. trim(arg(i)) == '') then
+ call get_command_argument(i,arg(i))
+ if (i < 7 .and. len_trim(arg(i)) == 0) then
write(*,*) ' '
write(*,*) ' Usage: xcombine_surf_data slice_list filename surfname input_dir output_dir high/low-resolution 2D/3D'
write(*,*) ' filename.bin can be either'
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -77,8 +77,8 @@
! starts here--------------------------------------------------------------------------------------------------
do i = 1, 7
- call getarg(i,arg(i))
- if (i < 7 .and. trim(arg(i)) == '') then
+ call get_command_argument(i,arg(i))
+ if (i < 7 .and. len_trim(arg(i)) == 0) then
print *, ' '
print *, ' Usage: xcombine_vol_data slice_list filename input_topo_dir input_file_dir '
print *, ' output_dir high/low-resolution [region]'
@@ -96,7 +96,7 @@
stop 'This program needs that NSPEC_CRUST_MANTLE > NSPEC_OUTER_CORE and NSPEC_INNER_CORE'
! get region id
- if (trim(arg(7)) == '') then
+ if (len_trim(arg(7)) == 0) then
iregion = 0
else
read(arg(7),*) iregion
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data_vtk.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data_vtk.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/combine_vol_data_vtk.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/convolve_source_timefunction.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/convolve_source_timefunction.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/convolve_source_timefunction.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/create_movie_AVS_DX.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/create_movie_AVS_DX.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/create_movie_AVS_DX.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -758,51 +758,7 @@
!
!=====================================================================
!
-!
-! subroutine read_params_and_create_movie
-!
-!!
-!! This routine is called by the Pyrized version.
-!!
-!
-! implicit none
-!
-! integer it1,it2
-! integer iformat
-!
-!! parameters read from parameter file
-! integer NEX_XI,NEX_ETA
-! integer NSTEP,NTSTEP_BETWEEN_FRAMES,NCHUNKS
-! integer NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA
-! logical MOVIE_SURFACE
-!
-! integer, external :: err_occurred
-!
-! call read_AVS_DX_parameters(NEX_XI,NEX_ETA, &
-! NSTEP,NTSTEP_BETWEEN_FRAMES, &
-! NCHUNKS,MOVIE_SURFACE, &
-! NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA)
-!
-!! read additional parameters for making movies
-! call read_value_integer(iformat, 'format')
-! if(err_occurred() /= 0) stop 'an error occurred while reading the parameter file'
-! call read_value_integer(it1, 'beginning')
-! if(err_occurred() /= 0) stop 'an error occurred while reading the parameter file'
-! call read_value_integer(it2, 'end')
-! if(err_occurred() /= 0) stop 'an error occurred while reading the parameter file'
-!
-!! run the main program
-! call create_movie_AVS_DX(iformat,it1,it2, &
-! NEX_XI,NEX_ETA, &
-! NSTEP,NTSTEP_BETWEEN_FRAMES, &
-! NCHUNKS, &
-! NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA, &
-! USE_COMPONENT)
-!
-! end subroutine read_params_and_create_movie
-! ------------------------------------------------------------------
-
subroutine read_AVS_DX_parameters(NEX_XI,NEX_ETA, &
NSTEP,NTSTEP_BETWEEN_FRAMES, &
NCHUNKS,MOVIE_SURFACE, &
@@ -866,7 +822,6 @@
print *
! read the parameter file and compute additional parameters
-
call read_compute_parameters(MIN_ATTENUATION_PERIOD,MAX_ATTENUATION_PERIOD,NER_CRUST, &
NER_80_MOHO,NER_220_80,NER_400_220,NER_600_400,NER_670_600,NER_771_670, &
NER_TOPDDOUBLEPRIME_771,NER_CMB_TOPDDOUBLEPRIME,NER_OUTER_CORE, &
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/create_movie_GMT_global.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/create_movie_GMT_global.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/auxiliaries/create_movie_GMT_global.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_central_cube_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_central_cube_mesh.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_central_cube_mesh.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_scalar_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_scalar_mesh.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_scalar_mesh.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_vector_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_vector_mesh.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/assemble_MPI_vector_mesh.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_area.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_area.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_area.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_coordinates_grid.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_coordinates_grid.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_coordinates_grid.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_element_properties.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_element_properties.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_element_properties.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_volumes.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_volumes.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/compute_volumes.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_MPI_interfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_MPI_interfaces.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_MPI_interfaces.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_addressing.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_addressing.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_addressing.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_central_cube.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_central_cube.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_central_cube.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_central_cube_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_central_cube_buffers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_central_cube_buffers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_chunk_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_chunk_buffers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_chunk_buffers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_doubling_elements.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_doubling_elements.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_doubling_elements.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_mass_matrices.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_mass_matrices.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_mass_matrices.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_meshes.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_meshes.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_meshes.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regions_mesh_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regular_elements.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regular_elements.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/create_regular_elements.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/finalize_mesher.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/finalize_mesher.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/finalize_mesher.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/fix_non_blocking_flags.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/fix_non_blocking_flags.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/fix_non_blocking_flags.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_1D_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_1D_buffers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_1D_buffers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -98,6 +98,7 @@
! nb of elements in this 1D buffer
ispeccount=0
+
do ispec=1,nspec
! remove central cube for chunk buffers
if(idoubling(ispec) == IFLAG_MIDDLE_CENTRAL_CUBE .or. &
@@ -295,6 +296,7 @@
! nb of elements in this 1D buffer
ispeccount=0
+
do ispec=1,nspec
! remove central cube for chunk buffers
if(idoubling(ispec) == IFLAG_MIDDLE_CENTRAL_CUBE .or. &
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_cutplanes_eta.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_cutplanes_eta.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_cutplanes_eta.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_cutplanes_xi.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_cutplanes_xi.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_cutplanes_xi.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_interfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_interfaces.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_MPI_interfaces.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_absorb.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_absorb.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_absorb.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_absorb_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_absorb_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_absorb_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_ellipticity.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_ellipticity.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_ellipticity.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_global.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_global.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_global.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_jacobian_boundaries.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_jacobian_boundaries.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_jacobian_boundaries.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_jacobian_discontinuities.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_jacobian_discontinuities.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_jacobian_discontinuities.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_model.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_model.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_perm_color.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_perm_color.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_perm_color.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_shape2D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_shape2D.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_shape2D.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_shape3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_shape3D.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/get_shape3D.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/heap_sort.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/heap_sort.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/heap_sort.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_layers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_layers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_layers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_mesher.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_mesher.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/initialize_mesher.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/lgndr.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/lgndr.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/lgndr.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D_models.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D_models.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D_models.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D_par.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D_par.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/meshfem3D_par.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_1066a.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_1066a.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_1066a.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_1dref.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_1dref.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_1dref.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ak135.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ak135.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ak135.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -28,11 +28,19 @@
!--------------------------------------------------------------------------------------------------
! AK135
!
-! Spherically symmetric isotropic AK135 model [Kennett et al., 1995].
+! Modified AK135 model:
!
+! Spherically symmetric isotropic AK135 model (Kennett et al., 1995).
+! modified to use the density and Q attenuation models of Montagner and Kennett (1995).
+! That modified model is traditionally called AK135-F,
+! see http://rses.anu.edu.au/seismology/ak135/ak135f.html for more details.
+! As we do not want to use the 300 m-thick mud layer from that model nor the ocean layer,
+! above the d120 discontinuity we switch back to the classical AK135 model of Kennett et al. (1995),
+! i.e., we use AK135-F below and AK135 above.
+
! B. L. N. Kennett, E. R. Engdahl and R. Buland,
! Constraints on seismic velocities in the Earth from traveltimes,
-! Geophysical Journal International, Volume 122, Issue 1, Pages 1-351 (1995),
+! Geophysical Journal International, volume 122, issue 1, pages 108-124 (1995),
! DOI: 10.1111/j.1365-246X.1995.tb03540.x
!--------------------------------------------------------------------------------------------------
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_aniso_inner_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_aniso_inner_core.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_aniso_inner_core.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_aniso_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_aniso_mantle.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_aniso_mantle.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_atten3D_QRFSI12.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_atten3D_QRFSI12.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_atten3D_QRFSI12.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_attenuation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_attenuation.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_attenuation.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_crust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_crust.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_crust.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_crustmaps.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_crustmaps.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_crustmaps.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_epcrust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_epcrust.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_epcrust.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_eucrust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_eucrust.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_eucrust.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gapp2.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gapp2.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gapp2.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gll.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gll.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_gll.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_heterogen_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_heterogen_mantle.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_heterogen_mantle.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_iasp91.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_iasp91.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_iasp91.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_jp1d.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_jp1d.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_jp1d.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_jp3d.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_jp3d.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_jp3d.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ppm.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ppm.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_ppm.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s20rts.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s20rts.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s20rts.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s362ani.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s362ani.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s362ani.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s40rts.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s40rts.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_s40rts.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_sea1d.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_sea1d.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_sea1d.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_sea99_s.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_sea99_s.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/model_sea99_s.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/moho_stretching.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/moho_stretching.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/moho_stretching.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/save_arrays_solver.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/save_arrays_solver.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/save_arrays_solver.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/save_arrays_solver_adios.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/save_arrays_solver_adios.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/save_arrays_solver_adios.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_MPI_interfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_MPI_interfaces.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_MPI_interfaces.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_color_perm.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_color_perm.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_color_perm.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_counters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_counters.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_counters.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_inner_outer.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_inner_outer.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_inner_outer.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_model.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/setup_model.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/sort_array_coordinates.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/sort_array_coordinates.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/sort_array_coordinates.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -238,3 +238,4 @@
end subroutine swap_all_buffers
+
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/stretching_function.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/stretching_function.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/stretching_function.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/test_MPI_interfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/test_MPI_interfaces.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/test_MPI_interfaces.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_chunks_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_chunks_data.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_chunks_data.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_chunks_data_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_chunks_data_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_chunks_data_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_data.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_data.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_data_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_data_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_data_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_faces_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_faces_data.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_faces_data.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_faces_data_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_faces_data_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_global_faces_data_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_surface_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_surface_data.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_surface_data.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_surface_data_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_surface_data_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/meshfem3D/write_AVS_DX_surface_data_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/adios_helpers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/adios_helpers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/adios_helpers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/adios_manager.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/adios_manager.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/adios_manager.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/auto_ner.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/auto_ner.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/auto_ner.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/broadcast_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/broadcast_compute_parameters.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/broadcast_compute_parameters.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_elements.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_elements.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_elements.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_number_of_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_number_of_sources.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_number_of_sources.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_points.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_points.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/count_points.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/create_name_database.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/create_name_database.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/create_name_database.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/create_serial_name_database.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/create_serial_name_database.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/create_serial_name_database.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/define_all_layers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/define_all_layers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/define_all_layers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/euler_angles.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/euler_angles.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/euler_angles.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/exit_mpi.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/exit_mpi.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/exit_mpi.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_model_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_model_parameters.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_model_parameters.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_timestep_and_layers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_timestep_and_layers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_timestep_and_layers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_value_parameters.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/get_value_parameters.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/gll_library.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/gll_library.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/gll_library.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/hex_nodes.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/hex_nodes.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/hex_nodes.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/intgrl.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/intgrl.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/intgrl.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/lagrange_poly.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/lagrange_poly.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/lagrange_poly.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/make_ellipticity.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/make_ellipticity.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/make_ellipticity.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/make_gravity.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/make_gravity.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/make_gravity.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/memory_eval.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/memory_eval.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/memory_eval.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/model_prem.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/model_prem.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/model_prem.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/model_topo_bathy.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/model_topo_bathy.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/model_topo_bathy.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_compute_parameters.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_compute_parameters.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_parameter_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_parameter_file.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_parameter_file.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_value_parameters.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/read_value_parameters.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
@@ -37,7 +37,7 @@
integer ierr
common /param_err_common/ ierr
- call param_read(string_read, len(string_read), name, len(name), ierr);
+ call param_read(string_read, len(string_read), name, len(name), ierr)
if (ierr /= 0) return
read(string_read,*) value_to_read
@@ -55,7 +55,7 @@
integer ierr
common /param_err_common/ ierr
- call param_read(string_read, len(string_read), name, len(name), ierr);
+ call param_read(string_read, len(string_read), name, len(name), ierr)
if (ierr /= 0) return
read(string_read,*) value_to_read
@@ -73,7 +73,7 @@
integer ierr
common /param_err_common/ ierr
- call param_read(string_read, len(string_read), name, len(name), ierr);
+ call param_read(string_read, len(string_read), name, len(name), ierr)
if (ierr /= 0) return
read(string_read,*) value_to_read
@@ -91,7 +91,7 @@
integer ierr
common /param_err_common/ ierr
- call param_read(string_read, len(string_read), name, len(name), ierr);
+ call param_read(string_read, len(string_read), name, len(name), ierr)
if (ierr /= 0) return
value_to_read = string_read
@@ -106,7 +106,7 @@
character(len=50) filename
filename = 'DATA/Par_file'
- call param_open(filename, len(filename), ierr);
+ call param_open(filename, len(filename), ierr)
if (ierr /= 0) return
end subroutine open_parameter_file
@@ -115,7 +115,7 @@
subroutine close_parameter_file
- call param_close();
+ call param_close()
end subroutine close_parameter_file
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/save_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/save_header_file.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/save_header_file.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/write_VTK_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/write_VTK_file.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/shared/write_VTK_file.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/assemble_MPI_scalar.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/assemble_MPI_scalar.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/assemble_MPI_scalar.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/assemble_MPI_vector.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/assemble_MPI_vector.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/assemble_MPI_vector.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/check_simulation_stability.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/check_simulation_stability.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/check_simulation_stability.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/comp_source_spectrum.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/comp_source_spectrum.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/comp_source_spectrum.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/comp_source_time_function.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/comp_source_time_function.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/comp_source_time_function.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_add_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_add_sources.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_add_sources.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_adj_source_frechet.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_adj_source_frechet.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_adj_source_frechet.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_arrays_source.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_arrays_source.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_arrays_source.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_boundary_kernel.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_boundary_kernel.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_boundary_kernel.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_coupling.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_coupling.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_coupling.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_element.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_element.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_element.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_acoustic.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_acoustic.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_acoustic.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_crust_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_crust_mantle.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_crust_mantle.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_crust_mantle_Dev.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_crust_mantle_Dev.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_crust_mantle_Dev.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_elastic.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_elastic.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_elastic.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_inner_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_inner_core.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_inner_core.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_inner_core_Dev.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_inner_core_Dev.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_inner_core_Dev.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_outer_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_outer_core.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_outer_core.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_outer_core_Dev.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_outer_core_Dev.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_forces_outer_core_Dev.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_kernels.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_kernels.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_seismograms.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_seismograms.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_seismograms.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_stacey_crust_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_stacey_crust_mantle.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_stacey_crust_mantle.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_stacey_outer_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_stacey_outer_core.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/compute_stacey_outer_core.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/finalize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/finalize_simulation.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/finalize_simulation.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/get_attenuation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/get_attenuation.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/get_attenuation.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/get_backazimuth.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/get_backazimuth.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/get_backazimuth.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/initialize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/initialize_simulation.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/initialize_simulation.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/iterate_time.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_receivers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_receivers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_sources.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/locate_sources.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/multiply_arrays_source.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/multiply_arrays_source.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/multiply_arrays_source.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/netlib_specfun_erf.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/netlib_specfun_erf.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/netlib_specfun_erf.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/prepare_timerun.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/prepare_timerun.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/prepare_timerun.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_arrays_solver_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_attenuation_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_attenuation_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_attenuation_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays_adios.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays_adios.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_forward_arrays_adios.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_mesh_databases_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_topography_bathymetry.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_topography_bathymetry.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/read_topography_bathymetry.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_forward_arrays.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_forward_arrays.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_forward_arrays.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_forward_arrays_adios.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_forward_arrays_adios.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_forward_arrays_adios.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_kernels.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/save_kernels.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_GLL_points.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_GLL_points.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_GLL_points.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_sources_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_sources_receivers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/setup_sources_receivers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/specfem3D.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/specfem3D.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/specfem3D_par.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/specfem3D_par.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/specfem3D_par.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_output.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_output.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_output.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_surface.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_surface.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_surface.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_volume.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_volume.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_movie_volume.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_output_ASCII.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_output_ASCII.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_output_ASCII.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_output_SAC.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_output_SAC.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_output_SAC.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_seismograms.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_seismograms.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_seismograms.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_specfem_adios_header.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_specfem_adios_header.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/SPECFEM3D_GLOBE_SUNFLOWER/src/specfem3D/write_specfem_adios_header.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/part1_undo_att.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/part1_undo_att.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/part1_undo_att.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -918,7 +918,7 @@
write(IMAIN,*) ' Total number of time steps written: ', it-it_begin+1
write(IMAIN,*)
endif
- elseif(SIMULATION_TYPE == 2)then ! case of SIMULATION_TYPE == 2
+ else if(SIMULATION_TYPE == 2)then ! case of SIMULATION_TYPE == 2
if( nrec_local > 0 ) &
call write_adj_seismograms(seismograms,number_receiver_global, &
nrec_local,it,nit_written,DT, &
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_AVS_DX.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_AVS_DX.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_AVS_DX.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -1031,8 +1031,8 @@
! convert geographic latitude lat (degrees)
! to geocentric colatitude theta (radians)
- theta=PI/2.0d0-atan(0.99329534d0*tan(dble(lat(1))*PI/180.0d0))
- phi=dble(long(1))*PI/180.0d0
+ theta=PI_OVER_TWO-atan(0.99329534d0*tan(dble(lat(1))*DEGREES_TO_RADIANS))
+ phi=dble(long(1))*DEGREES_TO_RADIANS
call reduce(theta,phi)
! compute Cartesian position of the source (ignore ellipticity for AVS_DX)
@@ -1045,7 +1045,7 @@
! save triangle for AVS or DX representation of epicenter
r_target_source = 1.05d0
- delta_trgl = 1.8 * pi / 180.
+ delta_trgl = 1.8 * DEGREES_TO_RADIANS
x_source_trgl1 = r_target_source*sin(theta+delta_trgl)*cos(phi-delta_trgl)
y_source_trgl1 = r_target_source*sin(theta+delta_trgl)*sin(phi-delta_trgl)
z_source_trgl1 = r_target_source*cos(theta+delta_trgl)
@@ -1095,8 +1095,8 @@
! convert geographic latitude stlat (degrees)
! to geocentric colatitude theta (radians)
- theta=PI/2.0d0-atan(0.99329534d0*dtan(stlat(irec)*PI/180.0d0))
- phi=stlon(irec)*PI/180.0d0
+ theta=PI_OVER_TWO-atan(0.99329534d0*dtan(stlat(irec)*DEGREES_TO_RADIANS))
+ phi=stlon(irec)*DEGREES_TO_RADIANS
call reduce(theta,phi)
! compute the Cartesian position of the receiver (ignore ellipticity for AVS_DX)
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -141,6 +141,7 @@
! resolution
read(arg(6),*) ires
+ di = 0; dj = 0; dk = 0
if (ires == 0) then
HIGH_RESOLUTION_MESH = .false.
di = NGLLX-1; dj = NGLLY-1; dk = NGLLZ-1
@@ -195,6 +196,7 @@
read(27,*) nspec(it)
read(27,*) nglob(it)
close(27)
+
if (HIGH_RESOLUTION_MESH) then
npoint(it) = nglob(it)
nelement(it) = nspec(it) * (NGLLX-1) * (NGLLY-1) * (NGLLZ-1)
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data_vtk.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data_vtk.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/combine_vol_data_vtk.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_AVS_DX.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_AVS_DX.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/auxiliaries/create_movie_AVS_DX.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -616,12 +616,12 @@
! note: converts the geocentric colatitude to a geographic colatitude
if(.not. ASSUME_PERFECT_SPHERE) then
- thetaval = PI/2.0d0 - &
+ thetaval = PI_OVER_TWO - &
datan(1.006760466d0*dcos(dble(thetaval))/dmax1(TINYVAL,dble(sin(thetaval))))
endif
- lat = (PI/2.0-thetaval)*180.0/PI
- long = phival*180.0/PI
+ lat = (PI_OVER_TWO-thetaval)*RADIANS_TO_DEGREES
+ long = phival*RADIANS_TO_DEGREES
if(long > 180.0) long = long-360.0
write(11,*) long,lat,sngl(field_display(ilocnum+ieoff))
endif
@@ -804,8 +804,7 @@
! this for all the regions
integer, dimension(MAX_NUM_REGIONS) :: NSPEC, &
- NSPEC2D_XI, &
- NSPEC2D_ETA, &
+ NSPEC2D_XI,NSPEC2D_ETA, &
NSPEC2DMAX_XMIN_XMAX,NSPEC2DMAX_YMIN_YMAX, &
NSPEC2D_BOTTOM,NSPEC2D_TOP, &
NSPEC1D_RADIAL,NGLOB1D_RADIAL, &
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_410_650.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_410_650.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/add_topography_410_650.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -91,8 +91,8 @@
call reduce(theta,phi)
! get colatitude and longitude in degrees
- xcolat = sngl(theta*180.0d0/PI)
- xlon = sngl(phi*180.0d0/PI)
+ xcolat = sngl(theta*RADIANS_TO_DEGREES)
+ xlon = sngl(phi*RADIANS_TO_DEGREES)
! compute topography on 410 and 650 at current point
call subtopo(xcolat,xlon,topo410out,topo650out, &
@@ -205,8 +205,8 @@
call reduce(theta,phi)
! get colatitude and longitude in degrees
- xcolat = sngl(theta*180.0d0/PI)
- xlon = sngl(phi*180.0d0/PI)
+ xcolat = sngl(theta*RADIANS_TO_DEGREES)
+ xlon = sngl(phi*RADIANS_TO_DEGREES)
! compute topography on 410 and 650 at current point
call subtopo(xcolat,xlon,topo410out,topo650out, &
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_central_cube_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_central_cube_mesh.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_central_cube_mesh.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_scalar_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_scalar_mesh.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_scalar_mesh.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_vector_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_vector_mesh.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/assemble_MPI_vector_mesh.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/calc_jacobian.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/calc_jacobian.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/calc_jacobian.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -87,8 +87,8 @@
! first go over all 125 GLL points
do k=1,NGLLZ
- do j=1,NGLLY
- do i=1,NGLLX
+ do j=1,NGLLY
+ do i=1,NGLLX
xxi = ZERO
xeta = ZERO
@@ -100,14 +100,14 @@
zeta = ZERO
zgamma = ZERO
- xi = xigll(i)
- eta = yigll(j)
- gamma = zigll(k)
+ xi = xigll(i)
+ eta = yigll(j)
+ gamma = zigll(k)
- ! calculate lagrange polynomial and its derivative
- call lagrange_any(xi,NGLLX,xigll,hxir,hpxir)
- call lagrange_any(eta,NGLLY,yigll,hetar,hpetar)
- call lagrange_any(gamma,NGLLZ,zigll,hgammar,hpgammar)
+ ! calculate lagrange polynomial and its derivative
+ call lagrange_any(xi,NGLLX,xigll,hxir,hpxir)
+ call lagrange_any(eta,NGLLY,yigll,hetar,hpetar)
+ call lagrange_any(gamma,NGLLZ,zigll,hgammar,hpgammar)
! test parameters
sumshape = ZERO
@@ -246,10 +246,14 @@
jacobian2D,normal,NGLLA,NGLLB,NSPEC2DMAX_AB)
implicit none
+
include "constants.h"
+
! input parameters
integer::myrank,ispecb,NSPEC2DMAX_AB,NGLLA,NGLLB
+
double precision,dimension(NGLLA,NGLLB)::xelm2D,yelm2D,zelm2D
+
double precision,dimension(NGLLA)::xigll
double precision,dimension(NGLLB)::yigll
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_area.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_area.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_area.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_volumes.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_volumes.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_volumes.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_MPI_interfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_MPI_interfaces.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_MPI_interfaces.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_addressing.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_addressing.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_addressing.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_central_cube_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_central_cube_buffers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_central_cube_buffers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_meshes.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_meshes.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_meshes.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/create_regions_mesh_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/finalize_mesher.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/finalize_mesher.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/finalize_mesher.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/fix_non_blocking_flags.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/fix_non_blocking_flags.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/fix_non_blocking_flags.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_1D_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_1D_buffers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_1D_buffers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -74,13 +74,13 @@
! global point number and coordinates left MPI 1D buffer
open(unit=10,file=prname(1:len_trim(prname))//'ibool1D_leftxi_lefteta.txt',status='unknown')
-! erase the logical mask used to mark points already found
+ ! erase the logical mask used to mark points already found
mask_ibool(:) = .false.
-! nb of global points shared with the other slice
+ ! nb of global points shared with the other slice
npoin1D = 0
-! nb of elements in this 1D buffer
+ ! nb of elements in this 1D buffer
ispeccount=0
do ispec=1,nspec
@@ -124,13 +124,13 @@
! global point number and coordinates right MPI 1D buffer
open(unit=10,file=prname(1:len_trim(prname))//'ibool1D_rightxi_lefteta.txt',status='unknown')
-! erase the logical mask used to mark points already found
+ ! erase the logical mask used to mark points already found
mask_ibool(:) = .false.
-! nb of global points shared with the other slice
+ ! nb of global points shared with the other slice
npoin1D = 0
-! nb of elements in this 1D buffer
+ ! nb of elements in this 1D buffer
ispeccount=0
do ispec=1,nspec
! remove central cube for chunk buffers
@@ -138,7 +138,8 @@
idoubling(ispec) == IFLAG_BOTTOM_CENTRAL_CUBE .or. &
idoubling(ispec) == IFLAG_TOP_CENTRAL_CUBE .or. &
idoubling(ispec) == IFLAG_IN_FICTITIOUS_CUBE) cycle
- ! corner detection here
+
+ ! corner detection here
if(iMPIcut_xi(2,ispec) .and. iMPIcut_eta(1,ispec)) then
ispeccount=ispeccount+1
! loop on all the points
@@ -177,13 +178,13 @@
! global point number and coordinates left MPI 1D buffer
open(unit=10,file=prname(1:len_trim(prname))//'ibool1D_leftxi_righteta.txt',status='unknown')
-! erase the logical mask used to mark points already found
+ ! erase the logical mask used to mark points already found
mask_ibool(:) = .false.
-! nb of global points shared with the other slice
+ ! nb of global points shared with the other slice
npoin1D = 0
-! nb of elements in this 1D buffer
+ ! nb of elements in this 1D buffer
ispeccount=0
do ispec=1,nspec
@@ -232,13 +233,13 @@
! global point number and coordinates right MPI 1D buffer
open(unit=10,file=prname(1:len_trim(prname))//'ibool1D_rightxi_righteta.txt',status='unknown')
-! erase the logical mask used to mark points already found
+ ! erase the logical mask used to mark points already found
mask_ibool(:) = .false.
-! nb of global points shared with the other slice
+ ! nb of global points shared with the other slice
npoin1D = 0
-! nb of elements in this 1D buffer
+ ! nb of elements in this 1D buffer
ispeccount=0
do ispec=1,nspec
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_interfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_interfaces.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_MPI_interfaces.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -37,7 +37,7 @@
integer nspec,myrank
- integer NSPEC2DMAX_XMIN_XMAX,NSPEC2DMAX_YMIN_YMAX,NSPEC2D_BOTTOM
+ integer :: NSPEC2DMAX_XMIN_XMAX,NSPEC2DMAX_YMIN_YMAX,NSPEC2D_BOTTOM
integer nimin(2,NSPEC2DMAX_YMIN_YMAX),nimax(2,NSPEC2DMAX_YMIN_YMAX)
integer njmin(2,NSPEC2DMAX_XMIN_XMAX),njmax(2,NSPEC2DMAX_XMIN_XMAX)
@@ -55,6 +55,7 @@
! processor identification
character(len=150) prname
+ ! initializes
ispecb1=0
ispecb2=0
ispecb3=0
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_absorb_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_model.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_model.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -42,7 +42,7 @@
implicit none
- integer myrank,iregion_code,ispec,nspec,idoubling
+ integer :: myrank,iregion_code,ispec,nspec,idoubling
real(kind=CUSTOM_REAL) kappavstore(NGLLX,NGLLY,NGLLZ,nspec)
real(kind=CUSTOM_REAL) kappahstore(NGLLX,NGLLY,NGLLZ,nspec)
@@ -52,15 +52,15 @@
real(kind=CUSTOM_REAL) rhostore(NGLLX,NGLLY,NGLLZ,nspec)
real(kind=CUSTOM_REAL) dvpstore(NGLLX,NGLLY,NGLLZ,nspec)
- integer nspec_ani
+ integer :: nspec_ani
real(kind=CUSTOM_REAL), dimension(NGLLX,NGLLY,NGLLZ,nspec_ani) :: &
c11store,c12store,c13store,c14store,c15store,c16store, &
c22store,c23store,c24store,c25store,c26store, &
c33store,c34store,c35store,c36store, &
c44store,c45store,c46store,c55store,c56store,c66store
- integer nspec_stacey
- real(kind=CUSTOM_REAL) rho_vp(NGLLX,NGLLY,NGLLZ,nspec_stacey),rho_vs(NGLLX,NGLLY,NGLLZ,nspec_stacey)
+ integer :: nspec_stacey
+ real(kind=CUSTOM_REAL),dimension(NGLLX,NGLLY,NGLLZ,nspec_stacey):: rho_vp,rho_vs
double precision, dimension(NGLLX,NGLLY,NGLLZ,nspec) :: xstore,ystore,zstore
@@ -68,7 +68,7 @@
RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN
! attenuation values
- integer vx,vy,vz,vnspec
+ integer :: vx,vy,vz,vnspec
double precision, dimension(N_SLS) :: tau_s
real(kind=CUSTOM_REAL), dimension(vx, vy, vz, vnspec) :: Qmu_store
real(kind=CUSTOM_REAL), dimension(N_SLS, vx, vy, vz, vnspec) :: tau_e_store
@@ -78,18 +78,18 @@
logical elem_in_crust,elem_in_mantle
! local parameters
- double precision xmesh,ymesh,zmesh
+ double precision :: xmesh,ymesh,zmesh
! the 21 coefficients for an anisotropic medium in reduced notation
- double precision c11,c12,c13,c14,c15,c16,c22,c23,c24,c25,c26,c33, &
+ double precision :: c11,c12,c13,c14,c15,c16,c22,c23,c24,c25,c26,c33, &
c34,c35,c36,c44,c45,c46,c55,c56,c66
double precision, dimension(N_SLS) :: tau_e
! local parameters
- double precision rho,dvp
- double precision vpv,vph,vsv,vsh,eta_aniso
- double precision Qkappa,Qmu
- double precision r,r_prem,moho
- integer i,j,k
+ double precision :: rho,dvp
+ double precision :: vpv,vph,vsv,vsh,eta_aniso
+ double precision :: Qkappa,Qmu
+ double precision :: r,r_prem,moho
+ integer :: i,j,k
! loops over all gll points for this spectral element
do k=1,NGLLZ
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_perm_color.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_perm_color.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/get_perm_color.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -1,4 +1,31 @@
+!=====================================================================
+!
+! S p e c f e m 3 D G l o b e V e r s i o n 5 . 1
+! --------------------------------------------------
+!
+! Main authors: Dimitri Komatitsch and Jeroen Tromp
+! Princeton University, USA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
+! April 2011
+!
+! This program is free software; you can redistribute it and/or modify
+! it under the terms of the GNU General Public License as published by
+! the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! This program is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU General Public License for more details.
+!
+! You should have received a copy of the GNU General Public License along
+! with this program; if not, write to the Free Software Foundation, Inc.,
+! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+!
+!=====================================================================
+
! define sets of colors that contain disconnected elements for the CUDA solver.
! also split the elements into two subsets: inner and outer elements, in order
! to be able to compute the outer elements first in the solver and then
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/heap_sort.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/heap_sort.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/heap_sort.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/initialize_layers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/initialize_layers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/initialize_layers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/initialize_mesher.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/initialize_mesher.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/initialize_mesher.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_par.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_par.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/meshfem3D_par.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ak135.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ak135.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_ak135.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -41,6 +41,7 @@
! Constraints on seismic velocities in the Earth from traveltimes,
! Geophysical Journal International, volume 122, issue 1, pages 108-124 (1995),
! DOI: 10.1111/j.1365-246X.1995.tb03540.x
+!--------------------------------------------------------------------------------------------------
! J. P. Montagner and B. L. N. Kennett,
! How to reconcile body-wave and normal-mode reference Earth models?,
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_atten3D_QRFSI12.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -37,8 +37,14 @@
! Last edit: Colleen Dalton, March 25, 2008
!
! Q1: what are theta and phi?
+! A1: input theta is colatitude in degrees, phi is longitude in degrees
+!
! Q2: units for radius?
+! A2: radius is given in km
+!
! Q3: what to do about core?
+! A3: more research :)
+!
!--------------------------------------------------------------------------------------------------
@@ -165,8 +171,9 @@
end subroutine read_atten_model_3D_QRFSI12
+!
!----------------------------------
-!----------------------------------
+!
subroutine model_atten3D_QRFSI12(radius,theta,phi,Qmu,QRFSI12_Q,idoubling)
@@ -196,14 +203,18 @@
double precision, parameter :: rmoho_prem = 6371.0-24.4
double precision, parameter :: rcmb = 3480.0
- !in Colleen's original code theta refers to the latitude. Here we have redefined theta to be colatitude
- !to agree with the rest of specfem
-! print *,'entering QRFSI12 subroutine'
+ ! in Colleen's original code theta refers to the latitude. Here we have redefined theta to be colatitude
+ ! to agree with the rest of specfem
+ ! debug
+ ! print *,'entering QRFSI12 subroutine'
+
ylat=90.0d0-theta
xlon=phi
-! only checks radius for crust, idoubling is missleading for oceanic crust when we want to expand mantle up to surface...
+ ! only checks radius for crust, idoubling is missleading for oceanic crust
+ ! when we want to expand mantle up to surface...
+
! !if(idoubling == IFLAG_CRUST .or. radius >= rmoho) then
if( radius >= rmoho_prem ) then
! print *,'QRFSI12: we are in the crust'
@@ -211,8 +222,13 @@
else if(idoubling == IFLAG_INNER_CORE_NORMAL .or. idoubling == IFLAG_MIDDLE_CENTRAL_CUBE .or. &
idoubling == IFLAG_BOTTOM_CENTRAL_CUBE .or. idoubling == IFLAG_TOP_CENTRAL_CUBE .or. &
idoubling == IFLAG_IN_FICTITIOUS_CUBE) then
- ! print *,'QRFSI12: we are in the inner core'
- Qmu = 84.6d0
+ ! we are in the inner core
+
+ !debug
+ ! print *,'QRFSI12: we are in the inner core'
+
+ Qmu = 84.6d0
+
else if(idoubling == IFLAG_OUTER_CORE_NORMAL) then
! print *,'QRFSI12: we are in the outer core'
Qmu = 0.0d0
@@ -254,6 +270,7 @@
endif
! if smallq is small and negative (due to numerical error), Qmu is very large:
if(smallq < 0.0d0) smallq = 1.0d0/ATTENUATION_COMP_MAXIMUM
+
Qmu = 1/smallq
! Qmu is larger than MAX_ATTENUATION_VALUE, set it to ATTENUATION_COMP_MAXIMUM. This assumes that this
! value is high enough that at this point there is almost no attenuation at all.
@@ -263,8 +280,9 @@
end subroutine model_atten3D_QRFSI12
+!
!----------------------------------
-!----------------------------------
+!
!!$ subroutine vbspl(x,np,xarr,splcon,splcond)
!!$!
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp1d.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp1d.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_jp1d.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -32,7 +32,7 @@
!--------------------------------------------------------------------------------------------------
-subroutine model_jp1d(myrank,x,rho,vp,vs,Qkappa,Qmu,idoubling, &
+ subroutine model_jp1d(myrank,x,rho,vp,vs,Qkappa,Qmu,idoubling, &
check_doubling_flag,RICB,RCMB,RTOPDDOUBLEPRIME, &
R670,R220,R771,R400,R80,RMOHO,RMIDDLE_CRUST)
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_s40rts.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -67,6 +67,8 @@
! model_s40rts_variables
integer :: myrank
+
+ ! local parameters
integer :: ier
! the variables read are declared and stored in structure S40RTS_V
if(myrank == 0) call read_model_s40rts(S40RTS_V)
@@ -112,7 +114,7 @@
call get_value_string(S40RTS, 'model.S40RTS', 'DATA/s40rts/S40RTS.dat')
call get_value_string(P12, 'model.P12', 'DATA/s20rts/P12.dat') !model P12 is in s20rts data directory
-! S40RTS degree 20 S model from Ritsema
+ ! S40RTS degree 40 S model from Ritsema
open(unit=10,file=S40RTS,status='old',action='read',iostat=ier)
if ( ier /= 0 ) then
write(IMAIN,*) 'error opening "', trim(S40RTS), '": ', ier
@@ -183,12 +185,13 @@
double precision, parameter :: R_EARTH_ = 6371000.d0
double precision, parameter :: ZERO_ = 0.d0
- integer l,m,k
- double precision r_moho,r_cmb,xr
- double precision dvs_alm,dvs_blm
- double precision dvp_alm,dvp_blm
- double precision s40rts_rsple,radial_basis(0:NK_20)
- double precision sint,cost,x(2*NS_40+1),dx(2*NS_40+1)
+ integer :: l,m,k
+ double precision :: r_moho,r_cmb,xr
+ double precision :: dvs_alm,dvs_blm
+ double precision :: dvp_alm,dvp_blm
+ double precision :: s40rts_rsple,radial_basis(0:NK_20)
+ double precision :: sint,cost,x(2*NS_40+1),dx(2*NS_40+1)
+
dvs = ZERO_
dvp = ZERO_
drho = ZERO_
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver_adios.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver_adios.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/save_arrays_solver_adios.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_MPI_interfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_MPI_interfaces.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_MPI_interfaces.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_color_perm.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_color_perm.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_color_perm.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_counters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_counters.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_counters.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_inner_outer.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_inner_outer.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_inner_outer.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_model.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/setup_model.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/sort_array_coordinates.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -27,7 +27,9 @@
! subroutines to sort MPI buffers to assemble between chunks
- subroutine sort_array_coordinates(npointot,x,y,z,ibool,iglob,loc,ifseg,nglob,ind,ninseg,iwork,work)
+ subroutine sort_array_coordinates(npointot,x,y,z, &
+ ibool,iglob,loc,ifseg,nglob, &
+ ind,ninseg,iwork,work)
! this routine MUST be in double precision to avoid sensitivity
! to roundoff errors in the coordinates of the points
@@ -36,7 +38,7 @@
include "constants.h"
- integer npointot,nglob
+ integer :: npointot,nglob
integer ibool(npointot),iglob(npointot),loc(npointot)
integer ind(npointot),ninseg(npointot)
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/test_MPI_interfaces.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/test_MPI_interfaces.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/test_MPI_interfaces.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_chunks_data_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_chunks_data_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_chunks_data_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_data_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_data_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_data_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_faces_data_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_faces_data_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_global_faces_data_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_surface_data_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_surface_data_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/write_AVS_DX_surface_data_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/adios_helpers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/adios_helpers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/adios_helpers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/adios_manager.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/adios_manager.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/adios_manager.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/auto_ner.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -58,6 +58,8 @@
integer NEX_MAX
double precision DT, WIDTH
+
+ ! local parameters
double precision RADIAL_LEN_RATIO_CENTRAL_CUBE
double precision RADIUS_INNER_CORE
double precision DOUBLING_INNER_CORE
@@ -334,8 +336,10 @@
max_aspect_ratio = 0.0d0
call compute_nex(nex_xi, rcube_test, alpha, nex_eta)
npts = (4 * nex_xi * nex_eta * NBNODE) + (nex_xi * nex_xi * NBNODE)
+
allocate(points(npts, 2))
call compute_IC_mesh(rcube_test, points, npts, nspec_cube, nspec_chunks, nex_xi, nex_eta)
+
nspec = nspec_cube + nspec_chunks
do ispec = 1,nspec
call get_element(points, ispec, npts, elem)
@@ -349,6 +353,7 @@
! xi = abs(rcube_test - 981.0d0) / 45.0d0
! write(*,'(a,5(f14.4,2x))')'rcube, xi, ximin:-',rcube_test, xi, min_edgemin,max_edgemax,max_aspect_ratio
deallocate(points)
+
if(xi < ximin) then
ximin = xi
rcube = rcube_test
@@ -428,6 +433,7 @@
subroutine get_size_min_max(pts, edgemax, edgemin)
implicit none
+
integer ie, ix1,ix2,ix3
integer, parameter :: NBNODE = 8
double precision edgemax, edgemin, edge
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_elements.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_elements.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_elements.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_points.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_points.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/count_points.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/define_all_layers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/define_all_layers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/define_all_layers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/exit_mpi.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -32,26 +32,26 @@
implicit none
-! standard include of the MPI library
+ ! standard include of the MPI library
include 'mpif.h'
include "constants.h"
-! identifier for error message file
+ ! identifier for error message file
integer, parameter :: IERROR = 30
- integer myrank
+ integer :: myrank
character(len=*) error_msg
- integer ier
+ integer :: ier
character(len=80) outputname
character(len=150) OUTPUT_FILES
-! write error message to screen
+ ! write error message to screen
write(*,*) error_msg(1:len(error_msg))
write(*,*) 'Error detected, aborting MPI... proc ',myrank
-! write error message to file
+ ! write error message to file
call get_value_string(OUTPUT_FILES, 'OUTPUT_FILES', 'OUTPUT_FILES')
write(outputname,"('/error_message',i6.6,'.txt')") myrank
open(unit=IERROR,file=trim(OUTPUT_FILES)//outputname,status='unknown')
@@ -59,17 +59,17 @@
write(IERROR,*) 'Error detected, aborting MPI... proc ',myrank
close(IERROR)
-! close output file
+ ! close output file
if(myrank == 0 .and. IMAIN /= ISTANDARD_OUTPUT) close(IMAIN)
-! stop all the MPI processes, and exit
-! note: MPI_ABORT does not return, and does exit the
-! program with an error code of 30
+ ! stop all the MPI processes, and exit
+ ! note: MPI_ABORT does not return, and does exit the
+ ! program with an error code of 30
call MPI_ABORT(MPI_COMM_WORLD,30,ier)
-! otherwise: there is no standard behaviour to exit with an error code in fortran,
-! however most compilers do recognize this as an error code stop statement;
-! to check stop code in terminal: > echo $?
+ ! otherwise: there is no standard behaviour to exit with an error code in fortran,
+ ! however most compilers do recognize this as an error code stop statement;
+ ! to check stop code in terminal: > echo $?
stop 30
! or just exit with message:
@@ -78,7 +78,7 @@
end subroutine exit_MPI
!
-!----
+!-------------------------------------------------------------------------------------------------
!
! version without rank number printed in the error message
@@ -86,30 +86,58 @@
implicit none
-! standard include of the MPI library
+ ! standard include of the MPI library
include 'mpif.h'
include "constants.h"
character(len=*) error_msg
- integer ier
+ integer :: ier
-! write error message to screen
+ ! write error message to screen
write(*,*) error_msg(1:len(error_msg))
write(*,*) 'Error detected, aborting MPI...'
-! stop all the MPI processes, and exit
+ ! stop all the MPI processes, and exit
call MPI_ABORT(MPI_COMM_WORLD,30,ier)
stop 'error, program ended in exit_MPI'
end subroutine exit_MPI_without_rank
+!-------------------------------------------------------------------------------------------------
+!
+! I/O wrapper function
+!
+!-------------------------------------------------------------------------------------------------
+ subroutine flush_IMAIN()
+
+ implicit none
+
+ include "constants.h"
+
+ ! only master process writes out to main output file
+ ! file I/O in fortran is buffered by default
+ !
+ ! note: Fortran2003 includes a FLUSH statement
+ ! which is implemented by most compilers by now
+ !
+ ! otherwise:
+ ! a) comment out the line below
+ ! b) try to use instead: call flush(IMAIN)
+
+ flush(IMAIN)
+
+ end subroutine flush_IMAIN
+
+!-------------------------------------------------------------------------------------------------
!
+! MPI wrapper functions
+!
!-------------------------------------------------------------------------------------------------
-!
+
subroutine sync_all()
implicit none
@@ -128,3 +156,431 @@
end subroutine sync_all
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine irecv_cr(recvbuf, recvcount, dest, recvtag, req)
+
+ implicit none
+
+ ! standard include of the MPI library
+ include 'mpif.h'
+
+ include "constants.h"
+ include "precision.h"
+
+ integer recvcount, dest, recvtag, req
+ real(kind=CUSTOM_REAL), dimension(recvcount) :: recvbuf
+
+ integer ier
+
+ call MPI_IRECV(recvbuf(1),recvcount,CUSTOM_MPI_TYPE,dest,recvtag, &
+ MPI_COMM_WORLD,req,ier)
+
+ end subroutine irecv_cr
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine isend_cr(sendbuf, sendcount, dest, sendtag, req)
+
+ implicit none
+
+ ! standard include of the MPI library
+ include 'mpif.h'
+
+ include "constants.h"
+ include "precision.h"
+
+ integer sendcount, dest, sendtag, req
+ real(kind=CUSTOM_REAL), dimension(sendcount) :: sendbuf
+
+ integer ier
+
+ call MPI_ISEND(sendbuf(1),sendcount,CUSTOM_MPI_TYPE,dest,sendtag, &
+ MPI_COMM_WORLD,req,ier)
+
+ end subroutine isend_cr
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine wait_req(req)
+
+ implicit none
+
+ ! standard include of the MPI library
+ include 'mpif.h'
+
+ integer :: req
+
+ integer, dimension(MPI_STATUS_SIZE) :: req_mpi_status
+
+ integer :: ier
+
+ call mpi_wait(req,req_mpi_status,ier)
+
+ end subroutine wait_req
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ double precision function wtime()
+
+ implicit none
+
+ ! standard include of the MPI library
+ include 'mpif.h'
+
+ wtime = MPI_WTIME()
+
+ end function wtime
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine min_all_i(sendbuf, recvbuf)
+
+ implicit none
+
+! standard include of the MPI library
+ include 'mpif.h'
+
+ include "constants.h"
+ include "precision.h"
+
+ integer:: sendbuf, recvbuf
+ integer ier
+
+ call MPI_REDUCE(sendbuf,recvbuf,1,MPI_INTEGER, &
+ MPI_MIN,0,MPI_COMM_WORLD,ier)
+
+ end subroutine min_all_i
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine max_all_i(sendbuf, recvbuf)
+
+ implicit none
+
+! standard include of the MPI library
+ include 'mpif.h'
+
+ include "constants.h"
+ include "precision.h"
+
+ integer :: sendbuf, recvbuf
+ integer :: ier
+
+ call MPI_REDUCE(sendbuf,recvbuf,1,MPI_INTEGER, &
+ MPI_MAX,0,MPI_COMM_WORLD,ier)
+
+ end subroutine max_all_i
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine max_all_cr(sendbuf, recvbuf)
+
+ implicit none
+
+! standard include of the MPI library
+ include 'mpif.h'
+
+ include "constants.h"
+ include "precision.h"
+
+ real(kind=CUSTOM_REAL) :: sendbuf, recvbuf
+ integer :: ier
+
+ call MPI_REDUCE(sendbuf,recvbuf,1,CUSTOM_MPI_TYPE, &
+ MPI_MAX,0,MPI_COMM_WORLD,ier)
+
+ end subroutine max_all_cr
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine sum_all_i(sendbuf, recvbuf)
+
+ implicit none
+
+! standard include of the MPI library
+ include 'mpif.h'
+
+ integer :: sendbuf, recvbuf
+ integer :: ier
+
+ call MPI_REDUCE(sendbuf,recvbuf,1,MPI_INTEGER, &
+ MPI_SUM,0,MPI_COMM_WORLD,ier)
+
+ end subroutine sum_all_i
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine sum_all_dp(sendbuf, recvbuf)
+
+ implicit none
+
+! standard include of the MPI library
+ include 'mpif.h'
+
+ double precision sendbuf, recvbuf
+ integer ier
+
+ call MPI_REDUCE(sendbuf,recvbuf,1,MPI_DOUBLE_PRECISION, &
+ MPI_SUM,0,MPI_COMM_WORLD,ier)
+
+ end subroutine sum_all_dp
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine bcast_iproc_i(buffer,iproc)
+
+ implicit none
+
+! standard include of the MPI library
+ include 'mpif.h'
+
+ integer :: iproc
+ integer :: buffer
+
+ integer ier
+
+ call MPI_BCAST(buffer,1,MPI_INTEGER,iproc,MPI_COMM_WORLD,ier)
+
+ end subroutine bcast_iproc_i
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine bcast_all_singlei(buffer)
+
+ implicit none
+
+! standard include of the MPI library
+ include 'mpif.h'
+
+ integer :: buffer
+
+ integer ier
+
+ call MPI_BCAST(buffer,1,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
+
+ end subroutine bcast_all_singlei
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+
+ subroutine recv_singlei(recvbuf, dest, recvtag)
+
+ implicit none
+
+! standard include of the MPI library
+ include 'mpif.h'
+
+ integer :: dest,recvtag
+ integer :: recvbuf
+
+ ! MPI status of messages to be received
+ integer :: msg_status(MPI_STATUS_SIZE)
+ integer :: ier
+
+ call MPI_RECV(recvbuf,1,MPI_INTEGER,dest,recvtag,MPI_COMM_WORLD,msg_status,ier)
+
+ end subroutine recv_singlei
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+
+ subroutine recv_i(recvbuf, recvcount, dest, recvtag)
+
+ implicit none
+
+! standard include of the MPI library
+ include 'mpif.h'
+
+ integer :: dest,recvtag
+ integer :: recvcount
+ integer,dimension(recvcount) :: recvbuf
+
+ ! MPI status of messages to be received
+ integer :: msg_status(MPI_STATUS_SIZE)
+ integer :: ier
+
+ call MPI_RECV(recvbuf,recvcount,MPI_INTEGER,dest,recvtag,MPI_COMM_WORLD,msg_status,ier)
+
+ end subroutine recv_i
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine send_i(sendbuf, sendcount, dest, sendtag)
+
+ implicit none
+
+ ! standard include of the MPI library
+ include 'mpif.h'
+
+ !integer sendbuf,sendcount,dest,sendtag
+ integer dest,sendtag
+ integer sendcount
+ integer,dimension(sendcount):: sendbuf
+ integer ier
+
+ call MPI_SEND(sendbuf,sendcount,MPI_INTEGER,dest,sendtag,MPI_COMM_WORLD,ier)
+
+ end subroutine send_i
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine send_singlei(sendbuf, dest, sendtag)
+
+ implicit none
+
+ ! standard include of the MPI library
+ include 'mpif.h'
+
+ !integer sendbuf,sendcount,dest,sendtag
+ integer :: dest,sendtag
+ integer :: sendbuf
+ integer :: ier
+
+ call MPI_SEND(sendbuf,1,MPI_INTEGER,dest,sendtag,MPI_COMM_WORLD,ier)
+
+ end subroutine send_singlei
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine world_size(size)
+
+ implicit none
+
+ ! standard include of the MPI library
+ include 'mpif.h'
+
+ integer size
+ integer ier
+
+ call MPI_COMM_SIZE(MPI_COMM_WORLD,size,ier)
+
+ end subroutine world_size
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine world_rank(rank)
+
+ implicit none
+
+ ! standard include of the MPI library
+ include 'mpif.h'
+
+ integer rank
+ integer ier
+
+ call MPI_COMM_RANK(MPI_COMM_WORLD,rank,ier)
+
+ end subroutine world_rank
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine gather_all_i(sendbuf, sendcnt, recvbuf, recvcount, NPROC)
+
+ implicit none
+
+ ! standard include of the MPI library
+ include 'mpif.h'
+
+ integer sendcnt, recvcount, NPROC
+ integer, dimension(sendcnt) :: sendbuf
+ integer, dimension(recvcount,0:NPROC-1) :: recvbuf
+
+ integer ier
+
+ call MPI_GATHER(sendbuf,sendcnt,MPI_INTEGER, &
+ recvbuf,recvcount,MPI_INTEGER, &
+ 0,MPI_COMM_WORLD,ier)
+
+ end subroutine gather_all_i
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine gatherv_all_i(sendbuf, sendcnt, recvbuf, recvcount, recvoffset,recvcounttot, NPROC)
+
+ implicit none
+
+ ! standard include of the MPI library
+ include 'mpif.h'
+
+ include "constants.h"
+ include "precision.h"
+
+ integer :: sendcnt,recvcounttot,NPROC
+ integer, dimension(NPROC) :: recvcount,recvoffset
+ integer, dimension(sendcnt) :: sendbuf
+ integer, dimension(recvcounttot) :: recvbuf
+
+ integer :: ier
+
+ call MPI_GATHERV(sendbuf,sendcnt,MPI_INTEGER, &
+ recvbuf,recvcount,recvoffset,MPI_INTEGER, &
+ 0,MPI_COMM_WORLD,ier)
+
+ end subroutine gatherv_all_i
+
+!
+!-------------------------------------------------------------------------------------------------
+!
+
+ subroutine gatherv_all_cr(sendbuf, sendcnt, recvbuf, recvcount, recvoffset,recvcounttot, NPROC)
+
+ implicit none
+
+ ! standard include of the MPI library
+ include 'mpif.h'
+
+ include "constants.h"
+ include "precision.h"
+
+ integer :: sendcnt,recvcounttot,NPROC
+ integer, dimension(NPROC) :: recvcount,recvoffset
+ real(kind=CUSTOM_REAL), dimension(sendcnt) :: sendbuf
+ real(kind=CUSTOM_REAL), dimension(recvcounttot) :: recvbuf
+
+ integer :: ier
+
+ call MPI_GATHERV(sendbuf,sendcnt,CUSTOM_MPI_TYPE, &
+ recvbuf,recvcount,recvoffset,CUSTOM_MPI_TYPE, &
+ 0,MPI_COMM_WORLD,ier)
+
+ end subroutine gatherv_all_cr
+
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_timestep_and_layers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_timestep_and_layers.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/get_timestep_and_layers.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/lagrange_poly.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/lagrange_poly.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/lagrange_poly.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -32,35 +32,38 @@
implicit none
- integer NGLL
- double precision xi,xigll(NGLL),h(NGLL),hprime(NGLL)
+ double precision,intent(in) :: xi
- integer dgr,i,j
- double precision prod1,prod2
+ integer,intent(in) :: NGLL
+ double precision,dimension(NGLL),intent(in) :: xigll
+ double precision,dimension(NGLL),intent(out) :: h,hprime
+ integer :: dgr,i,j
+ double precision :: prod1,prod2
+
do dgr=1,NGLL
- prod1 = 1.0d0
- prod2 = 1.0d0
- do i=1,NGLL
- if(i /= dgr) then
- prod1 = prod1*(xi-xigll(i))
- prod2 = prod2*(xigll(dgr)-xigll(i))
- endif
- enddo
- h(dgr)=prod1/prod2
+ prod1 = 1.0d0
+ prod2 = 1.0d0
+ do i=1,NGLL
+ if(i /= dgr) then
+ prod1 = prod1*(xi-xigll(i))
+ prod2 = prod2*(xigll(dgr)-xigll(i))
+ endif
+ enddo
+ h(dgr)=prod1/prod2
- hprime(dgr)=0.0d0
- do i=1,NGLL
- if(i /= dgr) then
- prod1=1.0d0
- do j=1,NGLL
- if(j /= dgr .and. j /= i) prod1 = prod1*(xi-xigll(j))
- enddo
- hprime(dgr) = hprime(dgr)+prod1
- endif
- enddo
- hprime(dgr) = hprime(dgr)/prod2
+ hprime(dgr) = 0.0d0
+ do i=1,NGLL
+ if(i /= dgr) then
+ prod1 = 1.0d0
+ do j=1,NGLL
+ if(j /= dgr .and. j /= i) prod1 = prod1*(xi-xigll(j))
+ enddo
+ hprime(dgr) = hprime(dgr)+prod1
+ endif
+ enddo
+ hprime(dgr) = hprime(dgr)/prod2
enddo
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/save_header_file.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -134,7 +134,7 @@
endif
write(IOUT,*) '!'
- write(IOUT,*) '! number of processors = ',NPROCTOT
+ write(IOUT,*) '! number of processors = ',NPROCTOT ! should be = NPROC
write(IOUT,*) '!'
write(IOUT,*) '! maximum number of points per region = ',nglob(IREGION_CRUST_MANTLE)
write(IOUT,*) '!'
@@ -147,16 +147,16 @@
write(IOUT,*) '! total points per slice = ',sum(nglob)
write(IOUT,*) '!'
- write(IOUT,*) '! total for full 6-chunk mesh:'
+ write(IOUT,'(1x,a,i1,a)') '! total for full ',NCHUNKS,'-chunk mesh:'
write(IOUT,*) '! ---------------------------'
write(IOUT,*) '!'
write(IOUT,*) '! exact total number of spectral elements in entire mesh = '
- write(IOUT,*) '! ',6.d0*dble(NPROC)*dble(sum(NSPEC)) - subtract_central_cube_elems
+ write(IOUT,*) '! ',dble(NCHUNKS)*dble(NPROC)*dble(sum(NSPEC)) - subtract_central_cube_elems
write(IOUT,*) '! approximate total number of points in entire mesh = '
- write(IOUT,*) '! ',2.d0*dble(NPROC)*(3.d0*dble(sum(nglob))) - subtract_central_cube_points
+ write(IOUT,*) '! ',dble(NCHUNKS)*dble(NPROC)*dble(sum(nglob)) - subtract_central_cube_points
! there are 3 DOFs in solid regions, but only 1 in fluid outer core
write(IOUT,*) '! approximate total number of degrees of freedom in entire mesh = '
- write(IOUT,*) '! ',6.d0*dble(NPROC)*(3.d0*(dble(sum(nglob))) &
+ write(IOUT,*) '! ',dble(NCHUNKS)*dble(NPROC)*(3.d0*(dble(sum(nglob))) &
- 2.d0*dble(nglob(IREGION_OUTER_CORE))) &
- 3.d0*subtract_central_cube_points
write(IOUT,*) '!'
@@ -222,12 +222,12 @@
call reduce(theta_corner,phi_corner)
! convert geocentric to geographic colatitude
- colat_corner=PI/2.0d0-datan(1.006760466d0*dcos(theta_corner)/dmax1(TINYVAL,dsin(theta_corner)))
+ colat_corner=PI_OVER_TWO-datan(1.006760466d0*dcos(theta_corner)/dmax1(TINYVAL,dsin(theta_corner)))
if(phi_corner>PI) phi_corner=phi_corner-TWO_PI
! compute real position of the source
- lat = (PI/2.0d0-colat_corner)*180.0d0/PI
- long = phi_corner*180.0d0/PI
+ lat = (PI_OVER_TWO-colat_corner)*RADIANS_TO_DEGREES
+ long = phi_corner*RADIANS_TO_DEGREES
write(IOUT,*) '!'
write(IOUT,*) '! corner ',icorner
@@ -486,6 +486,7 @@
write(IOUT,*) 'integer, parameter :: ATT3 = ',att3
write(IOUT,*) 'integer, parameter :: ATT4 = ',att4
write(IOUT,*) 'integer, parameter :: ATT5 = ',att5
+ write(IOUT,*)
write(IOUT,*) 'integer, parameter :: NSPEC2DMAX_XMIN_XMAX_CM = ',NSPEC2DMAX_XMIN_XMAX(IREGION_CRUST_MANTLE)
write(IOUT,*) 'integer, parameter :: NSPEC2DMAX_YMIN_YMAX_CM = ',NSPEC2DMAX_YMIN_YMAX(IREGION_CRUST_MANTLE)
@@ -523,6 +524,7 @@
write(IOUT,*) 'integer, parameter :: NSPEC2D_670 = ',NSPEC2D_670
write(IOUT,*) 'integer, parameter :: NSPEC2D_CMB = ',NSPEC2D_CMB
write(IOUT,*) 'integer, parameter :: NSPEC2D_ICB = ',NSPEC2D_ICB
+ write(IOUT,*)
! deville routines only implemented for NGLLX = NGLLY = NGLLZ = 5
if( NGLLX == 5 .and. NGLLY == 5 .and. NGLLZ == 5 ) then
@@ -538,6 +540,7 @@
else
write(IOUT,*) 'logical, parameter :: COMPUTE_AND_STORE_STRAIN = .false.'
endif
+ write(IOUT,*)
if (MOVIE_VOLUME) then
write(IOUT,*) 'integer, parameter :: NSPEC_CRUST_MANTLE_3DMOVIE = NSPEC_CRUST_MANTLE'
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/write_VTK_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/write_VTK_file.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/shared/write_VTK_file.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_acoustic.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_acoustic.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_acoustic.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_crust_mantle.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_elastic.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_elastic.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_elastic.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_inner_core.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/compute_forces_outer_core.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/finalize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/finalize_simulation.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/finalize_simulation.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/get_event_info.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -60,6 +60,7 @@
integer, intent(in) :: NSOURCES ! must be given
double precision, intent(out) :: t_shift
+
character(len=20), intent(out) :: event_name
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/iterate_time.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/iterate_time.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/iterate_time.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_solver_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_solver_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_arrays_solver_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_attenuation_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_attenuation_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_attenuation_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_forward_arrays_adios.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_forward_arrays_adios.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_forward_arrays_adios.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases_adios.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases_adios.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases_adios.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_topography_bathymetry.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_topography_bathymetry.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_topography_bathymetry.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_forward_arrays_adios.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_forward_arrays_adios.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/save_forward_arrays_adios.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_GLL_points.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_GLL_points.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/setup_GLL_points.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D_par.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D_par.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/specfem3D_par.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_output.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_output.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_output.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_surface.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -75,7 +75,7 @@
! get coordinates of surface mesh and surface displacement
ipoin = 0
- do ispec2D = 1, nspec_top ! NSPEC2D_TOP(IREGION_CRUST_MANTLE)
+ do ispec2D = 1, NSPEC_TOP ! NSPEC2D_TOP(IREGION_CRUST_MANTLE)
ispec = ibelm_top_crust_mantle(ispec2D)
! in case of global, NCHUNKS_VAL == 6 simulations, be aware that for
@@ -121,7 +121,10 @@
! save movie data to disk in home directory
if(myrank == 0) then
write(outputname,"('/moviedata',i6.6)") it
- open(unit=IOUT,file=trim(OUTPUT_FILES)//outputname,status='unknown',form='unformatted',action='write')
+ open(unit=IOUT,file=trim(OUTPUT_FILES)//outputname, &
+ status='unknown',form='unformatted',action='write',iostat=ier)
+ if( ier /= 0 ) call exit_mpi(myrank,'error opening moviedata file')
+
write(IOUT) store_val_x_all
write(IOUT) store_val_y_all
write(IOUT) store_val_z_all
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_movie_volume.f90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -64,11 +64,13 @@
else
NIT = 1
endif
+
ipoints_3dmovie=0
num_ibool_3dmovie(:) = -99
ispecel_3dmovie = 0
mask_ibool_3dmovie(:)=.false.
mask_3dmovie(:,:,:,:)=.false.
+
! create name of database
open(unit=IOUT,file=trim(prname)//'movie3D_info.txt',status='unknown')
@@ -351,9 +353,11 @@
eps_loc(3,1)=eps_loc(1,3)
eps_loc(3,2)=eps_loc(2,3)
- ! rotate eps_loc to spherical coordinates
- eps_loc_new(:,:) = matmul(matmul(nu_3dmovie(:,:,ipoints_3dmovie),eps_loc(:,:)), transpose(nu_3dmovie(:,:,ipoints_3dmovie)))
+ ! rotate eps_loc to spherical coordinates
+ eps_loc_new(:,:) = matmul(matmul(nu_3dmovie(:,:,ipoints_3dmovie),eps_loc(:,:)), &
+ transpose(nu_3dmovie(:,:,ipoints_3dmovie)))
if(MOVIE_VOLUME_TYPE == 3) eps_loc_new(:,:) = eps_loc(:,:)*muv_3dmovie
+
store_val3d_NN(ipoints_3dmovie)=eps_loc_new(1,1)
store_val3d_EE(ipoints_3dmovie)=eps_loc_new(2,2)
store_val3d_ZZ(ipoints_3dmovie)=eps_loc_new(3,3)
@@ -404,6 +408,9 @@
subroutine write_movie_volume_vector(myrank,it,npoints_3dmovie,LOCAL_PATH,MOVIE_VOLUME_TYPE, &
MOVIE_COARSE,ibool_crust_mantle,vector_crust_mantle, &
scalingval,mask_3dmovie,nu_3dmovie)
+
+! outputs displacement/velocity: MOVIE_VOLUME_TYPE == 5 / 6
+
implicit none
include "constants.h"
@@ -427,6 +434,7 @@
character(len=150) outputname
character(len=2) movie_prefix
+ ! check
if(NDIM /= 3) call exit_MPI(myrank,'write_movie_volume requires NDIM = 3')
allocate(store_val3d_N(npoints_3dmovie))
@@ -438,6 +446,7 @@
else if(MOVIE_VOLUME_TYPE == 6) then
movie_prefix='VE' ! velocity
endif
+
if(MOVIE_COARSE) then
NIT = NGLLX-1
else
@@ -461,7 +470,7 @@
iglob = ibool_crust_mantle(i,j,k,ispec)
vector_local(:) = vector_crust_mantle(:,iglob) * scalingval_to_use
- ! rotate eps_loc to spherical coordinates
+ ! rotate eps_loc to spherical coordinates
vector_local_new(:) = matmul(nu_3dmovie(:,:,ipoints_3dmovie), vector_local(:))
store_val3d_N(ipoints_3dmovie)=vector_local_new(1)
store_val3d_E(ipoints_3dmovie)=vector_local_new(2)
@@ -492,7 +501,9 @@
end subroutine write_movie_volume_vector
-!--------------------
+!
+!-------------------------------------------------------------------------------------------------
+!
subroutine write_movie_volume_divcurl(myrank,it,eps_trace_over_3_crust_mantle,&
div_displ_outer_core, &
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_specfem_adios_header.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_specfem_adios_header.F90 2013-07-01 02:07:51 UTC (rev 22472)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/write_specfem_adios_header.F90 2013-07-01 03:05:54 UTC (rev 22473)
@@ -5,8 +5,8 @@
!
! Main authors: Dimitri Komatitsch and Jeroen Tromp
! Princeton University, USA
-! and University of Pau / CNRS / INRIA, France
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
+! and CNRS / INRIA / University of Pau, France
+! (c) Princeton University and CNRS / INRIA / University of Pau
! April 2011
!
! This program is free software; you can redistribute it and/or modify
More information about the CIG-COMMITS
mailing list