[cig-commits] r18855 - seismo/2D/SPECFEM2D/trunk/src/meshfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2011-08-26 09:50:23 -0700 (Fri, 26 Aug 2011)
New Revision: 18855

Modified:
   seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90
Log:
added a test about read_external_mesh to fix a small bug about an unassigned variable in that case


Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90	2011-08-26 16:45:27 UTC (rev 18854)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/meshfem2D.F90	2011-08-26 16:50:23 UTC (rev 18855)
@@ -945,7 +945,7 @@
 
   !--- compute position of the receivers and write the STATIONS file
 
-  if (generate_STATIONS) then
+  if (generate_STATIONS .and. .not. read_external_mesh) then
     call save_stations_file(nreceiverlines,nrec,xdeb,zdeb,xfin,zfin,enreg_surf_same_vertical, &
                             xinterface_top,zinterface_top,coefs_interface_top, &
                             npoints_interface_top,max_npoints_interface)