[cig-commits] [commit] master: that barrier should only be there for collective IO (87714a6)

[cig_noreply at geodynamics.org]

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

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/607f803cf074063627513d235f9ed0837fc1dd44...b6457db24acdde4a4e1c08935ae1b22adf87f5bf

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

commit 87714a61b1eba324049e3e7c4970275953fb3fe4
Author: martinvandriel <martin at vandriel.de>
Date:   Thu Oct 16 12:14:41 2014 +0200

    that barrier should only be there for collective IO


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

87714a61b1eba324049e3e7c4970275953fb3fe4
 SOLVER/nc_routines.F90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/SOLVER/nc_routines.F90 b/SOLVER/nc_routines.F90
index 7cdbcc9..fc5fbca 100644
--- a/SOLVER/nc_routines.F90
+++ b/SOLVER/nc_routines.F90
@@ -443,9 +443,10 @@ subroutine nc_dump_strain_to_disk() bind(c, name="nc_dump_strain_to_disk")
 #ifndef upnc
     call check( nf90_open(path=datapath(1:lfdata)//"/axisem_output.nc4", & 
                           mode=NF90_WRITE, ncid=ncid_out) )
+#else
+    call barrier
 #endif
     
-    call barrier
     isnap_loc = isnap_global
     if (verbose > 0) then
         if (ndumps == 0) then