[cig-commits] r14430 - seismo/3D/SPECFEM3D_GLOBE/branches/pluggable
tan2 at geodynamics.org
tan2 at geodynamics.org
Tue Mar 24 13:03:47 PDT 2009
Author: tan2
Date: 2009-03-24 13:03:47 -0700 (Tue, 24 Mar 2009)
New Revision: 14430
Modified:
seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/read_compute_parameters.f90
Log:
Fixed a bug of acessing uninit'd variable
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/read_compute_parameters.f90 2009-03-24 19:38:43 UTC (rev 14429)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/read_compute_parameters.f90 2009-03-24 20:03:47 UTC (rev 14430)
@@ -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))
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!
More information about the CIG-COMMITS
mailing list