gdncvartostring.f90

Go to the documentation of this file.

!> @file gdncvartostring.f90
!>
!> @author GFD Dennou Club
!> @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 Convert netCDF variable to string representation
!> @enden
!>
!> @ja
!> @brief netCDF 変数を文字列表現に変換
!> @endja
!>
 
!>
!> @en
!> @brief Convert variable handle to string
!>
!> Returns a string representation of the variable for debugging.
!> @enden
!>
!> @ja
!> @brief 変数ハンドルを文字列に変換
!>
!> デバッグ用に変数の文字列表現を返します。
!> @endja
!>
!> @param[in] var @en Variable handle @enden @ja 変数ハンドル @endja
!> @return        @en String representation of the variable @enden
!>                @ja 変数の文字列表現 @endja
!>
function gdncvartostring(var) result(result)
  use dc_types, only: string
  use dc_string, only: cprintf
  use gtdata_netcdf_internal, only: gd_nc_variable_entry, vtable_lookup
  use gtdata_netcdf_types, only: gd_nc_variable
  implicit none
  character(string):: result
  type(gd_nc_variable), intent(in):: var
  type(gd_nc_variable_entry):: ent
continue
  if (vtable_lookup(var, ent) /= 0) then
    result = cprintf("GD_NC_VARIABLE(bad id %d)", i=(/var%id/))
  else
    result = cprintf("GD_NC_VARIABLE(file=%d, var=%d, dim=%d)", &
      & i=(/ent%fileid, ent%varid, ent%dimid/))
  endif
end function gdncvartostring