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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:59:02 -0800 (Fri, 07 Dec 2007)
New Revision: 8590

Modified:
   seismo/2D/SPECFEM2D/trunk/checkgrid.F90
Log:
removed some output on stdout (now only printed by proc 0).

Modified: seismo/2D/SPECFEM2D/trunk/checkgrid.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/checkgrid.F90	2007-09-25 17:09:47 UTC (rev 8589)
+++ seismo/2D/SPECFEM2D/trunk/checkgrid.F90	2007-12-07 23:59:02 UTC (rev 8590)
@@ -1458,6 +1458,7 @@
   
 #endif
 
+  if ( myrank == 0 ) then
   write(IOUT,*)
   write(IOUT,*) '********'
   write(IOUT,*) 'Model: P velocity min,max = ',vpmin,vpmax
@@ -1477,6 +1478,7 @@
   write(IOUT,*)
   write(IOUT,*) '*** Max stability for P wave velocity = ',courant_stability_number_max
   write(IOUT,*)
+  
 
 ! only if time source is not a Dirac or Heaviside (otherwise maximum frequency of spectrum undefined)
 ! and if source is not an initial field, for the same reason
@@ -1497,8 +1499,8 @@
     write(IOUT,*) ' Nb pts / lambdaSmin_fmax max = ',lambdaSmax/(2.5d0*f0)
     write(IOUT,*) ' Nb pts / lambdaSmin_fmax min = ',lambdaSmin/(2.5d0*f0)
     write(IOUT,*) '----'
-
   endif
+  endif
 
 !
 !--------------------------------------------------------------------------------