## Not run:
# # The time you would use the sync.ncdf function is when you have an unlimited
# # dimension and are writing to the file timestep-by-timestep. Make a netCDF file
# # that has an unlimited dimension for illustration.
# nx <- 5
# ny <- 8
# dimx <- ncdim_def( "X", "meters", 1:nx )
# dimy <- ncdim_def( "Y", "meters", 1:ny )
# dimt <- ncdim_def( "Time", "days since 1900-01-01", 0, unlim=TRUE )
#
# vartemp <- ncvar_def( "Temperature", "degC", list(dimx,dimy,dimt), 1.e30 )
# nc <- nc_create( "temperature.nc", vartemp )
#
# nt <- 10 # Imagine this is actually some very large number of timesteps
# for( i in 1:nt ) {
# # Long, slow computation to get the data ... for illustration, we just
# # use the following:
# data <- runif(nx*ny)
#
# # Write the data to this timestep
# ncvar_put( nc, vartemp, data, start=c(1,1,i), count=c(nx,ny,1) )
#
# # Write the time value for this timestep as well
# timeval <- i*10
# ncvar_put( nc, dimt, timeval, start=i, count=1 )
#
# # Flush this timestep's data to the file so we dont lose it
# # if there is a crash or other problem
# nc_sync( nc )
# }
#
# # Always remember to close the file when done!!
# nc_close(nc)
# ## End(Not run)
Run the code above in your browser using DataLab