Functions/Subroutines
subroutine	historyaddattrchar0 (varname, attrname, value, history, err)

subroutine	historyaddattrlogical0 (varname, attrname, value, history, err)

subroutine	historyaddattrint0 (varname, attrname, value, history, err)

subroutine	historyaddattrint1 (varname, attrname, value, history, err)

subroutine	historyaddattrreal0 (varname, attrname, value, history, err)

subroutine	historyaddattrreal1 (varname, attrname, value, history, err)

subroutine	historyaddattrdouble0 (varname, attrname, value, history, err)

subroutine	historyaddattrdouble1 (varname, attrname, value, history, err)

Function/Subroutine Documentation

◆ historyaddattrchar0()

subroutine historyaddattrchar0	(	character(*), intent(in)	varname,
		character(*), intent(in)	attrname,
		character(*), intent(in)	value,
		type(gt_history), intent(inout), optional, target	history,
		logical, intent(out), optional	err
	)

Definition at line 29 of file historyaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_noerr, gtool_history_internal::default, dc_types::dp, dc_trace::endsub(), dc_url::gt_plus, dc_error::hst_empinoaxisdata, dc_string::joinchar(), dc_error::storeerror(), dc_types::string, and dc_types::token.

     !
                         !
     !== gtool4 データ内の変数への属性付加
     !
     ! gtool4 データおよびそのデータ内の変数に属性を付加します。
     ! このサブルーチンを用いる前に、 HistoryCreate による初期設定が
     ! 必要です。
     !
     ! 属性名 *attrname* の先頭にプラス "<b><tt>+</tt></b>" を付加する
     ! 場合は、gtool4 データ自体の属性 (大域属性) として属性が付加されます。
     ! この場合、*varname* は無視されますが、
     ! その場合でも *varname* へはデータ内に存在する変数名を与えてください。
     !
     ! *HistoryAddAttr* は複数のサブルーチンの総称名です。*value* には
     ! いくつかの型を与えることが可能です。
     ! 下記のサブルーチンを参照ください。
     !
     !
     use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
     use gtool_history_internal, only: default, lookup_var_or_dim
     use gtdata_generic, only: put_attr
     use gtdata_types, only: gt_variable
     use dc_string, only: tochar, joinchar
     use dc_url, only: gt_plus
     use dc_error, only: storeerror, dc_noerr, nf90_enotvar, hst_empinoaxisdata
     use dc_message, only: messagenotify
     use dc_trace, only: beginsub, endsub, dbgmessage
     use dc_types, only: string, token, dp
     implicit none
     character(*), intent(in):: varname
                                                   ! 変数の名前。
                               !
                               ! ここで指定するものは、
                               ! HistoryCreateの *dims* 、
                               ! または HistoryAddVariable の
                               ! *varname* で既に指定されてい
                               ! なければなりません。
                               !
     character(*), intent(in):: attrname
                                                   ! 変数またはファイル全体に付
                               ! 加する属性の名前
                               !
                               ! "<b><tt>+</tt></b>" (プラ
                               ! ス) を属性名の先頭につける
                               ! 場合には、ファイル全体に属
                               ! 性を付加します。
                               ! ファイル全体へ属性を付加
                               ! する場合でも、 HistoryCreate
                               ! の *dims* 、または
                               ! HistoryAddVariable の
                               ! *varname* で既に指定されてい
                               ! る変数を *varname* に指定する
                               ! 必要があります。
                               !
     character(*), intent(in):: value
                                                   ! 属性の値
                               !
     type(gt_history), intent(inout), target, optional:: history
                                                   ! 出力ファイルの設定に関する情報を
                               ! 格納した構造体
                               !
                               ! ここに指定するものは、
                               ! HistoryCreate によって初期設定
                               ! されていなければなりません。
                               !
     logical, intent(out), optional:: err
                                                   ! 例外処理用フラグ.
                               ! デフォルトでは, この手続き内でエラーが
                               ! 生じた場合, プログラムは強制終了します.
                               ! 引数 *err* が与えられる場合,
                               ! プログラムは強制終了せず, 代わりに
                               ! *err* に .true. が代入されます.
                               !
                               ! Exception handling flag.
                               ! By default, when error occur in
                               ! this procedure, the program aborts.
                               ! If this *err* argument is given,
                               ! .true. is substituted to *err* and
                               ! the program does not abort.
     type(gt_history), pointer:: hst =>null()
     type(gt_variable):: var
     integer:: v_ord
     logical:: err_not_found
     integer:: stat
     character(STRING):: cause_c
     character(len = *), parameter:: subname = "HistoryAddAttrChar0"
   continue
     call beginsub(subname, &
       & 'varname=<%c> attrname=<%c>, value=<%c>', &
       & c1=trim(varname), c2=trim(attrname), c3=trim(value))
     stat = dc_noerr
     cause_c = ''
     ! 操作対象決定
     if (present(history)) then
       hst => history
     else
       hst => default
     endif
     if (varname == "") then
       ! とりあえず無駄だが大域属性を何度もつける
       do, v_ord = 1, size(hst % vars)
         call put_attr(hst % vars(v_ord), gt_plus // attrname, value)
       enddo
     else
       call lookup_var_or_dim( hst, varname, var, err_not_found )
       if ( .not. err_not_found ) then
         call put_attr(var, attrname, value)
       else
         stat = nf90_enotvar
         cause_c = 'varname="' // trim(varname) // '" is not found'
         goto 999
       endif
     endif
 999 continue
     call storeerror(stat, subname, err, cause_c=cause_c)
     call endsub(subname)