gdncfilesync.f90 File Reference

netCDF ファイルをディスクに同期 More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncfilesync (fileid, stat)

Detailed Description

netCDF ファイルをディスクに同期

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 )

netCDF ファイルをディスクに同期

指定されたファイルまたは全てのオープンファイルのバッファデータを ディスクにフラッシュします。同期前に、必要に応じてファイルを データモードに切り替えます。

Note

このサブルーチンは StoreError の SysdepAbort から呼ばれる 可能性があるため、内部で StoreError を呼び出しません。

Parameters

[in]	fileid	netCDF ファイル ID (省略時は全ファイルを同期)
[out]	stat	ステータスコード (省略可能)

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.