[cig-commits] r8514 - seismo/2D/SPECFEM2D/trunk/UTILS

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:52:36 -0800 (Fri, 07 Dec 2007)
New Revision: 8514

Modified:
   seismo/2D/SPECFEM2D/trunk/UTILS/create_gaussian_profile.f90
Log:
changed parameters for the Gaussian bathymetry profile


Modified: seismo/2D/SPECFEM2D/trunk/UTILS/create_gaussian_profile.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/UTILS/create_gaussian_profile.f90	2007-04-17 10:05:50 UTC (rev 8513)
+++ seismo/2D/SPECFEM2D/trunk/UTILS/create_gaussian_profile.f90	2007-12-07 23:52:36 UTC (rev 8514)
@@ -7,7 +7,7 @@
 
   integer, parameter :: N = 200
 
-  double precision, parameter :: horiz_size = 10000.d0, x0 = horiz_size / 2.d0, sigma = horiz_size / 20.d0, height = 400.d0
+  double precision, parameter :: horiz_size = 20000.d0, x0 = horiz_size / 2.d0, sigma = horiz_size / 40.d0, height = 300.d0
 
   double precision :: deltax,x