[cig-commits] r22237 - seismo/3D/SPECFEM3D_GLOBE/branches/undo_att

[xie.zhinan at geodynamics.org]

Author: xie.zhinan
Date: 2013-06-12 10:31:29 -0700 (Wed, 12 Jun 2013)
New Revision: 22237

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/part2_undo_att.F90
Log:
fix one error in wrong use of &


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/part2_undo_att.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/part2_undo_att.F90	2013-06-12 17:05:03 UTC (rev 22236)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/part2_undo_att.F90	2013-06-12 17:31:29 UTC (rev 22237)
@@ -560,7 +560,7 @@
     endif ! Stacey conditions
 
     ! add adjoint sources and add sources for backward/reconstructed wavefield
-    if (SIMULATION_TYPE == 3) &
+    if (SIMULATION_TYPE == 3) then
 #ifdef UNDO_ATT
       call compute_add_sources_backward(myrank,NSOURCES,NSTEP, &
                                 b_accel_crust_mantle,sourcearrays, &
@@ -574,6 +574,7 @@
                                 islice_selected_source,ispec_selected_source,it, &
                                 hdur,xi_source,eta_source,gamma_source,nu_source)
 #endif
+    endif
 
     ! NOISE_TOMOGRAPHY
 !   if ( NOISE_TOMOGRAPHY == 1 ) then