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

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-06-11 09:05:38 -0700 (Tue, 11 Jun 2013)
New Revision: 22216

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90
Log:
creat array for storing displ


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-11 15:51:56 UTC (rev 22215)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90	2013-06-11 16:05:38 UTC (rev 22216)
@@ -727,11 +727,6 @@
   double precision, external :: comp_source_time_function
   double precision t0
 
-!! DK DK
-#ifdef UNDO_ATT
-  integer :: iteration_on_subset,it_of_this_subset
-#endif
-
 ! receiver information
   integer nrec,nrec_local
   integer, dimension(:), allocatable :: islice_selected_rec,ispec_selected_rec,number_receiver_global
@@ -925,6 +920,13 @@
 
   include "declaration_part_for_backward_wavefield_simulation.f90"
 
+#ifdef UNDO_ATT
+  integer :: iteration_on_subset,it_of_this_subset
+  real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_CRUST_MANTLE,NT_500) :: displ_crust_mantle_store_as_bwf
+  real(kind=CUSTOM_REAL), dimension(NGLOB_OUTER_CORE,NT_500) :: displ_outer_core_store_store_as_bwf
+  real(kind=CUSTOM_REAL), dimension(NDIM,NGLOB_INNER_CORE,NT_500) :: displ_inner_core_store_as_bwf
+#endif
+
   
 
 ! *************************************************