[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/0000000000000000000000000000000000000000...99d99a4dcea0911a22759b11dba98723049af96b

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

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))
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!!!!!