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

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-06-16 00:57:50 -0700 (Sun, 16 Jun 2013)
New Revision: 22323

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/initialize_simulation.f90
Log:
fix the problem concerning with the value of PARTIAL_PHYS_DISPERSION_ONLY


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/initialize_simulation.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/initialize_simulation.f90	2013-06-16 07:29:51 UTC (rev 22322)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/src/specfem3D/initialize_simulation.f90	2013-06-16 07:57:50 UTC (rev 22323)
@@ -392,8 +392,10 @@
     if ( ATTENUATION_VAL) then
       ! checks mimic flag:
       ! attenuation for adjoint simulations must have PARTIAL_PHYS_DISPERSION_ONLY set by xcreate_header_file
-      if( PARTIAL_PHYS_DISPERSION_ONLY .eqv. .false. ) &
-        call exit_MPI(myrank,'error in compiled attenuation parameters, please recompile solver 17b')
+      if(.not. UNDO_ATT)then
+        if( PARTIAL_PHYS_DISPERSION_ONLY .eqv. .false. ) &
+          call exit_MPI(myrank,'error in compiled attenuation parameters, please recompile solver 17b')
+      endif
 
       ! user output
       if( myrank == 0 ) write(IMAIN,*) 'incorporates ATTENUATION for time-reversed simulation'