[cig-commits] r20661 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-09-01 14:51:22 -0700 (Sat, 01 Sep 2012)
New Revision: 20661

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_initialfield.F90
Log:
fixed a print statement


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_initialfield.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_initialfield.F90	2012-09-01 19:25:50 UTC (rev 20660)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/prepare_initialfield.F90	2012-09-01 21:51:22 UTC (rev 20661)
@@ -275,7 +275,7 @@
 
   if (myrank == 0) then
     write(IOUT,*)
-    write(IOUT,*) 'You can modify the location of the initial plane wave by changing xs and zs in DATA/Par_File.'
+    write(IOUT,*) 'You can modify the location of the initial plane wave by changing xs and zs in DATA/SOURCE.'
     write(IOUT,*) '   for instance: xs=',x_source(1),'   zs=',z_source(1), ' (zs must be the height of the free surface)'
     write(IOUT,*)
   endif