[cig-commits] [commit] master: preparing for buffered writes (4b56423)

[cig_noreply at geodynamics.org]

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

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

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

commit 4b56423d5bb0a6f914edfe4e1936744f86972407
Author: martinvandriel <martin at vandriel.de>
Date:   Wed Oct 15 18:41:07 2014 +0200

    preparing for buffered writes


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

4b56423d5bb0a6f914edfe4e1936744f86972407
 SOLVER/nc_routines.F90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/SOLVER/nc_routines.F90 b/SOLVER/nc_routines.F90
index 8cba973..e2ad1f6 100644
--- a/SOLVER/nc_routines.F90
+++ b/SOLVER/nc_routines.F90
@@ -320,8 +320,8 @@ subroutine nc_dump_strain(isnap_loc)
     stepstodump = stepstodump + 1
     if (isnap_loc == 0) return
 
-#ifndef upnc
     if (dumpposition(mod(isnap_loc, dumpstepsnap))) then
+#ifndef upnc
 
         ! wait for other processes to finish writing, measure waiting time and
         ! issue warning in case waiting longer then .5 sec
@@ -375,11 +375,11 @@ subroutine nc_dump_strain(isnap_loc)
             call c_spawn_dumpthread(stepstodump)
             stepstodump = 0
         end if
-    end if 
 #else
-    call nc_dump_strain_to_disk
-    stepstodump = 0
+            call nc_dump_strain_to_disk
+            stepstodump = 0
 #endif
+    end if 
 
 #ifndef upnc
     ! Final and last dump of all remaining