Functions/Subroutines
subroutine	historygettattrchar0 (file, varname, attrname, value, flag_mpi_split, err)

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)

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
	)

Definition at line 39 of file historygetattr.f90.

References dc_trace::beginsub(), dc_error::dc_noerr, dc_types::dp, dc_trace::endsub(), file_rename_mpi(), dc_url::gt_atmark, dc_url::gt_comma, dc_error::gt_enoturl, dc_url::gt_equal, dc_url::gt_plus, dc_error::hst_empinoaxisdata, dc_string::joinchar(), dc_present::present_and_true(), dc_error::storeerror(), and dc_types::string.

     !
                         !
     !== gtool4 データ内の変数の属性の取得
     !
     ! gtool4 データおよびそのデータ内の変数に設定されている属性を取得します。
     !
     ! 属性名 *attrname* の先頭にプラス "<b><tt>+</tt></b>" を付加する
     ! 場合は、gtool4 データ自体の属性 (大域属性) として属性が取得されます。
     ! この場合、*varname* は無視されますが、
     ! その場合でも *varname* へはデータ内に存在する変数名を与えてください。
     !
     ! 取得する属性が存在しない場合、以下の値が返ります。
     !
     ! character :: "" (空文字)
     ! real      :: netcdf_f77#NF_FILL_FLOAT
     ! real(DP)  :: netcdf_f77#NF_FILL_DOUBLE
     ! integer   :: netcdf_f77#NF_FILL_INT
     !
     ! *HistoryGetAttr* は複数のサブルーチンの総称名です。*value* には
     ! いくつかの型を与えることが可能です。
     ! 下記のサブルーチンを参照ください。
     !
     !
     use gtdata_types, only: gt_variable
     use gtdata_generic, only: get_attr, open, close
     use dc_types, only: string, dp
     use dc_string, only: tochar, joinchar
     use dc_url, only: gt_atmark, gt_comma, gt_equal, urlsplit, urlmerge, 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_present, only: present_and_true
     use dc_error, only: storeerror, dc_noerr, gt_enoturl
     use netcdf, only: nf90_fill_float, nf90_fill_double, nf90_fill_int
     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)