[cig-commits] r14819 - in seismo/3D/SPECFEM3D_GLOBE/trunk: . USER_MANUAL version41_beta/src

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2009-04-29 15:43:27 -0700 (Wed, 29 Apr 2009)
New Revision: 14819

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/USER_MANUAL/manual_SPECFEM3D_GLOBE.tex
   seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/read_compute_parameters.F90
Log:
fixed a bug detected by Eh Tan: maxval() returns an undefined value with at least one compiler when the entire array has not been assigned a value. This is not the expected behavior, it is probably a bug in this compiler, but it was easy to fix in the code therefore I did it anyway.


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/USER_MANUAL/manual_SPECFEM3D_GLOBE.tex
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/USER_MANUAL/manual_SPECFEM3D_GLOBE.tex	2009-04-29 22:40:14 UTC (rev 14818)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/USER_MANUAL/manual_SPECFEM3D_GLOBE.tex	2009-04-29 22:43:27 UTC (rev 14819)
@@ -2717,7 +2717,7 @@
 
 To report bugs or suggest improvements to the code, please send an
 e-mail to the CIG Computational Seismology Mailing List \url{cig-seismo at geodynamics.org}
-or Jeroen Tromp \url{jtromp-AT-gps.caltech.edu}, and/or use our online
+or Jeroen Tromp \url{jtromp-AT-princeton.edu}, and/or use our online
 bug tracking system Roundup \url{www.geodynamics.org/roundup}.
 
 
@@ -2731,9 +2731,9 @@
 
 The Gauss-Lobatto-Legendre subroutines in \texttt{gll\_library.f90}
 are based in part on software libraries from the Massachusetts Institute
-of Technology, Department of Mechanical Engineering (Cambridge, Massachusetts).
+of Technology, Department of Mechanical Engineering (Cambridge, Massachusetts, USA).
 The non-structured global numbering software was provided by Paul
-F. Fischer (Brown University, Providence, Rhode Island). 
+F. Fischer (Brown University, Providence, Rhode Island, USA, now at Argonne National Laboratory, USA). 
 
 OpenDX \url{www.opendx.org} is open-source based on IBM Data Explorer,
 AVS \url{www.avs.com} is a trademark of Advanced Visualization Systems,

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90	2009-04-29 22:40:14 UTC (rev 14818)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90	2009-04-29 22:43:27 UTC (rev 14819)
@@ -2085,7 +2085,7 @@
 !!!!!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-  ratio_divide_central_cube = maxval(ratio_sampling_array)
+  ratio_divide_central_cube = maxval(ratio_sampling_array(1:NUMBER_OF_MESH_LAYERS))
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/read_compute_parameters.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/read_compute_parameters.F90	2009-04-29 22:40:14 UTC (rev 14818)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/src/read_compute_parameters.F90	2009-04-29 22:43:27 UTC (rev 14819)
@@ -2215,7 +2215,7 @@
 !!!!!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-  ratio_divide_central_cube = maxval(ratio_sampling_array)
+  ratio_divide_central_cube = maxval(ratio_sampling_array(1:NUMBER_OF_MESH_LAYERS))
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!