[cig-commits] r19143 - seismo/3D/SPECFEM3D/trunk/src/shared

[cmorency at geodynamics.org]

Author: cmorency
Date: 2011-11-02 15:01:24 -0700 (Wed, 02 Nov 2011)
New Revision: 19143

Modified:
   seismo/3D/SPECFEM3D/trunk/src/shared/check_mesh_resolution.f90
Log:
Corrected typo in the calcul of the minimum period resolved.


Modified: seismo/3D/SPECFEM3D/trunk/src/shared/check_mesh_resolution.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/check_mesh_resolution.f90	2011-11-02 13:59:56 UTC (rev 19142)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/check_mesh_resolution.f90	2011-11-02 22:01:24 UTC (rev 19143)
@@ -168,7 +168,7 @@
     !          also, keep in mind that the minimum period is just an estimation and
     !          there is no such sharp cut-off period for valid synthetics.
     !          seismograms become just more and more inaccurate for periods shorter than this estimate.
-    pmax = avg_distance / min( vpmin,vp2max,vsmin ) * NPTS_PER_WAVELENGTH
+    pmax = avg_distance / min( vpmin,vp2min,vsmin ) * NPTS_PER_WAVELENGTH
     pmax_glob = max(pmax_glob,pmax)