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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-07-15 07:28:39 -0700 (Fri, 15 Jul 2011)
New Revision: 18763

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
added  .and. .not. SAVE_FORWARD to my modification


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2011-07-15 14:10:39 UTC (rev 18762)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2011-07-15 14:28:39 UTC (rev 18763)
@@ -3735,7 +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))
 
-  if(SIMULATION_TYPE == 2) then ! Adjoint calculation: set zero initial condition for the backward 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