gdncvarcreated.f90 File Reference

Create dimension variable in netCDF file. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncvarcreated (var, url, xtype, length, overwrite, err)

Detailed Description

Create dimension variable in netCDF file.

Author

Eizi TOYODA, Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

Definition in file gdncvarcreated.f90.

Function/Subroutine Documentation

gdncvarcreated()

subroutine gdncvarcreated	(	type(gd_nc_variable), intent(out)	var,
		character(len = *), intent(in)	url,
		character(len = *), intent(in)	xtype,
		integer, intent(in)	length,
		logical, intent(in), optional	overwrite,
		logical, intent(out), optional	err
	)

Create a dimension variable

Creates a dimension variable at the specified URL. The dimension length is specified by length. The returned var contains the variable ID and other information.

Setting overwrite to .true. enables overwrite mode (default: no overwrite). If err is provided, errors return .false. instead of terminating.

Parameters

[out]	var	Created variable handle
[in]	url	Variable URL
[in]	xtype	Data type (float, double, int, char)
[in]	length	Dimension length
[in]	overwrite	Enable overwrite mode (optional)
[out]	err	Error flag (optional)

Definition at line 54 of file gdncvarcreated.f90.

  use gtdata_netcdf_types, only: gd_nc_variable, gd_nc_variable_search
  use gtdata_netcdf_internal, only: vtable_add
  use dc_string, only: strieq
  use dc_types, only: string
  use dc_url, only: urlsplit
  use dc_trace, only: beginsub, endsub, dbgmessage
  use netcdf, only: nf90_noerr, nf90_float, nf90_int, nf90_double, nf90_char, &
    & nf90_def_var, nf90_def_dim
  use gtdata_netcdf_file_generic, only: gdncfileopen, gdncfiledefinemode
  use dc_error, only: storeerror
  implicit none
  type(GD_NC_VARIABLE), intent(out):: var
  character(len = *), intent(in):: url
  character(len = *), intent(in):: xtype
  integer, intent(in):: length
  logical, intent(in), optional:: overwrite
  logical, intent(out), optional:: err
  type(GD_NC_VARIABLE_SEARCH):: ent
  character(len = string):: filename, varname, cause_c
  integer:: stat
  integer:: nc_xtype
  character(len = *), parameter:: subname = "GDNcVarCreateD"
continue
  call beginsub(subname, 'url=<%c>, xtype=<%c>, length=<%d>', &
    & c1=trim(url), c2=trim(xtype), i=(/length/))
  cause_c = trim(url)
  !
  ! --- ファイルを用意 ---
  call urlsplit(url, file=filename, var=varname)
  call gdncfileopen(ent%fileid, filename, stat=stat, writable=.true., &
    & overwrite=overwrite)
  if (stat /= nf90_noerr) goto 999
  stat = gdncfiledefinemode(ent%fileid)
  if (stat /= nf90_noerr) goto 999
  !
  ! --- 型の決定 ---
  nc_xtype = nf90_float
  if (strieq(xtype, "double")) then
    nc_xtype = nf90_double
  else if (strieq(xtype, "DOUBLEPRECISION")) then
    nc_xtype = nf90_double
  end if
  if (strieq(xtype, "int")) then
    nc_xtype = nf90_int
  else if (strieq(xtype, "INTEGER")) then
    nc_xtype = nf90_int
  end if
  if (strieq(xtype, "char")) then
    nc_xtype = nf90_char
  else if (strieq(xtype, "CHARACTER")) then
    nc_xtype = nf90_char
  end if
  !
  ! --- 次元変数の作成 ---
  stat = nf90_def_dim(ent%fileid, trim(varname), len=length, dimid=ent%dimid)
  if (stat /= nf90_noerr) goto 999
  stat = nf90_def_var(ent%fileid, trim(varname), &
    & xtype=nc_xtype, dimids=(/ent%dimid/), varid=ent%varid)
  if (stat /= nf90_noerr) goto 999
  !
  stat = vtable_add(var, ent)
  if (stat /= nf90_noerr) goto 999
 
999 continue
  call storeerror(stat, subname, err, cause_c=cause_c)
  if (stat /= nf90_noerr) var = gd_nc_variable(-1)
  call endsub(subname, 'stat=%d', i=(/stat/))

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_trace::endsub(), dc_error::storeerror(), dc_types::string, and gtdata_netcdf_internal::vtable_add().

Here is the call graph for this function: