gdncfilesync.f90 File Reference

Synchronize netCDF file to disk . More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncfilesync (fileid, stat)

Detailed Description

Synchronize netCDF file to disk

.

Author

Yasuhiro MORIKAWA, Eizi TOYODA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

Definition in file gdncfilesync.f90.

Function/Subroutine Documentation

gdncfilesync()

subroutine gdncfilesync	(	integer, intent(in), optional	fileid,
		integer, intent(out), optional	stat )

Synchronize netCDF file to disk

Flushes buffered data to disk for the specified file or all open files. Before syncing, switches the file to data mode if necessary.

Note

This subroutine does not call StoreError internally because it may be called from SysdepAbort within StoreError.

Parameters

[in]	fileid	netCDF file ID (optional, sync all if omitted)
[out]	stat	Status code (optional)

Definition at line 43 of file gdncfilesync.f90.

  use gtdata_netcdf_file_types, only: gd_nc_file_id_entry
  use gtdata_netcdf_file_internal, only: id_head, id_used
  use gtdata_netcdf_file_generic, only: gdncfiledatamode
  use netcdf, only: nf90_sync, nf90_noerr
  use dc_error
  integer, intent(in), optional:: fileid
  integer, intent(out), optional:: stat
  integer:: ncid, mystat
  type(GD_NC_FILE_ID_ENTRY), pointer:: identptr
continue
  mystat = nf90_noerr
  if (present(fileid)) then
    ncid = fileid
    mystat = gdncfiledatamode(ncid)
    if (mystat /= nf90_noerr) goto 999
    mystat = nf90_sync(ncid)
  else if (id_used) then
    identptr => id_head
    do
      if (.not. associated(identptr)) exit
      ncid = identptr % id
      mystat = gdncfiledatamode(ncid)
      if (mystat /= nf90_noerr) exit
      mystat = nf90_sync(ncid)
      if (mystat /= nf90_noerr) exit
      identptr => identptr % next
    enddo
  endif
999 continue
  ! 自発的には StoreError しない。StoreError の SysdepAbort
  ! からも呼ばれる可能性があるためである。
  if (present(stat)) stat = mystat

References gtdata_netcdf_file_internal::id_head, and gtdata_netcdf_file_internal::id_used.