gtvardelattr.f90

Go to the documentation of this file.

!> @file gtvardelattr.f90
!>
!> @author Eizi TOYODA, Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Delete attribute
!>
!> This subroutine is provided as gtdata_generic#Del_Attr
!> through gtdata_generic.
!> @enden
!>
!> @ja
!> @brief 属性の削除
!>
!> このサブルーチンは gtdata_generic から gtdata_generic#Del_Attr
!> として提供されます。
!> @endja
!>
 
!>
!> @en
!> @brief Delete variable attribute
!>
!> Deletes attribute name from variable var.
!> If an error occurs during deletion, outputs a message and
!> terminates the program. If err is provided, returns .true.
!> in that argument and program does not terminate.
!> @param[inout] var  Variable handle
!> @param[in]    name Attribute name to delete
!> @param[out]   err  Error flag (optional)
!> @enden
!>
!> @ja
!> @brief 変数属性の削除
!>
!> 変数 var の属性 name を削除します。
!> 属性の削除時にエラーが生じた場合、メッセージを出力
!> してプログラムは強制終了します。err を与えてある場合には
!> の引数に .true. が返り、プログラムは終了しません。
!> @param[inout] var  変数ハンドル
!> @param[in]    name 削除する属性名
!> @param[out]   err  エラーフラグ (省略可能)
!> @endja
!>
subroutine gtvardelattr(var, name, err)
  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  use gtdata_netcdf_generic, only: del_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_error, only: gt_ebadvar, storeerror
  implicit none
  type(gt_variable), intent(inout):: var
  character(len = *), intent(in):: name
  logical, intent(out), optional:: err
  integer:: class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call del_attr(gd_nc_variable(cid), name, err)
  else
    call storeerror(gt_ebadvar, 'GTVarDelAttr', err)
  endif
end subroutine gtvardelattr