gdncvarattr.f90 File Reference

Attribute enumeration for netCDF variables. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncvarattrrewind (var)
subroutine	gdncvarattrnext (var, name, vend)

Detailed Description

Attribute enumeration for netCDF variables.

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

Function/Subroutine Documentation

gdncvarattrnext()

subroutine gdncvarattrnext	(	type(gd_nc_variable), intent(in)	var,
		character(len = *), intent(out)	name,
		logical, intent(out), optional	vend
	)

Get next attribute name in enumeration

Returns the next attribute name. Variable attributes are returned first, then global attributes (prefixed with '+').

Parameters

[in]	var	Variable handle
[out]	name	Attribute name (empty string when done)
[out]	vend	True when all attributes enumerated (optional)

Definition at line 77 of file gdncvarattr.f90.

  use gtdata_netcdf_types, only: gd_nc_variable, gd_nc_variable_entry
  use gtdata_netcdf_internal, only: vtable_set_attrid, vtable_lookup
  use netcdf, only: nf90_noerr, nf90_max_name, nf90_inq_attname, nf90_global
  use dc_url, only: gt_plus
  implicit none
  type(GD_NC_VARIABLE), intent(in):: var
  character(len = *), intent(out):: name
  type(GD_NC_VARIABLE_ENTRY):: ent
  logical, intent(out), optional:: vend
  character(len = NF90_MAX_NAME):: attrname
  integer:: stat
  integer:: new_attrid
 
  stat = vtable_lookup(var, ent)
  if (stat /= nf90_noerr) goto 999
 
  new_attrid = ent%attrid
  ! 最初は変数属性の検索
  if (ent%attrid >= 0) then
    new_attrid = ent%attrid + 1
    stat = nf90_inq_attname(ent%fileid, ent%varid, new_attrid, attrname)
    if (stat == nf90_noerr) then
      name = attrname
      stat = vtable_set_attrid(var, new_attrid)
      vend = .false.
      return
    end if
    new_attrid = -1
  endif
 
  ! 次は大域属性の検索
  stat = nf90_inq_attname(ent%fileid, nf90_global, -new_attrid, attrname)
  if (stat == nf90_noerr) then
    new_attrid = new_attrid - 1
    name = gt_plus // attrname
    stat = vtable_set_attrid(var, new_attrid)
    vend = .false.
    return
  endif
 
999 continue
  ! ここでは attrid の再設定はしない。次呼んでもエラーになるのが適当。
  vend = .true.
  name = ""
  return

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

Here is the call graph for this function:

gdncvarattrrewind()

subroutine gdncvarattrrewind

(

type(gd_nc_variable), intent(in)

var

)

Reset attribute iterator to beginning

Parameters

[in]

var

Variable handle

Definition at line 43 of file gdncvarattr.f90.

  use gtdata_netcdf_types, only: gd_nc_variable
  use gtdata_netcdf_internal, only: vtable_set_attrid
  use dc_trace, only: dbgmessage
  implicit none
  type(GD_NC_VARIABLE), intent(in):: var
  integer:: stat
  character(len = *), parameter:: subname = 'GDNcVarAttrRewind'
 
  stat = vtable_set_attrid(var, 0)
  call dbgmessage("%c %d", c1=subname, i=(/stat/))

References dc_trace::dbgmessage(), and gtdata_netcdf_internal::vtable_set_attrid().

Here is the call graph for this function: