gtvargetattr.f90 File Reference

数値型属性の入力 More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvargetattri (var, attrname, value, default)
subroutine	gtvargetattrr (var, attrname, value, default)
subroutine	gtvargetattrd (var, attrname, value, default)
subroutine	gtvargetattrip (var, name, value)
subroutine	gtvargetattrrp (var, name, value)
subroutine	gtvargetattrdp (var, name, value)
subroutine	gtvargetattria (var, name, value, default)
subroutine	gtvargetattrra (var, name, value, default)
subroutine	gtvargetattrda (var, name, value, default)

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

これらのサブルーチンは gtdata_generic から提供されます。 引数の型に応じて様々なバリアントがありますが、下部構造では同じものを使用しています。

Definition in file gtvargetattr.f90.

Function/Subroutine Documentation

gtvargetattrd()

subroutine gtvargetattrd	(	type(gt_variable), intent(in)	var,
		character(len = *), intent(in)	attrname,
		real(dp), intent(out)	value,
		real(dp), intent(in), optional	default )

属性値の取得 (倍精度実数スカラ)

Parameters

[in]	var	変数ハンドル
[in]	attrname	属性名
[out]	value	属性値 (倍精度実数)
[in]	default	デフォルト値 (省略可能)

Definition at line 166 of file gtvargetattr.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_error, only: gt_enotvar, storeerror
  use dc_types, only: dp
  use netcdf, only: nf90_fill_double
  implicit none
  type(GT_VARIABLE), intent(in):: var
  character(len = *), intent(in):: attrname
  real(DP), intent(out):: value
  real(DP), intent(in), optional:: default
  integer:: stat
  real(DP):: buffer(1)
  integer:: class, cid
continue
  call var_class(var, class, cid)
  select case(class)
  case (vtb_class_netcdf)
    call get_attr(gd_nc_variable(cid), attrname, value=buffer, &
      & stat=stat, default=default)
    if (stat >= 1) then
      value = buffer(1)
      return
    end if
  case default
    call storeerror(gt_enotvar, "GTVarGetAttrR")
  end select
  value = nf90_fill_double
  if (present(default)) value = default

References dc_types::dp, dc_error::gt_enotvar, dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvargetattrda()

subroutine gtvargetattrda	(	type(gt_variable), intent(in)	var,
		character(len = *), intent(in)	name,
		real(dp), dimension(:), intent(out)	value,
		real(dp), intent(in)	default )

属性値の取得 (倍精度実数固定長配列)

Parameters

[in]	var	変数ハンドル
[in]	name	属性名
[out]	value	属性値 (倍精度実数配列)
[in]	default	デフォルト充填値

Definition at line 413 of file gtvargetattr.f90.

  use gtdata_types, only: gt_variable
  use gtdata_generic, only: friend => get_attr
  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_types, only: dp
  use dc_error, only: gt_enotvar, storeerror
  implicit none
  type(GT_VARIABLE), intent(in):: var
  character(len = *), intent(in):: name
  real(DP), intent(out):: value(:)
  real(DP), intent(in):: default
  integer:: stat, class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call get_attr(gd_nc_variable(cid), name, value, stat, default)
  else
    call storeerror(gt_enotvar, "GTVarGetAttrRA")
  endif

References dc_types::dp, dc_error::gt_enotvar, dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvargetattrdp()

subroutine gtvargetattrdp	(	type(gt_variable), intent(in)	var,
		character(len = *), intent(in)	name,
		real(dp), dimension(:), pointer	value )

属性値の取得 (倍精度実数ポインタ配列)

Parameters

[in]	var	変数ハンドル
[in]	name	属性名
[out]	value	属性値 (倍精度実数ポインタ)

Definition at line 293 of file gtvargetattr.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_types, only: dp
  use dc_error, only: gt_enotvar, storeerror
  implicit none
  type(GT_VARIABLE), intent(in):: var
  character(len = *), intent(in):: name
  real(DP), pointer:: value(:) !(out)
  integer:: stat, class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    allocate(value(1))
    call get_attr(gd_nc_variable(cid), name, value(1:0), stat)
    deallocate(value)
    if (stat < 1) return
    allocate(value(stat))
    call get_attr(gd_nc_variable(cid), name, value, stat)
    if (stat < 1) deallocate(value)
  else
    call storeerror(gt_enotvar, "GTVarGetAttrRP")
  endif

References dc_types::dp, dc_error::gt_enotvar, dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvargetattri()

subroutine gtvargetattri	(	type(gt_variable), intent(in)	var,
		character(len = *), intent(in)	attrname,
		integer, intent(out)	value,
		integer, intent(in), optional	default )

属性値の取得 (整数スカラ)

変数 var に付加されている属性 attrname の値を返します。 Get_Attr は複数のサブルーチンの総称名なので、 value には様々な型の変数 (ポインタも可能) を与えることが可能です。

属性の値が正常に取得できず、且つ default が与えられていた場合、 その値が返ります。default が与えられない場合のデフォルトの値は それぞれ以下の通りです。

• character: "" (空文字)
• real: NF90_FILL_REAL
• real(DP): NF90_FILL_DOUBLE
• integer: NF90_FILL_INT

value にポインタを与えた場合、属性の値に応じて自動的に 割り付けが行われます。そのため、必ず空状態にしてから与えてください。

value に固定長配列を用意する場合 default が必須になりますが、 これは Fortran の言語仕様上ポインタ方式と引用仕様が同じであってはならないためです。

Parameters

[in]	var	変数ハンドル
[in]	attrname	属性名
[out]	value	属性値 (整数)
[in]	default	デフォルト値 (省略可能)

Definition at line 76 of file gtvargetattr.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 netcdf, only: nf90_fill_int
  use dc_error, only: gt_enotvar, storeerror
  implicit none
  type(GT_VARIABLE), intent(in):: var
  character(len = *), intent(in):: attrname
  integer, intent(out):: value
  integer, intent(in), optional:: default
  integer:: stat, buffer(1), class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call get_attr(gd_nc_variable(cid), attrname, buffer, stat, default)
    if (stat >= 1) then
      value = buffer(1)
      return
    end if
  else
    call storeerror(gt_enotvar, "GTVarGetAttrI")
  endif
  value = nf90_fill_int
  if (present(default)) value = default

References dc_error::gt_enotvar, dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvargetattria()

subroutine gtvargetattria	(	type(gt_variable), intent(in)	var,
		character(len = *), intent(in)	name,
		integer, dimension(:), intent(out)	value,
		integer, intent(in)	default )

属性値の取得 (整数固定長配列)

固定長配列として受け取る場合は属性長があまっている場合には切り捨てられ、 属性長が足りない場合は default 値 (ポインタと違い必須) を埋めます。

Parameters

[in]	var	変数ハンドル
[in]	name	属性名
[out]	value	属性値 (整数配列)
[in]	default	デフォルト充填値

Definition at line 341 of file gtvargetattr.f90.

  use gtdata_types, only: gt_variable
  use gtdata_generic, only: friend => get_attr
  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_error, only: gt_enotvar, storeerror
  implicit none
  type(GT_VARIABLE), intent(in):: var
  character(len = *), intent(in):: name
  integer, intent(out):: value(:)
  integer, intent(in):: default
  integer:: stat, class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call get_attr(gd_nc_variable(cid), name, value, stat, default)
  else
    call storeerror(gt_enotvar, "GTVarGetAttrIA")
  endif

References dc_error::gt_enotvar, dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvargetattrip()

subroutine gtvargetattrip	(	type(gt_variable), intent(in)	var,
		character(len = *), intent(in)	name,
		integer, dimension(:), pointer	value )

属性値の取得 (整数ポインタ配列)

ポインタ配列を使って受け取る場合は解釈可能な数だけ実体が割り付けられます。

Parameters

[in]	var	変数ハンドル
[in]	name	属性名
[out]	value	属性値 (整数ポインタ)

Definition at line 216 of file gtvargetattr.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_error, only: gt_enotvar, storeerror
  implicit none
  type(GT_VARIABLE), intent(in):: var
  character(len = *), intent(in):: name
  integer, pointer:: value(:) !(out)
  integer:: stat, class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    allocate(value(1))
    call get_attr(gd_nc_variable(cid), name, value(1:0), stat)
    deallocate(value)
    if (stat < 1) return
    allocate(value(stat))
    call get_attr(gd_nc_variable(cid), name, value, stat)
    if (stat < 1) deallocate(value)
  else
    call storeerror(gt_enotvar, "GTVarGetAttrIP")
  endif

References dc_error::gt_enotvar, dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvargetattrr()

subroutine gtvargetattrr	(	type(gt_variable), intent(in)	var,
		character(len = *), intent(in)	attrname,
		real, intent(out)	value,
		real, intent(in), optional	default )

属性値の取得 (実数スカラ)

Parameters

[in]	var	変数ハンドル
[in]	attrname	属性名
[out]	value	属性値 (実数)
[in]	default	デフォルト値 (省略可能)

Definition at line 118 of file gtvargetattr.f90.

  use gtdata_types, only: gt_variable
  use gtdata_netcdf_generic, only: get_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  use dc_error, only: gt_ebadvar, storeerror
  use netcdf, only: nf90_fill_float
  implicit none
  type(GT_VARIABLE), intent(in):: var
  character(len = *), intent(in):: attrname
  real, intent(out):: value
  real, intent(in), optional:: default
  integer:: stat
  real:: buffer(1)
  integer:: class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call get_attr(gd_nc_variable(cid), attrname, value=buffer, &
      & stat=stat, default=default)
    if (stat >= 1) then
      value = buffer(1)
      return
    endif
  else
    call storeerror(gt_ebadvar, "GTVarGetAttrR")
  endif
  if (present(default)) then
    value = default
  else
    value = nf90_fill_float
  endif

References dc_error::gt_ebadvar, dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvargetattrra()

subroutine gtvargetattrra	(	type(gt_variable), intent(in)	var,
		character(len = *), intent(in)	name,
		real, dimension(:), intent(out)	value,
		real, intent(in)	default )

属性値の取得 (実数固定長配列)

Parameters

[in]	var	変数ハンドル
[in]	name	属性名
[out]	value	属性値 (実数配列)
[in]	default	デフォルト充填値

Definition at line 377 of file gtvargetattr.f90.

  use gtdata_types, only: gt_variable
  use gtdata_generic, only: friend => get_attr
  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_error, only: gt_enotvar, storeerror
  implicit none
  type(GT_VARIABLE), intent(in):: var
  character(len = *), intent(in):: name
  real, intent(out):: value(:)
  real, intent(in):: default
  integer:: class, cid, stat
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call get_attr(gd_nc_variable(cid), name, value, stat, default)
  else
    call storeerror(gt_enotvar, "GTVarGetAttrRA")
  endif

References dc_error::gt_enotvar, dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvargetattrrp()

subroutine gtvargetattrrp	(	type(gt_variable), intent(in)	var,
		character(len = *), intent(in)	name,
		real, dimension(:), pointer	value )

属性値の取得 (実数ポインタ配列)

Parameters

[in]	var	変数ハンドル
[in]	name	属性名
[out]	value	属性値 (実数ポインタ)

Definition at line 254 of file gtvargetattr.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_error, only: gt_enotvar, storeerror
  implicit none
  type(GT_VARIABLE), intent(in):: var
  character(len = *), intent(in):: name
  real, pointer:: value(:) !(out)
  integer:: stat, class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    allocate(value(1))
    call get_attr(gd_nc_variable(cid), name, value(1:0), stat)
    deallocate(value)
    if (stat < 1) return
    allocate(value(stat))
    call get_attr(gd_nc_variable(cid), name, value, stat)
    if (stat < 1) deallocate(value)
  else
    nullify(value)
    call storeerror(gt_enotvar, "GTVarGetAttrRP")
  endif

References dc_error::gt_enotvar, dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function: