gdncvarputnum.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncvarputreal (var, start, count, stride, imap, siz, value, iostat)
subroutine	gdncvarputdouble (var, start, count, stride, imap, siz, value, iostat)
subroutine	gdncvarputint (var, start, count, stride, imap, siz, value, iostat)
subroutine	gdncvarputchar (var, start, count, stride, imap, siz, value, iostat)

Function/Subroutine Documentation

gdncvarputchar()

subroutine gdncvarputchar	(	type(gd_nc_variable), intent(in)	var,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	count,
		integer, dimension(:), intent(in)	stride,
		integer, dimension(:), intent(in)	imap,
		integer, intent(in)	siz,
		character(*), dimension(siz), intent(in)	value,
		integer, intent(out)	iostat )

変数データの出力 (char 型)

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

Parameters

[in]	var	変数ハンドル
[in]	start	各次元の開始インデックス
[in]	count	各次元の書き込み要素数
[in]	stride	各次元のストライド (間隔)
[in]	imap	メモリマッピングベクトル (NetCDF マニュアル NF_PUT_VARM_type 参照)
[in]	siz	value 配列のサイズ
[in]	value	書き込むデータ
[out]	iostat	I/O ステータス (成功時 NF90_NOERR)

Definition at line 229 of file gdncvarputnum.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_put_var
  use gtdata_netcdf_file_generic, only: gdncfiledatamode
  use dc_trace, only: dbgmessage
  implicit none
  type(GD_NC_VARIABLE), intent(in):: var
  integer,           intent(in):: start(:)
  integer,           intent(in):: count(:)
  integer,           intent(in):: stride(:)
  integer,           intent(in):: imap(:)
  integer,           intent(in):: siz
  character(*), intent(in):: value(siz)
  integer, intent(out):: iostat
  integer:: ndims
  type(GD_NC_VARIABLE_ENTRY):: ent
  continue
  iostat = vtable_lookup(var, ent)
  if (iostat /= nf90_noerr) goto 999
  ndims = 0
  if (associated(ent%dimids)) ndims = size(ent%dimids)
  if (min(size(start), size(count), size(stride), size(imap)) < ndims) then
    iostat = nf90_einval
    goto 999
  endif
  call dbgmessage("f=%d v=%d sta=%*d c=%*d str=%*d imap=%*d", &
    & i=(/ent%fileid, ent%varid, start, count, stride, imap/), &
    & n=(/ndims, ndims, ndims, ndims/))
  iostat = gdncfiledatamode(ent%fileid)
  if (iostat /= nf90_noerr) return
  iostat = nf90_put_var(ent%fileid, ent%varid, value, &
    & start, count, stride, imap)
999 continue

References dc_trace::dbgmessage(), and gtdata_netcdf_internal::vtable_lookup().

Here is the call graph for this function:

gdncvarputdouble()

subroutine gdncvarputdouble	(	type(gd_nc_variable), intent(in)	var,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	count,
		integer, dimension(:), intent(in)	stride,
		integer, dimension(:), intent(in)	imap,
		integer, intent(in)	siz,
		real(dp), dimension(siz), intent(in)	value,
		integer, intent(out)	iostat )

変数データの出力 (double 型)

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

Parameters

[in]	var	変数ハンドル
[in]	start	各次元の開始インデックス
[in]	count	各次元の書き込み要素数
[in]	stride	各次元のストライド (間隔)
[in]	imap	メモリマッピングベクトル (NetCDF マニュアル NF_PUT_VARM_type 参照)
[in]	siz	value 配列のサイズ
[in]	value	書き込むデータ
[out]	iostat	I/O ステータス (成功時 NF90_NOERR)

Definition at line 110 of file gdncvarputnum.f90.

  use dc_types, only: dp
  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_put_var
  use gtdata_netcdf_file_generic, only: gdncfiledatamode
  use dc_trace, only: dbgmessage
  implicit none
  type(GD_NC_VARIABLE), intent(in):: var
  integer,           intent(in):: start(:)
  integer,           intent(in):: count(:)
  integer,           intent(in):: stride(:)
  integer,           intent(in):: imap(:)
  integer,           intent(in):: siz
  real(DP), intent(in):: value(siz)
  integer, intent(out):: iostat
  integer:: ndims
  type(GD_NC_VARIABLE_ENTRY):: ent
  continue
  iostat = vtable_lookup(var, ent)
  if (iostat /= nf90_noerr) goto 999
  ndims = 0
  if (associated(ent%dimids)) ndims = size(ent%dimids)
  if (min(size(start), size(count), size(stride), size(imap)) < ndims) then
    iostat = nf90_einval
    goto 999
  endif
  call dbgmessage("f=%d v=%d sta=%*d c=%*d str=%*d imap=%*d", &
    & i=(/ent%fileid, ent%varid, start, count, stride, imap/), &
    & n=(/ndims, ndims, ndims, ndims/))
  iostat = gdncfiledatamode(ent%fileid)
  if (iostat /= nf90_noerr) return
  iostat = nf90_put_var(ent%fileid, ent%varid, value, &
    & start, count, stride, imap)
999 continue

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

Here is the call graph for this function:

gdncvarputint()

subroutine gdncvarputint	(	type(gd_nc_variable), intent(in)	var,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	count,
		integer, dimension(:), intent(in)	stride,
		integer, dimension(:), intent(in)	imap,
		integer, intent(in)	siz,
		integer, dimension(siz), intent(in)	value,
		integer, intent(out)	iostat )

変数データの出力 (int 型)

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

Parameters

[in]	var	変数ハンドル
[in]	start	各次元の開始インデックス
[in]	count	各次元の書き込み要素数
[in]	stride	各次元のストライド (間隔)
[in]	imap	メモリマッピングベクトル (NetCDF マニュアル NF_PUT_VARM_type 参照)
[in]	siz	value 配列のサイズ
[in]	value	書き込むデータ
[out]	iostat	I/O ステータス (成功時 NF90_NOERR)

Definition at line 170 of file gdncvarputnum.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_put_var
  use gtdata_netcdf_file_generic, only: gdncfiledatamode
  use dc_trace, only: dbgmessage
  implicit none
  type(GD_NC_VARIABLE), intent(in):: var
  integer,           intent(in):: start(:)
  integer,           intent(in):: count(:)
  integer,           intent(in):: stride(:)
  integer,           intent(in):: imap(:)
  integer,           intent(in):: siz
  integer,  intent(in):: value(siz)
  integer, intent(out):: iostat
  integer:: ndims
  type(GD_NC_VARIABLE_ENTRY):: ent
  continue
  iostat = vtable_lookup(var, ent)
  if (iostat /= nf90_noerr) goto 999
  ndims = 0
  if (associated(ent%dimids)) ndims = size(ent%dimids)
  if (min(size(start), size(count), size(stride), size(imap)) < ndims) then
    iostat = nf90_einval
    goto 999
  endif
  call dbgmessage("f=%d v=%d sta=%*d c=%*d str=%*d imap=%*d", &
    & i=(/ent%fileid, ent%varid, start, count, stride, imap/), &
    & n=(/ndims, ndims, ndims, ndims/))
  iostat = gdncfiledatamode(ent%fileid)
  if (iostat /= nf90_noerr) return
  iostat = nf90_put_var(ent%fileid, ent%varid, value, &
    & start, count, stride, imap)
999 continue

References dc_trace::dbgmessage(), and gtdata_netcdf_internal::vtable_lookup().

Here is the call graph for this function:

gdncvarputreal()

subroutine gdncvarputreal	(	type(gd_nc_variable), intent(in)	var,
		integer, dimension(:), intent(in)	start,
		integer, dimension(:), intent(in)	count,
		integer, dimension(:), intent(in)	stride,
		integer, dimension(:), intent(in)	imap,
		integer, intent(in)	siz,
		real(sp), dimension(siz), intent(in)	value,
		integer, intent(out)	iostat )

Definition at line 50 of file gdncvarputnum.f90.

  use dc_types, only: sp
  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_put_var
  use gtdata_netcdf_file_generic, only: gdncfiledatamode
  use dc_trace, only: dbgmessage
  implicit none
  type(GD_NC_VARIABLE), intent(in):: var
  integer,           intent(in):: start(:)
  integer,           intent(in):: count(:)
  integer,           intent(in):: stride(:)
  integer,           intent(in):: imap(:)
  integer,           intent(in):: siz
  real(SP), intent(in):: value(siz)
  integer, intent(out):: iostat
  integer:: ndims
  type(GD_NC_VARIABLE_ENTRY):: ent
  continue
  iostat = vtable_lookup(var, ent)
  if (iostat /= nf90_noerr) goto 999
  ndims = 0
  if (associated(ent%dimids)) ndims = size(ent%dimids)
  if (min(size(start), size(count), size(stride), size(imap)) < ndims) then
    iostat = nf90_einval
    goto 999
  endif
  call dbgmessage("f=%d v=%d sta=%*d c=%*d str=%*d imap=%*d", &
    & i=(/ent%fileid, ent%varid, start, count, stride, imap/), &
    & n=(/ndims, ndims, ndims, ndims/))
  iostat = gdncfiledatamode(ent%fileid)
  if (iostat /= nf90_noerr) return
  iostat = nf90_put_var(ent%fileid, ent%varid, value, &
    & start, count, stride, imap)
999 continue

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

Here is the call graph for this function: