[cig-commits] r21594 - seismo/2D/SPECFEM2D/trunk/src/meshfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-20 19:22:59 -0700 (Wed, 20 Mar 2013)
New Revision: 21594

Modified:
   seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90
Log:
added print statement for nedges_coupled (acoustic/elastic)


Modified: seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90	2013-03-21 02:20:06 UTC (rev 21593)
+++ seismo/2D/SPECFEM2D/trunk/src/meshfem2D/part_unstruct.F90	2013-03-21 02:22:59 UTC (rev 21594)
@@ -1735,6 +1735,8 @@
      endif
   enddo
 
+  print *, 'nedges_coupled (acoustic/elastic)', nedges_coupled
+
   allocate(edges_coupled(2,nedges_coupled))
 
   nedges_coupled = 0