[cig-commits] r19782 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-03-14 17:17:15 -0700 (Wed, 14 Mar 2012)
New Revision: 19782

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90
Log:
suppressed the print statements to display the topology of the mesh because the records printed become too long for very large meshes and make the code crash


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90	2012-03-15 00:10:51 UTC (rev 19781)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/specfem3D/read_mesh_databases.f90	2012-03-15 00:17:15 UTC (rev 19782)
@@ -378,8 +378,11 @@
   call MPI_BCAST(iproc_xi_slice,NPROCTOT_VAL,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
   call MPI_BCAST(iproc_eta_slice,NPROCTOT_VAL,MPI_INTEGER,0,MPI_COMM_WORLD,ier)
 
-  ! output a topology map of slices - fix 20x by nproc
-  if (myrank == 0 .and. NCHUNKS_VAL == 6) then
+  ! output a topology map of slices
+!!!!!!!  if (myrank == 0 .and. NCHUNKS_VAL == 6) then
+!!!!!!! commented out because crashes when run on a very large machine
+!!!!!!! because the records become too long
+  if (.false.) then
     write(IMAIN,*) 'Spatial distribution of the slices'
     do iproc_xi = NPROC_XI_VAL-1, 0, -1
       write(IMAIN,'(20x)',advance='no')