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

[surendra at geodynamics.org]

Author: surendra
Date: 2012-09-14 15:47:32 -0700 (Fri, 14 Sep 2012)
New Revision: 20713

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90
Log:
Fixed assembling of B and n vectors for PARALLEL fault implementation

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-13 21:00:44 UTC (rev 20712)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/fault_solver.f90	2012-09-14 22:47:32 UTC (rev 20713)
@@ -327,12 +327,6 @@
          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,&
@@ -354,12 +348,6 @@
          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,&