[cig-commits] r18764 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-07-15 07:36:06 -0700 (Fri, 15 Jul 2011)
New Revision: 18764

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
reverted my modification because it was not correct


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2011-07-15 14:28:39 UTC (rev 18763)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2011-07-15 14:36:06 UTC (rev 18764)
@@ -3735,17 +3735,8 @@
   allocate(coorg_send_ps_vector_field(d1_coorg_send_ps_vector_field,d2_coorg_send_ps_vector_field))
   allocate(coorg_recv_ps_vector_field(d1_coorg_recv_ps_vector_field,d2_coorg_recv_ps_vector_field))
 
-! Adjoint calculation: set zero initial condition for the backward field
-  if(SIMULATION_TYPE == 2 .and. .not. SAVE_FORWARD) then
-    b_displ_elastic = ZERO
-    b_veloc_elastic = ZERO
-    b_accel_elastic = ZERO
-  endif
-
 ! *********************************************************
-!
 ! ************* MAIN LOOP OVER THE TIME STEPS *************
-!
 ! *********************************************************
 
 #ifdef USE_MPI
@@ -6615,7 +6606,7 @@
   enddo ! end of the main time loop
 
 ! *********************************************************
-! ************* END MAIN LOOP OVER THE TIME STEPS *************
+! ************* END MAIN LOOP OVER THE TIME STEPS *********
 ! *********************************************************
 
   if((SAVE_FORWARD .and. SIMULATION_TYPE==1) .or. SIMULATION_TYPE ==2) then