[cig-commits] r20662 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-09-01 15:54:50 -0700 (Sat, 01 Sep 2012)
New Revision: 20662

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/setup_sources_receivers.F90
Log:
avoid a useless array copy


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/setup_sources_receivers.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/setup_sources_receivers.F90	2012-09-01 21:51:22 UTC (rev 20661)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/setup_sources_receivers.F90	2012-09-01 22:54:50 UTC (rev 20662)
@@ -149,7 +149,7 @@
 
       ! compute source array for moment-tensor source
       call compute_arrays_source(ispec_selected_source(i_source),xi_source(i_source),gamma_source(i_source),&
-             sourcearray(i_source,:,:,:), &
+             sourcearray(i_source,1,1,1), &
              Mxx(i_source),Mzz(i_source),Mxz(i_source),xix,xiz,gammax,gammaz,xigll,zigll,nspec)
 
     else if(.not.initialfield) then