gtool4 netCDF データ中の属性の入力 More...

Functions/Subroutines
subroutine	historygettattrchar0 (file, varname, attrname, value, flag_mpi_split, err)
	gtool4 データ内の変数の属性の取得
subroutine	historygettattrint0 (file, varname, attrname, value, flag_mpi_split, err)
subroutine	historygettattrint1 (file, varname, attrname, value, flag_mpi_split, err)
subroutine	historygettattrreal0 (file, varname, attrname, value, flag_mpi_split, err)
subroutine	historygettattrreal1 (file, varname, attrname, value, flag_mpi_split, err)
subroutine	historygettattrdouble0 (file, varname, attrname, value, flag_mpi_split, err)
subroutine	historygettattrdouble1 (file, varname, attrname, value, flag_mpi_split, err)

Detailed Description

gtool4 netCDF データ中の属性の入力

Author: Yasuhiro MORIKAWA

Copyright: Copyright (C) GFD Dennou Club, 2006-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

以下のサブルーチン, 関数は gtool_history から gtool_history_generic::HistoryGetAttr として提供されます.

Definition in file historygetattr.f90.

Function/Subroutine Documentation

◆ historygettattrchar0()

subroutine historygettattrchar0	(	character(*), intent(in)	file,
		character(*), intent(in)	varname,
		character(*), intent(in)	attrname,
		character(*), intent(out)	value,
		logical, intent(in), optional	flag_mpi_split,
		logical, intent(out), optional	err )

gtool4 データ内の変数の属性の取得

Parameters

[in] file

gtool4 データおよびそのデータ内の変数に設定されている属性を取得します。

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

取得する属性が存在しない場合、以下の値が返ります。

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

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

Definition at line 36 of file historygetattr.f90.

    !
                        !
    !> @brief gtool4 データ内の変数の属性の取得
    !>
    !> gtool4 データおよびそのデータ内の変数に設定されている属性を取得します。
    !>
    !> 属性名 attrname の先頭にプラス "+" を付加する
    !> 場合は、gtool4 データ自体の属性 (大域属性) として属性が取得されます。
    !> この場合、varname は無視されますが、
    !> その場合でも varname へはデータ内に存在する変数名を与えてください。
    !>
    !> 取得する属性が存在しない場合、以下の値が返ります。
    !>
    !> - character : "" (空文字)
    !> - real      : NF90_FILL_FLOAT
    !> - real(DP)  : NF90_FILL_DOUBLE
    !> - integer   : NF90_FILL_INT
    !>
    !> HistoryGetAttr は複数のサブルーチンの総称名です。value には
    !> いくつかの型を与えることが可能です。
    !> 下記のサブルーチンを参照ください。
    !
    !
    use gtdata_types, only: gt_variable
    use gtdata_generic, only: get_attr, open, close
    use dc_types, only: string
    use dc_url, only: urlmerge
    use dc_error, only: storeerror, dc_noerr, gt_enoturl
    use dc_trace, only: beginsub, endsub
    use dc_present, only: present_and_true
    implicit none
    character(*), intent(in):: file
                                                  ! netCDF ファイル名.
    character(*), intent(in):: varname
                                                  ! 変数名.
    character(*), intent(in):: attrname
                                                  ! 属性の名称.
                              !
                              ! "<b><tt>+</tt></b>" (プラス)
                              ! を属性名の先頭につける場合には,
                              ! 大域属性を取得します.
    character(*), intent(out):: value
                                                  ! 属性の値.
                              !
    logical, intent(in), optional:: flag_mpi_split
                                                  ! MPI 使用時にこの引数に .true. を与えると,
                              ! *file* 引数に "_rankXXXXXX"
                              ! (X は [0-9] の数値で, ノード番号を指す)
                              ! を付加したファイル名を各ノードで読み込みます.
                              ! 例えば, *file* に "input.nc" を与えた場合.
                              ! ノード 0 では "input_rank000000.nc",
                              ! ノード 12 では "input_rank000012.nc"
                              ! を読み込みます.
                              ! デフォルトは .false. です.
                              !
                              ! When MPI is used, if ".true." is given,
                              ! a filename that "_rankXXXXXX"
                              ! (X is [0-9] that indicates node number)
                              ! is added to *file* argument is loaded
                              ! on each node.
                              ! For example, "input.nc" is given to *file*,
                              ! "input_rank000000.nc", "input_rank000012.nc"
                              ! are loaded on node 0 and node 12.
                              ! Default value is ".false.".
                              !
    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_VARIABLE):: var
    character(STRING):: file_work, url
    integer:: stat
    character(STRING):: cause_c
    character(len = *), parameter:: subname = "HistoryGetAttrChar0"
    !--
    interface ! historyget.rb2f90 で定義されているものを使用
      function file_rename_mpi( file ) result(result)
        use dc_types, only: string
        character(*), intent(in):: file
        character(STRING):: result
      end function file_rename_mpi
    end interface
    !++
  continue
    call beginsub(subname, &
      & 'file=<%c> varname=<%c> attrname=<%c>', &
      & c1=trim(file), c2=trim(varname), c3=trim(attrname) )
    stat = dc_noerr
    cause_c = ''
    ! ファイル名の変更 (MPI 用)
    ! Change filename (for MPI)
    !
    file_work = file
    if ( present_and_true( flag_mpi_split ) ) &
      & file_work = file_rename_mpi( file_work )
    ! 変数 URL の作成
    ! Create variable URL
    !
    url = urlmerge( file_work, varname )
    ! ファイルオープン
    ! File open
    !
    call open( var, url, err = err )
    if ( present_and_true(err) ) then
      stat = gt_enoturl
      cause_c = url
      goto 999
    end if
    ! デフォルト値の設定
    ! Set default value
    !
    ! 属性の取得
    ! Get an attribute
    !
    call get_attr( var, attrname, value &
      & )
    ! ファイルオープン
    ! File open
    !
    call close( var )
999 continue
    call storeerror(stat, subname, err, cause_c=cause_c)
    call endsub(subname)

References dc_trace::beginsub(), dc_error::dc_noerr, dc_trace::endsub(), file_rename_mpi(), dc_error::gt_enoturl, dc_present::present_and_true(), dc_error::storeerror(), and dc_types::string.