gdncvarputnum.f90

Go to the documentation of this file.

! -*- coding: utf-8; mode: f90 -*-
!-------------------------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-------------------------------------------------------------------------------------
!> @file gdncvarputnum.erb
!>
!> @attention
!> This file is generated from ../../../../../src/gtdata/gtdata_netcdf/gdncvarputnum.erb by ERB included Ruby 3.3.8.
!> Please do not edit this file directly.
!>
!> @author Yasuhiro MORIKAWA, Eizi TOYODA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Put numeric data to netCDF variables
!>
!> These subroutines write data to netCDF variables.
!> @enden
!>
!> @ja
!> @brief netCDF 変数へ数値データを出力
!>
!> これらのサブルーチンは netCDF 変数へデータを書き込みます。
!> @endja
!>
!>
!> @en
!> @brief Put variable data (real type)
!>
!> Writes data to a netCDF variable with array slicing support.
!> @enden
!>
!> @ja
!> @brief 変数データの出力 (real 型)
!>
!> netCDF 変数へ配列スライシングをサポートしてデータを書き込みます。
!> @endja
!>
!> @param[in]  var    @en Variable handle @enden @ja 変数ハンドル @endja
!> @param[in]  start  @en Start indices for each dimension @enden @ja 各次元の開始インデックス @endja
!> @param[in]  count  @en Count of elements to write for each dimension @enden @ja 各次元の書き込み要素数 @endja
!> @param[in]  stride @en Stride (interval) for each dimension @enden @ja 各次元のストライド (間隔) @endja
!> @param[in]  imap   @en Memory mapping vector (see NetCDF manual NF_PUT_VARM_type) @enden
!>                    @ja メモリマッピングベクトル (NetCDF マニュアル NF_PUT_VARM_type 参照) @endja
!> @param[in]  siz    @en Size of value array @enden @ja value 配列のサイズ @endja
!> @param[in]  value  @en Data to write @enden @ja 書き込むデータ @endja
!> @param[out] iostat @en I/O status (NF90_NOERR on success) @enden @ja I/O ステータス (成功時 NF90_NOERR) @endja
!>
subroutine gdncvarputreal(var, start, count, stride, imap, siz, value, iostat)
  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
end subroutine gdncvarputreal
 
!>
!> @en
!> @brief Put variable data (double type)
!>
!> Writes data to a netCDF variable with array slicing support.
!> @enden
!>
!> @ja
!> @brief 変数データの出力 (double 型)
!>
!> netCDF 変数へ配列スライシングをサポートしてデータを書き込みます。
!> @endja
!>
!> @param[in]  var    @en Variable handle @enden @ja 変数ハンドル @endja
!> @param[in]  start  @en Start indices for each dimension @enden @ja 各次元の開始インデックス @endja
!> @param[in]  count  @en Count of elements to write for each dimension @enden @ja 各次元の書き込み要素数 @endja
!> @param[in]  stride @en Stride (interval) for each dimension @enden @ja 各次元のストライド (間隔) @endja
!> @param[in]  imap   @en Memory mapping vector (see NetCDF manual NF_PUT_VARM_type) @enden
!>                    @ja メモリマッピングベクトル (NetCDF マニュアル NF_PUT_VARM_type 参照) @endja
!> @param[in]  siz    @en Size of value array @enden @ja value 配列のサイズ @endja
!> @param[in]  value  @en Data to write @enden @ja 書き込むデータ @endja
!> @param[out] iostat @en I/O status (NF90_NOERR on success) @enden @ja I/O ステータス (成功時 NF90_NOERR) @endja
!>
subroutine gdncvarputdouble(var, start, count, stride, imap, siz, value, iostat)
  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
end subroutine gdncvarputdouble
 
!>
!> @en
!> @brief Put variable data (int type)
!>
!> Writes data to a netCDF variable with array slicing support.
!> @enden
!>
!> @ja
!> @brief 変数データの出力 (int 型)
!>
!> netCDF 変数へ配列スライシングをサポートしてデータを書き込みます。
!> @endja
!>
!> @param[in]  var    @en Variable handle @enden @ja 変数ハンドル @endja
!> @param[in]  start  @en Start indices for each dimension @enden @ja 各次元の開始インデックス @endja
!> @param[in]  count  @en Count of elements to write for each dimension @enden @ja 各次元の書き込み要素数 @endja
!> @param[in]  stride @en Stride (interval) for each dimension @enden @ja 各次元のストライド (間隔) @endja
!> @param[in]  imap   @en Memory mapping vector (see NetCDF manual NF_PUT_VARM_type) @enden
!>                    @ja メモリマッピングベクトル (NetCDF マニュアル NF_PUT_VARM_type 参照) @endja
!> @param[in]  siz    @en Size of value array @enden @ja value 配列のサイズ @endja
!> @param[in]  value  @en Data to write @enden @ja 書き込むデータ @endja
!> @param[out] iostat @en I/O status (NF90_NOERR on success) @enden @ja I/O ステータス (成功時 NF90_NOERR) @endja
!>
subroutine gdncvarputint(var, start, count, stride, imap, siz, value, iostat)
  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
end subroutine gdncvarputint
 
!>
!> @en
!> @brief Put variable data (char type)
!>
!> Writes data to a netCDF variable with array slicing support.
!> @enden
!>
!> @ja
!> @brief 変数データの出力 (char 型)
!>
!> netCDF 変数へ配列スライシングをサポートしてデータを書き込みます。
!> @endja
!>
!> @param[in]  var    @en Variable handle @enden @ja 変数ハンドル @endja
!> @param[in]  start  @en Start indices for each dimension @enden @ja 各次元の開始インデックス @endja
!> @param[in]  count  @en Count of elements to write for each dimension @enden @ja 各次元の書き込み要素数 @endja
!> @param[in]  stride @en Stride (interval) for each dimension @enden @ja 各次元のストライド (間隔) @endja
!> @param[in]  imap   @en Memory mapping vector (see NetCDF manual NF_PUT_VARM_type) @enden
!>                    @ja メモリマッピングベクトル (NetCDF マニュアル NF_PUT_VARM_type 参照) @endja
!> @param[in]  siz    @en Size of value array @enden @ja value 配列のサイズ @endja
!> @param[in]  value  @en Data to write @enden @ja 書き込むデータ @endja
!> @param[out] iostat @en I/O status (NF90_NOERR on success) @enden @ja I/O ステータス (成功時 NF90_NOERR) @endja
!>
subroutine gdncvarputchar(var, start, count, stride, imap, siz, value, iostat)
  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
end subroutine gdncvarputchar