fix: root pe bug with fms2_io::flush_file (#958)

NOAA-GFDL · Apr 14, 2022 · 6d3c464 · 6d3c464
1 parent 7768ad1
commit 6d3c464
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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