gdncfileinquirename.f90

Go to the documentation of this file.

!>
!> @file gdncfileinquirename.f90
!>
!> @author Yasuhiro MORIKAWA, Eizi TOYODA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Inquire the file name of an open netCDF file
!> @enden
!>
!> @ja
!> @brief オープン中の netCDF ファイルのファイル名を取得
!> @endja
!>
 
!>
!> @en
!> @brief 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.
!> @enden
!>
!> @ja
!> @brief オープン中の netCDF ファイルのファイル名を取得
!>
!> 内部ファイルリストから指定されたファイル ID を検索し、
!> 関連付けられたファイル名を返します。ファイル ID が見つからない場合は
!> エラーを発生させます。
!> @endja
!>
!> @param[in]  fileid @en netCDF file ID @enden @ja netCDF ファイル ID @endja
!> @param[out] name   @en File name @enden @ja ファイル名 @endja
!>
subroutine gdncfileinquirename(fileid, name)
  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')
end subroutine gdncfileinquirename