[cig-commits] r21330 - seismo/3D/SPECFEM3D/trunk/src/specfem3D

[surendra at geodynamics.org]

Author: surendra
Date: 2013-02-04 15:42:56 -0800 (Mon, 04 Feb 2013)
New Revision: 21330

Modified:
   seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_receivers.f90
Log:
Fixed a bug related to sticking receivers to topography.

Modified: seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_receivers.f90	2013-02-04 23:10:43 UTC (rev 21329)
+++ seismo/3D/SPECFEM3D/trunk/src/specfem3D/locate_receivers.f90	2013-02-04 23:42:56 UTC (rev 21330)
@@ -494,7 +494,7 @@
 
     ! get normal to the face of the hexaedra if receiver is on the surface
     if ((.not. RECVS_CAN_BE_BURIED_EXT_MESH) .and. &
-       .not. (ispec_selected_rec(irec) == 0)) then
+       .not. (ispec_selected_rec(irec) == 1)) then
       pt0_ix = -1
       pt0_iy = -1
       pt0_iz = -1