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

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-06-12 09:36:40 -0700 (Wed, 12 Jun 2013)
New Revision: 22235

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90
Log:
add one comment "besure that we set PARTIAL_PHYS_DISPERSION_ONLY = .false. in UNDO_ATT"


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-12 16:28:50 UTC (rev 22234)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/specfem3D.F90	2013-06-12 16:36:40 UTC (rev 22235)
@@ -2268,9 +2268,10 @@
   if(SIMULATION_TYPE == 3)then
 
 #ifdef UNDO_ATT
-      if(ATTENUATION_VAL)then
-          PARTIAL_PHYS_DISPERSION_ONLY = .false.
-      endif
+!ZN besure that we set PARTIAL_PHYS_DISPERSION_ONLY = .false. in UNDO_ATT
+!ZN      if(ATTENUATION_VAL)then
+!ZN          PARTIAL_PHYS_DISPERSION_ONLY = .false.
+!ZN      endif
 #endif
 
     allocate(displ_crust_mantle_store_as_bwf(NDIM,NGLOB_CRUST_MANTLE,NT_500),stat=ier)