[cig-commits] r13023 - seismo/3D/SPECFEM3D/branches/update_temporary

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2008-10-14 03:14:38 -0700 (Tue, 14 Oct 2008)
New Revision: 13023

Modified:
   seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90
Log:
added dummy size for itopo_bathy when no topography.

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90	2008-10-14 10:07:33 UTC (rev 13022)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90	2008-10-14 10:14:38 UTC (rev 13023)
@@ -1235,6 +1235,11 @@
       write(IMAIN,*)
     endif
 
+  else
+    NX_TOPO = 1
+    NY_TOPO = 1
+    allocate(itopo_bathy(NX_TOPO,NY_TOPO))
+
   endif
 
 ! write source and receiver VTK files for Paraview