[cig-commits] [commit] master: iproc was not defined in case of collective IO (083ab66)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/axisem

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/0400524d56a55d19a8667c76e21ab9cc33775cea...4221bf19636b24e234c637438df809199712d516

>---------------------------------------------------------------

commit 083ab66be14c8414b5c64e97834bdbd54e2ad548
Author: martinvandriel <martin at vandriel.de>
Date:   Mon Oct 20 17:12:19 2014 +0200

    iproc was not defined in case of collective IO


>---------------------------------------------------------------

083ab66be14c8414b5c64e97834bdbd54e2ad548
 SOLVER/nc_routines.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/SOLVER/nc_routines.F90 b/SOLVER/nc_routines.F90
index 40283b4..223b813 100644
--- a/SOLVER/nc_routines.F90
+++ b/SOLVER/nc_routines.F90
@@ -1690,7 +1690,7 @@ subroutine nc_finish_prepare
                    call getvarid(ncid_meshout, "G2",            nc_mesh_G2_varid) 
                 end if
 
-                print '(A,I5,A)', '   ', iproc, ': inquired variable IDs'
+                !print '(A,I5,A)', '   ', iproc, ': inquired variable IDs'
 
 #ifdef enable_parallel_netcdf
                 ! enable collective IO in case of parallel IO
@@ -1931,7 +1931,7 @@ subroutine nc_finish_prepare
                    endif
                 endif
 
-                print '(A,I5,A)', '   ', iproc, ': dumped mesh'
+                !print '(A,I5,A)', '   ', iproc, ': dumped mesh'
 
             end if !dump_wavefields
             if (verbose > 1) &