From 533c7a2055ce88d5534e7e276b857af049e754de Mon Sep 17 00:00:00 2001 From: Uriel Ramirez Date: Tue, 12 Apr 2022 10:41:51 -0400 Subject: [PATCH] wraps the nf90_sync is a if is_root --- fms2_io/netcdf_io.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/fms2_io/netcdf_io.F90 b/fms2_io/netcdf_io.F90 index fc64fdd2a2..c6984bb237 100644 --- a/fms2_io/netcdf_io.F90 +++ b/fms2_io/netcdf_io.F90 @@ -2283,8 +2283,10 @@ subroutine flush_file(fileobj) integer :: err !< Netcdf error code - err = nf90_sync(fileobj%ncid) - call check_netcdf_code(err, "Flush_file: File:"//trim(fileobj%path)) + if (fileobj%is_root) then + err = nf90_sync(fileobj%ncid) + call check_netcdf_code(err, "Flush_file: File:"//trim(fileobj%path)) + endif end subroutine flush_file end module netcdf_io_mod