[cig-commits] r8583 - seismo/2D/SPECFEM2D/trunk

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:58:27 -0800 (Fri, 07 Dec 2007)
New Revision: 8583

Modified:
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
fixed a few warnings due to unused variables introduced with r1783.

Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-09-12 15:34:47 UTC (rev 8582)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-12-07 23:58:27 UTC (rev 8583)
@@ -1124,6 +1124,10 @@
     ninterface_acoustic = 0
     ninterface_elastic = 0
     
+    num_ispec_outer = 0
+    num_ispec_inner = 0
+    allocate(mask_ispec_inner_outer(1))
+
     nspec_outer = 0
     nspec_inner = nspec
      
@@ -1135,6 +1139,10 @@
   end if ! end of test on wether there is more than one process ( nproc>1 )
 
 #else
+  num_ispec_outer = 0
+  num_ispec_inner = 0
+  allocate(mask_ispec_inner_outer(1))
+
   nspec_outer = 0
   nspec_inner = nspec