[cig-commits] r17882 - seismo/3D/SPECFEM3D_GLOBE/trunk
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Wed Feb 16 07:45:33 PST 2011
Author: dkomati1
Date: 2011-02-16 07:45:32 -0800 (Wed, 16 Feb 2011)
New Revision: 17882
Modified:
seismo/3D/SPECFEM3D_GLOBE/trunk/add_missing_nodes.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_410_650.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_cmb.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_icb.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_central_cube.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_central_cube_block.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_scalar.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_scalar_block.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_vector.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_vector_block.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/auto_ner.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/broadcast_compute_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/calc_jacobian.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_1D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_2D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_corners_chunks.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_faces_chunks.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/check_simulation_stability.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/combine_AVS_DX.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/combine_surf_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/combine_vol_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/comp_source_spectrum.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/comp_source_time_function.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_add_sources.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_arrays_source.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_boundary_kernel.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_coordinates_grid.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_coupling.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_element_properties.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle_Dev.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core_Dev.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_outer_core.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_outer_core_Dev.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_kernels.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_seismograms.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_stacey_crust_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/compute_stacey_outer_core.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/convolve_source_timefunction.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/count_number_of_sources.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_chunk_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_doubling_elements.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_header_file.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_mass_matrices.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_movie_AVS_DX.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_movie_GMT_global.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_name_database.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_regular_elements.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/create_serial_name_database.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/define_derivation_matrices.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/define_superbrick.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/euler_angles.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/exit_mpi.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_1D_buffers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_eta.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_absorb.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_attenuation.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_backazimuth.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_cmt.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_ellipticity.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_event_info.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_global.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_jacobian_boundaries.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_jacobian_discontinuities.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_model.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_model_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_shape2D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_shape3D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/get_value_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/hex_nodes.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/initialize_simulation.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/intgrl.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/lagrange_poly.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/lgndr.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/locate_receivers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/locate_sources.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/make_ellipticity.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/make_gravity.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/memory_eval.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D_models.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_1066a.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_1dref.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_aniso_inner_core.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_aniso_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_atten3D_QRFSI12.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_attenuation.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_crust.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_crustmaps.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_eucrust.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_gapp2.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_gll.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_heterogen_mantle.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_iasp91.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_jp1d.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_jp3d.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_ppm.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_prem.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_s20rts.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_s362ani.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_s40rts.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_sea1d.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_sea99_s.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/model_topo_bathy.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/moho_stretching.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/noise_tomography.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/prepare_timerun.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/read_arrays_buffers_solver.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/read_arrays_solver.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/read_forward_arrays.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/read_mesh_databases.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/read_parameter_file.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/read_value_parameters.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/recompute_jacobian.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/reduce.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/rthetaphi_xyz.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/save_arrays_solver.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/save_forward_arrays.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/save_header_file.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/save_kernels.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/setup_sources_receivers.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/sort_array_coordinates.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/spline_routines.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/stretching_function.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_chunks_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_faces_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_surface_data.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/write_movie_surface.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/write_movie_volume.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/write_output_ASCII.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/write_output_SAC.f90
seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90
Log:
updated the headers to version 5.1, to prepare for the future release of non blocking MPI + new seismogram naming convention next week
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/add_missing_nodes.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/add_missing_nodes.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/add_missing_nodes.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_410_650.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_410_650.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_410_650.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_cmb.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_cmb.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_cmb.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_icb.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_icb.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography_icb.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_central_cube.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_central_cube.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_central_cube.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_central_cube_block.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_central_cube_block.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_central_cube_block.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_scalar.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_scalar.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_scalar.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_scalar_block.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_scalar_block.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_scalar_block.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_vector.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_vector.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_vector.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_vector_block.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_vector_block.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/assemble_MPI_vector_block.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/auto_ner.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/auto_ner.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/auto_ner.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/broadcast_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/broadcast_compute_parameters.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/broadcast_compute_parameters.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/calc_jacobian.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/calc_jacobian.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/calc_jacobian.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_1D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_1D.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_1D.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_2D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_2D.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_2D.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_corners_chunks.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_corners_chunks.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_corners_chunks.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_faces_chunks.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_faces_chunks.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/check_buffers_faces_chunks.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/check_simulation_stability.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/check_simulation_stability.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/check_simulation_stability.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/combine_AVS_DX.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/combine_AVS_DX.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/combine_AVS_DX.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/combine_surf_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/combine_surf_data.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/combine_surf_data.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/combine_vol_data.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/combine_vol_data.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/comp_source_spectrum.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/comp_source_spectrum.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/comp_source_spectrum.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/comp_source_time_function.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/comp_source_time_function.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/comp_source_time_function.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_add_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_add_sources.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_add_sources.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_arrays_source.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_arrays_source.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_arrays_source.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
@@ -249,15 +249,15 @@
! opens adjoint component file
filename = 'SEM/'//trim(adj_source_file) // '.'// comp(icomp) // '.adj'
open(unit=IIN,file=trim(filename),status='old',action='read',iostat=ios)
-
+
! note: adjoint source files must be available for all three components E/N/Z, even
! if a component is just zeroed out
- if (ios /= 0) then
+ if (ios /= 0) then
! adjoint source file not found
! stops simulation
call exit_MPI(myrank,&
- 'file '//trim(filename)//' not found, please check with your STATIONS_ADJOINT file')
- endif
+ 'file '//trim(filename)//' not found, please check with your STATIONS_ADJOINT file')
+ endif
!if (ios /= 0) cycle ! cycles to next file
! jumps over unused trace length
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_boundary_kernel.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_boundary_kernel.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_boundary_kernel.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_coordinates_grid.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_coordinates_grid.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_coordinates_grid.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_coupling.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_coupling.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_coupling.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_element_properties.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_element_properties.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_element_properties.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle_Dev.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle_Dev.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_crust_mantle_Dev.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core_Dev.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core_Dev.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_inner_core_Dev.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_outer_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_outer_core.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_outer_core.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_outer_core_Dev.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_outer_core_Dev.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_forces_outer_core_Dev.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_kernels.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_kernels.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_seismograms.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_seismograms.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_seismograms.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_stacey_crust_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_stacey_crust_mantle.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_stacey_crust_mantle.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_stacey_outer_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_stacey_outer_core.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_stacey_outer_core.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/convolve_source_timefunction.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/convolve_source_timefunction.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/convolve_source_timefunction.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/count_number_of_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/count_number_of_sources.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/count_number_of_sources.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube_buffers.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_central_cube_buffers.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_chunk_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_chunk_buffers.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_chunk_buffers.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_doubling_elements.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_doubling_elements.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_doubling_elements.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_header_file.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_header_file.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_mass_matrices.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_mass_matrices.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_mass_matrices.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_movie_AVS_DX.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_movie_AVS_DX.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_movie_AVS_DX.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_movie_GMT_global.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_movie_GMT_global.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_movie_GMT_global.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_name_database.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_name_database.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_name_database.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_regular_elements.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_regular_elements.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_regular_elements.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_serial_name_database.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_serial_name_database.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_serial_name_database.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/define_derivation_matrices.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/define_derivation_matrices.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/define_derivation_matrices.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/define_superbrick.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/define_superbrick.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/define_superbrick.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/euler_angles.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/euler_angles.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/euler_angles.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/exit_mpi.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/exit_mpi.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/exit_mpi.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_1D_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_1D_buffers.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_1D_buffers.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_eta.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_eta.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_eta.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_absorb.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_absorb.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_absorb.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_attenuation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_attenuation.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_attenuation.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_backazimuth.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_backazimuth.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_backazimuth.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_cmt.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_cmt.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_cmt.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_ellipticity.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_ellipticity.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_ellipticity.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_event_info.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_event_info.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_event_info.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_global.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_global.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_global.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_jacobian_boundaries.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_jacobian_boundaries.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_jacobian_boundaries.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_jacobian_discontinuities.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_jacobian_discontinuities.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_jacobian_discontinuities.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_model.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_model.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_model.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_model_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_model_parameters.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_model_parameters.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_shape2D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_shape2D.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_shape2D.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_shape3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_shape3D.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_shape3D.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_value_parameters.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_value_parameters.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/hex_nodes.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/hex_nodes.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/hex_nodes.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/initialize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/initialize_simulation.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/initialize_simulation.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/intgrl.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/intgrl.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/intgrl.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/lagrange_poly.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/lagrange_poly.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/lagrange_poly.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/lgndr.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/lgndr.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/lgndr.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/locate_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/locate_receivers.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/locate_receivers.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/locate_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/locate_sources.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/locate_sources.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
@@ -49,7 +49,7 @@
integer NPROCTOT
integer NSTEP,NSOURCES,NEX_XI
-
+
logical ELLIPTICITY,TOPOGRAPHY,PRINT_SOURCE_TIME_FUNCTION
double precision DT
@@ -59,7 +59,7 @@
integer ibool(NGLLX,NGLLY,NGLLZ,nspec)
! arrays containing coordinates of the points
- real(kind=CUSTOM_REAL), dimension(nglob) :: xstore,ystore,zstore
+ real(kind=CUSTOM_REAL), dimension(nglob) :: xstore,ystore,zstore
! Gauss-Lobatto-Legendre points of integration
double precision xigll(NGLLX),yigll(NGLLY),zigll(NGLLZ)
@@ -94,7 +94,7 @@
integer iprocloop
integer i,j,k,ispec,iglob
integer ier
-
+
double precision t0, hdur_gaussian(NSOURCES)
double precision ell
@@ -211,7 +211,7 @@
allocate( mask_source(NGLLX,NGLLY,NGLLZ,NSPEC) )
mask_source(:,:,:,:) = 1.0_CUSTOM_REAL
endif
-
+
! get MPI starting time for all sources
time_start = MPI_WTIME()
@@ -838,7 +838,7 @@
call save_mask_source(myrank,mask_source,NSPEC,LOCAL_PATH)
deallocate( mask_source )
endif
-
+
end subroutine locate_sources
!
@@ -850,7 +850,7 @@
x_target_source,y_target_source,z_target_source, &
ibool,xstore,ystore,zstore,NGLOB)
-! calculate a gaussian function mask in the crust_mantle region
+! calculate a gaussian function mask in the crust_mantle region
! which is 0 around the source locations and 1 everywhere else
implicit none
@@ -865,35 +865,35 @@
double precision :: typical_size
double precision :: x_target_source,y_target_source,z_target_source
-
+
! local parameters
integer i,j,k,iglob
double precision dist_sq,sigma_sq
-
- ! standard deviation for gaussian
+
+ ! standard deviation for gaussian
! (removes factor 10 added for search radius from typical_size)
sigma_sq = typical_size * typical_size / 100.0
-
+
! loops over GLL points within this ispec element
do k = 1,NGLLZ
do j = 1,NGLLY
do i = 1,NGLLX
-
+
! gets distance (squared) to source
iglob = ibool(i,j,k,ispec)
dist_sq = (x_target_source - dble(xstore(iglob)))**2 &
+(y_target_source - dble(ystore(iglob)))**2 &
+(z_target_source - dble(zstore(iglob)))**2
- ! adds gaussian function value to mask
+ ! adds gaussian function value to mask
! (mask value becomes 0 closer to source location, 1 everywhere else )
mask_source(i,j,k,ispec) = mask_source(i,j,k,ispec) &
* ( 1.0_CUSTOM_REAL - exp( - dist_sq / sigma_sq ) )
-
+
enddo
enddo
enddo
-
+
end subroutine calc_mask_source
!
@@ -902,7 +902,7 @@
subroutine save_mask_source(myrank,mask_source,NSPEC,LOCAL_PATH)
-! saves a mask in the crust_mantle region which is 0 around the source locations
+! saves a mask in the crust_mantle region which is 0 around the source locations
! and 1 everywhere else
implicit none
@@ -916,11 +916,11 @@
! local parameters
character(len=150) :: prname
-
+
! stores into file
call create_name_database(prname,myrank,IREGION_CRUST_MANTLE,LOCAL_PATH)
open(unit=27,file=trim(prname)//'mask_source.bin',status='unknown',form='unformatted',action='write')
write(27) mask_source
- close(27)
-
+ close(27)
+
end subroutine save_mask_source
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/make_ellipticity.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/make_ellipticity.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/make_ellipticity.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/make_gravity.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/make_gravity.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/make_gravity.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/memory_eval.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/memory_eval.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/memory_eval.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
@@ -192,6 +192,10 @@
! Evolution of the code:
! ---------------------
!
+! v. 5.1, Dimitri Komatitsch, Ebru Bozdag and Emiljana Jorgji, February 2011: non blocking MPI for much better
+! scaling on large clusters; new convention for the name of seismograms, to conform to the IRIS standard;
+! new directory structure
+!
! v. 5.0 aka Tiger, many developers some with Princeton Tiger logo on their shirts, February 2010:
! new moho mesh stretching honoring crust2.0 moho depths,
! new attenuation assignment, new SAC headers, new general crustal models,
@@ -244,7 +248,7 @@
!
! Jeroen Tromp, Harvard, July 1998: first chunk solver using OpenMP on Sun
!
-! Dimitri Komatitsch, IPG Paris, December 1996: first 3-D solver for the CM5
+! Dimitri Komatitsch, IPG Paris, December 1996: first 3-D solver for the CM-5 Connection Machine
!
! From Dahlen and Tromp (1998):
! ----------------------------
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D_models.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D_models.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D_models.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_1066a.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_1066a.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_1066a.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_1dref.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_1dref.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_1dref.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_aniso_inner_core.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_aniso_inner_core.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_aniso_inner_core.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_aniso_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_aniso_mantle.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_aniso_mantle.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_atten3D_QRFSI12.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_atten3D_QRFSI12.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_atten3D_QRFSI12.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_attenuation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_attenuation.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_attenuation.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_crust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_crust.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_crust.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_crustmaps.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_crustmaps.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_crustmaps.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_eucrust.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_eucrust.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_eucrust.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_gapp2.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_gapp2.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_gapp2.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_gll.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_gll.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_gll.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_heterogen_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_heterogen_mantle.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_heterogen_mantle.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_iasp91.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_iasp91.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_iasp91.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_jp1d.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_jp1d.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_jp1d.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_jp3d.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_jp3d.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_jp3d.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_ppm.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_ppm.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_ppm.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_prem.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_prem.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_prem.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_s20rts.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_s20rts.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_s20rts.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_s362ani.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_s362ani.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_s362ani.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_s40rts.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_s40rts.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_s40rts.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_sea1d.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_sea1d.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_sea1d.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_sea99_s.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_sea99_s.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_sea99_s.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/model_topo_bathy.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/model_topo_bathy.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/model_topo_bathy.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/moho_stretching.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/moho_stretching.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/moho_stretching.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/noise_tomography.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/noise_tomography.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/noise_tomography.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/prepare_timerun.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/prepare_timerun.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/prepare_timerun.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_arrays_buffers_solver.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_arrays_buffers_solver.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_arrays_buffers_solver.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_arrays_solver.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_arrays_solver.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_arrays_solver.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_forward_arrays.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_forward_arrays.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_forward_arrays.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_mesh_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_mesh_databases.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_mesh_databases.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_parameter_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_parameter_file.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_parameter_file.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_value_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_value_parameters.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_value_parameters.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/recompute_jacobian.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/recompute_jacobian.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/recompute_jacobian.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/reduce.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/reduce.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/reduce.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/rthetaphi_xyz.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/rthetaphi_xyz.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/rthetaphi_xyz.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/save_arrays_solver.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/save_arrays_solver.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/save_arrays_solver.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/save_forward_arrays.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/save_forward_arrays.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/save_forward_arrays.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/save_header_file.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/save_header_file.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/save_header_file.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/save_kernels.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/save_kernels.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/save_kernels.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/setup_sources_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/setup_sources_receivers.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/setup_sources_receivers.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
@@ -278,7 +278,7 @@
! opens adjoint source file for this component
filename = 'SEM/'//trim(adj_source_file) // '.'// comp(icomp) // '.adj'
open(unit=IIN,file=trim(filename),status='old',action='read',iostat=ier)
-
+
if( ier == 0 ) then
! checks length of file
itime = 0
@@ -290,19 +290,19 @@
call exit_MPI(myrank,&
'file '//trim(filename)//' has wrong length, please check with your simulation duration')
- ! updates counter for found files
+ ! updates counter for found files
nadj_files_found = nadj_files_found + 1
else
! adjoint source file not found
! stops simulation
call exit_MPI(myrank,&
- 'file '//trim(filename)//' not found, please check with your STATIONS_ADJOINT file')
+ 'file '//trim(filename)//' not found, please check with your STATIONS_ADJOINT file')
endif
close(IIN)
enddo
endif
enddo
-
+
! checks if any adjoint source files found at all
call MPI_REDUCE(nadj_files_found,nadj_files_found_tot,1,MPI_INTEGER,MPI_SUM,0,MPI_COMM_WORLD,ier)
if( myrank == 0 ) then
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/sort_array_coordinates.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/sort_array_coordinates.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/sort_array_coordinates.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
@@ -272,6 +272,10 @@
! Evolution of the code:
! ---------------------
!
+! v. 5.1, Dimitri Komatitsch, Ebru Bozdag and Emiljana Jorgji, February 2011: non blocking MPI for much better
+! scaling on large clusters; new convention for the name of seismograms, to conform to the IRIS standard;
+! new directory structure
+!
! v. 5.0 aka Tiger, many developers some with Princeton Tiger logo on their shirts, February 2010:
! new moho mesh stretching honoring crust2.0 moho depths,
! new attenuation assignment, new SAC headers, new general crustal models,
@@ -324,7 +328,7 @@
!
! Jeroen Tromp, Harvard, July 1998: first chunk solver using OpenMP on Sun
!
-! Dimitri Komatitsch, IPG Paris, December 1996: first 3-D solver for the CM5
+! Dimitri Komatitsch, IPG Paris, December 1996: first 3-D solver for the CM-5 Connection Machine
!
! From Dahlen and Tromp (1998):
! ----------------------------
@@ -3456,7 +3460,7 @@
! approximate hessian
if( APPROXIMATE_HESS_KL ) then
call save_kernels_hessian(myrank,scale_t,scale_displ, &
- hess_kl_crust_mantle,LOCAL_PATH)
+ hess_kl_crust_mantle,LOCAL_PATH)
endif
endif
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/spline_routines.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/spline_routines.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/spline_routines.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/stretching_function.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/stretching_function.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/stretching_function.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_chunks_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_chunks_data.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_chunks_data.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_data.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_data.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_faces_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_faces_data.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_global_faces_data.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_surface_data.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_surface_data.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/write_AVS_DX_surface_data.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/write_movie_surface.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/write_movie_surface.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/write_movie_surface.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/write_movie_volume.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/write_movie_volume.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/write_movie_volume.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/write_output_ASCII.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/write_output_ASCII.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/write_output_ASCII.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/write_output_SAC.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/write_output_SAC.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/write_output_SAC.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90 2011-02-16 01:15:55 UTC (rev 17881)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/write_seismograms.f90 2011-02-16 15:45:32 UTC (rev 17882)
@@ -7,7 +7,7 @@
! Princeton University, USA
! and University of Pau / CNRS / INRIA, France
! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! December 2010
+! February 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
More information about the CIG-COMMITS
mailing list