Class: gt4_history

Add( gthstnml, [name], [file], [interval_value], [interval_unit], [precision], [average], [fileprefix], [err] )

Subroutine : recursive

gthstnml : type(GT_HISTORY_NMLINFO), intent(inout)

name :

character(*), intent(in), optional

:	変数名. 先頭の空白は無視されます. "Data1,Data2" のようにカンマで区切って複数の変数を指定することも可能です. Variable identifier. Blanks at the head of the name are ignored. Multiple variables can be specified as "Data1,Data2" too. Delimiter is comma.

file :

character(*), intent(in), optional

:	ヒストリデータのファイル名. History data filenames

interval_value :

real, intent(in), optional

:	ヒストリデータの出力間隔の数値. 負の値を与えると, 出力を抑止します. Numerical value for interval of history data output. Negative values suppresses output.

interval_unit :

character(*), intent(in), optional

:	ヒストリデータの出力間隔の単位. Unit for interval of history data output

precision :

character(*), intent(in), optional

:	ヒストリデータの精度. Precision of history data

average :

logical, intent(in), optional

:	出力データの平均化フラグ. Flag for average of output data.

fileprefix :

character(*), intent(in), optional

:	ヒストリデータのファイル名の接頭詞. Prefixes of history data filenames

err :

logical, intent(out), optional

:

例外処理用フラグ. デフォルトでは, この手続き内でエラーが生じた場合, プログラムは強制終了します. 引数 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.

変数の出力情報を加えます.

デフォルト値を設定するには, name を与えないか, または name に空白を与えてください. デフォルト値を与える場合, file に与えられる情報は無視されます. fileprefix はデフォルト値に与える場合のみ有効です.

name に変数名が指定され, その際に file が与えられない, または空白が与えられる場合, file には "<name に与えられた文字>.nc" が指定されます.

なお, 与えられた gthstnml が Create によって初期設定されていない場合, プログラムはエラーを発生させます.

Add output information of a variable.

In order to set default values, specify blank to name or do not specify name. When default values are specified, file is ignored. fileprefix is valid only when default values are specified.

When a variable identifier is specified to name and file is not specified or blanks are specified to file, "<string given to name>.nc" is specified to file.

If gthstnml is not initialized by "Create" yet, error is occurred.

Alias for HistoryNmlInfoAdd

AssocGtHist( gthstnml, name, history, [err] )

Subroutine :

gthstnml : type(GT_HISTORY_NMLINFO), intent(in)

name :

character(*), intent(in)

:	変数名. 先頭の空白は無視されます. Variable identifier. Blanks at the head of the name are ignored.

history :

type(GT_HISTORY), pointer

:	(out) gt4_history モジュール用構造体. Derived type for "gt4_history" module

err :

logical, intent(out), optional

:

例外処理用フラグ. デフォルトでは, この手続き内でエラーが生じた場合, プログラムは強制終了します. 引数 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.

与えられた gt4_history#GT_HISTORY 型のポインタ history に対し, gthstnml 内の name に関する gt4_history#GT_HISTORY 型変数を結合します. 空状態の history を与えてください.

EndDefine で定義モードから出力モードに移行した後に呼び出してください. EndDefine を呼ぶ前にこのサブルーチンを使用すると, プログラムはエラーを発生させます.

name に関する情報が見当たらない場合, プログラムはエラーを発生させます. name が空文字の場合にも, プログラムはエラーを発生させます.

なお, 与えられた gthstnml が Create によって初期設定されていない場合にも, プログラムはエラーを発生させます.

This subroutine associates given "gt4_history#GT_HISTORY" pointer history to "gt4_history#GT_HISTORY" correspond to name in gthstnml. Give null history.

Use after state is changed from define mode to output mode by "EndDefile". If this subroutine is used before "EndDefine" is used, error is occurred.

When data correspond to name is not found, error is occurred. When name is blank, error is occurred too.

If gthstnml is not initialized by "Create" yet, error is occurred.

Alias for HistoryNmlInfoAssocGtHist

Close( gthstnml, [err] )

Subroutine :

gthstnml : type(GT_HISTORY_NMLINFO), intent(inout)

err :

logical, intent(out), optional

:

例外処理用フラグ. デフォルトでは, この手続き内でエラーが生じた場合, プログラムは強制終了します. 引数 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.

GT_HISTORY_NMLINFO 型の変数の終了処理を行います.

このサブルーチンを使用する前に, gthstnml に格納されている gt4_history#GT_HISTORY 型の全ての変数に対して, gt4_history#HistoryClose を用いて終了処理を行ってください. 終了処理されていないものがある場合, プログラムはエラーを発生させます.

なお, 与えられた gthstnml が Create によって初期設定されていない場合, プログラムはエラーを発生させます.

Deconstructor of "GT_HISTORY_NMLINFO".

Terminate all "gt4_history#GT_HISTORY" variables in gthstnml by "gt4_history#HistoryClose" before this subroutine is used. If unterminated variables remain, error is occurred.

Note that if gthstnml is not initialized by "Create" yet, error is occurred.

Alias for HistoryNmlInfoClose

Create( gthstnml, [interval_value], [interval_unit], [precision], [average], [fileprefix], [err] )

Subroutine :

gthstnml : type(GT_HISTORY_NMLINFO), intent(inout)

interval_value :

real, intent(in), optional

:	ヒストリデータの出力間隔の数値. 負の値を与えると, 出力を抑止します. Numerical value for interval of history data output. Negative values suppresses output.

interval_unit :

character(*), intent(in), optional

:	ヒストリデータの出力間隔の単位. Unit for interval of history data output

precision :

character(*), intent(in), optional

:	ヒストリデータの精度. Precision of history data

average :

logical, intent(in), optional

:	出力データの平均化フラグ. Flag for average of output data.

fileprefix :

character(*), intent(in), optional

:	ヒストリデータのファイル名の接頭詞. Prefixes of history data filenames

err :

logical, intent(out), optional

:

例外処理用フラグ. デフォルトでは, この手続き内でエラーが生じた場合, プログラムは強制終了します. 引数 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.

GT_HISTORY_NMLINFO 型の変数の初期設定を行います. 他のサブルーチンを使用する前に必ずこのサブルーチンによって GT_HISTORY_NMLINFO 型の変数を初期設定してください.

interval_value, interval_unit, precision, average はデフォルト値として設定されます. fileprefix は各変数の出力ファイル名の接頭詞として使用されます.

なお, 与えられた gthstnml が既に初期設定されている場合, プログラムはエラーを発生させます.

Constructor of "GT_HISTORY_NMLINFO". Initialize gthstnml by this subroutine, before other procedures are used,

interval_value, interval_unit, precision, average are set as default values. fileprefix is used as prefixes of output filenames of each variable.

Note that if gthstnml is already initialized by this procedure, error is occurred.

Alias for HistoryNmlInfoCreate

Delete( gthstnml, name, [err] )

Subroutine : recursive

gthstnml : type(GT_HISTORY_NMLINFO), intent(inout)

name :

character(*), intent(in)

:	変数名. 先頭の空白は無視されます. "Data1,Data2" のようにカンマで区切って複数の変数を指定することが可能です. Variable identifier. Blanks at the head of the name are ignored. Multiple variables can be specified as "Data1,Data2". Delimiter is comma.

err :

logical, intent(out), optional

:

例外処理用フラグ. デフォルトでは, この手続き内でエラーが生じた場合, プログラムは強制終了します. 引数 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.

変数の出力情報を削除します.

なお, 与えられた gthstnml が Create によって初期設定されていない場合, プログラムはエラーを発生させます.

Delete output information of a variable.

If gthstnml is not initialized by "Create" yet, error is occurred.

Alias for HistoryNmlInfoDelete

EndDefine( gthstnml, [err] )

Subroutine :

gthstnml : type(GT_HISTORY_NMLINFO), intent(inout)

err :

logical, intent(out), optional

:

例外処理用フラグ. デフォルトでは, この手続き内でエラーが生じた場合, プログラムは強制終了します. 引数 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.

定義モードから出力モードに移行し, gthstnml に設定した情報を確定します. AssocGTHist サブルーチンを呼び出す前に, 必ずこのサブルーチンを呼び出してください. このサブルーチンを呼んだ後に Add, Delete, ResetDefault を呼ぶとプログラムはエラーを発生させます.

なお, 与えられた gthstnml が Create によって初期設定されていない場合にも, プログラムはエラーを発生させます.

Change from define mode to output mode, and determine information configured in gthstnml. Use this subroutine before "AssocGTHist" is used. If "Add", "Delete", "ResetDefault" are used after this subroutine is used, error is occurred.

If gthstnml is not initialized by "Create" yet, error is occurred.

Alias for HistoryNmlInfoEndDefine

GT_HISTORY_NMLINFO

Derived Type :

initialized = .false. :

logical

:	初期設定フラグ. Initialization flag

define_mode = .true. :

logical

:	定義状態を表すフラグ. Flag that represents define mode

gthstnml_list =>null() :

type(GT_HISTORY_NMLINFO_ENTRY), pointer

:	変数ごとの情報リスト. 格納される情報については GT_HISTORY_NMLINFO_ENTRY を参照のこと. Information list about individual variable See "GT_HISTORY_NMLINFO_ENTRY" about stored information.

NAMELIST から取得したヒストリデータの出力情報を格納するための構造データ型です. まず, Create で "GT_HISTORY_NMLINFO" 型の変数を初期設定して下さい. 初期設定された "GT_HISTORY_NMLINFO" 型の変数を再度利用する際には, Close によって終了処理を行ってください.

This derived type is worked in order to store information about data output from NAMELIST. Initialize "GT_HISTORY_NMLINFO" variable by "Create" before usage. If you reuse "GT_HISTORY_NMLINFO" variable again for another application, terminate by "Close".

Inquire( gthstnml, [name], [file], [interval_value], [interval_unit], [precision], [average], [fileprefix], [err] )

Subroutine :

gthstnml : type(GT_HISTORY_NMLINFO), intent(in)

name :

character(*), intent(in), optional

:	変数名. 先頭の空白は無視されます. Variable identifier. Blanks at the head of the name are ignored.

file :

character(*), intent(out), optional

:	ヒストリデータのファイル名. History data filenames

interval_value :

real, intent(out), optional

:	ヒストリデータの出力間隔の数値. 負の値を与えると, 出力を抑止します. Numerical value for interval of history data output. Negative values suppresses output.

interval_unit :

character(*), intent(out), optional

:	ヒストリデータの出力間隔の単位. Unit for interval of history data output

precision :

character(*), intent(out), optional

:	ヒストリデータの精度. Precision of history data

average :

logical, intent(out), optional

:	出力データの平均化フラグ. Flag for average of output data.

fileprefix :

character(*), intent(out), optional

:	ヒストリデータのファイル名の接頭詞. Prefixes of history data filenames

err :

logical, intent(out), optional

:

例外処理用フラグ. デフォルトでは, この手続き内でエラーが生じた場合, プログラムは強制終了します. 引数 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.

変数の出力情報を取得します.

デフォルト値を取得するには, name を与えないか, または name に空白を与えてください.

name に関するデータが存在しない場合, エラーを発生させます.

なお, 与えられた gthstnml が Create によって初期設定されていない場合, プログラムはエラーを発生させます.

Inquire output information of a variable.

If data correspond to name is not found, error is occurred.

If gthstnml is not initialized by "Create" yet, error is occurred.

Alias for HistoryNmlInfoInquire

OutputStepDisable( gthstnml, name, [err] )

Subroutine :

gthstnml : type(GT_HISTORY_NMLINFO), intent(in)

name :

character(*), intent(in)

:	変数名. 先頭の空白は無視されます. Variable identifier. Blanks at the head of the name are ignored.

err :

logical, intent(out), optional

:

例外処理用フラグ. デフォルトでは, この手続き内でエラーが生じた場合, プログラムは強制終了します. 引数 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.

このサブルーチンを使用すると, name に関して, 以降は output_step が常に .false. を返すようになります.

データ出力間隔を出力の初期設定から変更し, データを出力するたびに時刻を明示的に指定する場合に利用することを想定しています.

EndDefine で定義モードから出力モードに移行した後に呼び出してください. EndDefine を呼ぶ前にこのサブルーチンを使用すると, プログラムはエラーを発生させます.

name に関する情報が見当たらない場合, プログラムはエラーを発生させます. name が空文字の場合にも, プログラムはエラーを発生させます.

なお, 与えられた gthstnml が Create によって初期設定されていない場合にも, プログラムはエラーを発生させます.

After this subroutine is used, "output_step" returns .false. already corresponding to the name.

This subroutine expected to use when interval of data output is changed from initialization of output, and time is specified explicitly whenever data is output.

Use after state is changed from define mode to output mode by "EndDefile". If this subroutine is used before "EndDefine" is used, error is occurred.

When data correspond to name is not found, error is occurred. When name is blank, error is occurred too.

If gthstnml is not initialized by "Create" yet, error is occurred.

Alias for HistoryNmlInfoOutputStepDisable

PutLine( gthstnml, [unit], [indent], [err] )

Subroutine :

gthstnml : type(GT_HISTORY_NMLINFO), intent(in)

unit :

integer, intent(in), optional

:	出力先の装置番号. デフォルトの出力先は標準出力. Unit number for output. Default value is standard output.

indent :

character(*), intent(in), optional

:	表示されるメッセージの字下げ. Indent of displayed messages.

err :

logical, intent(out), optional

:

例外処理用フラグ. デフォルトでは, この手続き内でエラーが生じた場合, プログラムは強制終了します. 引数 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.

引数 gthstnml に設定されている情報を印字します. デフォルトではメッセージは標準出力に出力されます. unit に装置番号を指定することで, 出力先を変更することが可能です.

Print information of gthstnml. By default messages are output to standard output. Unit number for output can be changed by unit argument.

Alias for HistoryNmlInfoPutLine

ResetDefault( gthstnml, [err] )

Subroutine :

gthstnml : type(GT_HISTORY_NMLINFO), intent(inout)

err :

logical, intent(out), optional

:

例外処理用フラグ. デフォルトでは, この手続き内でエラーが生じた場合, プログラムは強制終了します. 引数 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.

デフォルト値を残し, 登録したデータを削除します.

なお, 与えられた gthstnml が Create によって初期設定されていない場合, プログラムはエラーを発生させます.

Stored data is deleted without default settings.

If gthstnml is not initialized by "Create" yet, error is occurred.

Alias for HistoryNmlInfoResetDefault

define_mode( gthstnml ) result(result)

*Function* :
`result` :	`logical`
`gthstnml` :	`type(GT_HISTORY_NMLINFO), intent(in)`

gthstnml が定義モードであれば .true. が, 定義モードでなければ .false. が返ります.

If gthstnml is define mode, .true. is returned. If gthstnml is not define mode, .false. is returned.

Alias for HistoryNmlInfoDefineMode

initialized( gthstnml ) result(result)

*Function* :
`result` :	`logical`
`gthstnml` :	`type(GT_HISTORY_NMLINFO), intent(in)`

gthstnml が初期設定されている場合には .true. が, 初期設定されていない場合には .false. が返ります.

If gthstnml is initialized, .true. is returned. If gthstnml is not initialized, .false. is returned.

Alias for HistoryNmlInfoInitialized

names( gthstnml ) result(result)

*Function* :
`result` :	`character(STRING)`
`gthstnml` :	`type(GT_HISTORY_NMLINFO), intent(in)`

gthstnml が設定されている変数リストをカンマでつなげて返します.

なお, 与えられた gthstnml が Create によって初期設定されていない場合, 空文字が返ります.

List of variables registered in gthstnml is join with ’,’, and returned.

If gthstnml is not initialized by "Create" yet, blank is returned.

Alias for HistoryNmlInfoNames

output_step( gthstnml, name, time ) result(result)

Function :

result : logical

gthstnml : type(GT_HISTORY_NMLINFO), intent(in)

name :

character(*), intent(in)

:	変数名. 先頭の空白は無視されます. Variable identifier. Blanks at the head of the name are ignored.

time :

type(DC_DIFFTIME), intent(in)

:	現在時刻. Current time

time が変数 name の出力されるタイミングであれば .true. を, そうでなければ .false. を返します. gthstnml が初期設定されていない場合にも .false. が返ります. name に関するデータが存在しない場合にも .false. が返ります.

なお, 与えられた gthstnml が Create によって初期設定されていない場合, プログラムはエラーを発生させます.

If time is the time that a variable name is output, .true. is returned, otherwise .false. is returned When gthstnml is not initialized, .false. is returned too. When data correspond to name is not found, .false. is returned too.

If gthstnml is not initialized by "Create" yet, error is occurred.

Alias for HistoryNmlInfoOutputStep

output_valid( gthstnml, name ) result(result)

Function :

result : logical

gthstnml : type(GT_HISTORY_NMLINFO), intent(in)

name :

character(*), intent(in)

:	変数名. 先頭の空白は無視されます. Variable identifier. Blanks at the head of the name are ignored.

変数 name の出力が有効であれば, .true. を, そうでなければ .false. を返します. gthstnml が初期設定されていない場合にも .false. が返ります. name に関するデータが存在しない場合にも .false. が返ります.

なお, 与えられた gthstnml が Create によって初期設定されていない場合, プログラムはエラーを発生させます.

If output of a variable name is valid, .true. is returned, otherwise .false. is returned When gthstnml is not initialized, .false. is returned too. When data correspond to name is not found, .false. is returned too.

If gthstnml is not initialized by "Create" yet, error is occurred.

Alias for HistoryNmlInfoOutputValid

GT_HISTORY_NMLINFO_ENTRY

Derived Type :

name :

character(TOKEN)

:	変数名. Variable identifier

file :

character(STRING)

:	ヒストリデータのファイル名. History data filenames

interval_value =>null() :

real, pointer

:	ヒストリデータの出力間隔の数値. 負の値を与えると, 出力を抑止します. Numerical value for interval of history data output. Negative values suppresses output.

interval_unit =>null() :

character(TOKEN), pointer

:	ヒストリデータの出力間隔の単位. Unit for interval of history data output

precision =>null() :

character(TOKEN), pointer

:	ヒストリデータの精度. Precision of history data

average =>null() :

logical, pointer

:	出力データの平均化フラグ. Flag for average of output data.

fileprefix =>null() :

character(STRING), pointer

:	ヒストリデータのファイル名の接頭詞. Prefixes of history data filenames

output_step_disable = .false. :

logical

:	output_step 無効化フラグ. "output_step" disable flag

dummy0 :

logical

:	8 ビット境界用のダミー変数. Dummy variable for 8 bit boundary

history =>null() :

type(GT_HISTORY), pointer

:	gt4_history モジュール用構造体. Derived type for "gt4_history" module

next =>null() :

type(GT_HISTORY_NMLINFO_ENTRY), pointer

:	リスト構造のための変数. A variable for a list structure

出力変数ごとの情報を格納するための構造体です. この構造体はモジュール内で使用されることを想定しているため, モジュール外部からは使用しないでください.

Information about individual output variable is stored in this derived type. It is expected that this derived type is used internally, so do not refer from the outside.

HistoryNmlInfoAdd( gthstnml, [name], [file], [interval_value], [interval_unit], [precision], [average], [fileprefix], [err] )

Subroutine : recursive

gthstnml : type(GT_HISTORY_NMLINFO), intent(inout)

name :

character(*), intent(in), optional

:	変数名. 先頭の空白は無視されます. "Data1,Data2" のようにカンマで区切って複数の変数を指定することも可能です. Variable identifier. Blanks at the head of the name are ignored. Multiple variables can be specified as "Data1,Data2" too. Delimiter is comma.

file :

character(*), intent(in), optional

:	ヒストリデータのファイル名. History data filenames

interval_value :

real, intent(in), optional

:	ヒストリデータの出力間隔の数値. 負の値を与えると, 出力を抑止します. Numerical value for interval of history data output. Negative values suppresses output.

interval_unit :

character(*), intent(in), optional

:	ヒストリデータの出力間隔の単位. Unit for interval of history data output

precision :

character(*), intent(in), optional

:	ヒストリデータの精度. Precision of history data

average :

logical, intent(in), optional

:	出力データの平均化フラグ. Flag for average of output data.

fileprefix :

character(*), intent(in), optional

:	ヒストリデータのファイル名の接頭詞. Prefixes of history data filenames

err :

logical, intent(out), optional

:

例外処理用フラグ. デフォルトでは, この手続き内でエラーが生じた場合, プログラムは強制終了します. 引数 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.

変数の出力情報を加えます.

デフォルト値を設定するには, name を与えないか, または name に空白を与えてください. デフォルト値を与える場合, file に与えられる情報は無視されます. fileprefix はデフォルト値に与える場合のみ有効です.

name に変数名が指定され, その際に file が与えられない, または空白が与えられる場合, file には "<name に与えられた文字>.nc" が指定されます.

なお, 与えられた gthstnml が Create によって初期設定されていない場合, プログラムはエラーを発生させます.

Add output information of a variable.

In order to set default values, specify blank to name or do not specify name. When default values are specified, file is ignored. fileprefix is valid only when default values are specified.

When a variable identifier is specified to name and file is not specified or blanks are specified to file, "<string given to name>.nc" is specified to file.

If gthstnml is not initialized by "Create" yet, error is occurred.

[Source]

  recursive subroutine HistoryNmlInfoAdd( gthstnml, name, file, interval_value, interval_unit, precision, average, fileprefix, err )
    !
    ! 変数の出力情報を加えます. 
    !
    ! デフォルト値を設定するには, *name* を与えないか, または
    ! *name* に空白を与えてください. 
    ! デフォルト値を与える場合, *file* に与えられる情報は無視されます. 
    ! *fileprefix* はデフォルト値に与える場合のみ有効です. 
    !
    ! *name* に変数名が指定され, その際に *file* が与えられない, 
    ! または空白が与えられる場合, *file* には 
    ! "<i><*name* に与えられた文字></i>.nc" が指定されます. 
    !
    ! なお, 与えられた *gthstnml* が Create によって初期設定
    ! されていない場合, プログラムはエラーを発生させます. 
    !
    ! Add output information of a variable.
    ! 
    ! In order to set default values, specify blank to *name* or
    ! do not specify *name*.
    ! When default values are specified, *file* is ignored. 
    ! *fileprefix* is valid only when default values are specified. 
    !
    ! When a variable identifier is specified to *name* and 
    ! *file* is not specified or blanks are specified to *file*,
    ! "<i><string given to *name*></i>.nc" is specified to *file*.
    !
    ! If *gthstnml* is not initialized by "Create" yet, 
    ! error is occurred.
    !
    use dc_trace, only: BeginSub, EndSub, DbgMessage
    use dc_string, only: PutLine, Printf, Split, StrInclude, StoA, JoinChar
    use dc_present, only: present_and_not_empty, present_and_true, present_select
    use dc_types, only: DP, STRING, TOKEN, STDOUT
    use dc_date_types, only: DC_DIFFTIME
    use dc_date, only: Create
    use dc_message, only: MessageNotify
    use dc_error, only: StoreError, DC_NOERR, DC_ENOTINIT, DC_EARGLACK, USR_ERRNO, HST_ENOTINDEFINE
    implicit none
    type(GT_HISTORY_NMLINFO), intent(inout):: gthstnml
    character(*), intent(in), optional:: name
                              ! 変数名. 
                              ! 
                              ! 先頭の空白は無視されます. 
                              ! 
                              ! "Data1,Data2" のようにカンマで区切って複数
                              ! の変数を指定することも可能です. 
                              !
                              ! 
                              ! Variable identifier. 
                              ! 
                              ! Blanks at the head of the name are ignored. 
                              ! 
                              ! Multiple variables can be specified 
                              ! as "Data1,Data2" too. Delimiter is comma. 
                              !
                              ! 
    character(*), intent(in), optional:: file
                              ! ヒストリデータのファイル名. 
                              ! History data filenames
    real, intent(in), optional:: interval_value
                              ! ヒストリデータの出力間隔の数値. 
                              ! 負の値を与えると, 出力を抑止します. 
                              ! 
                              ! Numerical value for interval of history data output. 
                              ! Negative values suppresses output.
    character(*), intent(in), optional:: interval_unit
                              ! ヒストリデータの出力間隔の単位. 
                              ! Unit for interval of history data output
    character(*), intent(in), optional:: precision
                              ! ヒストリデータの精度. 
                              ! Precision of history data
    logical, intent(in), optional:: average
                              ! 出力データの平均化フラグ. 
                              ! Flag for average of output data.
    character(*), intent(in), optional:: fileprefix
                              ! ヒストリデータのファイル名の接頭詞. 
                              ! Prefixes of history data filenames
    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. 

    !-----------------------------------
    !  作業変数
    !  Work variables
    type(GT_HISTORY_NMLINFO_ENTRY), pointer:: hptr =>null()
    type(GT_HISTORY_NMLINFO_ENTRY), pointer:: hptr_last =>null()
    type(DC_DIFFTIME):: interval_time
    character(TOKEN), pointer:: varnames_array(:) =>null()
    integer:: i, vnmax
    integer:: stat
    character(STRING):: cause_c
    character(*), parameter:: subname = 'HistoryNmlInfoAdd'
  continue
    call BeginSub( subname, fmt = '@name=%a @file=%a @interval_value=%r @interval_unit=%a @precision=%a @average=%y @fileprefix=%a', r  = (/ present_select(.true., -1.0, interval_value) /), l  = (/ present_and_true(average) /), ca = StoA( present_select(.true., '<no>', name), present_select(.true., '<no>', file), present_select(.true., '<no>', interval_unit), present_select(.true., '<no>', precision), present_select(.true., '<no>', fileprefix) ) )

    stat = DC_NOERR
    cause_c = ''

    !-----------------------------------------------------------------
    !  初期設定のチェック
    !  Check initialization
    !-----------------------------------------------------------------
    if ( .not. gthstnml % initialized ) then
      stat = DC_ENOTINIT
      cause_c = 'GT_HISTORY_NMLINFO'
      goto 999
    end if

    if ( .not. gthstnml % define_mode ) then
      stat = HST_ENOTINDEFINE
      cause_c = 'Add'
      goto 999
    end if

    !-----------------------------------------------------------------
    !  複数の変数を設定する場合
    !  Configure multiple variables
    !-----------------------------------------------------------------
    if ( present_and_not_empty(name) ) then
      if ( index(name, ',') > 0 ) then
        call DbgMessage( 'multiple entries (%c) will be created', c1 = trim(name) )
!!$        if ( present(file) ) call DbgMessage( 'argument @file=%c is ignored', c1 = trim(file) )

        call Split( str = name, sep = ',', carray = varnames_array )        ! (out)
        vnmax = size( varnames_array )

        do i = 1, vnmax
          call Add( gthstnml = gthstnml, name = varnames_array(i), file = file, interval_value = interval_value, interval_unit = interval_unit, precision = precision, average = average, err = err )                        ! (out)
          if ( present_and_true( err ) ) then
            deallocate( varnames_array )
            stat = USR_ERRNO
            goto 999
          end if
        end do
        deallocate( varnames_array )
        goto 999
      end if
    end if

    !-----------------------------------------------------------------
    !  *gthstnml* へ情報を追加.
    !  Add information to *gthstnml*
    !-----------------------------------------------------------------
    if ( .not. present_and_not_empty(name) ) then
      if ( present(interval_value) ) gthstnml % gthstnml_list % interval_value = interval_value
      if ( present(interval_unit)  ) gthstnml % gthstnml_list % interval_unit  = interval_unit 
      if ( present(precision)      ) gthstnml % gthstnml_list % precision      = precision     
      if ( present(average)        ) gthstnml % gthstnml_list % average        = average       
      if ( present(fileprefix)     ) gthstnml % gthstnml_list % fileprefix     = fileprefix    

      hptr => gthstnml % gthstnml_list

    else
      hptr => gthstnml % gthstnml_list
      call ListSearch( gthstnml_list = hptr, name = name )           ! (in)
      if ( .not. associated(hptr) ) then
        call DbgMessage( 'new entry (%c) is created', c1 = trim( adjustl( name ) ) )

        hptr_last => gthstnml % gthstnml_list
        call ListLast( gthstnml_list = hptr_last ) ! (inout)
        allocate( hptr )

        nullify( hptr % next )

        hptr % interval_value => gthstnml % gthstnml_list % interval_value 
        hptr % interval_unit  => gthstnml % gthstnml_list % interval_unit  
        hptr % precision      => gthstnml % gthstnml_list % precision      
        hptr % average        => gthstnml % gthstnml_list % average        
        hptr % fileprefix     => gthstnml % gthstnml_list % fileprefix     

        hptr_last % next => hptr
      else
        call DbgMessage( 'entry (%c) is overwritten', c1 = trim( adjustl( name ) ) )
      end if

      hptr % name  = adjustl( name )
      if ( present_and_not_empty(file) ) then
        hptr % file = file
        nullify(  hptr % fileprefix )
        allocate( hptr % fileprefix )
        hptr % fileprefix = ''
      else
        hptr % file = trim(name) // '.nc'
      end if

      if ( present(interval_value) ) then
        nullify(  hptr % interval_value )
        allocate( hptr % interval_value )
        hptr % interval_value = interval_value 
      end if
      if ( present(interval_unit)  ) then
        nullify(  hptr % interval_unit  )
        allocate( hptr % interval_unit  )
        hptr % interval_unit  = interval_unit  
      end if
      if ( present(precision)      ) then
        nullify(  hptr % precision      )
        allocate( hptr % precision      )
        hptr % precision      = precision      
      end if
      if ( present(average)        ) then
        nullify(  hptr % average        )
        allocate( hptr % average        )
        hptr % average        = average        
      end if

    end if

    !---------------------------------------------------------------
    !  時間の単位のチェック
    !  Check unit of time
    !---------------------------------------------------------------
    call Create( diff = interval_time, value = real( hptr % interval_value, DP ), unit = hptr % interval_unit, err = err )                                  ! (out)
    if ( present_and_true( err ) ) then
      call Delete( gthstnml = gthstnml, name = name )                   ! (in)
      stat = USR_ERRNO
      goto 999
    end if

    nullify( hptr )

    !-----------------------------------------------------------------
    !  終了処理, 例外処理
    !  Termination and Exception handling
    !-----------------------------------------------------------------
999 continue
    call StoreError( stat, subname, err, cause_c )
    call EndSub( subname )
  end subroutine HistoryNmlInfoAdd

HistoryNmlInfoAssocGtHist( gthstnml, name, history, [err] )

Subroutine :

gthstnml : type(GT_HISTORY_NMLINFO), intent(in)

name :

character(*), intent(in)

:	変数名. 先頭の空白は無視されます. Variable identifier. Blanks at the head of the name are ignored.

history :

type(GT_HISTORY), pointer

:	(out) gt4_history モジュール用構造体. Derived type for "gt4_history" module