[cig-commits] r20718 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/src

[surendra at geodynamics.org]

Author: surendra
Date: 2012-09-16 07:25:58 -0700 (Sun, 16 Sep 2012)
New Revision: 20718

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
Log:
Switched to one call for assembling B and n of fault

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-09-16 05:42:47 UTC (rev 20717)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-09-16 14:25:58 UTC (rev 20718)
@@ -319,20 +319,12 @@
   if(PARALLEL_FAULT) then
     accel=0._CUSTOM_REAL
     accel(1,bc%ibulk1) = bc%B(:)
-    ! sends accel values to corresponding MPI interface neighbors  
-    call assemble_MPI_vector_ext_mesh_s(NPROC,NGLOB_AB,accel, &
-         buffer_send_vector_ext_mesh,buffer_recv_vector_ext_mesh, &
-         num_interfaces_ext_mesh,max_nibool_interfaces_ext_mesh, &
-         nibool_interfaces_ext_mesh,ibool_interfaces_ext_mesh,&
-         my_neighbours_ext_mesh, &
-         request_send_vector_ext_mesh,request_recv_vector_ext_mesh)
-  
-    ! waits for send/receive requests to be completed and assembles values
-    call assemble_MPI_vector_ext_mesh_w(NPROC,NGLOB_AB,accel, &
-         buffer_recv_vector_ext_mesh,num_interfaces_ext_mesh,&
-         max_nibool_interfaces_ext_mesh, &
-         nibool_interfaces_ext_mesh,ibool_interfaces_ext_mesh, &
-         request_send_vector_ext_mesh,request_recv_vector_ext_mesh)
+
+    ! assembles with other MPI processes
+    call assemble_MPI_vector_ext_mesh(NPROC,NGLOB_AB,accel, &
+       num_interfaces_ext_mesh,max_nibool_interfaces_ext_mesh, &
+       nibool_interfaces_ext_mesh,ibool_interfaces_ext_mesh, &
+       my_neighbours_ext_mesh)
     
     bc%B(:) = accel(1,bc%ibulk1)
     
@@ -340,21 +332,13 @@
     accel(1,bc%ibulk1) = nx(:)
     accel(2,bc%ibulk1) = ny(:)
     accel(3,bc%ibulk1) = nz(:)
-    ! sends accel values to corresponding MPI interface neighbors  
-    call assemble_MPI_vector_ext_mesh_s(NPROC,NGLOB_AB,accel, &
-         buffer_send_vector_ext_mesh,buffer_recv_vector_ext_mesh, &
-         num_interfaces_ext_mesh,max_nibool_interfaces_ext_mesh, &
-         nibool_interfaces_ext_mesh,ibool_interfaces_ext_mesh,&
-         my_neighbours_ext_mesh, &
-         request_send_vector_ext_mesh,request_recv_vector_ext_mesh)
+
+    ! assembles with other MPI processes
+    call assemble_MPI_vector_ext_mesh(NPROC,NGLOB_AB,accel, &
+       num_interfaces_ext_mesh,max_nibool_interfaces_ext_mesh, &
+       nibool_interfaces_ext_mesh,ibool_interfaces_ext_mesh, &
+       my_neighbours_ext_mesh)
     
-    ! waits for send/receive requests to be completed and assembles values
-    call assemble_MPI_vector_ext_mesh_w(NPROC,NGLOB_AB,accel, &
-         buffer_recv_vector_ext_mesh,num_interfaces_ext_mesh,&
-         max_nibool_interfaces_ext_mesh, &
-         nibool_interfaces_ext_mesh,ibool_interfaces_ext_mesh, &
-         request_send_vector_ext_mesh,request_recv_vector_ext_mesh)
-    
     nx(:) = accel(1,bc%ibulk1)
     ny(:) = accel(2,bc%ibulk1)
     nz(:) = accel(3,bc%ibulk1)