[cig-commits] r21186 - seismo/2D/SPECFEM2D/trunk/src/specfem2D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-12-20 01:26:31 -0800 (Thu, 20 Dec 2012)
New Revision: 21186

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
Log:
added output of total number of elements


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-12-20 06:19:32 UTC (rev 21185)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/specfem2D.F90	2012-12-20 09:26:31 UTC (rev 21186)
@@ -1757,6 +1757,9 @@
 #endif
   if (myrank == 0 .and. ipass == 1) then
     write(IOUT,*)
+    write(IOUT,*) 'Total number of elements: ',nspec_total
+    write(IOUT,*) 'decomposed as follows:'
+    write(IOUT,*)
     write(IOUT,*) 'Total number of elastic/visco/poro elements: ',nspec_total - count_nspec_acoustic_total
     write(IOUT,*) 'Total number of acoustic elements: ',count_nspec_acoustic_total
     write(IOUT,*)