[cig-commits] r17024 - seismo/3D/SPECFEM3D_GLOBE/trunk

[bozdag at geodynamics.org]

Author: bozdag
Date: 2010-06-25 18:11:50 -0700 (Fri, 25 Jun 2010)
New Revision: 17024

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/get_event_info.f90
Log:
missing MPI_BCAST for t_shift in get_event_info.f90 is fixed

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_event_info.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_event_info.f90	2010-06-24 22:37:51 UTC (rev 17023)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_event_info.f90	2010-06-26 01:11:50 UTC (rev 17024)
@@ -101,6 +101,7 @@
   call MPI_BCAST(NSOURCES,1,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
 
   call MPI_BCAST(t_cmt,1,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
+  call MPI_BCAST(t_shift,1,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)
 
   ! event location given on first, PDE line
   call MPI_BCAST(elat,1,MPI_DOUBLE_PRECISION,0,MPI_COMM_WORLD,ier)