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

[surendra at geodynamics.org]

Author: surendra
Date: 2012-11-02 12:12:34 -0700 (Fri, 02 Nov 2012)
New Revision: 20984

Modified:
   seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/compute_forces_elastic.f90
Log:
Fixed a bug

Modified: seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/compute_forces_elastic.f90
===================================================================
--- seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/compute_forces_elastic.f90	2012-11-01 18:47:40 UTC (rev 20983)
+++ seismo/3D/FAULT_SOURCE/branches/new_fault_db/src/compute_forces_elastic.f90	2012-11-02 19:12:34 UTC (rev 20984)
@@ -186,7 +186,7 @@
                         max_nibool_interfaces_ext_mesh, &
                         nibool_interfaces_ext_mesh,ibool_interfaces_ext_mesh, &
                         request_send_vector_ext_mesh,request_recv_vector_ext_mesh, &
-                        max_nibool_interfaces_ext_mesh,myrank)
+                        my_neighbours_ext_mesh,myrank)
 
       ! adjoint simulations
       if( SIMULATION_TYPE == 3 ) then  
@@ -195,7 +195,7 @@
                         max_nibool_interfaces_ext_mesh, &
                         nibool_interfaces_ext_mesh,ibool_interfaces_ext_mesh, &
                         b_request_send_vector_ext_mesh,b_request_recv_vector_ext_mesh, &      
-                        max_nibool_interfaces_ext_mesh,myrank)
+                        my_neighbours_ext_mesh,myrank)
       endif !adjoint
       
     endif