[cig-commits] r11944 - seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-05-10 04:48:11 -0700 (Sat, 10 May 2008)
New Revision: 11944

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/read_compute_parameters.f90
Log:
fixed warning about variable "divider" that was used without being assigned in some cases


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/read_compute_parameters.f90	2008-05-10 10:00:14 UTC (rev 11943)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/version41_beta/read_compute_parameters.f90	2008-05-10 11:48:11 UTC (rev 11944)
@@ -2175,6 +2175,8 @@
             else
               to_remove = 1
             endif
+            ! dummy value
+            divider = 1
             doubling = 0
             nb_lay_sb = 0
             nspec2D_xi_sb = 0