gdncvartostring.f90 File Reference

netCDF 変数を文字列表現に変換 More...

Go to the source code of this file.

Functions/Subroutines
character(string) function	gdncvartostring (var)

Detailed Description

netCDF 変数を文字列表現に変換

Author

GFD Dennou Club

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

Definition in file gdncvartostring.f90.

Function/Subroutine Documentation

gdncvartostring()

character(string) function gdncvartostring

(

type(gd_nc_variable), intent(in)

var

)

変数ハンドルを文字列に変換

デバッグ用に変数の文字列表現を返します。

Parameters

[in]

var

変数ハンドル

Returns

変数の文字列表現

Definition at line 33 of file gdncvartostring.f90.

  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

References dc_types::string, and gtdata_netcdf_internal::vtable_lookup().

Here is the call graph for this function: