gdncattrinquire.f90 File Reference

Inquire attribute information . More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncattrinquire (var, attrname, xtype)
subroutine	gdncattrinquireplus (var, attrname, varid, nf_attrname)

Detailed Description

Inquire attribute information

.

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

Function/Subroutine Documentation

gdncattrinquire()

subroutine gdncattrinquire	(	type(gd_nc_variable), intent(in)	var,
		character(len=*), intent(in)	attrname,
		character(len=*), intent(out), optional	xtype )

Get attribute type information

Returns the type name of the specified attribute.

Parameters

[in]	var	Variable handle
[in]	attrname	Attribute name
[out]	xtype	Type name (optional)

Definition at line 34 of file gdncattrinquire.f90.

  use gtdata_netcdf_types, only: gd_nc_variable, gd_nc_variable_entry
  use gtdata_netcdf_internal, only: vtable_lookup
  use gtdata_netcdf_generic, only: gdncxtypename, inquireplus
  use netcdf, only: nf90_max_name, nf90_noerr, nf90_inquire_attribute
  implicit none
  type(GD_NC_VARIABLE), intent(in):: var
  character(len=*), intent(in):: attrname
  character(len=*), intent(out), optional:: xtype
  type(GD_NC_VARIABLE_ENTRY):: ent
  integer:: varid, i_xtype, stat
  character(len=NF90_MAX_NAME):: anam
  stat = vtable_lookup(var, ent)
  if (stat /= nf90_noerr) return
  if (present(xtype)) then
    call inquireplus(var, attrname, varid, anam)
    stat = nf90_inquire_attribute(ent%fileid, varid, anam, xtype=i_xtype)
    if (stat /= nf90_noerr) i_xtype = 0
    call gdncxtypename(i_xtype, xtype)
  endif

References gtdata_netcdf_internal::vtable_lookup().

Here is the call graph for this function:

gdncattrinquireplus()

subroutine gdncattrinquireplus	(	type(gd_nc_variable), intent(in)	var,
		character(len=*), intent(in)	attrname,
		integer, intent(out)	varid,
		character(len=*), intent(out)	nf_attrname )

Get actual varid and attribute name for netCDF access

Determines the actual varid and attribute name to use for netCDF access:

• If attrname starts with '+': Force global attribute
• If attrname starts with '-': Search variable attribute, then global

Parameters

[in]	var	Variable handle
[in]	attrname	Attribute name (may have prefix)
[out]	varid	netCDF variable ID
[out]	nf_attrname	netCDF attribute name

Definition at line 78 of file gdncattrinquire.f90.

  use gtdata_netcdf_types, only: gd_nc_variable, gd_nc_variable_entry
  use gtdata_netcdf_internal, only: vtable_lookup
  use dc_url, only: gt_plus
  use netcdf, only: nf90_global, nf90_noerr, nf90_inquire_attribute
  type(GD_NC_VARIABLE), intent(in):: var
  character(len=*), intent(in):: attrname
  integer, intent(out):: varid
  type(GD_NC_VARIABLE_ENTRY):: ent
  character(len=*), intent(out):: nf_attrname
  integer:: stat, n
  stat = vtable_lookup(var, ent)
  if (stat /= nf90_noerr) return
  if (attrname(1:1) == gt_plus) then
    varid = nf90_global
    nf_attrname = attrname(2: )
  else if (attrname(1:1) == '-') then
    varid = ent%varid
    nf_attrname = attrname(2: )
    stat = nf90_inquire_attribute(ent%fileid, varid, nf_attrname, len = n)
    if (stat == nf90_noerr) return
    varid = nf90_global
  else
    varid = ent%varid
    nf_attrname = attrname
  endif

References dc_url::gt_plus, and gtdata_netcdf_internal::vtable_lookup().

Here is the call graph for this function: