gtvarputattrchar.f90 File Reference

Put attribute values. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarputattrlogical (var, name, value, err)
subroutine	gtvarputattrint (var, name, value, err)
subroutine	gtvarputattrreal (var, name, value, err)
subroutine	gtvarputattrdouble (var, name, value, err)
subroutine	gtvarputattrchar (var, name, value, xtype, err)

Detailed Description

Put attribute values.

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 as gtdata_generic#Put_Attr through gtdata_generic.

Definition in file gtvarputattrchar.f90.

Function/Subroutine Documentation

gtvarputattrchar()

subroutine gtvarputattrchar	(	type(gt_variable), intent(inout)	var,
		character(len = *), intent(in)	name,
		character(len = *), intent(in)	value,
		character(len = *), intent(in), optional	xtype,
		logical, intent(out), optional	err )

Put attribute value (character with type specification)

By specifying xtype, even if value is character type, values can be stored as integer, real (single/double precision). Valid xtype strings:

• Integer: "INTEGER", "integer", "int"
• Real (single): "REAL", "real", "float"
• Real (double): "DOUBLEPRECISION", "DOUBLE", "double"

  Parameters

  [in,out]	var	Variable handle
  [in]	name	Attribute name
  [in]	value	Attribute value (character)
  [in]	xtype	Storage type (optional)
  [out]	err	Error flag (optional)

Definition at line 229 of file gtvarputattrchar.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  use gtdata_netcdf_generic, only: put_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_trace, only: beginsub, endsub
  implicit none
  type(GT_VARIABLE), intent(inout):: var
  character(len = *), intent(in):: name
  character(len = *), intent(in):: value
  character(len = *), intent(in), optional:: xtype
  logical, intent(out), optional:: err
  integer:: class, cid
  character(*), parameter:: subnam = "gtvarputattrchar"
continue
  call beginsub(subnam, "%d:%c = %c", i=(/var%mapid/), c1=trim(name), c2=trim(value))
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call put_attr(gd_nc_variable(cid), name, value, xtype, err)
  endif
  call endsub(subnam)

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

Here is the call graph for this function:

gtvarputattrdouble()

subroutine gtvarputattrdouble	(	type(gt_variable), intent(inout)	var,
		character(len = *), intent(in)	name,
		real(dp), dimension(:), intent(in)	value,
		logical, intent(out), optional	err )

Put attribute value (double precision array)

Parameters

[in,out]	var	Variable handle
[in]	name	Attribute name
[in]	value	Attribute value (double precision array)
[out]	err	Error flag (optional)

Definition at line 179 of file gtvarputattrchar.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  use gtdata_netcdf_generic, only: put_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_string, only: tochar
  use dc_types, only: dp
  implicit none
  type(GT_VARIABLE), intent(inout):: var
  character(len = *), intent(in):: name
  real(DP), intent(in):: value(:)
  logical, intent(out), optional:: err
  integer:: class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call put_attr(gd_nc_variable(cid), name, value, err)
  endif

References dc_types::dp, and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvarputattrint()

subroutine gtvarputattrint	(	type(gt_variable), intent(inout)	var,
		character(len = *), intent(in)	name,
		integer, dimension(:), intent(in)	value,
		logical, intent(out), optional	err )

Put attribute value (integer array)

value accepts an array. To write a scalar, use Fortran array constructors (/ ... /). For example, (/a/) creates a length-1 array.

Parameters

[in,out]	var	Variable handle
[in]	name	Attribute name
[in]	value	Attribute value (integer array)
[out]	err	Error flag (optional)

Definition at line 114 of file gtvarputattrchar.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  use gtdata_netcdf_generic, only: put_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_string, only: tochar
  type(GT_VARIABLE), intent(inout):: var
  character(len = *), intent(in):: name
  integer, intent(in):: value(:)
  logical, intent(out), optional:: err
  integer:: class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call put_attr(gd_nc_variable(cid), name, value, err)
  endif

References gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvarputattrlogical()

subroutine gtvarputattrlogical	(	type(gt_variable), intent(inout)	var,
		character(len = *), intent(in)	name,
		logical, intent(in)	value,
		logical, intent(out), optional	err )

Put attribute value (logical)

Attaches attribute name with value to variable var. Put_Attr is a generic name for multiple subroutines, so value can accept various types. Some variants with xtype argument allow specifying the storage type independently.

If an error occurs and err is provided, err returns .true.. If err is not provided, the program terminates.

Parameters

[in,out]	var	Variable handle
[in]	name	Attribute name
[in]	value	Attribute value (logical)
[out]	err	Error flag (optional)

Definition at line 55 of file gtvarputattrchar.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  use gtdata_netcdf_generic, only: put_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_string, only: tochar
  implicit none
  type(GT_VARIABLE),  intent(inout)        :: var
  character(len = *), intent(in)           :: name
  logical,            intent(in)           :: value
  logical,            intent(out), optional:: err
  integer:: class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    if (value) then
      call put_attr(gd_nc_variable(cid), name, "true", err=err)
    else
      call put_attr(gd_nc_variable(cid), name, "false", err=err)
    endif
  endif

References gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvarputattrreal()

subroutine gtvarputattrreal	(	type(gt_variable), intent(inout)	var,
		character(len = *), intent(in)	name,
		real, dimension(:), intent(in)	value,
		logical, intent(out), optional	err )

Put attribute value (real array)

Parameters

[in,out]	var	Variable handle
[in]	name	Attribute name
[in]	value	Attribute value (real array)
[out]	err	Error flag (optional)

Definition at line 146 of file gtvarputattrchar.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  use gtdata_netcdf_generic, only: put_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_string, only: tochar
  implicit none
  type(GT_VARIABLE), intent(inout):: var
  character(len = *), intent(in):: name
  real, intent(in):: value(:)
  logical, intent(out), optional:: err
  integer:: class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call put_attr(gd_nc_variable(cid), name, value, err)
  endif

References gtdata_internal_map::var_class().

Here is the call graph for this function: