File: historyget.f90

HistoryGetDouble0( file, varname, array, [range], [quiet], [err] )

Subroutine :

file :

character(*), intent(in)

:	netCDF ファイル名. NetCDF filename.

varname :

character(*), intent(in)

:	変数名. Variable name

array :

real(DP), intent(out)

:

取得するデータを格納する配列

型は整数型, 単精度実数型, 倍精度実数型かのいづれかです. 取得するデータの空間次元のサイズと配列のサイズとが一致している必要があります. 入力するデータの型と array の型が異なる場合は, 自動的に array の型に変換されます.

Array in which input data is store

Type is integer or single precision real or double precision. Size of array must be identical to input data size. When type of input data is different from type of array, data is converted to type of array automatically.

range :

character(*), intent(in), optional

:

切り出し用オプション. gtool4 変数のコンマ記法で記述 {(例: time=100.0,x=10:20,y=^1:^5)}

詳しくは gtool4 netCDF 規約の「5.4 コンマ記法」を参照してください.

数値のみが与えられる場合 (※ 引数の型は常に文字型です. ここでの「数値」は "10.0" のような文字列を指します), この値は時刻(正確には netCDF の無制限次元) の値として扱われます.

Option for clipping. Give gtool4 comma-graphy {(ex. time=100.0,x=10:20,y=^1:^5)}

For details, see "5.4 gtool4 comma-graphy" in gtool4 netCDF Convention

When pure numerical value is given (Type of argument is character. In this case, the "pure numerical value" means a character like "10.0") the value is treated as time (to be exact, unlimited dimension).

quiet : logical, intent(in), optional

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.

netCDF データを入力します. gtool4 netCDF 規約に基づくデータを想定していますが, 大抵の netCDF データの入力は可能であると期待されます.

Input netCDF data. NetCDF data with gtool4 conventions is assumed, but most netCDF data is expected to be input.

file にファイル名を, varname に変数名を与えます. array にはファイルから入力されたデータが返ります. ポインタの配列へデータを入力を行う場合は, HistoryGetPointer を利用してください.

Give filename to file, variable name to varname. Input data is returned to array. If you want to use pointer array, use HistoryGetPointer .

デフォルトでは, ファイル内の最新データ, すなわちデータを時刻最大で切り出したものを入力します. 別の時刻で切り出したデータを入力したい場合には, 下記の range オプションを利用してください.

By default, recent data, that is to say, data clipped with maximum time is input. In order to input data clipped with other time, use range option as follows.

range には gtool4 のコンマ記法 (gtool4 netCDF 規約の「5.4 コンマ記法」参照) を与えることで, 入力データの一部を切り出すことが可能です.

Give gtool4 comma-graphy (See "5.4 gtool4 comma-graphy" in gtool4 netCDF Convention) to range, then input data is clipped.

HistoryGet は複数のサブルーチンの総称名です. array には 0 ～ 7 次元の整数型, 単精度実数型, 倍精度実数型の配列を与えることが可能です.

HistoryGet is generic name of multiple subroutines. Integer, single precision real, and double precision 0 — 7 rank array can be given to array.

デフォルトでは, データの入力時にどのファイルのどの変数がどの次元で切り出されて入力されたのかを表示します. メッセージ出力が不要な場合は quiet に .true. を与えてください.

By default, when data is input, filename and variable name and clipping information is printed. The message is suppressed when .true. is given to quiet

[Source]

subroutine HistoryGetDouble0(file, varname, array, range, quiet, err)
  !
                      !
  ! netCDF データを入力します. gtool4 netCDF 規約に基づくデータを想定
  ! していますが, 大抵の netCDF データの入力は可能であると期待されます.
  !
  ! Input netCDF data. NetCDF data with gtool4 conventions is assumed,
  ! but most netCDF data is expected to be input.
  !
  ! *file* にファイル名を, *varname* に変数名を与えます.
  ! *array* にはファイルから入力されたデータが返ります.
  ! ポインタの配列へデータを入力を行う場合は,
  ! HistoryGetPointer を利用してください.
  !
  ! Give filename to *file*, variable name to *varname*.
  ! Input data is returned to *array*.
  ! If you want to use pointer array, use HistoryGetPointer .
  !
  ! デフォルトでは, ファイル内の最新データ, すなわちデータを
  ! 時刻最大で切り出したものを入力します. 別の時刻で切り出したデータを
  ! 入力したい場合には, 下記の *range* オプションを利用してください.
  !
  ! By default, recent data, that is to say, data clipped with 
  ! maximum time is input. In order to input data clipped with
  ! other time, use *range* option as follows.
  !
  ! *range* には gtool4 のコンマ記法
  ! ({gtool4 netCDF 規約}[link:../xref.htm#label-6] の「5.4 コンマ記法」参照)
  ! を与えることで, 入力データの一部を切り出すことが可能です.
  !
  ! Give gtool4 comma-graphy
  ! (See "5.4 gtool4 comma-graphy" in {gtool4 netCDF Convention}[link:../xref.htm#label-6]) 
  ! to *range*, then input data is clipped.
  !
  ! *HistoryGet* は複数のサブルーチンの総称名です. *array* には
  ! 0 ～ 7 次元の整数型, 単精度実数型, 
  ! 倍精度実数型の配列を与えることが可能です.
  !
  ! *HistoryGet* is generic name of multiple subroutines.
  ! Integer, single precision real, and double precision
  ! 0 -- 7 rank array can be given to *array*.
  !
  ! デフォルトでは, データの入力時にどのファイルのどの変数が
  ! どの次元で切り出されて入力されたのかを表示します. 
  ! メッセージ出力が不要な場合は *quiet* に .true. を与えてください.
  !
  ! By default, when data is input, filename and variable name and
  ! clipping information is printed. 
  ! The message is suppressed when .true. is given to *quiet*
  !
                    
  !
  use dc_string, only: toChar
  use dc_present, only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
                                                  ! netCDF ファイル名. 
                              ! NetCDF filename.
                    
  character(*), intent(in):: varname
                                                  ! 変数名. 
                              ! Variable name
                    
  character(*), intent(in), optional:: range
                                                  ! 切り出し用オプション.
                              ! gtool4 変数のコンマ記法で記述
                              ! {(例: time=100.0,x=10:20,y=^1:^5)}
                              !
                              ! 詳しくは
                              ! {gtool4 netCDF 規約}[link:../xref.htm#label-6]
                              ! の「5.4 コンマ記法」を参照して
                              ! ください.
                              ! 
                              ! 数値のみが与えられる場合 (※ 引数の型
                              ! は常に文字型です.  ここでの「数値」は
                              ! "<b><tt>10.0</tt></b>" のような文字列
                              ! を指します), この値は時刻(正確には 
                              ! netCDF の無制限次元) の値として扱われ
                              ! ます.
                              ! 
                              ! Option for clipping.
                              ! Give gtool4 comma-graphy 
                              ! {(ex. time=100.0,x=10:20,y=^1:^5)}
                              ! 
                              ! For details, see "5.4 gtool4
                              ! comma-graphy" in 
                              ! {gtool4 netCDF Convention}[link:../xref.htm#label-6]
                              ! 
                              ! When pure numerical value is given
                              ! (Type of argument is character.  In
                              ! this case, the "pure numerical value"
                              ! means a character like
                              ! "<b><tt>10.0</tt></b>") the value is
                              ! treated as time (to be exact,
                              ! unlimited dimension).
                              ! 
                    
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array
                                                  ! 取得するデータを格納する配列
                              !
                              ! 型は整数型, 単精度実数型, 倍精度実数型
                              ! かのいづれかです.  取得するデータの空
                              ! 間次元のサイズと配列のサイズとが一致し
                              ! ている必要があります.  入力するデータ
                              ! の型と *array* の型が異なる場合は, 自
                              ! 動的に *array* の型に変換されます.
                              ! 
                              ! Array in which input data is store
                              !
                              ! Type is integer or single precision
                              ! real or double precision.  Size of
                              ! array must be identical to input data
                              ! size.  When type of input data is
                              ! different from type of *array*, data
                              ! is converted to type of *array*
                              ! automatically.
                              ! 
                    
  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. 
                    
  real(DP) :: array_tmp(1)
  character(*), parameter :: subname = "HistoryGetDouble0"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1 = trim(file), c2 = trim(varname), c3 = trim(present_select('', 'no-range', range)))
  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file = file, varname = varname, array = array_tmp, range = range, quiet = quiet, err = err)
  else
    call HistoryGetDoubleEx(file = file, varname = varname, array = array_tmp, quiet = quiet, err = err)
  end if
  array = array_tmp(1)
  call EndSub(subname)
end subroutine HistoryGetDouble0

HistoryGetDouble0Pointer( file, varname, array, [range], [quiet], [err] )

Subroutine :

file :

character(*), intent(in)

:	netCDF ファイル名. NetCDF filename.

varname :

character(*), intent(in)

:	変数名. Variable name

array :

real(DP), pointer

:

(out)

取得するデータを格納するポインタ配列

必ず空状態の配列を与えてください. すなわち与える配列に対し, 初期値 =>null() を設定するか nullify を用いてください. 既に割り付けられている場合, もしくは不定状態の場合にはエラーを返します.

型は整数型, 単精度実数型, 倍精度実数型かのいづれかです. 入力するデータの型と array の型が異なる場合は, 自動的に array の型に変換されます.

Array in which input data is store

Give null array to array. More specifically, use ’=>null()’ as initial value or use ‘nullify’ to the array. If the array is allocated already, or undefined, error is occurred.

Type is integer or single precision real or double precision. When type of input data is different from type of array, data is converted to type of array automatically.

range :

character(*), intent(in), optional

:

切り出し用オプション. gtool4 変数のコンマ記法で記述 {(例: time=100.0,x=10:20,y=^1:^5)}

詳しくは gtool4 netCDF 規約の「5.4 コンマ記法」を参照してください.

数値のみが与えられる場合 (※ 引数の型は常に文字型です. ここでの「数値」は "10.0" のような文字列を指します), この値は時刻(正確には netCDF の無制限次元) の値として扱われます.

Option for clipping. Give gtool4 comma-graphy {(ex. time=100.0,x=10:20,y=^1:^5)}

For details, see "5.4 gtool4 comma-graphy" in gtool4 netCDF Convention

When pure numerical value is given (Type of argument is character. In this case, the "pure numerical value" means a character like "10.0") the value is treated as time (to be exact, unlimited dimension).

quiet : logical, intent(in), optional

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.

netCDF データを入力します. gtool4 netCDF 規約に基づくデータを想定していますが, 大抵の netCDF データの入力は可能であると期待されます.

Input netCDF data. NetCDF data with gtool4 conventions is assumed, but most netCDF data is expected to be input.

file にファイル名を, varname に変数名を与えます. array にはファイルから入力されたデータが返ります. 固定長の配列へデータを入力を行う場合は, HistoryGet を利用してください.

Give filename to file, variable name to varname. Input data is returned to array. If you want to use fixed length array, use HistoryGet .

array には必ず空状態の配列を与えてください. すなわち与える配列に対し, 初期値 =>null() を設定するか nullify を用いてください. 既に割り付けられている場合, もしくは不定状態の場合にはエラーを返します.

Give null array to array. More specifically, use ’=>null()’ as initial value or use ‘nullify’ to the array. If the array is allocated already, or undefined, error is occurred.

デフォルトでは, ファイル内の最新データ, すなわちデータを時刻最大で切り出したものを入力します. 別の時刻で切り出したデータを入力したい場合には, 下記の range オプションを利用してください.

By default, recent data, that is to say, data clipped with maximum time is input. In order to input data clipped with other time, use range option as follows.

range には gtool4 のコンマ記法 (gtool4 netCDF 規約の「5.4 コンマ記法」参照) を与えることで, 入力データの一部を切り出すことが可能です.

Give gtool4 comma-graphy (See "5.4 gtool4 comma-graphy" in gtool4 netCDF Convention) to range, then input data is clipped.

HistoryGetPointer は複数のサブルーチンの総称名です. array には 0 ～ 7 次元の整数型, 単精度実数型, 倍精度実数型の配列を与えることが可能です.

HistoryGetPointer is generic name of multiple subroutines. Integer, single precision real, and double precision 0 — 7 rank array can be given to array.

デフォルトでは, データの入力時にどのファイルのどの変数がどの次元で切り出されて入力されたのかを表示します. メッセージ出力が不要な場合は quiet に .true. を与えてください.

By default, when data is input, filename and variable name and clipping information is printed. The message is suppressed when .true. is given to quiet

[Source]

subroutine HistoryGetDouble0Pointer(file, varname, array, range, quiet, err)
  !
                      !
  ! netCDF データを入力します. gtool4 netCDF 規約に基づくデータを想定
  ! していますが, 大抵の netCDF データの入力は可能であると期待されます.
  !
  ! Input netCDF data. NetCDF data with gtool4 conventions is assumed,
  ! but most netCDF data is expected to be input.
  !
  ! *file* にファイル名を, *varname* に変数名を与えます.
  ! *array* にはファイルから入力されたデータが返ります.
  ! 固定長の配列へデータを入力を行う場合は,
  ! HistoryGet を利用してください.
  !
  ! Give filename to *file*, variable name to *varname*.
  ! Input data is returned to *array*.
  ! If you want to use fixed length array, use HistoryGet .
  !
  ! *array* には必ず空状態の配列を与えてください.
  ! すなわち与える配列に対し, 初期値 =>null() を設定するか 
  ! nullify を用いてください.
  ! 既に割り付けられている場合, もしくは不定状態の場合には
  ! エラーを返します.
  !
  ! Give null array to *array*. 
  ! More specifically, use '=>null()' as initial value or 
  ! use 'nullify' to the array. 
  ! If the array is allocated already, or undefined, 
  ! error is occurred. 
  !
  ! デフォルトでは, ファイル内の最新データ, すなわちデータを
  ! 時刻最大で切り出したものを入力します. 別の時刻で切り出したデータを
  ! 入力したい場合には, 下記の *range* オプションを利用してください.
  !
  ! By default, recent data, that is to say, data clipped with 
  ! maximum time is input. In order to input data clipped with
  ! other time, use *range* option as follows.
  !
  ! *range* には gtool4 のコンマ記法
  ! ({gtool4 netCDF 規約}[link:../xref.htm#label-6] の「5.4 コンマ記法」参照)
  ! を与えることで, 入力データの一部を切り出すことが可能です.
  !
  ! Give gtool4 comma-graphy
  ! (See "5.4 gtool4 comma-graphy" in {gtool4 netCDF Convention}[link:../xref.htm#label-6]) 
  ! to *range*, then input data is clipped.
  !
  ! *HistoryGetPointer* は複数のサブルーチンの総称名です. *array* には
  ! 0 ～ 7 次元の整数型, 単精度実数型, 
  ! 倍精度実数型の配列を与えることが可能です.
  !
  ! *HistoryGetPointer* is generic name of multiple subroutines.
  ! Integer, single precision real, and double precision
  ! 0 -- 7 rank array can be given to *array*.
  !
  ! デフォルトでは, データの入力時にどのファイルのどの変数が
  ! どの次元で切り出されて入力されたのかを表示します. 
  ! メッセージ出力が不要な場合は *quiet* に .true. を与えてください.
  !
  ! By default, when data is input, filename and variable name and
  ! clipping information is printed. 
  ! The message is suppressed when .true. is given to *quiet*
  !
                    
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present, only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
                                                  ! netCDF ファイル名. 
                              ! NetCDF filename.
                    
  character(*), intent(in):: varname
                                                  ! 変数名. 
                              ! Variable name
                    
  character(*), intent(in), optional:: range
                                                  ! 切り出し用オプション.
                              ! gtool4 変数のコンマ記法で記述
                              ! {(例: time=100.0,x=10:20,y=^1:^5)}
                              !
                              ! 詳しくは
                              ! {gtool4 netCDF 規約}[link:../xref.htm#label-6]
                              ! の「5.4 コンマ記法」を参照して
                              ! ください.
                              ! 
                              ! 数値のみが与えられる場合 (※ 引数の型
                              ! は常に文字型です.  ここでの「数値」は
                              ! "<b><tt>10.0</tt></b>" のような文字列
                              ! を指します), この値は時刻(正確には 
                              ! netCDF の無制限次元) の値として扱われ
                              ! ます.
                              ! 
                              ! Option for clipping.
                              ! Give gtool4 comma-graphy 
                              ! {(ex. time=100.0,x=10:20,y=^1:^5)}
                              ! 
                              ! For details, see "5.4 gtool4
                              ! comma-graphy" in 
                              ! {gtool4 netCDF Convention}[link:../xref.htm#label-6]
                              ! 
                              ! When pure numerical value is given
                              ! (Type of argument is character.  In
                              ! this case, the "pure numerical value"
                              ! means a character like
                              ! "<b><tt>10.0</tt></b>") the value is
                              ! treated as time (to be exact,
                              ! unlimited dimension).
                              ! 
                    
  logical, intent(in), optional:: quiet
  real(DP), pointer :: array
                                                  ! (out)
                              ! 
                              ! 取得するデータを格納する
                              ! ポインタ配列
                              !
                              ! 必ず空状態の配列を与えてください. 
                              ! すなわち与える配列に対し, 初期値 =>null() 
                              ! を設定するか nullify を用いて
                              ! ください.  既に割り付けられている場合, 
                              ! もしくは不定状態の場合にはエラーを返し
                              ! ます.
                              !
                              ! 型は整数型, 単精度実数型, 倍精度実数型
                              ! かのいづれかです. 入力するデータ
                              ! の型と *array* の型が異なる場合は, 自
                              ! 動的に *array* の型に変換されます.
                              ! 
                              ! Array in which input data is store
                              !
                              ! Give null array to *array*.  More
                              ! specifically, use '=>null()' as
                              ! initial value or use 'nullify' to the
                              ! array.  If the array is allocated
                              ! already, or undefined, error is
                              ! occurred.
                              !
                              ! Type is integer or single precision
                              ! real or double precision. When type of
                              ! input data is different from type of
                              ! *array*, data is converted to type of
                              ! *array* automatically.
                              ! 
                    
  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. 
                    
  real(DP), target :: array_tmp(1)
  type(GT_VARIABLE)                    :: var
  character(STRING)                    :: url, actual_url
  integer:: domain   ! 変数の入出力領域の大きさ
                           ! (= 変数が依存する各次元サイズの積)
  character(*), parameter :: subname = "HistoryGetDouble0Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range, err)
  allocate(array)
  ! いよいよデータ取得
  call Open(var, url, err)
  call Inquire(var=var, size=domain)
  call Get(var, array_tmp, domain, err)
  call Close(var, err)
  array = array_tmp(1)
  call actual_iorange_dump(url, actual_url, err)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

HistoryGetDouble1( file, varname, array, [range], [quiet], [err] )

*Subroutine* :
`file` :	`character(*), intent(in)`
`varname` :	`character(*), intent(in)`
`array(:)` :	`real(DP), intent(out)`
`range` :	`character(*), intent(in), optional`
`quiet` :	`logical, intent(in), optional`
`err` :	`logical, intent(out), optional`

Double 型固定配列用 1 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble1(file, varname, array, range, quiet, err)
  !
  ! Double 型固定配列用 1 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:)
  logical, intent(out), optional:: err
  character(*), parameter :: subname = "HistoryGetDouble1"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1 = trim(file), c2 = trim(varname), c3 = trim(present_select('', 'no-range', range)))

  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, range = range, quiet = quiet, err = err)
  else
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, quiet = quiet, err = err)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble1

HistoryGetDouble1Pointer( file, varname, array, [range], [quiet], [err] )

Subroutine :

file : character(*), intent(in)

varname : character(*), intent(in)

array(:) :

real(DP), pointer

:

(out)

range : character(*), intent(in), optional

quiet : logical, intent(in), optional

err : logical, intent(out), optional

Double 型ポインタ配列用 1 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble1Pointer(file, varname, array, range, quiet, err)
  !
  ! Double 型ポインタ配列用 1 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble1Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range, err)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url, err)
  call Get(var, array, err)
  call Close(var, err)
  call actual_iorange_dump(url, actual_url, err)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

HistoryGetDouble2( file, varname, array, [range], [quiet], [err] )

*Subroutine* :
`file` :	`character(*), intent(in)`
`varname` :	`character(*), intent(in)`
`array(:,:)` :	`real(DP), intent(out)`
`range` :	`character(*), intent(in), optional`
`quiet` :	`logical, intent(in), optional`
`err` :	`logical, intent(out), optional`

Double 型固定配列用 2 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble2(file, varname, array, range, quiet, err)
  !
  ! Double 型固定配列用 2 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:)
  logical, intent(out), optional:: err
  character(*), parameter :: subname = "HistoryGetDouble2"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1 = trim(file), c2 = trim(varname), c3 = trim(present_select('', 'no-range', range)))

  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, range = range, quiet = quiet, err = err)
  else
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, quiet = quiet, err = err)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble2

HistoryGetDouble2Pointer( file, varname, array, [range], [quiet], [err] )

Subroutine :

file : character(*), intent(in)

varname : character(*), intent(in)

array(:,:) :

real(DP), pointer

:

(out)

range : character(*), intent(in), optional

quiet : logical, intent(in), optional

err : logical, intent(out), optional

Double 型ポインタ配列用 2 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble2Pointer(file, varname, array, range, quiet, err)
  !
  ! Double 型ポインタ配列用 2 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble2Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range, err)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url, err)
  call Get(var, array, err)
  call Close(var, err)
  call actual_iorange_dump(url, actual_url, err)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

HistoryGetDouble3( file, varname, array, [range], [quiet], [err] )

*Subroutine* :
`file` :	`character(*), intent(in)`
`varname` :	`character(*), intent(in)`
`array(:,:,:)` :	`real(DP), intent(out)`
`range` :	`character(*), intent(in), optional`
`quiet` :	`logical, intent(in), optional`
`err` :	`logical, intent(out), optional`

Double 型固定配列用 3 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble3(file, varname, array, range, quiet, err)
  !
  ! Double 型固定配列用 3 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:)
  logical, intent(out), optional:: err
  character(*), parameter :: subname = "HistoryGetDouble3"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1 = trim(file), c2 = trim(varname), c3 = trim(present_select('', 'no-range', range)))

  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, range = range, quiet = quiet, err = err)
  else
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, quiet = quiet, err = err)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble3

HistoryGetDouble3Pointer( file, varname, array, [range], [quiet], [err] )

Subroutine :

file : character(*), intent(in)

varname : character(*), intent(in)

array(:,:,:) :

real(DP), pointer

:

(out)

range : character(*), intent(in), optional

quiet : logical, intent(in), optional

err : logical, intent(out), optional

Double 型ポインタ配列用 3 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble3Pointer(file, varname, array, range, quiet, err)
  !
  ! Double 型ポインタ配列用 3 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble3Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range, err)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url, err)
  call Get(var, array, err)
  call Close(var, err)
  call actual_iorange_dump(url, actual_url, err)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

HistoryGetDouble4( file, varname, array, [range], [quiet], [err] )

*Subroutine* :
`file` :	`character(*), intent(in)`
`varname` :	`character(*), intent(in)`
`array(:,:,:,:)` :	`real(DP), intent(out)`
`range` :	`character(*), intent(in), optional`
`quiet` :	`logical, intent(in), optional`
`err` :	`logical, intent(out), optional`

Double 型固定配列用 4 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble4(file, varname, array, range, quiet, err)
  !
  ! Double 型固定配列用 4 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:)
  logical, intent(out), optional:: err
  character(*), parameter :: subname = "HistoryGetDouble4"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1 = trim(file), c2 = trim(varname), c3 = trim(present_select('', 'no-range', range)))

  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, range = range, quiet = quiet, err = err)
  else
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, quiet = quiet, err = err)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble4

HistoryGetDouble4Pointer( file, varname, array, [range], [quiet], [err] )

Subroutine :

file : character(*), intent(in)

varname : character(*), intent(in)

array(:,:,:,:) :

real(DP), pointer

:

(out)

range : character(*), intent(in), optional

quiet : logical, intent(in), optional

err : logical, intent(out), optional

Double 型ポインタ配列用 4 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble4Pointer(file, varname, array, range, quiet, err)
  !
  ! Double 型ポインタ配列用 4 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble4Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range, err)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url, err)
  call Get(var, array, err)
  call Close(var, err)
  call actual_iorange_dump(url, actual_url, err)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

HistoryGetDouble5( file, varname, array, [range], [quiet], [err] )

*Subroutine* :
`file` :	`character(*), intent(in)`
`varname` :	`character(*), intent(in)`
`array(:,:,:,:,:)` :	`real(DP), intent(out)`
`range` :	`character(*), intent(in), optional`
`quiet` :	`logical, intent(in), optional`
`err` :	`logical, intent(out), optional`

Double 型固定配列用 5 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble5(file, varname, array, range, quiet, err)
  !
  ! Double 型固定配列用 5 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:)
  logical, intent(out), optional:: err
  character(*), parameter :: subname = "HistoryGetDouble5"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1 = trim(file), c2 = trim(varname), c3 = trim(present_select('', 'no-range', range)))

  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, range = range, quiet = quiet, err = err)
  else
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, quiet = quiet, err = err)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble5

HistoryGetDouble5Pointer( file, varname, array, [range], [quiet], [err] )

Subroutine :

file : character(*), intent(in)

varname : character(*), intent(in)

array(:,:,:,:,:) :

real(DP), pointer

:

(out)

range : character(*), intent(in), optional

quiet : logical, intent(in), optional

err : logical, intent(out), optional

Double 型ポインタ配列用 5 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble5Pointer(file, varname, array, range, quiet, err)
  !
  ! Double 型ポインタ配列用 5 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble5Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range, err)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url, err)
  call Get(var, array, err)
  call Close(var, err)
  call actual_iorange_dump(url, actual_url, err)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

HistoryGetDouble6( file, varname, array, [range], [quiet], [err] )

*Subroutine* :
`file` :	`character(*), intent(in)`
`varname` :	`character(*), intent(in)`
`array(:,:,:,:,:,:)` :	`real(DP), intent(out)`
`range` :	`character(*), intent(in), optional`
`quiet` :	`logical, intent(in), optional`
`err` :	`logical, intent(out), optional`

Double 型固定配列用 6 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble6(file, varname, array, range, quiet, err)
  !
  ! Double 型固定配列用 6 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:)
  logical, intent(out), optional:: err
  character(*), parameter :: subname = "HistoryGetDouble6"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1 = trim(file), c2 = trim(varname), c3 = trim(present_select('', 'no-range', range)))

  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, range = range, quiet = quiet, err = err)
  else
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, quiet = quiet, err = err)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble6

HistoryGetDouble6Pointer( file, varname, array, [range], [quiet], [err] )

Subroutine :

file : character(*), intent(in)

varname : character(*), intent(in)

array(:,:,:,:,:,:) :

real(DP), pointer

:

(out)

range : character(*), intent(in), optional

quiet : logical, intent(in), optional

err : logical, intent(out), optional

Double 型ポインタ配列用 6 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble6Pointer(file, varname, array, range, quiet, err)
  !
  ! Double 型ポインタ配列用 6 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:,:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble6Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range, err)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url, err)
  call Get(var, array, err)
  call Close(var, err)
  call actual_iorange_dump(url, actual_url, err)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

HistoryGetDouble7( file, varname, array, [range], [quiet], [err] )

*Subroutine* :
`file` :	`character(*), intent(in)`
`varname` :	`character(*), intent(in)`
`array(:,:,:,:,:,:,:)` :	`real(DP), intent(out)`
`range` :	`character(*), intent(in), optional`
`quiet` :	`logical, intent(in), optional`
`err` :	`logical, intent(out), optional`

Double 型固定配列用 7 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble7(file, varname, array, range, quiet, err)
  !
  ! Double 型固定配列用 7 次元配列用データ入力サブルーチン
  !
  !
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_not_empty
  use dc_types, only: DP, STRING
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file
  character(*), intent(in):: varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  real(DP), intent(out) :: array(:,:,:,:,:,:,:)
  logical, intent(out), optional:: err
  character(*), parameter :: subname = "HistoryGetDouble7"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1 = trim(file), c2 = trim(varname), c3 = trim(present_select('', 'no-range', range)))

  if (present_and_not_empty(range)) then
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, range = range, quiet = quiet, err = err)
  else
    call HistoryGetDoubleEx(file = file, varname = varname, array = array, quiet = quiet, err = err)
  endif
  call EndSub(subname)
end subroutine HistoryGetDouble7

HistoryGetDouble7Pointer( file, varname, array, [range], [quiet], [err] )

Subroutine :

file : character(*), intent(in)

varname : character(*), intent(in)

array(:,:,:,:,:,:,:) :

real(DP), pointer

:

(out)

range : character(*), intent(in), optional

quiet : logical, intent(in), optional

err : logical, intent(out), optional

Double 型ポインタ配列用 7 次元配列用データ入力サブルーチン

[Source]

subroutine HistoryGetDouble7Pointer(file, varname, array, range, quiet, err)
  !
  ! Double 型ポインタ配列用 7 次元配列用データ入力サブルーチン
  !
  use gtdata_types, only: GT_VARIABLE
  use gtdata_generic, only: Open, Inquire, Close, Get
  use dc_string, only: toChar
  use dc_present,only: present_select, present_and_true
  use dc_types, only: DP, STRING
  use dc_message, only: MessageNotify
  use dc_trace, only: Beginsub, Endsub, DbgMessage
  character(*), intent(in):: file, varname
  character(*), intent(in), optional:: range
  logical, intent(in), optional:: quiet
  logical, intent(out), optional:: err
  real(DP), pointer :: array(:,:,:,:,:,:,:) ! (out)
  type(GT_VARIABLE)                  :: var
  character(STRING)                  :: url, actual_url
  character(*), parameter :: subname = "HistoryGetDouble7Pointer"

continue
  call BeginSub(subname, 'file=%c varname=%c range=%c', c1=trim(file), c2=trim(varname), c3=trim(present_select('', 'no-range', range)))
  ! 必要な情報を gtool 変数化
  call lookup_growable_url(file, varname, url, range, err)
  call DbgMessage('@ url =%c', c1=trim(url))
  ! いよいよデータ取得
  call Open(var, url, err)
  call Get(var, array, err)
  call Close(var, err)
  call actual_iorange_dump(url, actual_url, err)
  if ( .not. present_and_true(quiet) ) then
    call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
  end if
  call EndSub(subname)
end subroutine

HistoryGetDoubleEx( file, varname, array, [range], [quiet], [err] )

Subroutine :

file :

character(*), intent(in)

:	ファイル名. Filename

varname :

character(*), intent(in)

:	変数名. Variable name

array(*) :

real(DP), intent(out)

:

データ. Data

range :

character(*), intent(in), optional

:

切り出し用オプション. gtool4 変数のコンマ記法で記述 {(例: time=100.0,x=10:20,y=^1:^5)}

詳しくは gtool4 netCDF 規約の「5.4 コンマ記法」を参照してください.

数値のみが与えられる場合 (※ 引数の型は常に文字型です. ここでの「数値」は "10.0" のような文字列を指します), この値は時刻 (正確には netCDF の無制限次元) の値として扱われます.

Option for clipping. Give gtool4 comma-graphy {(ex. time=100.0,x=10:20,y=^1:^5)}

For details, see "5.4 gtool4 comma-graphy" in gtool4 netCDF Convention

When pure numerical value is given (Type of argument is character. In this case, the "pure numerical value" means a character like "10.0") the value is treated as time (to be exact, unlimited dimension).

quiet : logical, intent(in), optional

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 の内部で呼び出されることを想定されています. gt4_history モジュールの外部からは呼び出さないで下さい.

This subroutine is expected to be refereed in gt4_history internally. Do not refer from the outside of gt4_history.