Data Types
interface	dimrange

type	var_table_entry

Functions/Subroutines
subroutine, public	vartable_dump (vid)

subroutine, private	entry_cleanup (vtb_entry)

subroutine, public	vartableadd (vid, class, cid)

subroutine, public	vartabledelete (vid, action, err)

subroutine, public	vartablelookup (vid, class, cid)

subroutine, public	vartablemore (vid, err)

subroutine	dimrange_direct (vid, dimlo, dimhi)

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_memory = 1

integer, parameter, public	vtb_class_netcdf = 2

integer, parameter, public	classes_max = 2

type(var_table_entry), dimension(:), allocatable, save, private	table

integer, parameter, private	table_ini_size = 16

type(gd_nc_variable_search), save, public	gdnc_search

Function/Subroutine Documentation

◆ dimrange_direct()

subroutine gtdata_internal_vartable::dimrange_direct	(	integer, intent(in)	vid,
		integer, intent(out)	dimlo,
		integer, intent(out)	dimhi
	)

private

Definition at line 188 of file gtdata_internal_vartable.f90.

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

     use gtdata_netcdf_types, only: gd_nc_variable
     use gtdata_netcdf_generic, only: gdncinquire => inquire
     use dc_error, only: storeerror, nf90_einval, gt_efake
     integer, intent(in):: vid
     integer, intent(out):: dimlo, dimhi
     integer:: class, cid
     call vartablelookup(vid, class, cid)
     select case(class)
     case(vtb_class_memory)
       call storeerror(gt_efake, 'gtdata::dimrange')
     case(vtb_class_netcdf)
       dimlo = 1
       call gdncinquire(gd_nc_variable(cid), dimlen=dimhi)
     case default
       call storeerror(nf90_einval, 'gtdata::dimrange')
     end select

Here is the call graph for this function:

◆ entry_cleanup()

subroutine, private gtdata_internal_vartable::entry_cleanup ( type(var_table_entry), dimension(:), intent(out) vtb_entry )

private

Definition at line 89 of file gtdata_internal_vartable.f90.

References vtb_class_unused.

Referenced by vartableadd().

     type(var_table_entry), intent(out):: vtb_entry(:)
     vtb_entry(:)%class = vtb_class_unused
     vtb_entry(:)%cid = -1
     vtb_entry(:)%refcount = 0

Here is the caller graph for this function:

◆ ndims()

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

Definition at line 207 of file gtdata_internal_vartable.f90.

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

Referenced by gtdata_internal_map::map_to_internal_specs().

     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_memory)
       result = 1
     case(vtb_class_netcdf)
       call gdncinquire(gd_nc_variable(cid), ndims=result)
     case default
       call storeerror(nf90_einval, 'gtdata::ndims')
     end select

Here is the call graph for this function:

Here is the caller graph for this function:

◆ query_growable()

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

Definition at line 224 of file gtdata_internal_vartable.f90.

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

Referenced by gtvarslice().

     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_memory)
       result = .false.
     case(vtb_class_netcdf)
       call inquire(gd_nc_variable(cid), growable=result)
     case default
       call storeerror(nf90_einval, 'gtdata::ndims')
     end select

Here is the call graph for this function:

Here is the caller graph for this function:

◆ vartable_dump()

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

Definition at line 64 of file gtdata_internal_vartable.f90.

References dc_trace::dbgmessage(), table, vtb_class_memory, and vtb_class_netcdf.

Referenced by gtdata_internal_map::gtvar_dump().

     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(vtb_class_memory)
       class = 'memory'
     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

Here is the call graph for this function:

Here is the caller graph for this function:

◆ vartableadd()

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

Definition at line 96 of file gtdata_internal_vartable.f90.

References dc_trace::dbgmessage(), entry_cleanup(), table, table_ini_size, vid_invalid, and vtb_class_unused.

Referenced by gtdata_internal_map::map_create(), and gtdata_internal_map::map_dup().

     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

Here is the call graph for this function:

Here is the caller graph for this function:

◆ vartabledelete()

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

Definition at line 141 of file gtdata_internal_vartable.f90.

References classes_max, table, and vtb_class_unused.

Referenced by gtvarclose().

     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.

Here is the caller graph for this function:

◆ vartablelookup()

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

Definition at line 158 of file gtdata_internal_vartable.f90.

References classes_max, table, and vtb_class_unused.

Referenced by dimrange_direct(), gtvarclose(), gtdata_internal_map::map_dup(), gtdata_internal_map::map_set_ndims(), gtdata_internal_map::map_set_rank(), ndims(), query_growable(), and gtdata_internal_map::var_class().

     ! 同じファイル番号の変数表の中身を返す
     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

Here is the caller graph for this function:

◆ vartablemore()

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

Definition at line 173 of file gtdata_internal_vartable.f90.

References classes_max, table, and vtb_class_unused.

     ! 同じファイル番号の参照カウントを増加する。
     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.