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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-03-23 17:54:00 -0700 (Sat, 23 Mar 2013)
New Revision: 21621

Modified:
   seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
Log:
improved a print statement


Modified: seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2013-03-24 00:32:53 UTC (rev 21620)
+++ seismo/2D/SPECFEM2D/trunk/src/specfem2D/pml_init.F90	2013-03-24 00:54:00 UTC (rev 21621)
@@ -139,7 +139,7 @@
            end if
         end do
 
-        !list every corner of each PML elements detected
+        ! list every corner of each PML element detected
         ncorner=0
         icorner_iglob=ZERO
         nspec_PML=0
@@ -331,7 +331,10 @@
 #else
   nspec_PML_tot = nspec_PML
 #endif
-  if(myrank == 0) write(IOUT,*) "Total number of PML spectral elements: ", nspec_PML_tot
+  if(myrank == 0) then
+    write(IOUT,*) "Total number of PML spectral elements: ", nspec_PML_tot
+    write(IOUT,*)
+  endif
 
   end subroutine pml_init