gtvarputattrchar.f90 File Reference

属性の付加 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

属性の付加

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 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
	)

属性値の付加 (型指定付き文字列)

xtype に型を指定することで、引数 value には文字型を与えても、 整数型、実数型 (単精度、倍精度) の値を付加することが可能です。 有効な xtype 文字列:

• 整数型: "INTEGER", "integer", "int"
• 実数型 (単精度): "REAL", "real", "float"
• 実数型 (倍精度): "DOUBLEPRECISION", "DOUBLE", "double"

  Parameters

  [in,out]	var	変数ハンドル
  [in]	name	属性名
  [in]	value	属性値 (文字列)
  [in]	xtype	格納型 (省略可能)
  [out]	err	エラーフラグ (省略可能)

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
	)

属性値の付加 (倍精度実数配列)

Parameters

[in,out]	var	変数ハンドル
[in]	name	属性名
[in]	value	属性値 (倍精度実数配列)
[out]	err	エラーフラグ (省略可能)

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
	)

属性値の付加 (整数配列)

value は配列を受け取ります。スカラーを書き出すには Fortran の配列構成子 (/ ... /) を使ってください。

Parameters

[in,out]	var	変数ハンドル
[in]	name	属性名
[in]	value	属性値 (整数配列)
[out]	err	エラーフラグ (省略可能)

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
	)

属性値の付加 (論理型)

変数 var に属性名 name とその値 value を付加します。 Put_Attr は複数のサブルーチンの総称名なので、 value には様々な型の変数を与えることが可能です。 xtype 引数を持つバリアントでは、格納型を独立に指定できます。

エラーが発生した場合、引数 err が与えられる場合は err が .true. となって返ります。err を与えなければプログラムは停止します。

Parameters

[in,out]	var	変数ハンドル
[in]	name	属性名
[in]	value	属性値 (論理型)
[out]	err	エラーフラグ (省略可能)

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
	)

属性値の付加 (実数配列)

Parameters

[in,out]	var	変数ハンドル
[in]	name	属性名
[in]	value	属性値 (実数配列)
[out]	err	エラーフラグ (省略可能)

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: