[cig-commits] [commit] pluggable: Fixed a bug of acessing uninit'd variable (1845627)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem3d_globe

On branch  : pluggable
Link       : https://github.com/geodynamics/specfem3d_globe/compare/64e1b38f0c5ebb4056cce0b15d41c0b9f94ab6e5...099a4d330d5b173b21e51ad441f9f429e5d37842

>---------------------------------------------------------------

commit 1845627b9368cc3d489443c71d40b3d1c3b2f77d
Author: Eh Tan <tan2 at earth.sinica.edu.tw>
Date:   Tue Mar 24 20:03:47 2009 +0000

    Fixed a bug of acessing uninit'd variable


>---------------------------------------------------------------

1845627b9368cc3d489443c71d40b3d1c3b2f77d
 read_compute_parameters.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/read_compute_parameters.f90 b/read_compute_parameters.f90
index 1b97490..b02f71f 100644
--- a/read_compute_parameters.f90
+++ b/read_compute_parameters.f90
@@ -1624,7 +1624,7 @@
 !!!!!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-  ratio_divide_central_cube = maxval(ratio_sampling_array)
+  ratio_divide_central_cube = maxval(ratio_sampling_array(1:NUMBER_OF_MESH_LAYERS))
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!