Improved file handling in coarray mode

MintonGroup · Apr 25, 2023 · 6dd5767 · 6dd5767
1 parent 63b8010
commit 6dd5767
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/swiftest/swiftest_io.f90 b/src/swiftest/swiftest_io.f90
@@ -3158,6 +3158,9 @@ module subroutine swiftest_io_write_frame_system(self, nc, param)
          nc%file_name = param%outfile
          if (lfirst) then
             inquire(file=param%outfile, exist=fileExists)
+#ifdef COARRAY
+            if (this_image() /= 1) param%out_stat = 'APPEND'
+#endif
 
             select case(param%out_stat)
             case('APPEND')