gdncfileinquirename.f90 File Reference

Inquire the file name of an open netCDF file . More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncfileinquirename (fileid, name)

Detailed Description

Inquire the file name of an open netCDF file

.

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 )

Inquire the file name of an open netCDF file

Searches the internal file list for the specified file ID and returns the associated file name. Raises an error if the file ID is not found.

Parameters

[in]	fileid	netCDF file ID
[out]	name	File 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: