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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:58:57 -0800 (Fri, 07 Dec 2007)
New Revision: 8589

Modified:
   seismo/2D/SPECFEM2D/trunk/checkgrid.F90
   seismo/2D/SPECFEM2D/trunk/locate_receivers.F90
   seismo/2D/SPECFEM2D/trunk/specfem2D.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 16:53:23 UTC (rev 8588)
+++ seismo/2D/SPECFEM2D/trunk/checkgrid.F90	2007-12-07 23:58:57 UTC (rev 8589)
@@ -1539,10 +1539,11 @@
 ! ratio of physical page size/size of the domain meshed
   ratio_page = min(rpercentz*sizez/(zmax-zmin),rpercentx*sizex/(xmax-xmin)) / 100.d0
 
+
+  if ( myrank == 0 ) then
   print *
   print *,'Creating PostScript file with stability condition'
 
-  if ( myrank == 0 ) then
 !
 !---- open PostScript file
 !
@@ -1862,7 +1863,7 @@
 !--------------------------------------------------------------------------------
 !
  
-if ( myrank == 0 ) then
+  if ( myrank == 0 ) then
   print *
   print *,'Creating PostScript file with mesh dispersion'
 
@@ -2528,11 +2529,10 @@
 
   end if
 
-
+ 
+  if ( myrank == 0 ) then
   print *
   print *,'Creating PostScript file with partitioning'
-
-  if ( myrank == 0 ) then
 !
 !---- open PostScript file
 !

Modified: seismo/2D/SPECFEM2D/trunk/locate_receivers.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/locate_receivers.F90	2007-09-25 16:53:23 UTC (rev 8588)
+++ seismo/2D/SPECFEM2D/trunk/locate_receivers.F90	2007-12-07 23:58:57 UTC (rev 8589)
@@ -76,6 +76,7 @@
 
 ! **************
 
+  if ( myrank == 0 ) then
   write(IOUT,*)
   write(IOUT,*) '********************'
   write(IOUT,*) ' locating receivers'
@@ -83,6 +84,7 @@
   write(IOUT,*)
   write(IOUT,*) 'reading receiver information from the DATA/STATIONS file'
   write(IOUT,*)
+  endif
 
 ! get number of stations from receiver file
   open(unit=1,file='DATA/STATIONS',status='old',action='read')

Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-09-25 16:53:23 UTC (rev 8588)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-12-07 23:58:57 UTC (rev 8589)
@@ -353,7 +353,9 @@
 !
 !---- print the date, time and start-up banner
 !
+  if ( myrank == 0 ) then
   call datim(simulation_title)
+  endif
 
   if ( myrank == 0 ) then
   write(IOUT,*)