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

Function/Subroutine Documentation

◆ ndims()

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

Definition at line 201 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
	)

Definition at line 216 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 )

Definition at line 62 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 vtb_class_netcdf, and vtb_class_unused.

◆ vartableadd()

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

Definition at line 92 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 vid_invalid, and vtb_class_unused.

◆ vartabledelete()

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

Definition at line 137 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
	)

Definition at line 154 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
	)

Definition at line 169 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.