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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:47:31 -0800 (Fri, 07 Dec 2007)
New Revision: 8456

Modified:
   seismo/2D/SPECFEM2D/trunk/meshfem2D.f90
Log:
fixed statement with confusing (but correct) syntax in 2D mesher


Modified: seismo/2D/SPECFEM2D/trunk/meshfem2D.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/meshfem2D.f90	2005-01-26 20:03:51 UTC (rev 8455)
+++ seismo/2D/SPECFEM2D/trunk/meshfem2D.f90	2007-12-07 23:47:31 UTC (rev 8456)
@@ -173,7 +173,7 @@
   if(ngnod == 9) then
     nx = nx * 2
     nz = nz * 2
-    nz_layer = nz_layer * 2
+    nz_layer(:) = nz_layer(:) * 2
   endif
 
 ! read absorbing boundaries parameters