[cig-commits] r22236 - seismo/3D/SPECFEM3D_GLOBE/branches/undo_att
xie.zhinan at geodynamics.org
xie.zhinan at geodynamics.org
Wed Jun 12 10:05:04 PDT 2013
Author: xie.zhinan
Date: 2013-06-12 10:05:03 -0700 (Wed, 12 Jun 2013)
New Revision: 22236
Modified:
seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/part2_undo_att.F90
Log:
fix one error in computation of it in compute_add_sources_backward
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 16:36:40 UTC (rev 22235)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/undo_att/part2_undo_att.F90 2013-06-12 17:05:03 UTC (rev 22236)
@@ -561,11 +561,19 @@
! add adjoint sources and add sources for backward/reconstructed wavefield
if (SIMULATION_TYPE == 3) &
+#ifdef UNDO_ATT
call compute_add_sources_backward(myrank,NSOURCES,NSTEP, &
b_accel_crust_mantle,sourcearrays, &
DT,t0,tshift_cmt,hdur_gaussian,ibool_crust_mantle, &
+ islice_selected_source,ispec_selected_source,iteration_on_subset*NT_500-it_of_this_subset+1, &
+ hdur,xi_source,eta_source,gamma_source,nu_source)
+#else
+ call compute_add_sources_backward(myrank,NSOURCES,NSTEP, &
+ b_accel_crust_mantle,sourcearrays, &
+ DT,t0,tshift_cmt,hdur_gaussian,ibool_crust_mantle, &
islice_selected_source,ispec_selected_source,it, &
hdur,xi_source,eta_source,gamma_source,nu_source)
+#endif
! NOISE_TOMOGRAPHY
! if ( NOISE_TOMOGRAPHY == 1 ) then
More information about the CIG-COMMITS
mailing list