gtvargetattrsc.f90 File Reference

Character type attribute input. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvargetattrcc (var, name, value, default)

Detailed Description

Character type attribute input.

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

Definition in file gtvargetattrsc.f90.

Function/Subroutine Documentation

gtvargetattrcc()

subroutine gtvargetattrcc	(	type(gt_variable), intent(in)	var,
		character(len = *), intent(in)	name,
		character(len = *), intent(out)	value,
		character(len = *), intent(in), optional	default
	)

Get character attribute value

When receiving as character type, truncates or pads with blanks to match the receiving variable's length, same as normal character assignment. Uses default value if attribute does not exist.

Parameters

[in]	var	Variable handle
[in]	name	Attribute name
[out]	value	Retrieved attribute value
[in]	default	Default value (optional)

Definition at line 45 of file gtvargetattrsc.f90.

 
  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  use gtdata_netcdf_generic, only: get_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_trace, only: beginsub, endsub
  use dc_types, only: string
  implicit none
  type(GT_VARIABLE), intent(in):: var
  character(len = *), intent(in):: name
  character(len = *), intent(out):: value
  character(len = *), intent(in), optional:: default
  integer:: class, cid, stat
  character(len = string):: p_default
  character(len = *), parameter:: subnam = "gtvargetattrcc"
continue
  call beginsub(subnam)
  call var_class(var, class, cid)
  p_default = ""
  if (present(default)) p_default = default
  if (class == vtb_class_netcdf) then
    call get_attr(gd_nc_variable(cid), name, value, p_default, stat)
  endif
  call endsub(subnam, "%d:%d:%c = %c", i=(/class, cid/), &
    & c1=trim(name), c2=trim(value))

References dc_trace::beginsub(), dc_trace::endsub(), dc_types::string, and gtdata_internal_map::var_class().

Here is the call graph for this function: