Variable attribute retrieval. More...

Functions/Subroutines
subroutine	gtvarattrrewind (var)
subroutine	gtvarattrnext (var, name, end)

Detailed Description

Variable attribute retrieval.

Author: Eizi TOYODA, Yasuhiro MORIKAWA

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

These subroutines are provided through gtdata_generic.

Definition in file gtvarattrsearch.f90.

Function/Subroutine Documentation

◆ gtvarattrnext()

subroutine gtvarattrnext	(	type(gt_variable), intent(inout), target	var,
		character(len = *), intent(out)	name,
		logical, intent(out), optional	end )

Get attribute list from variable (get next)

See Attr_Rewind.

Parameters

[in,out]	var	Variable handle
[out]	name	Attribute name
[out]	end	.true. when all attributes have been enumerated (optional)

Definition at line 97 of file gtvarattrsearch.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  use gtdata_netcdf_generic, only: attr_next
  use gtdata_netcdf_types, only: gd_nc_variable
  implicit none
  type(GT_VARIABLE), intent(inout), target:: var
  character(len = *), intent(out):: name
  logical, intent(out), optional:: end
  integer:: class, cid
continue
  call var_class(var, class, cid)
  select case(class)
  case(vtb_class_netcdf)
    call attr_next(gd_nc_variable(cid), name, end)
  end select

References gtdata_internal_map::var_class().

Here is the call graph for this function:

◆ gtvarattrrewind()

subroutine gtvarattrrewind ( type(gt_variable), intent(inout), target var )

Get attribute list from variable (initialization)

Subroutine used to get a list of attribute names from var. You can get the attribute list using this subroutine and Attr_Next.

To enumerate all attributes for a variable var, first call Attr_Rewind, then call Attr_Next. The first call returns the first attribute, the next call returns the next attribute name. After the last attribute, end == .true..

Example:

use gtool5
type(GT_VARIABLE):: var
character(len = STRING):: attrname
logical:: end
 
call attr_rewind(var)
do
    call attr_next(var, attrname, end)
    if (end) exit
    write(*,*) trim(attrname)
enddo