--- trunk/bibio/writefield.f	2014/09/18 13:36:51	112
+++ trunk/bibio/writefield.f	2014/09/18 19:56:46	113
@@ -46,11 +46,13 @@
 
   subroutine WriteField2d(name,Field)
 
+    use netcdf, only: nf90_sync
+
     character(len=*), intent(in):: name
     real, intent(in):: Field(:, :)
 
     ! Local:
-    integer index
+    integer index, status
 
     !-------------------------------------------
 
@@ -66,6 +68,7 @@
 
     call NF95_PUT_VAR(Ncid(Index), Varid = 1, values = Field, &
          start = (/1, 1, Record(Index)/))
+    status = nf90_sync(Ncid(Index))
 
   end subroutine WriteField2d