!--
! *** Caution!! ***
!
! This file is generated from "historyget.rb2f90" by Ruby 1.8.5.
! Please do not edit this file directly.
!
! [JAPANESE]
!
! ※※※ 注意!!! ※※※
!
! このファイルは "historyget.rb2f90" から Ruby 1.8.5
! によって自動生成されたファイルです.
! このファイルを直接編集しませんようお願い致します.
!
!
!++
!
!= gtool4 netCDF データの入力
!= Input gtool4 netCDF data
!
! Authors:: Yasuhiro MORIKAWA
! Version:: $Id: historyget.f90,v 1.13 2008-06-05 05:13:01 morikawa Exp $
! Tag Name:: $Name: gt4f90io-20080728 $
! Copyright:: Copyright (C) GFD Dennou Club, 2006. All rights reserved.
! License:: See COPYRIGHT[link:../../COPYRIGHT]
!
! 以下のサブルーチン, 関数は gt4_history から gt4_history#HistoryGet
! もしくは gt4_history#HistoryGetPointer として提供されます.
!
! Following subroutines and functions are provided as
! gt4_history#HistoryGet or gt4_history#HistoryGetPointer from
! gt4_history.
!
subroutine HistoryGetDouble0(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! netCDF データを入力します. gtool4 netCDF 規約に基づくデータを想定
! していますが, 大抵の netCDF データの入力は可能であると期待されます.
!
! デフォルトでは, ファイル内の最新データ, すなわちデータを
! 時刻最大で切り出したものを入力します. 別の時刻または
! 別の次元で切り出したデータを
! 入力したい場合には, 下記の *time* オプションもしくは
! *range* オプションを利用してください.
!
! *file* にファイル名を, *varname* に変数名を与えます.
! *array* にはファイルから入力されたデータが返ります.
! ポインタの配列へデータを入力を行う場合は,
! HistoryGetPointer を利用してください.
!
! ある時刻のデータを明示したい場合には, その時刻を
! *time* に与えます.
! 整数型, 単精度実数型, 倍精度実数型の数値を与えることが可能です.
!
! *range* には gtool4 のコンマ記法
! ({gtool4 netCDF 規約}[link:../xref.htm#label-6] の「5.4 コンマ記法」参照)
! を与えることで, 任意の次元で入力データを切り出すことが可能です.
! *range* に空文字を与えた場合は切り出しを行いません.
!
! *HistoryGet* は複数のサブルーチンの総称名です. *array* には
! 0 〜 7 次元の整数型, 単精度実数型,
! 倍精度実数型の配列を与えることが可能です.
!
! デフォルトでは, データの入力時にどのファイルのどの変数が
! どの次元で切り出されて入力されたのかを表示します.
! メッセージ出力が不要な場合は *quiet* に .true. を与えてください.
!
! Input netCDF data. NetCDF data with gtool4 conventions is assumed,
! but most netCDF data is expected to be input.
!
! Give filename to *file*, variable name to *varname*.
! Input data is returned to *array*.
! If you want to use pointer array, use "HistoryGetPointer".
!
! By default, recent data, that is to say, data clipped with
! maximum time is input. In order to input data clipped with
! other time or other dimension,
! use *time* option or *range* option as follows.
!
! In order to get data at certain time, specify the time to *time*.
! Type is integer or single precision real or double precision.
!
! Give gtool4 comma-graphy
! (See "5.4 gtool4 comma-graphy" in {gtool4 netCDF Convention}[link:../xref.htm#label-6])
! to *range*, then input data can be clipped by an arbitrary dimension.
! If null character is given to *range*, data is not clipped.
!
! *HistoryGet* is generic name of multiple subroutines.
! Integer, single precision real, and double precision real
! 0 -- 7 rank array can be given to *array*.
!
! 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, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
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 コンマ記法」を参照して
! ください.
!
! 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]
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)
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetDouble0"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 0 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 0/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
call Get( var = var, & ! (inout)
& nvalue = domain, & ! (in)
& value = array_tmp) ! (out)
array = array_tmp(1)
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetDouble0
subroutine HistoryGetDouble1(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
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
real(DP), allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(1), data_shape(1)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetDouble1"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 1 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 1/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetDouble1
subroutine HistoryGetDouble2(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
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
real(DP), allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(2), data_shape(2)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetDouble2"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 2 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 2/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetDouble2
subroutine HistoryGetDouble3(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
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
real(DP), allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(3), data_shape(3)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetDouble3"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 3 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 3/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetDouble3
subroutine HistoryGetDouble4(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
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
real(DP), allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(4), data_shape(4)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetDouble4"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 4 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 4/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetDouble4
subroutine HistoryGetDouble5(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
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
real(DP), allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(5), data_shape(5)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetDouble5"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 5 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 5/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
call Inquire( var = var , dimord = 5, & ! (in)
& allcount = allcount ) ! (out)
data_shape(5) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetDouble5
subroutine HistoryGetDouble6(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
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
real(DP), allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(6), data_shape(6)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetDouble6"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 6 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 6/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
call Inquire( var = var , dimord = 5, & ! (in)
& allcount = allcount ) ! (out)
data_shape(5) = allcount
call Inquire( var = var , dimord = 6, & ! (in)
& allcount = allcount ) ! (out)
data_shape(6) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetDouble6
subroutine HistoryGetDouble7(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
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
real(DP), allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(7), data_shape(7)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetDouble7"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 7 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 7/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
call Inquire( var = var , dimord = 5, & ! (in)
& allcount = allcount ) ! (out)
data_shape(5) = allcount
call Inquire( var = var , dimord = 6, & ! (in)
& allcount = allcount ) ! (out)
data_shape(6) = allcount
call Inquire( var = var , dimord = 7, & ! (in)
& allcount = allcount ) ! (out)
data_shape(7) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetDouble7
subroutine HistoryGetReal0(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, intent(out) :: array
logical, intent(out), optional:: err
real:: array_tmp(1)
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetReal0"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 0 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 0/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
call Get( var = var, & ! (inout)
& nvalue = domain, & ! (in)
& value = array_tmp) ! (out)
array = array_tmp(1)
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetReal0
subroutine HistoryGetReal1(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, intent(out) :: array(:)
logical, intent(out), optional:: err
real, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(1), data_shape(1)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetReal1"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 1 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 1/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetReal1
subroutine HistoryGetReal2(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, intent(out) :: array(:,:)
logical, intent(out), optional:: err
real, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(2), data_shape(2)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetReal2"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 2 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 2/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetReal2
subroutine HistoryGetReal3(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, intent(out) :: array(:,:,:)
logical, intent(out), optional:: err
real, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(3), data_shape(3)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetReal3"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 3 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 3/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetReal3
subroutine HistoryGetReal4(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, intent(out) :: array(:,:,:,:)
logical, intent(out), optional:: err
real, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(4), data_shape(4)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetReal4"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 4 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 4/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetReal4
subroutine HistoryGetReal5(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, intent(out) :: array(:,:,:,:,:)
logical, intent(out), optional:: err
real, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(5), data_shape(5)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetReal5"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 5 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 5/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
call Inquire( var = var , dimord = 5, & ! (in)
& allcount = allcount ) ! (out)
data_shape(5) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetReal5
subroutine HistoryGetReal6(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, intent(out) :: array(:,:,:,:,:,:)
logical, intent(out), optional:: err
real, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(6), data_shape(6)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetReal6"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 6 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 6/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
call Inquire( var = var , dimord = 5, & ! (in)
& allcount = allcount ) ! (out)
data_shape(5) = allcount
call Inquire( var = var , dimord = 6, & ! (in)
& allcount = allcount ) ! (out)
data_shape(6) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetReal6
subroutine HistoryGetReal7(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, intent(out) :: array(:,:,:,:,:,:,:)
logical, intent(out), optional:: err
real, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(7), data_shape(7)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetReal7"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 7 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 7/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
call Inquire( var = var , dimord = 5, & ! (in)
& allcount = allcount ) ! (out)
data_shape(5) = allcount
call Inquire( var = var , dimord = 6, & ! (in)
& allcount = allcount ) ! (out)
data_shape(6) = allcount
call Inquire( var = var , dimord = 7, & ! (in)
& allcount = allcount ) ! (out)
data_shape(7) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetReal7
subroutine HistoryGetInt0(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, intent(out) :: array
logical, intent(out), optional:: err
integer:: array_tmp(1)
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetInt0"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 0 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 0/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
call Get( var = var, & ! (inout)
& nvalue = domain, & ! (in)
& value = array_tmp) ! (out)
array = array_tmp(1)
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetInt0
subroutine HistoryGetInt1(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, intent(out) :: array(:)
logical, intent(out), optional:: err
integer, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(1), data_shape(1)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetInt1"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 1 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 1/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetInt1
subroutine HistoryGetInt2(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, intent(out) :: array(:,:)
logical, intent(out), optional:: err
integer, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(2), data_shape(2)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetInt2"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 2 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 2/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetInt2
subroutine HistoryGetInt3(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, intent(out) :: array(:,:,:)
logical, intent(out), optional:: err
integer, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(3), data_shape(3)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetInt3"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 3 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 3/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetInt3
subroutine HistoryGetInt4(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, intent(out) :: array(:,:,:,:)
logical, intent(out), optional:: err
integer, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(4), data_shape(4)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetInt4"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 4 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 4/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetInt4
subroutine HistoryGetInt5(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, intent(out) :: array(:,:,:,:,:)
logical, intent(out), optional:: err
integer, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(5), data_shape(5)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetInt5"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 5 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 5/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
call Inquire( var = var , dimord = 5, & ! (in)
& allcount = allcount ) ! (out)
data_shape(5) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetInt5
subroutine HistoryGetInt6(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, intent(out) :: array(:,:,:,:,:,:)
logical, intent(out), optional:: err
integer, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(6), data_shape(6)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetInt6"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 6 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 6/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
call Inquire( var = var , dimord = 5, & ! (in)
& allcount = allcount ) ! (out)
data_shape(5) = allcount
call Inquire( var = var , dimord = 6, & ! (in)
& allcount = allcount ) ! (out)
data_shape(6) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetInt6
subroutine HistoryGetInt7(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
!
! 使用方法に関しては HistoryGet を参照してください.
!
! See "HistoryGet", for basic usage.
!
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Inquire, Close, Get
use dc_string, only: toChar, Split, JoinChar, StoA
use dc_url, only: GT_ATMARK, GT_COMMA, GT_EQUAL, UrlSplit, UrlMerge
use dc_present, only: present_select, present_and_not_empty, present_and_true
use regex, only: match
use dc_types, only: DP, STRING
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_error, only: StoreError, DC_NOERR, GT_ENOTURL, GT_ERANKMISMATCH, &
& GT_EARGSIZEMISMATCH
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, intent(out) :: array(:,:,:,:,:,:,:)
logical, intent(out), optional:: err
integer, allocatable:: array_tmp(:)
integer:: array_allsize
integer:: array_shape(7), data_shape(7)
integer:: allcount
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
integer:: rank
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
integer:: stat
character(STRING):: cause_c
character(*), parameter :: subname = "HistoryGetInt7"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file
character(*), intent(in) :: varname
character(*), intent(out) :: url
character(*), intent(in), optional:: range
logical, intent(out), optional :: err
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
continue
call BeginSub(subname, 'file=%c varname=%c range=%c', &
& c1 = trim(file), c2 = trim(varname), &
& c3 = trim(present_select('', 'no-range', range)))
cause_c = ''
stat = DC_NOERR
!-------------------------------------
! 配列形状の取得
! Get array shape
array_shape = shape( array )
array_allsize = size( array )
!-------------------------------------
! 最新時刻の URL 取得
! Get URL of latest time
call lookup_growable_url(file, varname, url, range, err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! ファイルオープン
! File open
call Open( var, url, err = err )
if ( present_and_true(err) ) then
stat = GT_ENOTURL
cause_c = url
goto 999
end if
!-------------------------------------
! 配列形状のチェック
! Check array shape
call Inquire( var = var, & ! (in)
& rank = rank ) ! (out)
if ( .not. 7 == rank ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Rank of data (%c) is "%d", rank of argument is "%d"', &
& i = (/rank, 7/), c1 = trim(url) )
end if
stat = GT_ERANKMISMATCH
cause_c = 'array'
goto 999
end if
call Inquire( var = var , dimord = 1, & ! (in)
& allcount = allcount ) ! (out)
data_shape(1) = allcount
call Inquire( var = var , dimord = 2, & ! (in)
& allcount = allcount ) ! (out)
data_shape(2) = allcount
call Inquire( var = var , dimord = 3, & ! (in)
& allcount = allcount ) ! (out)
data_shape(3) = allcount
call Inquire( var = var , dimord = 4, & ! (in)
& allcount = allcount ) ! (out)
data_shape(4) = allcount
call Inquire( var = var , dimord = 5, & ! (in)
& allcount = allcount ) ! (out)
data_shape(5) = allcount
call Inquire( var = var , dimord = 6, & ! (in)
& allcount = allcount ) ! (out)
data_shape(6) = allcount
call Inquire( var = var , dimord = 7, & ! (in)
& allcount = allcount ) ! (out)
data_shape(7) = allcount
if ( .not. all( array_shape == data_shape ) ) then
if ( .not. present_and_true(quiet) ) then
call MessageNotify('W', subname, &
& 'Shape of data (%c) is (%c), shape of argument is (%c)', &
& c1 = trim( url ), &
& c2 = trim( toChar( data_shape ) ), &
& c3 = trim( toChar( array_shape ) ) )
end if
stat = GT_EARGSIZEMISMATCH
cause_c = 'array'
goto 999
end if
!-------------------------------------
! データ取得
! Get data
call Inquire( var = var, & ! (in)
& size = domain ) ! (out)
if ( allocated( array_tmp ) ) deallocate( array_tmp )
allocate( array_tmp(array_allsize) )
call Get( var, array_tmp, domain )
array = reshape( array_tmp, array_shape )
deallocate( array_tmp )
call Close( var )
!-------------------------------------
! データファイル名と切り出し範囲の印字
! Print data filename and clipping range
call actual_iorange_dump(url, actual_url, err = err)
if ( .not. present_and_true(quiet) ) then
call MessageNotify('M', subname, 'Input %c', c1=trim(actual_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname)
end subroutine HistoryGetInt7
subroutine HistoryGetDouble0Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! netCDF データを入力します. gtool4 netCDF 規約に基づくデータを想定
! していますが, 大抵の netCDF データの入力は可能であると期待されます.
!
! 基本的な使い方に関しては HistoryGet を参照してください.
! HistoryGet との違いは, *array* にポインタ配列を与えることです.
! *array* には必ず空状態の配列を与えてください.
! すなわち与える配列に対し, 初期値 =>null() を設定するか
! nullify を用いてください.
! 既に割り付けられている場合, もしくは不定状態の場合には
! エラーを返します.
!
! Input netCDF data. NetCDF data with gtool4 conventions is assumed,
! but most netCDF data is expected to be input.
!
! See "HistoryGet", for basic usage.
! Difference from "HistoryGet" is that *array* is pointer array.
! 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.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
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 real. When type of
! input data is different from type of
! *array*, data is converted to type of
! *array* automatically.
!
logical, intent(out), optional:: err
real(DP), target :: array_tmp(1)
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetDouble0Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 DbgMessage('@ url =%c', c1=trim(url))
! いよいよデータ取得
call Open(var, url, err)
call Inquire(var=var, size=domain)
call Get(var, array_tmp, domain, err)
array = array_tmp(1)
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 HistoryGetDouble0Pointer
subroutine HistoryGetDouble1Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real(DP), pointer :: array(:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetDouble1Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetDouble1Pointer
subroutine HistoryGetDouble2Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real(DP), pointer :: array(:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetDouble2Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetDouble2Pointer
subroutine HistoryGetDouble3Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real(DP), pointer :: array(:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetDouble3Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetDouble3Pointer
subroutine HistoryGetDouble4Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real(DP), pointer :: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetDouble4Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetDouble4Pointer
subroutine HistoryGetDouble5Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real(DP), pointer :: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetDouble5Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetDouble5Pointer
subroutine HistoryGetDouble6Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real(DP), pointer :: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetDouble6Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetDouble6Pointer
subroutine HistoryGetDouble7Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real(DP), pointer :: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetDouble7Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetDouble7Pointer
subroutine HistoryGetReal0Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, pointer :: array ! (out)
logical, intent(out), optional:: err
real, target :: array_tmp(1)
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetReal0Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 DbgMessage('@ url =%c', c1=trim(url))
! いよいよデータ取得
call Open(var, url, err)
call Inquire(var=var, size=domain)
call Get(var, array_tmp, domain, err)
array = array_tmp(1)
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 HistoryGetReal0Pointer
subroutine HistoryGetReal1Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, pointer :: array(:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetReal1Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetReal1Pointer
subroutine HistoryGetReal2Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, pointer :: array(:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetReal2Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetReal2Pointer
subroutine HistoryGetReal3Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, pointer :: array(:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetReal3Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetReal3Pointer
subroutine HistoryGetReal4Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, pointer :: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetReal4Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetReal4Pointer
subroutine HistoryGetReal5Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, pointer :: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetReal5Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetReal5Pointer
subroutine HistoryGetReal6Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, pointer :: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetReal6Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetReal6Pointer
subroutine HistoryGetReal7Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
real, pointer :: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetReal7Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetReal7Pointer
subroutine HistoryGetInt0Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, pointer :: array ! (out)
logical, intent(out), optional:: err
integer, target :: array_tmp(1)
integer:: domain ! 変数の入出力領域の大きさ
! (= 変数が依存する各次元サイズの積)
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetInt0Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 DbgMessage('@ url =%c', c1=trim(url))
! いよいよデータ取得
call Open(var, url, err)
call Inquire(var=var, size=domain)
call Get(var, array_tmp, domain, err)
array = array_tmp(1)
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 HistoryGetInt0Pointer
subroutine HistoryGetInt1Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, pointer :: array(:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetInt1Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetInt1Pointer
subroutine HistoryGetInt2Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, pointer :: array(:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetInt2Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetInt2Pointer
subroutine HistoryGetInt3Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, pointer :: array(:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetInt3Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetInt3Pointer
subroutine HistoryGetInt4Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, pointer :: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetInt4Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetInt4Pointer
subroutine HistoryGetInt5Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, pointer :: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetInt5Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetInt5Pointer
subroutine HistoryGetInt6Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, pointer :: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetInt6Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetInt6Pointer
subroutine HistoryGetInt7Pointer(file, varname, array, range, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! See "HistoryGetPointer", for basic usage.
!
!
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
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
integer, pointer :: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
type(GT_VARIABLE) :: var
character(STRING) :: url, actual_url
character(*), parameter :: subname = "HistoryGetInt7Pointer"
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
interface
subroutine actual_iorange_dump(url, actual_url, err)
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine actual_iorange_dump
end interface
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 HistoryGetInt7Pointer
subroutine HistoryGetDouble0TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble0TimeD"
interface
subroutine HistoryGetDouble0(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array
end subroutine HistoryGetDouble0
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble0( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble0TimeD
subroutine HistoryGetDouble1TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble1TimeD"
interface
subroutine HistoryGetDouble1(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:)
end subroutine HistoryGetDouble1
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble1( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble1TimeD
subroutine HistoryGetDouble2TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble2TimeD"
interface
subroutine HistoryGetDouble2(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:)
end subroutine HistoryGetDouble2
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble2( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble2TimeD
subroutine HistoryGetDouble3TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble3TimeD"
interface
subroutine HistoryGetDouble3(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:)
end subroutine HistoryGetDouble3
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble3( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble3TimeD
subroutine HistoryGetDouble4TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble4TimeD"
interface
subroutine HistoryGetDouble4(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:)
end subroutine HistoryGetDouble4
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble4( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble4TimeD
subroutine HistoryGetDouble5TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble5TimeD"
interface
subroutine HistoryGetDouble5(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:,:)
end subroutine HistoryGetDouble5
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble5( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble5TimeD
subroutine HistoryGetDouble6TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble6TimeD"
interface
subroutine HistoryGetDouble6(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:,:,:)
end subroutine HistoryGetDouble6
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble6( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble6TimeD
subroutine HistoryGetDouble7TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble7TimeD"
interface
subroutine HistoryGetDouble7(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:,:,:,:)
end subroutine HistoryGetDouble7
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble7( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble7TimeD
subroutine HistoryGetReal0TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal0TimeD"
interface
subroutine HistoryGetReal0(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array
end subroutine HistoryGetReal0
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal0( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal0TimeD
subroutine HistoryGetReal1TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal1TimeD"
interface
subroutine HistoryGetReal1(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:)
end subroutine HistoryGetReal1
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal1( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal1TimeD
subroutine HistoryGetReal2TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal2TimeD"
interface
subroutine HistoryGetReal2(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:)
end subroutine HistoryGetReal2
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal2( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal2TimeD
subroutine HistoryGetReal3TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal3TimeD"
interface
subroutine HistoryGetReal3(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:)
end subroutine HistoryGetReal3
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal3( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal3TimeD
subroutine HistoryGetReal4TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal4TimeD"
interface
subroutine HistoryGetReal4(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:)
end subroutine HistoryGetReal4
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal4( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal4TimeD
subroutine HistoryGetReal5TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal5TimeD"
interface
subroutine HistoryGetReal5(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:,:)
end subroutine HistoryGetReal5
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal5( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal5TimeD
subroutine HistoryGetReal6TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal6TimeD"
interface
subroutine HistoryGetReal6(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:,:,:)
end subroutine HistoryGetReal6
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal6( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal6TimeD
subroutine HistoryGetReal7TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal7TimeD"
interface
subroutine HistoryGetReal7(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:,:,:,:)
end subroutine HistoryGetReal7
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal7( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal7TimeD
subroutine HistoryGetInt0TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt0TimeD"
interface
subroutine HistoryGetInt0(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array
end subroutine HistoryGetInt0
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt0( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt0TimeD
subroutine HistoryGetInt1TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt1TimeD"
interface
subroutine HistoryGetInt1(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:)
end subroutine HistoryGetInt1
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt1( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt1TimeD
subroutine HistoryGetInt2TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt2TimeD"
interface
subroutine HistoryGetInt2(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:)
end subroutine HistoryGetInt2
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt2( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt2TimeD
subroutine HistoryGetInt3TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt3TimeD"
interface
subroutine HistoryGetInt3(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:)
end subroutine HistoryGetInt3
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt3( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt3TimeD
subroutine HistoryGetInt4TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt4TimeD"
interface
subroutine HistoryGetInt4(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:)
end subroutine HistoryGetInt4
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt4( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt4TimeD
subroutine HistoryGetInt5TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt5TimeD"
interface
subroutine HistoryGetInt5(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:,:)
end subroutine HistoryGetInt5
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt5( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt5TimeD
subroutine HistoryGetInt6TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt6TimeD"
interface
subroutine HistoryGetInt6(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:,:,:)
end subroutine HistoryGetInt6
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt6( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt6TimeD
subroutine HistoryGetInt7TimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt7TimeD"
interface
subroutine HistoryGetInt7(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:,:,:,:)
end subroutine HistoryGetInt7
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt7( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt7TimeD
subroutine HistoryGetDouble0TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble0TimeR"
interface
subroutine HistoryGetDouble0(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array
end subroutine HistoryGetDouble0
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble0( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble0TimeR
subroutine HistoryGetDouble1TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble1TimeR"
interface
subroutine HistoryGetDouble1(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:)
end subroutine HistoryGetDouble1
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble1( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble1TimeR
subroutine HistoryGetDouble2TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble2TimeR"
interface
subroutine HistoryGetDouble2(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:)
end subroutine HistoryGetDouble2
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble2( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble2TimeR
subroutine HistoryGetDouble3TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble3TimeR"
interface
subroutine HistoryGetDouble3(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:)
end subroutine HistoryGetDouble3
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble3( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble3TimeR
subroutine HistoryGetDouble4TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble4TimeR"
interface
subroutine HistoryGetDouble4(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:)
end subroutine HistoryGetDouble4
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble4( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble4TimeR
subroutine HistoryGetDouble5TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble5TimeR"
interface
subroutine HistoryGetDouble5(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:,:)
end subroutine HistoryGetDouble5
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble5( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble5TimeR
subroutine HistoryGetDouble6TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble6TimeR"
interface
subroutine HistoryGetDouble6(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:,:,:)
end subroutine HistoryGetDouble6
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble6( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble6TimeR
subroutine HistoryGetDouble7TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble7TimeR"
interface
subroutine HistoryGetDouble7(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:,:,:,:)
end subroutine HistoryGetDouble7
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble7( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble7TimeR
subroutine HistoryGetReal0TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal0TimeR"
interface
subroutine HistoryGetReal0(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array
end subroutine HistoryGetReal0
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal0( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal0TimeR
subroutine HistoryGetReal1TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal1TimeR"
interface
subroutine HistoryGetReal1(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:)
end subroutine HistoryGetReal1
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal1( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal1TimeR
subroutine HistoryGetReal2TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal2TimeR"
interface
subroutine HistoryGetReal2(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:)
end subroutine HistoryGetReal2
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal2( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal2TimeR
subroutine HistoryGetReal3TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal3TimeR"
interface
subroutine HistoryGetReal3(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:)
end subroutine HistoryGetReal3
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal3( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal3TimeR
subroutine HistoryGetReal4TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal4TimeR"
interface
subroutine HistoryGetReal4(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:)
end subroutine HistoryGetReal4
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal4( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal4TimeR
subroutine HistoryGetReal5TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal5TimeR"
interface
subroutine HistoryGetReal5(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:,:)
end subroutine HistoryGetReal5
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal5( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal5TimeR
subroutine HistoryGetReal6TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal6TimeR"
interface
subroutine HistoryGetReal6(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:,:,:)
end subroutine HistoryGetReal6
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal6( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal6TimeR
subroutine HistoryGetReal7TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal7TimeR"
interface
subroutine HistoryGetReal7(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:,:,:,:)
end subroutine HistoryGetReal7
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal7( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal7TimeR
subroutine HistoryGetInt0TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt0TimeR"
interface
subroutine HistoryGetInt0(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array
end subroutine HistoryGetInt0
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt0( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt0TimeR
subroutine HistoryGetInt1TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt1TimeR"
interface
subroutine HistoryGetInt1(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:)
end subroutine HistoryGetInt1
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt1( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt1TimeR
subroutine HistoryGetInt2TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt2TimeR"
interface
subroutine HistoryGetInt2(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:)
end subroutine HistoryGetInt2
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt2( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt2TimeR
subroutine HistoryGetInt3TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt3TimeR"
interface
subroutine HistoryGetInt3(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:)
end subroutine HistoryGetInt3
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt3( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt3TimeR
subroutine HistoryGetInt4TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt4TimeR"
interface
subroutine HistoryGetInt4(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:)
end subroutine HistoryGetInt4
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt4( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt4TimeR
subroutine HistoryGetInt5TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt5TimeR"
interface
subroutine HistoryGetInt5(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:,:)
end subroutine HistoryGetInt5
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt5( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt5TimeR
subroutine HistoryGetInt6TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt6TimeR"
interface
subroutine HistoryGetInt6(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:,:,:)
end subroutine HistoryGetInt6
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt6( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt6TimeR
subroutine HistoryGetInt7TimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt7TimeR"
interface
subroutine HistoryGetInt7(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:,:,:,:)
end subroutine HistoryGetInt7
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt7( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt7TimeR
subroutine HistoryGetDouble0TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble0TimeI"
interface
subroutine HistoryGetDouble0(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array
end subroutine HistoryGetDouble0
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble0( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble0TimeI
subroutine HistoryGetDouble1TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble1TimeI"
interface
subroutine HistoryGetDouble1(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:)
end subroutine HistoryGetDouble1
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble1( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble1TimeI
subroutine HistoryGetDouble2TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble2TimeI"
interface
subroutine HistoryGetDouble2(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:)
end subroutine HistoryGetDouble2
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble2( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble2TimeI
subroutine HistoryGetDouble3TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble3TimeI"
interface
subroutine HistoryGetDouble3(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:)
end subroutine HistoryGetDouble3
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble3( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble3TimeI
subroutine HistoryGetDouble4TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble4TimeI"
interface
subroutine HistoryGetDouble4(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:)
end subroutine HistoryGetDouble4
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble4( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble4TimeI
subroutine HistoryGetDouble5TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble5TimeI"
interface
subroutine HistoryGetDouble5(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:,:)
end subroutine HistoryGetDouble5
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble5( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble5TimeI
subroutine HistoryGetDouble6TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble6TimeI"
interface
subroutine HistoryGetDouble6(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:,:,:)
end subroutine HistoryGetDouble6
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble6( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble6TimeI
subroutine HistoryGetDouble7TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), intent(out):: array(:,:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble7TimeI"
interface
subroutine HistoryGetDouble7(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), intent(out):: array(:,:,:,:,:,:,:)
end subroutine HistoryGetDouble7
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble7( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble7TimeI
subroutine HistoryGetReal0TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal0TimeI"
interface
subroutine HistoryGetReal0(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array
end subroutine HistoryGetReal0
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal0( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal0TimeI
subroutine HistoryGetReal1TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal1TimeI"
interface
subroutine HistoryGetReal1(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:)
end subroutine HistoryGetReal1
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal1( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal1TimeI
subroutine HistoryGetReal2TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal2TimeI"
interface
subroutine HistoryGetReal2(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:)
end subroutine HistoryGetReal2
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal2( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal2TimeI
subroutine HistoryGetReal3TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal3TimeI"
interface
subroutine HistoryGetReal3(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:)
end subroutine HistoryGetReal3
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal3( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal3TimeI
subroutine HistoryGetReal4TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal4TimeI"
interface
subroutine HistoryGetReal4(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:)
end subroutine HistoryGetReal4
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal4( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal4TimeI
subroutine HistoryGetReal5TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal5TimeI"
interface
subroutine HistoryGetReal5(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:,:)
end subroutine HistoryGetReal5
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal5( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal5TimeI
subroutine HistoryGetReal6TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal6TimeI"
interface
subroutine HistoryGetReal6(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:,:,:)
end subroutine HistoryGetReal6
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal6( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal6TimeI
subroutine HistoryGetReal7TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, intent(out):: array(:,:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal7TimeI"
interface
subroutine HistoryGetReal7(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, intent(out):: array(:,:,:,:,:,:,:)
end subroutine HistoryGetReal7
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal7( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal7TimeI
subroutine HistoryGetInt0TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt0TimeI"
interface
subroutine HistoryGetInt0(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array
end subroutine HistoryGetInt0
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt0( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt0TimeI
subroutine HistoryGetInt1TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt1TimeI"
interface
subroutine HistoryGetInt1(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:)
end subroutine HistoryGetInt1
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt1( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt1TimeI
subroutine HistoryGetInt2TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt2TimeI"
interface
subroutine HistoryGetInt2(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:)
end subroutine HistoryGetInt2
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt2( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt2TimeI
subroutine HistoryGetInt3TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt3TimeI"
interface
subroutine HistoryGetInt3(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:)
end subroutine HistoryGetInt3
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt3( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt3TimeI
subroutine HistoryGetInt4TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt4TimeI"
interface
subroutine HistoryGetInt4(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:)
end subroutine HistoryGetInt4
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt4( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt4TimeI
subroutine HistoryGetInt5TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt5TimeI"
interface
subroutine HistoryGetInt5(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:,:)
end subroutine HistoryGetInt5
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt5( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt5TimeI
subroutine HistoryGetInt6TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt6TimeI"
interface
subroutine HistoryGetInt6(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:,:,:)
end subroutine HistoryGetInt6
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt6( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt6TimeI
subroutine HistoryGetInt7TimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGetPointer です.
! 使用方法に関しては HistoryGetPointer を参照してください.
!
! This is "HistoryGetPointer" with numerical argument *time* for
! specification of time.
! See "HistoryGetPointer", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, intent(out):: array(:,:,:,:,:,:,:)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt7TimeI"
interface
subroutine HistoryGetInt7(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, intent(out):: array(:,:,:,:,:,:,:)
end subroutine HistoryGetInt7
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt7( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt7TimeI
subroutine HistoryGetDouble0PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble0PointerTimeD"
interface
subroutine HistoryGetDouble0Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array ! (out)
end subroutine HistoryGetDouble0Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble0Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble0PointerTimeD
subroutine HistoryGetDouble1PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble1PointerTimeD"
interface
subroutine HistoryGetDouble1Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:) ! (out)
end subroutine HistoryGetDouble1Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble1Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble1PointerTimeD
subroutine HistoryGetDouble2PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble2PointerTimeD"
interface
subroutine HistoryGetDouble2Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:) ! (out)
end subroutine HistoryGetDouble2Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble2Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble2PointerTimeD
subroutine HistoryGetDouble3PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble3PointerTimeD"
interface
subroutine HistoryGetDouble3Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:) ! (out)
end subroutine HistoryGetDouble3Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble3Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble3PointerTimeD
subroutine HistoryGetDouble4PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble4PointerTimeD"
interface
subroutine HistoryGetDouble4Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:) ! (out)
end subroutine HistoryGetDouble4Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble4Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble4PointerTimeD
subroutine HistoryGetDouble5PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble5PointerTimeD"
interface
subroutine HistoryGetDouble5Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:,:) ! (out)
end subroutine HistoryGetDouble5Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble5Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble5PointerTimeD
subroutine HistoryGetDouble6PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble6PointerTimeD"
interface
subroutine HistoryGetDouble6Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:,:,:) ! (out)
end subroutine HistoryGetDouble6Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble6Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble6PointerTimeD
subroutine HistoryGetDouble7PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble7PointerTimeD"
interface
subroutine HistoryGetDouble7Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:,:,:,:) ! (out)
end subroutine HistoryGetDouble7Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble7Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble7PointerTimeD
subroutine HistoryGetReal0PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal0PointerTimeD"
interface
subroutine HistoryGetReal0Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array ! (out)
end subroutine HistoryGetReal0Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal0Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal0PointerTimeD
subroutine HistoryGetReal1PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal1PointerTimeD"
interface
subroutine HistoryGetReal1Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:) ! (out)
end subroutine HistoryGetReal1Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal1Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal1PointerTimeD
subroutine HistoryGetReal2PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal2PointerTimeD"
interface
subroutine HistoryGetReal2Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:) ! (out)
end subroutine HistoryGetReal2Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal2Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal2PointerTimeD
subroutine HistoryGetReal3PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal3PointerTimeD"
interface
subroutine HistoryGetReal3Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:) ! (out)
end subroutine HistoryGetReal3Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal3Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal3PointerTimeD
subroutine HistoryGetReal4PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal4PointerTimeD"
interface
subroutine HistoryGetReal4Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:) ! (out)
end subroutine HistoryGetReal4Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal4Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal4PointerTimeD
subroutine HistoryGetReal5PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal5PointerTimeD"
interface
subroutine HistoryGetReal5Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:,:) ! (out)
end subroutine HistoryGetReal5Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal5Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal5PointerTimeD
subroutine HistoryGetReal6PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal6PointerTimeD"
interface
subroutine HistoryGetReal6Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:,:,:) ! (out)
end subroutine HistoryGetReal6Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal6Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal6PointerTimeD
subroutine HistoryGetReal7PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal7PointerTimeD"
interface
subroutine HistoryGetReal7Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:,:,:,:) ! (out)
end subroutine HistoryGetReal7Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal7Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal7PointerTimeD
subroutine HistoryGetInt0PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt0PointerTimeD"
interface
subroutine HistoryGetInt0Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array ! (out)
end subroutine HistoryGetInt0Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt0Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt0PointerTimeD
subroutine HistoryGetInt1PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt1PointerTimeD"
interface
subroutine HistoryGetInt1Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:) ! (out)
end subroutine HistoryGetInt1Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt1Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt1PointerTimeD
subroutine HistoryGetInt2PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt2PointerTimeD"
interface
subroutine HistoryGetInt2Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:) ! (out)
end subroutine HistoryGetInt2Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt2Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt2PointerTimeD
subroutine HistoryGetInt3PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt3PointerTimeD"
interface
subroutine HistoryGetInt3Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:) ! (out)
end subroutine HistoryGetInt3Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt3Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt3PointerTimeD
subroutine HistoryGetInt4PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt4PointerTimeD"
interface
subroutine HistoryGetInt4Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:) ! (out)
end subroutine HistoryGetInt4Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt4Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt4PointerTimeD
subroutine HistoryGetInt5PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt5PointerTimeD"
interface
subroutine HistoryGetInt5Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:,:) ! (out)
end subroutine HistoryGetInt5Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt5Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt5PointerTimeD
subroutine HistoryGetInt6PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt6PointerTimeD"
interface
subroutine HistoryGetInt6Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:,:,:) ! (out)
end subroutine HistoryGetInt6Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt6Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt6PointerTimeD
subroutine HistoryGetInt7PointerTimeD(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real(DP), intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt7PointerTimeD"
interface
subroutine HistoryGetInt7Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:,:,:,:) ! (out)
end subroutine HistoryGetInt7Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt7Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt7PointerTimeD
subroutine HistoryGetDouble0PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble0PointerTimeR"
interface
subroutine HistoryGetDouble0Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array ! (out)
end subroutine HistoryGetDouble0Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble0Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble0PointerTimeR
subroutine HistoryGetDouble1PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble1PointerTimeR"
interface
subroutine HistoryGetDouble1Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:) ! (out)
end subroutine HistoryGetDouble1Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble1Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble1PointerTimeR
subroutine HistoryGetDouble2PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble2PointerTimeR"
interface
subroutine HistoryGetDouble2Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:) ! (out)
end subroutine HistoryGetDouble2Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble2Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble2PointerTimeR
subroutine HistoryGetDouble3PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble3PointerTimeR"
interface
subroutine HistoryGetDouble3Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:) ! (out)
end subroutine HistoryGetDouble3Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble3Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble3PointerTimeR
subroutine HistoryGetDouble4PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble4PointerTimeR"
interface
subroutine HistoryGetDouble4Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:) ! (out)
end subroutine HistoryGetDouble4Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble4Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble4PointerTimeR
subroutine HistoryGetDouble5PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble5PointerTimeR"
interface
subroutine HistoryGetDouble5Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:,:) ! (out)
end subroutine HistoryGetDouble5Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble5Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble5PointerTimeR
subroutine HistoryGetDouble6PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble6PointerTimeR"
interface
subroutine HistoryGetDouble6Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:,:,:) ! (out)
end subroutine HistoryGetDouble6Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble6Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble6PointerTimeR
subroutine HistoryGetDouble7PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble7PointerTimeR"
interface
subroutine HistoryGetDouble7Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:,:,:,:) ! (out)
end subroutine HistoryGetDouble7Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble7Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble7PointerTimeR
subroutine HistoryGetReal0PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal0PointerTimeR"
interface
subroutine HistoryGetReal0Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array ! (out)
end subroutine HistoryGetReal0Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal0Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal0PointerTimeR
subroutine HistoryGetReal1PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal1PointerTimeR"
interface
subroutine HistoryGetReal1Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:) ! (out)
end subroutine HistoryGetReal1Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal1Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal1PointerTimeR
subroutine HistoryGetReal2PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal2PointerTimeR"
interface
subroutine HistoryGetReal2Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:) ! (out)
end subroutine HistoryGetReal2Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal2Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal2PointerTimeR
subroutine HistoryGetReal3PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal3PointerTimeR"
interface
subroutine HistoryGetReal3Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:) ! (out)
end subroutine HistoryGetReal3Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal3Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal3PointerTimeR
subroutine HistoryGetReal4PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal4PointerTimeR"
interface
subroutine HistoryGetReal4Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:) ! (out)
end subroutine HistoryGetReal4Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal4Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal4PointerTimeR
subroutine HistoryGetReal5PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal5PointerTimeR"
interface
subroutine HistoryGetReal5Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:,:) ! (out)
end subroutine HistoryGetReal5Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal5Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal5PointerTimeR
subroutine HistoryGetReal6PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal6PointerTimeR"
interface
subroutine HistoryGetReal6Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:,:,:) ! (out)
end subroutine HistoryGetReal6Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal6Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal6PointerTimeR
subroutine HistoryGetReal7PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal7PointerTimeR"
interface
subroutine HistoryGetReal7Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:,:,:,:) ! (out)
end subroutine HistoryGetReal7Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal7Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal7PointerTimeR
subroutine HistoryGetInt0PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt0PointerTimeR"
interface
subroutine HistoryGetInt0Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array ! (out)
end subroutine HistoryGetInt0Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt0Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt0PointerTimeR
subroutine HistoryGetInt1PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt1PointerTimeR"
interface
subroutine HistoryGetInt1Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:) ! (out)
end subroutine HistoryGetInt1Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt1Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt1PointerTimeR
subroutine HistoryGetInt2PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt2PointerTimeR"
interface
subroutine HistoryGetInt2Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:) ! (out)
end subroutine HistoryGetInt2Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt2Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt2PointerTimeR
subroutine HistoryGetInt3PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt3PointerTimeR"
interface
subroutine HistoryGetInt3Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:) ! (out)
end subroutine HistoryGetInt3Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt3Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt3PointerTimeR
subroutine HistoryGetInt4PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt4PointerTimeR"
interface
subroutine HistoryGetInt4Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:) ! (out)
end subroutine HistoryGetInt4Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt4Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt4PointerTimeR
subroutine HistoryGetInt5PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt5PointerTimeR"
interface
subroutine HistoryGetInt5Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:,:) ! (out)
end subroutine HistoryGetInt5Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt5Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt5PointerTimeR
subroutine HistoryGetInt6PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt6PointerTimeR"
interface
subroutine HistoryGetInt6Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:,:,:) ! (out)
end subroutine HistoryGetInt6Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt6Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt6PointerTimeR
subroutine HistoryGetInt7PointerTimeR(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
real, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt7PointerTimeR"
interface
subroutine HistoryGetInt7Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:,:,:,:) ! (out)
end subroutine HistoryGetInt7Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt7Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt7PointerTimeR
subroutine HistoryGetDouble0PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble0PointerTimeI"
interface
subroutine HistoryGetDouble0Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array ! (out)
end subroutine HistoryGetDouble0Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble0Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble0PointerTimeI
subroutine HistoryGetDouble1PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble1PointerTimeI"
interface
subroutine HistoryGetDouble1Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:) ! (out)
end subroutine HistoryGetDouble1Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble1Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble1PointerTimeI
subroutine HistoryGetDouble2PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble2PointerTimeI"
interface
subroutine HistoryGetDouble2Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:) ! (out)
end subroutine HistoryGetDouble2Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble2Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble2PointerTimeI
subroutine HistoryGetDouble3PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble3PointerTimeI"
interface
subroutine HistoryGetDouble3Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:) ! (out)
end subroutine HistoryGetDouble3Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble3Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble3PointerTimeI
subroutine HistoryGetDouble4PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble4PointerTimeI"
interface
subroutine HistoryGetDouble4Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:) ! (out)
end subroutine HistoryGetDouble4Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble4Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble4PointerTimeI
subroutine HistoryGetDouble5PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble5PointerTimeI"
interface
subroutine HistoryGetDouble5Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:,:) ! (out)
end subroutine HistoryGetDouble5Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble5Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble5PointerTimeI
subroutine HistoryGetDouble6PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble6PointerTimeI"
interface
subroutine HistoryGetDouble6Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:,:,:) ! (out)
end subroutine HistoryGetDouble6Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble6Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble6PointerTimeI
subroutine HistoryGetDouble7PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real(DP), pointer:: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetDouble7PointerTimeI"
interface
subroutine HistoryGetDouble7Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real(DP), pointer:: array(:,:,:,:,:,:,:) ! (out)
end subroutine HistoryGetDouble7Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetDouble7Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetDouble7PointerTimeI
subroutine HistoryGetReal0PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal0PointerTimeI"
interface
subroutine HistoryGetReal0Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array ! (out)
end subroutine HistoryGetReal0Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal0Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal0PointerTimeI
subroutine HistoryGetReal1PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal1PointerTimeI"
interface
subroutine HistoryGetReal1Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:) ! (out)
end subroutine HistoryGetReal1Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal1Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal1PointerTimeI
subroutine HistoryGetReal2PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal2PointerTimeI"
interface
subroutine HistoryGetReal2Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:) ! (out)
end subroutine HistoryGetReal2Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal2Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal2PointerTimeI
subroutine HistoryGetReal3PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal3PointerTimeI"
interface
subroutine HistoryGetReal3Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:) ! (out)
end subroutine HistoryGetReal3Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal3Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal3PointerTimeI
subroutine HistoryGetReal4PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal4PointerTimeI"
interface
subroutine HistoryGetReal4Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:) ! (out)
end subroutine HistoryGetReal4Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal4Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal4PointerTimeI
subroutine HistoryGetReal5PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal5PointerTimeI"
interface
subroutine HistoryGetReal5Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:,:) ! (out)
end subroutine HistoryGetReal5Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal5Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal5PointerTimeI
subroutine HistoryGetReal6PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal6PointerTimeI"
interface
subroutine HistoryGetReal6Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:,:,:) ! (out)
end subroutine HistoryGetReal6Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal6Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal6PointerTimeI
subroutine HistoryGetReal7PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
real, pointer:: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetReal7PointerTimeI"
interface
subroutine HistoryGetReal7Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
real, pointer:: array(:,:,:,:,:,:,:) ! (out)
end subroutine HistoryGetReal7Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetReal7Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetReal7PointerTimeI
subroutine HistoryGetInt0PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt0PointerTimeI"
interface
subroutine HistoryGetInt0Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array ! (out)
end subroutine HistoryGetInt0Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt0Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt0PointerTimeI
subroutine HistoryGetInt1PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt1PointerTimeI"
interface
subroutine HistoryGetInt1Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:) ! (out)
end subroutine HistoryGetInt1Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt1Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt1PointerTimeI
subroutine HistoryGetInt2PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt2PointerTimeI"
interface
subroutine HistoryGetInt2Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:) ! (out)
end subroutine HistoryGetInt2Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt2Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt2PointerTimeI
subroutine HistoryGetInt3PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt3PointerTimeI"
interface
subroutine HistoryGetInt3Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:) ! (out)
end subroutine HistoryGetInt3Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt3Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt3PointerTimeI
subroutine HistoryGetInt4PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt4PointerTimeI"
interface
subroutine HistoryGetInt4Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:) ! (out)
end subroutine HistoryGetInt4Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt4Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt4PointerTimeI
subroutine HistoryGetInt5PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt5PointerTimeI"
interface
subroutine HistoryGetInt5Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:,:) ! (out)
end subroutine HistoryGetInt5Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt5Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt5PointerTimeI
subroutine HistoryGetInt6PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt6PointerTimeI"
interface
subroutine HistoryGetInt6Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:,:,:) ! (out)
end subroutine HistoryGetInt6Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt6Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt6PointerTimeI
subroutine HistoryGetInt7PointerTimeI(file, varname, array, time, quiet, err)
!
! Note that Japanese and English are described in parallel.
!
! 数値型引数 *time* で時刻指定可能な HistoryGet です.
! 使用方法に関しては HistoryGet を参照してください.
!
! This is "HistoryGet" with numerical argument *time* for
! specification of time.
! See "HistoryGet", for basic usage.
!
use dc_string, only: toChar, Split
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
use dc_url, only: Url_Chop_IOrange, GT_EQUAL
character(*), intent(in):: file, varname
integer, intent(in):: time
logical, intent(in), optional:: quiet
integer, pointer:: array(:,:,:,:,:,:,:) ! (out)
logical, intent(out), optional:: err
character(STRING):: url, iorange, remainder, timevar_name, time_range
character(STRING), pointer:: carray (:)
character(*), parameter :: subname = "HistoryGetInt7PointerTimeI"
interface
subroutine HistoryGetInt7Pointer(file, varname, array, range, quiet, err)
use dc_types, only: DP
character(*), intent(in):: file
character(*), intent(in):: varname
character(*), intent(in), optional:: range
logical, intent(in), optional:: quiet
logical, intent(out), optional:: err
integer, pointer:: array(:,:,:,:,:,:,:) ! (out)
end subroutine HistoryGetInt7Pointer
end interface
interface
subroutine lookup_growable_url(file, varname, url, range, err)
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
end subroutine lookup_growable_url
end interface
continue
call BeginSub(subname, 'file=%c varname=%c time=%c', &
& c1=trim(file), c2=trim(varname), c3=toChar(time))
call lookup_growable_url(file = file, varname = varname, &
& url = url, err = err)
call Url_Chop_IOrange( &
& fullname = url, iorange = iorange, remainder = remainder )
call Split( str = iorange, carray = carray, sep = GT_EQUAL )
timevar_name = carray(1)
deallocate( carray )
time_range = trim(timevar_name) // GT_EQUAL // trim(toChar(time))
call HistoryGetInt7Pointer( file = file, &
& varname = varname, array = array, &
& range = time_range, quiet = quiet, err = err )
call EndSub(subname)
end subroutine HistoryGetInt7PointerTimeI
subroutine lookup_growable_url(file, varname, url, range, err)
!
! file の変数 varname が依存する次元の内, 時間の次元
! (growable == .TRUE. のもの, つまり無制限次元) の変数名,
! およびその最後の値を取得し, gtool 変数化
! ("file@varname,time=10.5" みたいな) して返す.
!
! * もしも varname が次元変数である場合は「time=」を付けずに返す.
! * range を与えた場合, 以下のチェックを行った後, それを gtool4
! 変数の iorange 部分に付加する.
! * range に空文字が与えられた場合, range が与えられない場合と
! 同じ動作をする.
! * range 内に時間次元が設定されていない場合は, 自動的に
! 時間次元に関する iorange ("time=0.5") が指定される.
! * 数値のみの文字列 (例: "20", "10.354") が与えられる場合,
! エラーを生じる.
!
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Close, Inquire
use dc_present,only: present_select, present_and_not_empty, present_and_true
use dc_string, only: toChar
use dc_error, only: StoreError, DC_NOERR, GT_ENOUNLIMITDIM, &
& NF_EINVAL, GT_ENOTVAR, GT_EBADGT4COMMAGRAPHY
use dc_url, only: GT_CIRCUMFLEX, GT_COMMA, GT_EQUAL
use dc_url, only: UrlSplit, UrlMerge, UrlSearchIORange
use regex, only: match
use dc_types, only: DP, STRING
use dc_trace, only: Beginsub, Endsub, DbgMessage
character(*), intent(in) :: file ! ファイル名
character(*), intent(in) :: varname ! 変数名
character(*), intent(out) :: url ! gtool変数化した文字列
character(*), intent(in), optional:: range ! 範囲限定や一点切り出し指定
logical, intent(out), optional :: err ! エラーのフラグ
!
type(GT_VARIABLE) :: var
type(GT_VARIABLE), allocatable :: dimvar(:)
character(STRING) :: time_url, time_name, time_iorange
character(STRING) :: iorange, cause_c
logical:: growable, nounlimited
integer:: allcount, timecount, nd, i, stat
integer:: regex_stat, regex_len
character(*), parameter :: subname = "lookup_growable_url"
continue
call BeginSub(subname, '', &
& c1=trim(file), c2=trim(varname), &
& c3=trim(present_select('', 'no-range', range)))
stat = DC_NOERR
cause_c = ""
url = ""
! 引数の正当性をチェック
if (.not. present_and_not_empty(file)) then
stat = NF_EINVAL
cause_c = '"file" is not specified'
goto 999
elseif (.not. present_and_not_empty(varname)) then
stat = NF_EINVAL
cause_c = '"varname" is not specified'
goto 999
end if
! 時刻次元の変数名, およびその最終時刻の
! 探査のために file@varname を open (まだデータを取得しない)
call Open(var, UrlMerge(file, varname), err = err)
if ( present_and_true(err) ) then
stat = GT_ENOTVAR
goto 999
end if
! 次元の数を取得
call Inquire(var=var, alldims=nd)
call DbgMessage('@ alldims = %d', i=(/nd/))
if (allocated(dimvar)) then
deallocate(dimvar)
end if
allocate(dimvar(nd))
!
! 変数が無制限変数を持たない場合には, それに関する iorange を
! 付けないで返すよう, フラグを立てる.
! 無制限次元があれば, .false. にする.
nounlimited = .true.
!
! 各次元毎に情報を取得し, growable == .TRUE. のもの (つまりは時間)
! の変数名 (time_name) を取得する.
call DbgMessage('[%c: growable-dim-search]', c1=trim(subname))
time_name = ''
do, i = 1, nd
call Open(var = dimvar(i), source_var = var, dimord = i, &
& count_compact = .TRUE., err = err)
! まずは変数入り gtool4 変数を time_url に取得
call Inquire(var = dimvar(i), growable = growable, &
& allcount = allcount, url = time_url)
call DbgMessage(' [dim=<%d>: growable=<%y>: url=<%c>]', &
& i = (/i/), L = (/growable/), c1 = trim(time_url))
! 総数 = 最後の数, なので...
if (growable) then
! 変数部分だけ分離
call UrlSplit(fullname = time_url, var = time_name)
timecount = allcount
nounlimited = .false.
endif
call Close(dimvar(i))
end do
! 探査を終了したので閉じる
call Close(var)
if (stat /= DC_NOERR) then
goto 999
end if
! 時刻部分の iorange を作成しておく.
! 格子点情報で取得されているので, 頭に "^" を付加する.
if (nounlimited) then
time_iorange = ''
else
time_iorange = trim(time_name) // GT_EQUAL // &
& GT_CIRCUMFLEX // adjustl(toChar(timecount))
end if
! iorange を指定する.
! 時刻に関しては, range が存在しない場合には
! 自動取得した最後の時刻を付加する.
! range が存在する場合, "=" が含まれなければ, gtool4 のコンマ記法
! として不適切としてエラーを生じる.
! "=" が含まれる場合, iorange としてそのまま iorange になる.
! ただし, その iorange に時刻次元が含まれない場合,
! やはり先ほど自動取得した値が付加される.
! 当然, 時刻次元が存在しない場合には付加しない.
if (.not. present_and_not_empty(range)) then
iorange = time_iorange
else
! range がコンマ記法になっているか, "=" があるかどうかで調べる
call match(GT_EQUAL, range, regex_len, regex_stat)
! コンマ記法になってない場合は無制限次元の値と判定
if (regex_stat < 0) then
cause_c = range
stat = GT_EBADGT4COMMAGRAPHY
goto 999
!!$ iorange = trim(time_name) // GT_EQUAL // adjustl(range)
else
! コンマ記法になっている場合, まずその中に無制限次元が
! 存在しているか調べ, 存在してない場合のみ time_iorange を
! 付加する.
if (trim(UrlSearchIORange(range, time_name)) /= "") then
iorange = range
else
if (trim(time_iorange) /= "") then
iorange = range // GT_COMMA // time_iorange
else
iorange = range
end if
end if
end if
endif
call DbgMessage('@ iorange=%c', c1=trim(iorange))
! file, varname, iorange を gtool変数化
! (「file@varname,time=10.5」のように)
url = UrlMerge(file, varname, '', iorange)
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname, '', c1=trim(url))
end subroutine lookup_growable_url
subroutine actual_iorange_dump(url, actual_url, err)
!
! 変数 URL *url* に対応するファイル, 変数からデータを取り出す際,
! 入出力範囲指定によって切り出される値の本当の位置を
! 標準出力に出力する. *actual_url* が与えられる場合には
! その引数に値を返し, 標準出力には出力しない.
!
! HistoryGet, HistoryGetPointer が下層で呼び出している
! gtdata_generic#Get は, 入出力範囲が次元データに正確に一致しない
! 場合, 最も近い値を自動的に選択して切り出す. しかしその結果,
! 「本当はどこのデータを入力したか」がわからない場合があるため,
! このサブルーチンによって正確な位置をユーザに知らせる.
!
use dc_types, only: DP, STRING
use dc_string, only: Split, JoinChar, toChar
use dc_url, only: UrlSearchIORange, UrlMerge, UrlSplit
use dc_url, only: GT_COMMA, GT_EQUAL, GT_COLON
use dc_message, only: MessageNotify
use dc_trace, only: Beginsub, Endsub, DbgMessage
use regex, only: match
use gtdata_types, only: GT_VARIABLE
use gtdata_generic, only: Open, Close, Get
use dc_error, only: StoreError, DC_NOERR
character(*), intent(in) :: url ! 変数 URL
character(*), intent(out), optional :: actual_url
! 正確な入出力範囲指定に修正
! された変数 URL
logical, intent(out), optional :: err ! エラーのフラグ
character(STRING), pointer :: iorange_each(:) =>null()
character(STRING), pointer :: range_values(:) =>null()
character(STRING), pointer :: new_iorange_each(:) =>null()
character(STRING), pointer :: new_range_values(:) =>null()
character(STRING) :: new_url, new_iorange, url_tmp, dimname
character(STRING) :: file, varname, range, cause_c
type(GT_VARIABLE) :: var
real :: iorange_value(1)
integer :: i, j, regex_len, regex_stat, stat
character(*), parameter :: subname = "actual_iorange_dump"
continue
call BeginSub(subname, '', c1=trim(url))
new_iorange = ''
cause_c = ''
stat = DC_NOERR
call UrlSplit(url, file, varname, iorange=range)
call Split(range, iorange_each, GT_COMMA)
allocate(new_iorange_each(size(iorange_each)))
do i = 1, size(iorange_each)
call match(GT_EQUAL, iorange_each(i), regex_len, regex_stat)
if (regex_stat < 0 .or. regex_len < 2) then
new_iorange_each(i) = trim(iorange_each(i))
else
dimname = iorange_each(i)(:regex_len-1)
call Split(iorange_each(i)(regex_len+1:), range_values, GT_COLON)
allocate(new_range_values(size(range_values)))
do j = 1, size(range_values)
url_tmp = UrlMerge(file, dimname, '', &
& iorange=trim(dimname) // GT_EQUAL // trim(range_values(j)))
call Open(var, url_tmp)
call Get(var, iorange_value, 1)
call Close(var)
new_range_values(j) = toChar(iorange_value)
end do
new_iorange_each(i) = &
& trim(dimname) // GT_EQUAL // JoinChar(new_range_values, GT_COLON)
deallocate(new_range_values)
deallocate(range_values)
end if
end do
new_iorange = JoinChar(new_iorange_each, GT_COMMA)
deallocate(new_iorange_each)
deallocate(iorange_each)
new_url = UrlMerge(file, varname, '', new_iorange)
if (present(actual_url)) then
actual_url = new_url
else
call MessageNotify('M', subname, 'Input %c', c1=trim(new_url))
end if
999 continue
call StoreError(stat, subname, err, cause_c)
call EndSub(subname, '', c1=trim(new_url))
end subroutine actual_iorange_dump
!--
! vi:set readonly sw=4 ts=8:
!
!Local Variables:
!mode: f90
!buffer-read-only: t
!End:
!
!++