[cig-commits] r14808 - seismo/2D/SPECFEM2D/trunk

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2009-04-28 14:28:34 -0700 (Tue, 28 Apr 2009)
New Revision: 14808

Modified:
   seismo/2D/SPECFEM2D/trunk/meshfem2D.F90
Log:
added assert to check that enreg_surf is set to false when using external meshes.

Modified: seismo/2D/SPECFEM2D/trunk/meshfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/meshfem2D.F90	2009-04-28 00:25:23 UTC (rev 14807)
+++ seismo/2D/SPECFEM2D/trunk/meshfem2D.F90	2009-04-28 21:28:34 UTC (rev 14808)
@@ -501,6 +501,9 @@
     call read_value_double_precision(IIN,IGNORE_JUNK,xfin(ireceiverlines))
     call read_value_double_precision(IIN,IGNORE_JUNK,zfin(ireceiverlines))
     call read_value_logical(IIN,IGNORE_JUNK,enreg_surf(ireceiverlines))
+    if (read_external_mesh .and. enreg_surf(ireceiverlines)) then
+      stop 'Cannot use enreg_surf with external meshes!' 
+    endif
   enddo
 
 ! read display parameters