gdncvargetnum.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncvargetreal (var, start, cnt, stride, imap, siz, val, iostat)
subroutine	gdncvargetdouble (var, start, cnt, stride, imap, siz, val, iostat)
subroutine	gdncvargetint (var, start, cnt, stride, imap, siz, val, iostat)

Function/Subroutine Documentation

gdncvargetdouble()

subroutine gdncvargetdouble	(	type(gd_nc_variable), intent(in)	var,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	cnt,
		integer, dimension(:), intent(in)	stride,
		integer, dimension(:), intent(in)	imap,
		integer, intent(in)	siz,
		real(dp), dimension(siz), intent(out)	val,
		integer, intent(out)	iostat
	)

変数データの取得 (double 型)

netCDF 変数から配列スライシングをサポートしてデータを読み込みます。

Parameters

[in]	var	変数ハンドル
[in]	start	各次元の開始インデックス
[in]	cnt	各次元の読み込み要素数
[in]	stride	各次元のストライド (間隔)
[in]	imap

iline 130 メモリマッピングベクトル (NetCDF マニュアル NF_PUT_VARM_type 参照)

Parameters

[in]	siz	val 配列のサイズ
[out]	val	読み込んだデータを格納する配列
[out]	iostat	I/O ステータス (成功時 NF90_NOERR)

Definition at line 135 of file gdncvargetnum.f90.

  use gtdata_netcdf_types,    only: gd_nc_variable
  use gtdata_netcdf_internal, only: gd_nc_variable_entry, vtable_lookup
  use netcdf, only:   &
    & nf90_noerr,     &
    & nf90_einval,    &
    & nf90_eindefine, &
    & nf90_get_var,   &
    & nf90_redef,     &
    & nf90_enddef
  use dc_types,    only: dp
  implicit none
  type(GD_NC_VARIABLE), intent(in):: var
  integer, intent(in):: start(:)
  integer, intent(in):: cnt(:)
  integer, intent(in):: stride(:)
  integer, intent(in):: imap(:)
  ! NetCDF変数と内部データ配列のメモリ内構
  ! 造間のマッピングを指定する整数ベクトル.
  ! 詳しくは NetCDF マニュアル
  ! (NF_PUT_VARM_type 等 を参照のこと)
  integer, intent(in):: siz
  real(DP), intent(out):: val(siz)
  integer, intent(out):: iostat
  integer:: nd ! var が保持する変数が依存する次元変数の数
  type(GD_NC_VARIABLE_ENTRY):: ent
  integer, allocatable:: istart(:), istride(:), iimap(:)
  continue
  iostat = vtable_lookup(var, ent)
  if (iostat /= nf90_noerr) goto 999
  ! --- nd check ---
  nd = 0
  if (associated(ent%dimids)) nd = size(ent%dimids)
  if (min(size(start), size(cnt), size(stride), size(imap)) < nd) then
    iostat = nf90_einval
    goto 999
  endif
  if (nd == 0) then
    iostat = nf90_get_var(ent%fileid, ent%varid, val(1), start)
    goto 999
  endif
  ! --- stride ovarwrite buffer ---
  allocate(istart(nd), istride(nd), iimap(nd))
  istart(1:nd) = start(1:nd)
  istride(1:nd) = stride(1:nd)
  iimap(1:nd) = imap(1:nd)
  ! --- do read ---
  iostat = nf90_get_var(ent%fileid, ent%varid, val, istart, cnt, istride, iimap)
  if (iostat == nf90_eindefine) then
    iostat = nf90_enddef(ent%fileid)
    if (iostat /= nf90_noerr) return
    iostat = nf90_get_var(ent%fileid, ent%varid, val, istart, cnt, istride, iimap)
    if (iostat /= nf90_noerr) return
    iostat = nf90_redef(ent%fileid)
    if (iostat /= nf90_noerr) return
  end if
  deallocate(istart, istride, iimap)
999 continue

References dc_types::dp, and gtdata_netcdf_internal::vtable_lookup().

Here is the call graph for this function:

gdncvargetint()

subroutine gdncvargetint	(	type(gd_nc_variable), intent(in)	var,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	cnt,
		integer, dimension(:), intent(in)	stride,
		integer, dimension(:), intent(in)	imap,
		integer, intent(in)	siz,
		integer, dimension(siz), intent(out)	val,
		integer, intent(out)	iostat
	)

変数データの取得 (int 型)

netCDF 変数から配列スライシングをサポートしてデータを読み込みます。

Parameters

[in]	var	変数ハンドル
[in]	start	各次元の開始インデックス
[in]	cnt	各次元の読み込み要素数
[in]	stride	各次元のストライド (間隔)
[in]	imap

iline 213 メモリマッピングベクトル (NetCDF マニュアル NF_PUT_VARM_type 参照)

Parameters

[in]	siz	val 配列のサイズ
[out]	val	読み込んだデータを格納する配列
[out]	iostat	I/O ステータス (成功時 NF90_NOERR)

Definition at line 218 of file gdncvargetnum.f90.

  use gtdata_netcdf_types,    only: gd_nc_variable
  use gtdata_netcdf_internal, only: gd_nc_variable_entry, vtable_lookup
  use netcdf, only:   &
    & nf90_noerr,     &
    & nf90_einval,    &
    & nf90_eindefine, &
    & nf90_get_var,   &
    & nf90_redef,     &
    & nf90_enddef
  implicit none
  type(GD_NC_VARIABLE), intent(in):: var
  integer, intent(in):: start(:)
  integer, intent(in):: cnt(:)
  integer, intent(in):: stride(:)
  integer, intent(in):: imap(:)
  ! NetCDF変数と内部データ配列のメモリ内構
  ! 造間のマッピングを指定する整数ベクトル.
  ! 詳しくは NetCDF マニュアル
  ! (NF_PUT_VARM_type 等 を参照のこと)
  integer, intent(in):: siz
  integer, intent(out):: val(siz)
  integer, intent(out):: iostat
  integer:: nd ! var が保持する変数が依存する次元変数の数
  type(GD_NC_VARIABLE_ENTRY):: ent
  integer, allocatable:: istart(:), istride(:), iimap(:)
  continue
  iostat = vtable_lookup(var, ent)
  if (iostat /= nf90_noerr) goto 999
  ! --- nd check ---
  nd = 0
  if (associated(ent%dimids)) nd = size(ent%dimids)
  if (min(size(start), size(cnt), size(stride), size(imap)) < nd) then
    iostat = nf90_einval
    goto 999
  endif
  if (nd == 0) then
    iostat = nf90_get_var(ent%fileid, ent%varid, val(1), start)
    goto 999
  endif
  ! --- stride ovarwrite buffer ---
  allocate(istart(nd), istride(nd), iimap(nd))
  istart(1:nd) = start(1:nd)
  istride(1:nd) = stride(1:nd)
  iimap(1:nd) = imap(1:nd)
  ! --- do read ---
  iostat = nf90_get_var(ent%fileid, ent%varid, val, istart, cnt, istride, iimap)
  if (iostat == nf90_eindefine) then
    iostat = nf90_enddef(ent%fileid)
    if (iostat /= nf90_noerr) return
    iostat = nf90_get_var(ent%fileid, ent%varid, val, istart, cnt, istride, iimap)
    if (iostat /= nf90_noerr) return
    iostat = nf90_redef(ent%fileid)
    if (iostat /= nf90_noerr) return
  end if
  deallocate(istart, istride, iimap)
999 continue

References gtdata_netcdf_internal::vtable_lookup().

Here is the call graph for this function:

gdncvargetreal()

subroutine gdncvargetreal	(	type(gd_nc_variable), intent(in)	var,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	cnt,
		integer, dimension(:), intent(in)	stride,
		integer, dimension(:), intent(in)	imap,
		integer, intent(in)	siz,
		real(sp), dimension(siz), intent(out)	val,
		integer, intent(out)	iostat
	)

Definition at line 52 of file gdncvargetnum.f90.

  use gtdata_netcdf_types,    only: gd_nc_variable
  use gtdata_netcdf_internal, only: gd_nc_variable_entry, vtable_lookup
  use netcdf, only:   &
    & nf90_noerr,     &
    & nf90_einval,    &
    & nf90_eindefine, &
    & nf90_get_var,   &
    & nf90_redef,     &
    & nf90_enddef
  use dc_types,    only: sp
  implicit none
  type(GD_NC_VARIABLE), intent(in):: var
  integer, intent(in):: start(:)
  integer, intent(in):: cnt(:)
  integer, intent(in):: stride(:)
  integer, intent(in):: imap(:)
  ! NetCDF変数と内部データ配列のメモリ内構
  ! 造間のマッピングを指定する整数ベクトル.
  ! 詳しくは NetCDF マニュアル
  ! (NF_PUT_VARM_type 等 を参照のこと)
  integer, intent(in):: siz
  real(SP), intent(out):: val(siz)
  integer, intent(out):: iostat
  integer:: nd ! var が保持する変数が依存する次元変数の数
  type(GD_NC_VARIABLE_ENTRY):: ent
  integer, allocatable:: istart(:), istride(:), iimap(:)
  continue
  iostat = vtable_lookup(var, ent)
  if (iostat /= nf90_noerr) goto 999
  ! --- nd check ---
  nd = 0
  if (associated(ent%dimids)) nd = size(ent%dimids)
  if (min(size(start), size(cnt), size(stride), size(imap)) < nd) then
    iostat = nf90_einval
    goto 999
  endif
  if (nd == 0) then
    iostat = nf90_get_var(ent%fileid, ent%varid, val(1), start)
    goto 999
  endif
  ! --- stride ovarwrite buffer ---
  allocate(istart(nd), istride(nd), iimap(nd))
  istart(1:nd) = start(1:nd)
  istride(1:nd) = stride(1:nd)
  iimap(1:nd) = imap(1:nd)
  ! --- do read ---
  iostat = nf90_get_var(ent%fileid, ent%varid, val, istart, cnt, istride, iimap)
  if (iostat == nf90_eindefine) then
    iostat = nf90_enddef(ent%fileid)
    if (iostat /= nf90_noerr) return
    iostat = nf90_get_var(ent%fileid, ent%varid, val, istart, cnt, istride, iimap)
    if (iostat /= nf90_noerr) return
    iostat = nf90_redef(ent%fileid)
    if (iostat /= nf90_noerr) return
  end if
  deallocate(istart, istride, iimap)
999 continue

References dc_types::sp, and gtdata_netcdf_internal::vtable_lookup().

Here is the call graph for this function: