[cig-commits] r11946 - seismo/3D/SPECFEM3D_GLOBE/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-05-10 06:00:44 -0700 (Sat, 10 May 2008)
New Revision: 11946

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
Log:
added initialization of dummy variables to avoid a warning


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90	2008-05-10 12:45:54 UTC (rev 11945)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/read_compute_parameters.f90	2008-05-10 13:00:44 UTC (rev 11946)
@@ -2164,7 +2164,10 @@
             else
               to_remove = 1
             endif
-            ! dummy value
+! dummy values to avoid a warning
+            nglob_surf = 0
+            nglob_edges_h = 0
+            nglob_edge_v = 0
             divider = 1
             doubling = 0
             nb_lay_sb = 0