[cig-commits] r22246 - seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-06-13 01:26:42 -0700 (Thu, 13 Jun 2013)
New Revision: 22246

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90
Log:
fix one error by moving the save kernel out of time loop


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90	2013-06-13 07:28:57 UTC (rev 22245)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90	2013-06-13 08:26:42 UTC (rev 22246)
@@ -2358,8 +2358,6 @@
 
         include "part3_kernel_computation.F90"
 
-        include "part4_save_kernel.F90"
-
       enddo
 
     enddo   ! end of main time loop
@@ -2467,9 +2465,6 @@
   call MPI_BARRIER(MPI_COMM_WORLD,ier)
   if( ier /= 0 ) call exit_mpi(myrank,'error synchronize saving forward')
 
-#ifdef UNDO_ATT
-  !ZN we move this part of code(save kernels)inside the time loop above
-#else
   ! dump kernel arrays
   if (SIMULATION_TYPE == 3) then
 
@@ -2529,7 +2524,6 @@
     call save_kernels_source_derivatives(nrec_local,NSOURCES,scale_displ,scale_t, &
                                 nu_source,moment_der,sloc_der,stshift_der,shdur_der,number_receiver_global)
   endif
-#endif
 
   ! frees dynamically allocated memory
   ! mpi buffers