[cig-commits] r20483 - in seismo/2D/SPECFEM2D/trunk: . UTILS setup src/meshfem2D src/shared src/specfem2D
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Sat Jul 7 06:27:43 PDT 2012
Author: dkomati1
Date: 2012-07-07 06:27:43 -0700 (Sat, 07 Jul 2012)
New Revision: 20483
Added:
seismo/2D/SPECFEM2D/trunk/UTILS/change_words_in_all_files.pl
Modified:
seismo/2D/SPECFEM2D/trunk/Makefile.in
seismo/2D/SPECFEM2D/trunk/setup/constants.h.in
seismo/2D/SPECFEM2D/trunk/setup/precision.h.in
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/get_node_number.f90
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_interfaces_file.f90
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_materials.f90
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_regions.f90
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_source_file.f90
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_gnuplot_file.f90
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_stations_file.f90
seismo/2D/SPECFEM2D/trunk/src/meshfem2D/spline_routines.f90
seismo/2D/SPECFEM2D/trunk/src/shared/adj_seismogram.f90
seismo/2D/SPECFEM2D/trunk/src/shared/check_quality_external_mesh.f90
seismo/2D/SPECFEM2D/trunk/src/shared/convolve_source_timefunction.f90
seismo/2D/SPECFEM2D/trunk/src/shared/force_ftz.c
seismo/2D/SPECFEM2D/trunk/src/shared/param_reader.c
seismo/2D/SPECFEM2D/trunk/src/shared/read_value_parameters.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/assemble_MPI.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/attenuation_model.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/check_stability.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/checkgrid.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_Bielak_conditions.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_arrays_source.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_curl_one_element.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_energy.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_acoustic.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_fluid.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_solid.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_gradient_attenuation.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_normal_vector.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_pressure.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_vector_field.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/construct_acoustic_surface.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/create_color_image.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/createnum_fast.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/createnum_slow.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/datim.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_derivation_matrices.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_external_model.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_shape_functions.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/enforce_acoustic_free_surface.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/exit_mpi.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_MPI.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_global.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_perm_cuthill_mckee.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_poroelastic_velocities.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/gmat01.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/initialize_simulation.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/invert_mass_matrix.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/is_in_convex_quadrilateral.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/lagrange_poly.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_receivers.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_source_force.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_source_moment_tensor.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/noise_tomography.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotgll.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotpost.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_absorb.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_assemble_MPI.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_color_image.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_initialfield.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_source_time_function.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_external_model.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/recompute_jacobian.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/save_openDX_jacobian.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/set_sources.f90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/setup_sources_receivers.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/sort_array_coordinates.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
seismo/2D/SPECFEM2D/trunk/src/specfem2D/write_seismograms.F90
Log:
changed all the header files to version 7.0 to prepare for the release of the CPML version
Modified: seismo/2D/SPECFEM2D/trunk/Makefile.in
===================================================================
--- seismo/2D/SPECFEM2D/trunk/Makefile.in 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/Makefile.in 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
#========================================================================
#
-# S P E C F E M 2 D Version 6 . 2
-# ------------------------------
+# S P E C F E M 2 D Version 7 . 0
+# --------------------------------
#
-# Copyright Universite de Pau, CNRS and INRIA, France,
+# Copyright CNRS, INRIA and University of Pau, France,
# and Princeton University / California Institute of Technology, USA.
# Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
# Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Added: seismo/2D/SPECFEM2D/trunk/UTILS/change_words_in_all_files.pl
===================================================================
--- seismo/2D/SPECFEM2D/trunk/UTILS/change_words_in_all_files.pl (rev 0)
+++ seismo/2D/SPECFEM2D/trunk/UTILS/change_words_in_all_files.pl 2012-07-07 13:27:43 UTC (rev 20483)
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+
+#
+# Script to change the version number in f90 codes
+#
+# Author : Dimitri Komatitsch, EPS - Harvard University, May 1998
+#
+
+#
+# read all f90 and F90 (and *.h) files in the current directory
+# f90 files are supposed to have the extension "*.f90" or "*.F90" or "*.h"
+#
+
+#
+# known bug : does the changes also in constant strings, and not only
+# in the code (which is dangerous, but really easier to program...)
+#
+
+ @objects = `ls ../src/*/*.f90 ../src/*/*.F90 ../src/shared/force_ftz.c ../src/shared/param_reader.c ../setup/*.h.in`;
+
+ foreach $name (@objects) {
+ chop $name;
+# change tabs to white spaces
+ system("expand -2 < $name > _____tutu01_____");
+ $f90name = $name;
+ print STDOUT "Changing word in file $name ...\n";
+
+ open(FILEF77,"<_____tutu01_____");
+ open(FILEF90,">$f90name");
+
+# open the source file
+ while($line = <FILEF77>) {
+ chop $line;
+
+# suppress trailing white spaces and carriage return
+ $line =~ s/\s*$//;
+
+# change the version number and copyright information
+ $line =~ s#! S P E C F E M 2 D Version 6 \. 2#! S P E C F E M 2 D Version 7 \. 0#og;
+ $line =~ s#! ------------------------------#! --------------------------------#og;
+ $line =~ s#! Copyright Universite de Pau, CNRS and INRIA, France,#! Copyright CNRS, INRIA and University of Pau, France,#og;
+# $line =~ s#rmass_sigma#rmass_time_integral_of_sigma#og;
+
+# write the modified line to the output file
+ print FILEF90 "$line\n";
+
+ }
+
+ close(FILEF77);
+ close(FILEF90);
+
+ }
+
+ system("rm -f _____tutu01_____");
+
Property changes on: seismo/2D/SPECFEM2D/trunk/UTILS/change_words_in_all_files.pl
___________________________________________________________________
Name: svn:executable
+ *
Modified: seismo/2D/SPECFEM2D/trunk/setup/constants.h.in
===================================================================
--- seismo/2D/SPECFEM2D/trunk/setup/constants.h.in 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/setup/constants.h.in 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,6 +1,6 @@
!=====================================================================
!
-! S P E C F E M 2 D Version 6 . 2
+! S P E C F E M 2 D Version 7 . 0
!
!=====================================================================
Modified: seismo/2D/SPECFEM2D/trunk/setup/precision.h.in
===================================================================
--- seismo/2D/SPECFEM2D/trunk/setup/precision.h.in 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/setup/precision.h.in 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,6 +1,6 @@
!=====================================================================
!
-! S P E C F E M 2 D Version 6 . 2
+! S P E C F E M 2 D Version 7 . 0
!
!=====================================================================
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/get_node_number.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/get_node_number.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/get_node_number.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_interfaces_file.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_interfaces_file.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_interfaces_file.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_materials.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_materials.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_materials.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_parameter_file.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_regions.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_regions.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_regions.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_source_file.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_source_file.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/read_source_file.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_databases.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_gnuplot_file.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_gnuplot_file.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_gnuplot_file.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_stations_file.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_stations_file.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/save_stations_file.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/spline_routines.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/spline_routines.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/spline_routines.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/shared/adj_seismogram.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/shared/adj_seismogram.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/shared/adj_seismogram.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/shared/check_quality_external_mesh.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/shared/check_quality_external_mesh.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/shared/check_quality_external_mesh.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/shared/convolve_source_timefunction.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/shared/convolve_source_timefunction.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/shared/convolve_source_timefunction.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/shared/force_ftz.c
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/shared/force_ftz.c 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/shared/force_ftz.c 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
/*
!========================================================================
!
- ! S P E C F E M 2 D Version 6 . 2
- ! ------------------------------
+ ! S P E C F E M 2 D Version 7 . 0
+ ! --------------------------------
!
- ! Copyright Universite de Pau, CNRS and INRIA, France,
+ ! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/shared/param_reader.c
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/shared/param_reader.c 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/shared/param_reader.c 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
/*
!========================================================================
!
- ! S P E C F E M 2 D Version 6 . 2
- ! ------------------------------
+ ! S P E C F E M 2 D Version 7 . 0
+ ! --------------------------------
!
- ! Copyright Universite de Pau, CNRS and INRIA, France,
+ ! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/shared/read_value_parameters.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/shared/read_value_parameters.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/shared/read_value_parameters.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/assemble_MPI.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/assemble_MPI.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/assemble_MPI.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/attenuation_model.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/attenuation_model.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/attenuation_model.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/check_stability.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/check_stability.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/check_stability.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/checkgrid.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/checkgrid.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/checkgrid.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_Bielak_conditions.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_Bielak_conditions.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_Bielak_conditions.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_arrays_source.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_arrays_source.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_arrays_source.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_curl_one_element.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_curl_one_element.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_curl_one_element.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,8 +1,8 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
! Copyright Universite de Pau et des Pays de l'Adour and CNRS, France.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_energy.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_energy.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_energy.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_acoustic.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_acoustic.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_acoustic.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
@@ -129,7 +129,7 @@
!CPML coefficients and memory variables
integer :: nspec_PML,npoin_PML,iPML,ispec_PML
- logical, dimension(4,nspec) :: which_PML_elem
+ logical, dimension(4,nspec) :: which_PML_elem
logical, dimension(nspec) :: is_PML
integer, dimension(nspec) :: spec_to_PML
integer, dimension(NGLLX,NGLLZ,nspec) :: ibool_PML
@@ -142,7 +142,7 @@
real(kind=CUSTOM_REAL), dimension(NGLLX,NGLLZ,nspec_PML) :: potential_dot_dot_acoustic_PML, &
potential_dot_dot_acoustic_PML_corner
- real(kind=CUSTOM_REAL), dimension(NGLLX,NGLLZ,nspec_PML) ::PML_dux_dxl,PML_dux_dzl,&
+ real(kind=CUSTOM_REAL), dimension(NGLLX,NGLLZ,nspec_PML) ::PML_dux_dxl,PML_dux_dzl,&
PML_dux_dxl_new,PML_dux_dzl_new
real(kind=CUSTOM_REAL) :: coef0_x, coef1_x, coef2_x, coef0_z, coef1_z, coef2_z,bb,aa,&
deltat
@@ -223,11 +223,11 @@
if(PML_BOUNDARY_CONDITIONS .and. is_PML(ispec))then
ispec_PML=spec_to_PML(ispec)
- iPML=ibool_PML(i,j,ispec)
- if (which_PML_elem(ILEFT,ispec) .or. which_PML_elem(IRIGHT,ispec)) then
+ iPML=ibool_PML(i,j,ispec)
+ if (which_PML_elem(ILEFT,ispec) .or. which_PML_elem(IRIGHT,ispec)) then
bb = 0.d0 - (d_x_store(iPML) / k_x_store(iPML) + alpha_x_store(iPML))
- if(abs(alpha_x_store(iPML)) > 1.d-3) then
+ if(abs(alpha_x_store(iPML)) > 1.d-3) then
aa = - d_x_store(iPML) / &
(k_x_store(iPML) * d_x_store(iPML) + k_x_store(iPML)**2 * alpha_x_store(iPML))
else
@@ -237,10 +237,10 @@
coef0_x = exp(bb * deltat)
coef1_x = (1.d0 - exp(bb * deltat / 2.d0)) * aa
coef2_x = (1.d0 - exp(bb* deltat / 2.d0)) * exp(bb * deltat / 2.d0) * aa
-
- rmemory_acoustic_dux_dx(1,i,j,ispec_PML) = 0.d0
- rmemory_acoustic_dux_dx(2,i,j,ispec_PML) = coef0_x*rmemory_acoustic_dux_dx(2,i,j,ispec_PML) &
+
+ rmemory_acoustic_dux_dx(1,i,j,ispec_PML) = 0.d0
+ rmemory_acoustic_dux_dx(2,i,j,ispec_PML) = coef0_x*rmemory_acoustic_dux_dx(2,i,j,ispec_PML) &
+ PML_dux_dxl_new(i,j,ispec_PML) * coef1_x + PML_dux_dxl(i,j,ispec_PML) * coef2_x
if(abs(alpha_x_store(iPML)) > 1.d-3) then
@@ -256,14 +256,14 @@
coef2_x = deltat / 2.0d0 * d_x_store(iPML)
endif
- rmemory_acoustic_dux_dz(1,i,j,ispec_PML) = coef0_x * rmemory_acoustic_dux_dz(1,i,j,ispec_PML) &
+ rmemory_acoustic_dux_dz(1,i,j,ispec_PML) = coef0_x * rmemory_acoustic_dux_dz(1,i,j,ispec_PML) &
+ PML_dux_dzl_new(i,j,ispec_PML) *coef1_x + PML_dux_dzl(i,j,ispec_PML) * coef2_x
rmemory_acoustic_dux_dz(2,i,j,ispec_PML) = 0.d0
dux_dxl = PML_dux_dxl(i,j,ispec_PML) + rmemory_acoustic_dux_dx(1,i,j,ispec_PML) &
- + rmemory_acoustic_dux_dx(2,i,j,ispec_PML)
+ + rmemory_acoustic_dux_dx(2,i,j,ispec_PML)
dux_dzl = PML_dux_dzl(i,j,ispec_PML) + rmemory_acoustic_dux_dz(1,i,j,ispec_PML) &
- + rmemory_acoustic_dux_dz(2,i,j,ispec_PML)
+ + rmemory_acoustic_dux_dz(2,i,j,ispec_PML)
if (which_PML_elem(ITOP,ispec) .or. which_PML_elem(IBOTTOM,ispec)) then
ispec_PML=spec_to_PML(ispec)
@@ -294,21 +294,21 @@
endif
- rmemory_acoustic_dux_dx_corner(1,i,j,ispec_PML) = coef0_x*rmemory_acoustic_dux_dx_corner(1,i,j,ispec_PML) &
+ rmemory_acoustic_dux_dx_corner(1,i,j,ispec_PML) = coef0_x*rmemory_acoustic_dux_dx_corner(1,i,j,ispec_PML) &
+ PML_dux_dxl_new(i,j,ispec_PML) * coef1_x + PML_dux_dxl(i,j,ispec_PML) * coef2_x
-
+
if(abs(d_x_store(iPML)*&
(k_x_store(iPML)*k_z_store(iPML)*(alpha_z_store(iPML)-alpha_x_store(iPML))+&
k_x_store(iPML)*d_z_store(iPML)-k_z_store(iPML)*d_x_store(iPML))/&
(k_x_store(iPML)*(alpha_x_store(iPML)-alpha_z_store(iPML))+d_x_store(iPML))/&
k_x_store(iPML)**2) .lt. 1.d-3 .and. &
- abs(k_x_store(iPML)*alpha_x_store(iPML)+d_x_store(iPML)) .lt. 1.d-3)then
+ abs(k_x_store(iPML)*alpha_x_store(iPML)+d_x_store(iPML)) .lt. 1.d-3)then
coef0_z = 1.d0
coef1_z = 0.d0
- coef2_z = 0.d0
+ coef2_z = 0.d0
- rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) = coef0_z*rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) &
+ rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) = coef0_z*rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) &
+ PML_dux_dxl_new(i,j,ispec_PML) * coef1_z + PML_dux_dxl(i,j,ispec_PML) * coef2_z
@@ -320,7 +320,7 @@
coef1_z = 0.5d0 *deltat
coef2_z = 0.5d0 *deltat
- rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) = coef0_z*rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) &
+ rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) = coef0_z*rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) &
+ PML_dux_dxl_new(i,j,ispec_PML) * coef1_z*aa + PML_dux_dxl(i,j,ispec_PML) * coef2_z*aa
@@ -335,10 +335,10 @@
coef1_z = (1 - exp(- bb * deltat / 2)) * aa/bb
coef2_z = (1 - exp(- bb * deltat / 2)) * exp(- bb * deltat / 2) * aa /bb
- rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) = coef0_z*rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) &
+ rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) = coef0_z*rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML) &
+ PML_dux_dxl_new(i,j,ispec_PML) * coef1_z + PML_dux_dxl(i,j,ispec_PML) * coef2_z
-
+
endif
if(abs(alpha_x_store(iPML)) .lt. 1.d-3)then
@@ -365,21 +365,21 @@
coef2_x = (1 - exp(- bb * deltat / 2)) * exp(- bb * deltat / 2) * aa /bb
endif
- rmemory_acoustic_dux_dz_corner(1,i,j,ispec_PML) = coef0_x * rmemory_acoustic_dux_dz_corner(1,i,j,ispec_PML) &
+ rmemory_acoustic_dux_dz_corner(1,i,j,ispec_PML) = coef0_x * rmemory_acoustic_dux_dz_corner(1,i,j,ispec_PML) &
+ PML_dux_dzl_new(i,j,ispec_PML) *coef1_x + PML_dux_dzl(i,j,ispec_PML) * coef2_x
-
+
if(abs(d_z_store(iPML)*&
(k_x_store(iPML)*k_z_store(iPML)*(alpha_x_store(iPML)-alpha_z_store(iPML))+&
k_z_store(iPML)*d_x_store(iPML)-k_x_store(iPML)*d_z_store(iPML))/&
(k_z_store(iPML)*(alpha_z_store(iPML)-alpha_x_store(iPML))+d_z_store(iPML))/&
k_z_store(iPML)**2) .lt. 1.d-3 .and. &
- abs(k_z_store(iPML)*alpha_z_store(iPML)+d_z_store(iPML)) .lt. 1.d-3)then
+ abs(k_z_store(iPML)*alpha_z_store(iPML)+d_z_store(iPML)) .lt. 1.d-3)then
coef0_z = 1.d0
coef1_z = 0.d0
- coef2_z = 0.d0
+ coef2_z = 0.d0
- rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) = coef0_z * rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) &
+ rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) = coef0_z * rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) &
+ PML_dux_dzl_new(i,j,ispec_PML) *coef1_z + PML_dux_dzl(i,j,ispec_PML) * coef2_z
elseif(abs(k_z_store(iPML)*(alpha_z_store(iPML)-alpha_x_store(iPML))+d_z_store(iPML)) .lt. 1.d-3 .and. &
@@ -390,7 +390,7 @@
coef1_z = 0.5d0 *deltat
coef2_z = 0.5d0 *deltat
- rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) = coef0_z * rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) &
+ rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) = coef0_z * rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) &
+ PML_dux_dzl_new(i,j,ispec_PML) *coef1_z*aa + PML_dux_dzl(i,j,ispec_PML) * coef2_z*aa
else
@@ -404,15 +404,15 @@
coef1_z = (1 - exp(- bb * deltat / 2)) * aa/bb
coef2_z = (1 - exp(- bb * deltat / 2)) * exp(- bb * deltat / 2) * aa /bb
- rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) = coef0_z * rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) &
+ rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) = coef0_z * rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML) &
+ PML_dux_dzl_new(i,j,ispec_PML) *coef1_z + PML_dux_dzl(i,j,ispec_PML) * coef2_z
-
+
endif
dux_dxl = PML_dux_dxl(i,j,ispec_PML) + rmemory_acoustic_dux_dx_corner(1,i,j,ispec_PML) +&
- rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML)
+ rmemory_acoustic_dux_dx_corner(2,i,j,ispec_PML)
dux_dzl = PML_dux_dzl(i,j,ispec_PML) + rmemory_acoustic_dux_dz_corner(1,i,j,ispec_PML) + &
- rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML)
+ rmemory_acoustic_dux_dz_corner(2,i,j,ispec_PML)
endif
@@ -432,12 +432,12 @@
endif
- rmemory_acoustic_dux_dx(1,i,j,ispec_PML) = coef0_x*rmemory_acoustic_dux_dx(1,i,j,ispec_PML) &
+ rmemory_acoustic_dux_dx(1,i,j,ispec_PML) = coef0_x*rmemory_acoustic_dux_dx(1,i,j,ispec_PML) &
+ PML_dux_dxl_new(i,j,ispec_PML) * coef1_x + PML_dux_dxl(i,j,ispec_PML) * coef2_x
rmemory_acoustic_dux_dx(2,i,j,ispec_PML) = 0.d0
bb = 0.d0 - (d_z_store(iPML) / k_z_store(iPML) + alpha_z_store(iPML))
- if(abs(alpha_z_store(iPML)) > 1.d-3) then
+ if(abs(alpha_z_store(iPML)) > 1.d-3) then
aa = - d_z_store(iPML) * k_x_store(iPML) / &
(k_z_store(iPML) * d_z_store(iPML) + k_z_store(iPML)**2 * alpha_z_store(iPML))
else
@@ -448,12 +448,12 @@
coef2_x = (1.d0 - exp(bb* deltat / 2.d0)) * exp(bb * deltat / 2.d0) * aa
rmemory_acoustic_dux_dz(1,i,j,ispec_PML) = 0.d0
- rmemory_acoustic_dux_dz(2,i,j,ispec_PML) = coef0_x * rmemory_acoustic_dux_dz(2,i,j,ispec_PML) &
+ rmemory_acoustic_dux_dz(2,i,j,ispec_PML) = coef0_x * rmemory_acoustic_dux_dz(2,i,j,ispec_PML) &
+ PML_dux_dzl_new(i,j,ispec_PML) *coef1_x + PML_dux_dzl(i,j,ispec_PML) * coef2_x
- dux_dxl = dux_dxl + rmemory_acoustic_dux_dx(1,i,j,ispec_PML) + rmemory_acoustic_dux_dx(2,i,j,ispec_PML)
- dux_dzl = dux_dzl + rmemory_acoustic_dux_dz(1,i,j,ispec_PML) + rmemory_acoustic_dux_dz(2,i,j,ispec_PML)
-
+ dux_dxl = dux_dxl + rmemory_acoustic_dux_dx(1,i,j,ispec_PML) + rmemory_acoustic_dux_dx(2,i,j,ispec_PML)
+ dux_dzl = dux_dzl + rmemory_acoustic_dux_dz(1,i,j,ispec_PML) + rmemory_acoustic_dux_dz(2,i,j,ispec_PML)
+
endif
endif
@@ -486,9 +486,9 @@
if(is_PML(ispec))then
iPML=ibool_PML(i,j,ispec)
iglob=ibool(i,j,ispec)
-
- if (which_PML_elem(ILEFT,ispec) .or. which_PML_elem(IRIGHT,ispec)) then
+
+ if (which_PML_elem(ILEFT,ispec) .or. which_PML_elem(IRIGHT,ispec)) then
ispec_PML=spec_to_PML(ispec)
iPML=ibool_PML(i,j,ispec)
iglob=ibool(i,j,ispec)
@@ -500,9 +500,9 @@
rmemory_potential_acoustic(1,i,j,ispec_PML)=coef0_x * rmemory_potential_acoustic(1,i,j,ispec_PML) &
+ (potential_acoustic(iglob)+deltat*potential_dot_acoustic(iglob)) * coef1_x &
- + potential_acoustic(iglob) * coef2_x
+ + potential_acoustic(iglob) * coef2_x
- rmemory_potential_acoustic(2,i,j,ispec_PML)=0.0
+ rmemory_potential_acoustic(2,i,j,ispec_PML)=0.0
if (which_PML_elem(ITOP,ispec) .or. which_PML_elem(IBOTTOM,ispec)) then
ispec_PML=spec_to_PML(ispec)
@@ -512,8 +512,8 @@
bb = alpha_x_store(iPML)
aa = (k_z_store(iPML)*d_x_store(iPML)*(bb))
coef0_x = exp(- bb * deltat)
- coef1_x = (1 - exp(- bb * deltat / 2)) * aa
- coef2_x = (1 - exp(- bb * deltat / 2)) * exp(- bb * deltat / 2) * aa
+ coef1_x = (1 - exp(- bb * deltat / 2)) * aa
+ coef2_x = (1 - exp(- bb * deltat / 2)) * exp(- bb * deltat / 2) * aa
rmemory_potential_acoustic_corner(1,i,j,ispec_PML)=&
coef0_x * rmemory_potential_acoustic_corner(1,i,j,ispec_PML) &
@@ -524,8 +524,8 @@
aa = bb*d_x_store(iPML)*(k_z_store(iPML)*(alpha_x_store(iPML)-alpha_z_store(iPML))-d_z_store(iPML))/&
(alpha_x_store(iPML)-alpha_z_store(iPML))
coef0_x = exp(- bb * deltat)
- coef1_x = (1 - exp(- bb * deltat / 2)) * aa
- coef2_x = (1 - exp(- bb * deltat / 2)) * exp(- bb * deltat / 2) * aa
+ coef1_x = (1 - exp(- bb * deltat / 2)) * aa
+ coef2_x = (1 - exp(- bb * deltat / 2)) * exp(- bb * deltat / 2) * aa
rmemory_potential_acoustic_corner(1,i,j,ispec_PML)=&
coef0_x * rmemory_potential_acoustic_corner(1,i,j,ispec_PML) &
@@ -538,21 +538,21 @@
bb = alpha_z_store(iPML)
aa = k_x_store(iPML)*d_z_store(iPML)*(bb)
coef0_x = exp(- bb * deltat)
- coef1_x = (1 - exp(- bb * deltat / 2)) * aa
- coef2_x = (1 - exp(- bb * deltat / 2)) * exp(- bb * deltat / 2) * aa
+ coef1_x = (1 - exp(- bb * deltat / 2)) * aa
+ coef2_x = (1 - exp(- bb * deltat / 2)) * exp(- bb * deltat / 2) * aa
rmemory_potential_acoustic_corner(2,i,j,ispec_PML)=&
coef0_x * rmemory_potential_acoustic_corner(2,i,j,ispec_PML) &
+ (potential_acoustic(iglob)+deltat*potential_dot_acoustic(iglob)) * coef1_x &
- + potential_acoustic(iglob) * coef2_x
+ + potential_acoustic(iglob) * coef2_x
else
bb = alpha_z_store(iPML)
aa = bb*d_z_store(iPML)*(k_x_store(iPML)*(alpha_x_store(iPML)-alpha_z_store(iPML))+d_x_store(iPML))/&
(alpha_x_store(iPML)-alpha_z_store(iPML))
coef0_x = exp(- bb * deltat)
- coef1_x = (1 - exp(- bb * deltat / 2)) * aa
- coef2_x = (1 - exp(- bb * deltat / 2)) * exp(- bb * deltat / 2) * aa
+ coef1_x = (1 - exp(- bb * deltat / 2)) * aa
+ coef2_x = (1 - exp(- bb * deltat / 2)) * exp(- bb * deltat / 2) * aa
rmemory_potential_acoustic_corner(2,i,j,ispec_PML)=&
coef0_x * rmemory_potential_acoustic_corner(2,i,j,ispec_PML) &
@@ -575,15 +575,15 @@
(k_x_store(iPML)*d_z_store(iPML)*(bb))
- rmemory_potential_acoustic(1,i,j,ispec_PML)=0.d0
+ rmemory_potential_acoustic(1,i,j,ispec_PML)=0.d0
rmemory_potential_acoustic(2,i,j,ispec_PML)=coef0_x * rmemory_potential_acoustic(2,i,j,ispec_PML) &
+ (potential_acoustic(iglob)+deltat*potential_dot_acoustic(iglob)) * coef1_x &
- + potential_acoustic(iglob) * coef2_x
-
+ + potential_acoustic(iglob) * coef2_x
+
endif
- if (which_PML_elem(ILEFT,ispec) .or. which_PML_elem(IRIGHT,ispec)) then
+ if (which_PML_elem(ILEFT,ispec) .or. which_PML_elem(IRIGHT,ispec)) then
ispec_PML=spec_to_PML(ispec)
iPML=ibool_PML(i,j,ispec)
iglob=ibool(i,j,ispec)
@@ -638,7 +638,7 @@
enddo
if(is_PML(ispec))then
- if (which_PML_elem(ILEFT,ispec) .or. which_PML_elem(IRIGHT,ispec)) then
+ if (which_PML_elem(ILEFT,ispec) .or. which_PML_elem(IRIGHT,ispec)) then
ispec_PML=spec_to_PML(ispec)
iPML=ibool_PML(i,j,ispec)
potential_dot_dot_acoustic(iglob) = potential_dot_dot_acoustic(iglob) &
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_fluid.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_fluid.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_fluid.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,8 +1,8 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
! Copyright Universite de Pau et des Pays de l'Adour and CNRS, France.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_solid.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_solid.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_poro_solid.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,8 +1,8 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
! Copyright Universite de Pau et des Pays de l'Adour and CNRS, France.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_forces_viscoelastic.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
@@ -970,7 +970,7 @@
abs( d_x_store(iPML) ) < 1.d-3 &
) then
A3 = 0.d0
- elseif ( abs( alpha_x_store(iPML) - alpha_z_store(iPML) ) < 1.d-3 &
+ elseif ( abs( alpha_x_store(iPML) - alpha_z_store(iPML) ) < 1.d-3 &
) then
A3 = alpha_x_store(iPML) ** 2 * d_x_store(iPML) * k_z_store(iPML)
else
@@ -1005,7 +1005,7 @@
abs( d_x_store(iPML) ) < 1.d-3 &
) then
A4 = d_z_store(iPML) * alpha_z_store(iPML) ** 2
- elseif ( abs( alpha_x_store(iPML) - alpha_z_store(iPML) ) < 1.d-3 &
+ elseif ( abs( alpha_x_store(iPML) - alpha_z_store(iPML) ) < 1.d-3 &
) then
A4 = alpha_z_store(iPML) ** 2 * d_z_store(iPML) * k_x_store(iPML)
else
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_gradient_attenuation.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_gradient_attenuation.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_gradient_attenuation.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_normal_vector.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_normal_vector.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_normal_vector.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_pressure.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_pressure.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_pressure.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_vector_field.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_vector_field.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/compute_vector_field.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/construct_acoustic_surface.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/construct_acoustic_surface.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/construct_acoustic_surface.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/create_color_image.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/create_color_image.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/create_color_image.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/createnum_fast.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/createnum_fast.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/createnum_fast.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/createnum_slow.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/createnum_slow.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/createnum_slow.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/datim.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/datim.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/datim.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_derivation_matrices.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_derivation_matrices.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_derivation_matrices.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_external_model.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_external_model.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_external_model.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_shape_functions.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_shape_functions.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/define_shape_functions.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/enforce_acoustic_free_surface.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/enforce_acoustic_free_surface.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/enforce_acoustic_free_surface.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/exit_mpi.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/exit_mpi.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/exit_mpi.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,9 +1,9 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_MPI.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_MPI.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_MPI.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_global.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_global.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_global.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_perm_cuthill_mckee.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_perm_cuthill_mckee.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_perm_cuthill_mckee.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_poroelastic_velocities.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_poroelastic_velocities.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/get_poroelastic_velocities.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,9 +1,9 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/gmat01.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/gmat01.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/gmat01.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/initialize_simulation.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/initialize_simulation.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/initialize_simulation.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/invert_mass_matrix.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/invert_mass_matrix.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/invert_mass_matrix.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/is_in_convex_quadrilateral.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/is_in_convex_quadrilateral.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/is_in_convex_quadrilateral.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/lagrange_poly.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/lagrange_poly.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/lagrange_poly.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_receivers.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_receivers.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_receivers.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_source_force.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_source_force.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_source_force.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_source_moment_tensor.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_source_moment_tensor.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/locate_source_moment_tensor.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/noise_tomography.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/noise_tomography.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/noise_tomography.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,9 +1,9 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotgll.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotgll.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotgll.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotpost.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotpost.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/plotpost.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,9 +1,9 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
@@ -222,12 +222,12 @@
#endif
integer nspec, npoin, i, j,numat, ispec,iglob,npoin_PML,iPML
- double precision :: f0_temp
+ double precision :: f0_temp
logical, dimension(nspec) :: is_PML
logical, dimension(4,nspec) :: which_PML_elem
real(kind=CUSTOM_REAL), dimension(npoin_PML) :: &
- K_x_store,K_z_store,d_x_store,d_z_store,alpha_x_store,alpha_z_store
+ K_x_store,K_z_store,d_x_store,d_z_store,alpha_x_store,alpha_z_store
real(kind=CUSTOM_REAL), dimension(NDIM,npoin) :: coord
integer, dimension(NGLLX,NGLLZ,nspec) :: ibool, ibool_PML
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_absorb.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_absorb.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_absorb.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_assemble_MPI.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_assemble_MPI.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_assemble_MPI.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_color_image.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_color_image.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_color_image.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_initialfield.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_initialfield.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_initialfield.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_source_time_function.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_source_time_function.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_source_time_function.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_databases.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_external_model.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_external_model.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/read_external_model.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/recompute_jacobian.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/recompute_jacobian.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/recompute_jacobian.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/save_openDX_jacobian.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/save_openDX_jacobian.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/save_openDX_jacobian.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/set_sources.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/set_sources.f90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/set_sources.f90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/setup_sources_receivers.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/setup_sources_receivers.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/setup_sources_receivers.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/sort_array_coordinates.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/sort_array_coordinates.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/sort_array_coordinates.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -3,10 +3,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/write_seismograms.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/write_seismograms.F90 2012-07-07 13:04:55 UTC (rev 20482)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/write_seismograms.F90 2012-07-07 13:27:43 UTC (rev 20483)
@@ -1,10 +1,10 @@
!========================================================================
!
-! S P E C F E M 2 D Version 6 . 2
-! ------------------------------
+! S P E C F E M 2 D Version 7 . 0
+! --------------------------------
!
-! Copyright Universite de Pau, CNRS and INRIA, France,
+! Copyright CNRS, INRIA and University of Pau, France,
! and Princeton University / California Institute of Technology, USA.
! Contributors: Dimitri Komatitsch, dimitri DOT komatitsch aT univ-pau DOT fr
! Nicolas Le Goff, nicolas DOT legoff aT univ-pau DOT fr
More information about the CIG-COMMITS
mailing list