gdncfilereopen.f90 File Reference

オープン中の netCDF ファイルの参照カウントを増加 More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncfilereopen (fileid, err)

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 gdncfilereopen.f90.

Function/Subroutine Documentation

gdncfilereopen()

subroutine gdncfilereopen	(	integer, intent(in)	fileid,
		logical, intent(out), optional	err
	)

オープン中の netCDF ファイルの参照カウントを増加

内部ファイルリストから指定されたファイル ID を検索し、 参照カウントを増加させます。ファイル ID が見つからない場合はエラーを返します。

Parameters

[in]	fileid	netCDF ファイル ID
[out]	err	エラーフラグ (省略可能)

Definition at line 35 of file gdncfilereopen.f90.

  use gtdata_netcdf_file_types, only: gd_nc_file_id_entry
  use gtdata_netcdf_file_internal, only: id_head, id_used
  use netcdf, only: nf90_enotnc
  use dc_error, only: storeerror
  use dc_trace, only: beginsub, endsub, dbgmessage
  implicit none
  integer, intent(in):: fileid
  logical, intent(out), optional:: err
  type(GD_NC_FILE_ID_ENTRY), pointer:: identptr
  character(*), parameter:: subname = "GDNcFileReopen"
continue
  call beginsub(subname, 'file=%d', i=(/fileid/))
  if (id_used) then
    identptr => id_head
    do
      if (identptr % id == fileid) then
        identptr % count = identptr % count + 1
        if (present(err)) err = .false.
        call endsub(subname, 'count=%d', i=(/identptr % count/))
        return
      endif
      identptr => identptr % next
      if (.not. associated(identptr)) exit
    enddo
  endif
  call storeerror(nf90_enotnc, 'GDNcFileReopen', err, cause_i=fileid)
  call endsub(subname, 'err')

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_trace::endsub(), gtdata_netcdf_file_internal::id_head, gtdata_netcdf_file_internal::id_used, and dc_error::storeerror().

Here is the call graph for this function: