[cig-commits] [commit] master: fixing a bug related to writing the gll stuff to the netcdf file (b227573)

[cig_noreply at geodynamics.org]

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

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/60945ec62bdb35c64fe807683c29aece1bcdad81...b22757325075cce6c3044f97c0b9591687d53b79

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

commit b22757325075cce6c3044f97c0b9591687d53b79
Author: martinvandriel <vandriel at erdw.ethz.ch>
Date:   Tue Oct 28 13:11:30 2014 +0100

    fixing a bug related to writing the gll stuff to the netcdf file
    
    when using only the wavefields to a certain depth and mynum=0 not having any wavefield to
    dump


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

b22757325075cce6c3044f97c0b9591687d53b79
 SOLVER/nc_routines.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SOLVER/nc_routines.F90 b/SOLVER/nc_routines.F90
index 223b813..68f6a89 100644
--- a/SOLVER/nc_routines.F90
+++ b/SOLVER/nc_routines.F90
@@ -1626,7 +1626,7 @@ subroutine nc_finish_prepare
 
     do iproc = 0, nproc
         call barrier
-        if (iproc == mynum .and. (npoints > 0 .or. maxind > 0 .or. num_rec > 0)) then
+        if (iproc == mynum .and. (npoints > 0 .or. maxind > 0 .or. num_rec > 0 .or. mynum == 0)) then
             if (verbose > 1) then
                write(6,*) '  Processor ', iproc, ' opened the output file and will dump '
                write(6,*) '  his part of the mesh.'