[cig-commits] r20713 - seismo/3D/FAULT_SOURCE/branches/new_fault_db/src
surendra at geodynamics.org
surendra at geodynamics.org
Fri Sep 14 15:47:32 PDT 2012
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,&
More information about the CIG-COMMITS
mailing list