[cig-commits] r13014 - seismo/3D/SPECFEM3D/branches/update_temporary

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2008-10-09 10:32:57 -0700 (Thu, 09 Oct 2008)
New Revision: 13014

Modified:
   seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90
Log:
added wait for assemble_MPI_scalar send buffers.

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90	2008-10-09 15:57:54 UTC (rev 13013)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90	2008-10-09 17:32:57 UTC (rev 13014)
@@ -356,6 +356,12 @@
     enddo
   enddo
       
+! wait for communications completion (send)
+  do iinterface = 1, ninterfaces_ext_mesh
+    call wait_req(request_send_scalar_ext_mesh(iinterface))
+  enddo
+
+
   endif
 
   end subroutine assemble_MPI_scalar_i_ext_mesh