gdncfileinquirename.f90 File Reference

オープン中の netCDF ファイルのファイル名を取得 More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncfileinquirename (fileid, name)

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

Function/Subroutine Documentation

gdncfileinquirename()

subroutine gdncfileinquirename	(	integer, intent(in)	fileid,
		character(len = *), intent(out)	name
	)

オープン中の netCDF ファイルのファイル名を取得

内部ファイルリストから指定されたファイル ID を検索し、 関連付けられたファイル名を返します。ファイル ID が見つからない場合は エラーを発生させます。

Parameters

[in]	fileid	netCDF ファイル ID
[out]	name	ファイル名

Definition at line 36 of file gdncfileinquirename.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
  use dc_trace, only: beginsub, endsub, dbgmessage
  integer, intent(in):: fileid
  character(len = *), intent(out):: name
  type(GD_NC_FILE_ID_ENTRY), pointer:: identptr
  character(*), parameter:: subname = "GDNcFileName"
  continue
  call beginsub(subname, 'fileid=%d', i=(/fileid/))
  if (.not. id_used) goto 999
  identptr => id_head
  do
    if (.not. associated(identptr)) exit
    if (identptr % id == fileid) then
      name = identptr % filename
      call endsub(subname, 'name=<%c>', c1=trim(name))
      return
    endif
    identptr => identptr % next
  enddo
999 continue
  call storeerror(nf90_enotnc, subname)
  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: