Data Types
interface	dimrange

Functions/Subroutines
subroutine, public	vartable_dump (vid)

subroutine, public	vartableadd (vid, class, cid)

subroutine, public	vartabledelete (vid, action, err)

subroutine, public	vartablelookup (vid, class, cid)

subroutine, public	vartablemore (vid, err)

integer function, public	ndims (vid)

subroutine, public	query_growable (vid, result)

Variables
integer, parameter, public	vid_invalid = -1

integer, parameter, public	vtb_class_unused = 0

integer, parameter, public	vtb_class_netcdf = 1

integer, parameter, public	classes_max = 2

type(gd_nc_variable_search), save, public	gdnc_search

Detailed Description

gtool 変数表管理

このモジュールは gtool モジュールから直接には引用されないため、相当むちゃな名前の使い方をしている。ユーザは呼んではならない。

gtool 変数というのは実は単なるハンドルと多次元イテレータであり、ハンドルは小さな整数値である。実体にアクセスするためには、ハンドル値をキーにしてまずマップ表を引き、そこで得られた vid をキーにして変数表を引いて、種別と種別ごとの変数番号を得る。これらはたかだかポインタ＋オフセット参照程度のコストである。 gtool 変数は実体変数からイテレータが必要なだけ作成されるが、この変数表は実体変数につき１エントリしか作成しないので、参照数を持つ。このため、実体変数は変数に付いて参照数管理をしなくてもよくなる。

Function/Subroutine Documentation

◆ ndims()

integer function, public gtdata_internal_vartable::ndims ( integer, intent(in) vid )

変数の次元数を取得

Parameters

[in] vid 変数ID

Returns: 次元数

Definition at line 356 of file gtdata_internal_vartable.f90.

    use gtdata_netcdf_types, only: gd_nc_variable
    use gtdata_netcdf_generic, only: gdncinquire => inquire
    use dc_error, only: storeerror, nf90_einval
    integer, intent(in):: vid
    integer:: class, cid
    call vartablelookup(vid, class, cid)
    select case(class)
    case(vtb_class_netcdf)
      call gdncinquire(gd_nc_variable(cid), ndims=result)
    case default
      call storeerror(nf90_einval, 'gtdata::ndims')
    end select

References ndims(), dc_error::storeerror(), vartablelookup(), and vtb_class_netcdf.

Here is the call graph for this function:

◆ query_growable()

subroutine, public gtdata_internal_vartable::query_growable	(	integer, intent(in)	vid,
		logical, intent(out)	result
	)

変数が無制限次元を持つか問い合わせ

Parameters

[in]	vid	変数ID
[out]	result	無制限次元を持つ場合 .true.

Definition at line 384 of file gtdata_internal_vartable.f90.

    use gtdata_netcdf_types, only: gd_nc_variable
    use gtdata_netcdf_generic, only: inquire
    use dc_error, only: storeerror, nf90_einval
    integer, intent(in):: vid
    logical, intent(out):: result
    integer:: class, cid
    call vartablelookup(vid, class, cid)
    select case(class)
    case(vtb_class_netcdf)
      call inquire(gd_nc_variable(cid), growable=result)
    case default
      call storeerror(nf90_einval, 'gtdata::ndims')
    end select

References dc_error::storeerror(), vartablelookup(), and vtb_class_netcdf.

Here is the call graph for this function:

◆ vartable_dump()

subroutine, public gtdata_internal_vartable::vartable_dump ( integer, intent(in) vid )

デバッグ用変数テーブルエントリのダンプ

Parameters

[in] vid ダンプする変数ID

Definition at line 106 of file gtdata_internal_vartable.f90.

    use dc_trace, only: dbgmessage
    use gtdata_netcdf_generic, only: tostring
    use gtdata_netcdf_types, only: gd_nc_variable
    integer, intent(in):: vid
    character(10):: class
    if (.not. allocated(table)) return
    if (vid <= 0 .or. vid > size(table)) return
    select case(table(vid)%class)
    case(vtb_class_netcdf)
      class = 'netcdf'
    case default
      write(class, fmt="(i10)") table(vid)%class
    end select
    call dbgmessage('[vartable %d: class=%c cid=%d ref=%d]', &
      & i=(/vid, table(vid)%cid, table(vid)%refcount/), &
      & c1=trim(class))
    select case(table(vid)%class)
    case(vtb_class_netcdf)
      call dbgmessage('[%c]', c1=trim(tostring(gd_nc_variable(table(vid)%cid))))
    end select

References dc_trace::dbgmessage(), vtb_class_netcdf, and vtb_class_unused.

Here is the call graph for this function:

◆ vartableadd()

subroutine, public gtdata_internal_vartable::vartableadd	(	integer, intent(out)	vid,
		integer, intent(in)	class,
		integer, intent(in)	cid
	)

変数テーブルにエントリを追加

同じ class と cid を持つエントリが既に存在する場合、その参照カウントを増加します。そうでなければ新しいエントリを作成します。

Parameters

[out]	vid	割り当てられた変数ID
[in]	class	変数クラス (VTB_CLASS_NETCDF 等)
[in]	cid	クラス固有のID

Definition at line 168 of file gtdata_internal_vartable.f90.

    use dc_trace, only: dbgmessage
    integer, intent(out):: vid
    integer, intent(in):: class, cid
    type(VAR_TABLE_ENTRY), allocatable:: tmp_table(:)
    integer:: n
  continue
    ! 必要ならば初期幅確保
    if (.not. allocated(table)) then
      allocate(table(table_ini_size))
      call entry_cleanup(table(:))
    endif
    ! 該当があれば参照数増加
    do, n = 1, size(table)
      if (table(n)%class == class .and. table(n)%cid == cid) then
        table(n)%refcount = table(n)%refcount + 1
        call dbgmessage('gtdata_vartable.add(class=%d cid=%d) found (ref=%d)', &
          & i=(/table(n)%class, table(n)%cid, table(n)%refcount/))
        vid = n
        return
      endif
    enddo
    ! もし空きが無ければ表を拡張
    if (all(table(:)%class /= vtb_class_unused)) then
      n = size(table)
      allocate(tmp_table(n))
      tmp_table(:) = table(:)
      deallocate(table)
      allocate(table(n * 2))
      table(1:n) = tmp_table(1:n)
      deallocate(tmp_table)
      table(n+1:n*2) = var_table_entry(vtb_class_unused, -1, 0)
    endif
    do, n = 1, size(table)
      if (table(n)%class == vtb_class_unused) then
        table(n)%class = class
        table(n)%cid = cid
        table(n)%refcount = 1
        vid = n
        return
      endif
    enddo
    vid = vid_invalid

References dc_trace::dbgmessage(), vid_invalid, and vtb_class_unused.

Here is the call graph for this function:

◆ vartabledelete()

subroutine, public gtdata_internal_vartable::vartabledelete	(	integer, intent(in)	vid,
		logical, intent(out)	action,
		logical, intent(out), optional	err
	)

変数テーブルからエントリを削除

参照カウントを減少させます。ゼロになった場合、実際の削除を行うべきことを示すために action に .true. が設定されます。

Parameters

[in]	vid	削除する変数ID
[out]	action	実際の削除を行うべきかどうか
[out]	err	エラーフラグ (省略可能)

Definition at line 234 of file gtdata_internal_vartable.f90.

    integer, intent(in):: vid
    logical, intent(out):: action
    logical, intent(out), optional:: err
    if (.not. allocated(table)) goto 999
    if (vid <= 0 .or. vid > size(table)) goto 999
    if (table(vid)%class <= vtb_class_unused) goto 999
    if (table(vid)%class > classes_max) goto 999
    table(vid)%refcount = max(table(vid)%refcount - 1, 0)
    action = (table(vid)%refcount == 0)
    if (present(err)) err = .false.
    return
999 continue
    action = .false.
    if (present(err)) err = .true.

References classes_max, and vtb_class_unused.

◆ vartablelookup()

subroutine, public gtdata_internal_vartable::vartablelookup	(	integer, intent(in)	vid,
		integer, intent(out), optional	class,
		integer, intent(out), optional	cid
	)

変数テーブルエントリを検索

指定された vid を持つエントリの class と cid を返します。

Parameters

[in]	vid	検索する変数ID
[out]	class	変数クラス (省略可能)
[out]	cid	クラス固有のID (省略可能)

Definition at line 270 of file gtdata_internal_vartable.f90.

    integer, intent(in):: vid
    integer, intent(out), optional:: class, cid
    if (.not. allocated(table)) goto 999
    if (vid <= 0 .or. vid > size(table)) goto 999
    if (table(vid)%class <= vtb_class_unused) goto 999
    if (table(vid)%class > classes_max) goto 999
    if (present(class)) class = table(vid)%class
    if (present(cid)) cid = table(vid)%cid
    return
999 continue
    if (present(class)) class = vtb_class_unused

References classes_max, and vtb_class_unused.

◆ vartablemore()

subroutine, public gtdata_internal_vartable::vartablemore	(	integer, intent(in)	vid,
		logical, intent(out), optional	err
	)

変数テーブルエントリの参照カウントを増加

Parameters

[in]	vid	変数ID
[out]	err	エラーフラグ (省略可能)

Definition at line 297 of file gtdata_internal_vartable.f90.

    integer, intent(in):: vid
    logical, intent(out), optional:: err
    if (.not. allocated(table)) goto 999
    if (vid <= 0 .or. vid > size(table)) goto 999
    if (table(vid)%class <= vtb_class_unused) goto 999
    if (table(vid)%class > classes_max) goto 999
    table(vid)%refcount = table(vid)%refcount + 1
    if (present(err)) err = .false.
    return
999 continue
    if (present(err)) err = .true.