diff --git a/src/swiftest/swiftest_io.f90 b/src/swiftest/swiftest_io.f90 index c36ce9b79..be96af345 100644 --- 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')