[cig-commits] r21018 - in seismo/3D/SPECFEM3D/trunk: examples/homogeneous_halfspace_HEX8 src/specfem3D

[joseph.charles at geodynamics.org]

Author: joseph.charles
Date: 2012-11-11 15:25:34 -0800 (Sun, 11 Nov 2012)
New Revision: 21018

Modified:
   seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX8/HOWTO_run_this_example.txt
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90
Log:
fixes a small bug in the setup_sources_precompute_arrays() subroutine


Modified: seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX8/HOWTO_run_this_example.txt
===================================================================
--- seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX8/HOWTO_run_this_example.txt	2012-11-11 18:57:27 UTC (rev 21017)
+++ seismo/3D/SPECFEM3D/trunk/examples/homogeneous_halfspace_HEX8/HOWTO_run_this_example.txt	2012-11-11 23:25:34 UTC (rev 21018)
@@ -1,10 +1,11 @@
 
 To run this example on two processor cores for instance, type this (replace "2" with another value in the three lines below if you want to use more processor cores):
 
+cd bin/
 
-./bin/xdecompose_mesh 2 DATA/MESH OUTPUT_FILES/DATABASES_MPI
+./xdecompose_mesh 2 ../DATA/MESH ../OUTPUT_FILES/DATABASES_MPI
 
-mpirun -np 2 ./bin/xgenerate_databases
+mpirun -np 2 ./xgenerate_databases
 
-mpirun -np 2 ./bin/xspecfem3D
+mpirun -np 2 ./xspecfem3D
 

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90	2012-11-11 18:57:27 UTC (rev 21017)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/setup_sources_receivers.f90	2012-11-11 23:25:34 UTC (rev 21018)
@@ -632,7 +632,7 @@
 
            ! elastic or poroelastic moment tensor source
            if( ispec_is_elastic(ispec) .or. ispec_is_poroelastic(ispec)) then
-              call compute_arrays_source(ispec,xi_source(isource),sourcearray, &
+              call compute_arrays_source(ispec,sourcearray, &
                    Mxx(isource),Myy(isource),Mzz(isource),Mxy(isource),Mxz(isource),Myz(isource), &
                    xix,xiy,xiz,etax,etay,etaz,gammax,gammay,gammaz, &
                    hxis,hpxis,hetas,hpetas,hgammas,hpgammas,NSPEC_AB)