historyaddattr.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	historyaddattrchar0 (varname, attrname, value, history, err)
	gtool4 データ内の変数への属性付加
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
	)

gtool4 データ内の変数への属性付加

Parameters

[in]

varname

iline 1

gtool4 データおよびそのデータ内の変数に属性を付加します。 このサブルーチンを用いる前に、 HistoryCreate による初期設定が 必要です。

属性名 attrname の先頭にプラス "+" を付加する 場合は、gtool4 データ自体の属性 (大域属性) として属性が付加されます。 この場合、varname は無視されますが、 その場合でも varname へはデータ内に存在する変数名を与えてください。

HistoryAddAttr は複数のサブルーチンの総称名です。value には いくつかの型を与えることが可能です。 下記のサブルーチンを参照ください。

Definition at line 30 of file historyaddattr.f90.

    !
                        !
    !
    !
    use gtool_history_types, only: gt_history
    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
    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
    use dc_types, only: string
    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 ( hst % mpi_gather .and. &
      & .not. hst % mpi_fileinfo % already_output ) then
      call messagenotify('W', subname, &
        & 'Specify data of axes in whole area by "HistoryPutAxisMPI" explicitly ' // &
        & 'before "call HistoryAddAttr".' )
      stat = hst_empinoaxisdata
      cause_c = ''
      goto 999
    end if
    if ( .not. hst % mpi_gather &
      &  .or. ( hst % mpi_gather .and. hst % mpi_myrank == 0 ) ) then
    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
    end if
999 continue
    call storeerror(stat, subname, err, cause_c=cause_c)
    call endsub(subname)

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

Here is the call graph for this function:

historyaddattrdouble0()

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

Definition at line 511 of file historyaddattr.f90.

    !
    !
    use gtool_history_types, only: gt_history
    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
    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
    use dc_types, only: string, dp
    implicit none
    character(*), intent(in):: varname
    character(*), intent(in):: attrname
    real(DP), intent(in):: value
    type(GT_HISTORY), intent(inout), target, optional:: history
    logical, intent(out), optional:: err
    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 = "HistoryAddAttrDouble0"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
    ! 操作対象決定
    if (present(history)) then
      hst => history
    else
      hst => default
    endif
    if ( hst % mpi_gather .and. &
      & .not. hst % mpi_fileinfo % already_output ) then
      call messagenotify('W', subname, &
        & 'Specify data of axes in whole area by "HistoryPutAxisMPI" explicitly ' // &
        & 'before "call HistoryAddAttr".' )
      stat = hst_empinoaxisdata
      cause_c = ''
      goto 999
    end if
    if ( .not. hst % mpi_gather &
      &  .or. ( hst % mpi_gather .and. hst % mpi_myrank == 0 ) ) then
    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
    end if
999 continue
    call storeerror(stat, subname, err, cause_c=cause_c)
    call endsub(subname)

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

Here is the call graph for this function:

historyaddattrdouble1()

subroutine historyaddattrdouble1	(	character(*), intent(in)	varname,
		character(*), intent(in)	attrname,
		real(dp), dimension(:), intent(in)	value,
		type(gt_history), intent(inout), optional, target	history,
		logical, intent(out), optional	err
	)

Definition at line 581 of file historyaddattr.f90.

    !
    !
    use gtool_history_types, only: gt_history
    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
    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
    use dc_types, only: string, dp
    implicit none
    character(*), intent(in):: varname
    character(*), intent(in):: attrname
    real(DP), intent(in):: value(:)
    type(GT_HISTORY), intent(inout), target, optional:: history
    logical, intent(out), optional:: err
    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 = "HistoryAddAttrDouble1"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
    ! 操作対象決定
    if (present(history)) then
      hst => history
    else
      hst => default
    endif
    if ( hst % mpi_gather .and. &
      & .not. hst % mpi_fileinfo % already_output ) then
      call messagenotify('W', subname, &
        & 'Specify data of axes in whole area by "HistoryPutAxisMPI" explicitly ' // &
        & 'before "call HistoryAddAttr".' )
      stat = hst_empinoaxisdata
      cause_c = ''
      goto 999
    end if
    if ( .not. hst % mpi_gather &
      &  .or. ( hst % mpi_gather .and. hst % mpi_myrank == 0 ) ) then
    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
    end if
999 continue
    call storeerror(stat, subname, err, cause_c=cause_c)
    call endsub(subname)

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

Here is the call graph for this function:

historyaddattrint0()

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

Definition at line 231 of file historyaddattr.f90.

    !
    !
    use gtool_history_types, only: gt_history
    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
    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
    use dc_types, only: string
    implicit none
    character(*), intent(in):: varname
    character(*), intent(in):: attrname
    integer, intent(in):: value
    type(GT_HISTORY), intent(inout), target, optional:: history
    logical, intent(out), optional:: err
    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 = "HistoryAddAttrInt0"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
    ! 操作対象決定
    if (present(history)) then
      hst => history
    else
      hst => default
    endif
    if ( hst % mpi_gather .and. &
      & .not. hst % mpi_fileinfo % already_output ) then
      call messagenotify('W', subname, &
        & 'Specify data of axes in whole area by "HistoryPutAxisMPI" explicitly ' // &
        & 'before "call HistoryAddAttr".' )
      stat = hst_empinoaxisdata
      cause_c = ''
      goto 999
    end if
    if ( .not. hst % mpi_gather &
      &  .or. ( hst % mpi_gather .and. hst % mpi_myrank == 0 ) ) then
    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
    end if
999 continue
    call storeerror(stat, subname, err, cause_c=cause_c)
    call endsub(subname)

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

Here is the call graph for this function:

historyaddattrint1()

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

Definition at line 301 of file historyaddattr.f90.

    !
    !
    use gtool_history_types, only: gt_history
    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
    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
    use dc_types, only: string
    implicit none
    character(*), intent(in):: varname
    character(*), intent(in):: attrname
    integer, intent(in):: value(:)
    type(GT_HISTORY), intent(inout), target, optional:: history
    logical, intent(out), optional:: err
    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 = "HistoryAddAttrInt1"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
    ! 操作対象決定
    if (present(history)) then
      hst => history
    else
      hst => default
    endif
    if ( hst % mpi_gather .and. &
      & .not. hst % mpi_fileinfo % already_output ) then
      call messagenotify('W', subname, &
        & 'Specify data of axes in whole area by "HistoryPutAxisMPI" explicitly ' // &
        & 'before "call HistoryAddAttr".' )
      stat = hst_empinoaxisdata
      cause_c = ''
      goto 999
    end if
    if ( .not. hst % mpi_gather &
      &  .or. ( hst % mpi_gather .and. hst % mpi_myrank == 0 ) ) then
    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
    end if
999 continue
    call storeerror(stat, subname, err, cause_c=cause_c)
    call endsub(subname)

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

Here is the call graph for this function:

historyaddattrlogical0()

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

Definition at line 161 of file historyaddattr.f90.

    !
    !
    use gtool_history_types, only: gt_history
    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
    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
    use dc_types, only: string
    implicit none
    character(*), intent(in):: varname
    character(*), intent(in):: attrname
    logical, intent(in):: value
    type(GT_HISTORY), intent(inout), target, optional:: history
    logical, intent(out), optional:: err
    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 = "HistoryAddAttrLogical0"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
    ! 操作対象決定
    if (present(history)) then
      hst => history
    else
      hst => default
    endif
    if ( hst % mpi_gather .and. &
      & .not. hst % mpi_fileinfo % already_output ) then
      call messagenotify('W', subname, &
        & 'Specify data of axes in whole area by "HistoryPutAxisMPI" explicitly ' // &
        & 'before "call HistoryAddAttr".' )
      stat = hst_empinoaxisdata
      cause_c = ''
      goto 999
    end if
    if ( .not. hst % mpi_gather &
      &  .or. ( hst % mpi_gather .and. hst % mpi_myrank == 0 ) ) then
    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
    end if
999 continue
    call storeerror(stat, subname, err, cause_c=cause_c)
    call endsub(subname)

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

Here is the call graph for this function:

historyaddattrreal0()

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

Definition at line 371 of file historyaddattr.f90.

    !
    !
    use gtool_history_types, only: gt_history
    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
    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
    use dc_types, only: string
    implicit none
    character(*), intent(in):: varname
    character(*), intent(in):: attrname
    real, intent(in):: value
    type(GT_HISTORY), intent(inout), target, optional:: history
    logical, intent(out), optional:: err
    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 = "HistoryAddAttrReal0"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
    ! 操作対象決定
    if (present(history)) then
      hst => history
    else
      hst => default
    endif
    if ( hst % mpi_gather .and. &
      & .not. hst % mpi_fileinfo % already_output ) then
      call messagenotify('W', subname, &
        & 'Specify data of axes in whole area by "HistoryPutAxisMPI" explicitly ' // &
        & 'before "call HistoryAddAttr".' )
      stat = hst_empinoaxisdata
      cause_c = ''
      goto 999
    end if
    if ( .not. hst % mpi_gather &
      &  .or. ( hst % mpi_gather .and. hst % mpi_myrank == 0 ) ) then
    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
    end if
999 continue
    call storeerror(stat, subname, err, cause_c=cause_c)
    call endsub(subname)

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

Here is the call graph for this function:

historyaddattrreal1()

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

Definition at line 441 of file historyaddattr.f90.

    !
    !
    use gtool_history_types, only: gt_history
    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
    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
    use dc_types, only: string
    implicit none
    character(*), intent(in):: varname
    character(*), intent(in):: attrname
    real, intent(in):: value(:)
    type(GT_HISTORY), intent(inout), target, optional:: history
    logical, intent(out), optional:: err
    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 = "HistoryAddAttrReal1"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
    ! 操作対象決定
    if (present(history)) then
      hst => history
    else
      hst => default
    endif
    if ( hst % mpi_gather .and. &
      & .not. hst % mpi_fileinfo % already_output ) then
      call messagenotify('W', subname, &
        & 'Specify data of axes in whole area by "HistoryPutAxisMPI" explicitly ' // &
        & 'before "call HistoryAddAttr".' )
      stat = hst_empinoaxisdata
      cause_c = ''
      goto 999
    end if
    if ( .not. hst % mpi_gather &
      &  .or. ( hst % mpi_gather .and. hst % mpi_myrank == 0 ) ) then
    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
    end if
999 continue
    call storeerror(stat, subname, err, cause_c=cause_c)
    call endsub(subname)

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

Here is the call graph for this function: