gtvarcreated.f90 File Reference

Create independent variable (dimension). More...

Go to the source code of this file.

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

Detailed Description

Create independent variable (dimension).

Author

Yasuhiro MORIKAWA, Eizi TOYODA

Copyright

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

This subroutine is provided through gtdata_generic.

Definition in file gtvarcreated.f90.

Function/Subroutine Documentation

gtvarcreated()

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

Create dimension variable

Creates a variable of GT_VARIABLE type with itself as the dimension at location url with length length, and sets it to var. Like variables opened with Open, var must later be closed with Close.

Specifying length == 0 makes the variable an unlimited dimension. If xtype is omitted, it defaults to "float". Creation fails if the variable already exists, but continues by overwriting if overwrite == .true.. (Note: overwrite behavior is not yet guaranteed.) Omitting dims means setting a 0-dimensional variable.

Since dimension variables are often auto-generated, names are auto-generated for specifications lacking a variable name part.

If an error occurs during creation, outputs a message and terminates. If err is provided, returns .true. and program does not terminate.

Parameters

[out]	var	Variable handle
[in]	url	Variable URL
[in]	length	Dimension length (0 for unlimited)
[in]	xtype	Data type (optional, default "float")
[in]	long_name	Long name attribute (optional)
[in]	overwrite	Allow overwrite (optional)
[out]	err	Error flag (optional)

Definition at line 77 of file gtvarcreated.f90.

  use dc_string, only: strhead
  use gtdata_types, only: gt_variable
  use gtdata_generic, only: gtdatatmpnam
  use gtdata_netcdf_generic, only: create, put_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use gtdata_internal_map, only: map_create, vtb_class_netcdf, gtvar_dump
  use dc_url, only: urlsplit, urlmerge
  use dc_trace, only: beginsub, endsub, dbgmessage
  use dc_error, only: storeerror, dc_noerr
  use dc_types, only: string
  implicit none
  type(GT_VARIABLE), intent(out):: var
  character(len = *), intent(in):: url
  integer, intent(in):: length
  character(len = *), intent(in), optional:: xtype
  character(len = *), intent(in), optional:: long_name
  logical, intent(in), optional:: overwrite
  logical, intent(out), optional:: err
  character(len = STRING):: fnam, vnam, new_url, data_class
  type(GD_NC_VARIABLE):: gdnc
  integer :: stat, cause_i
  character(len = *),      parameter:: subname = "GTVarCreateD"
  character(len = *),      parameter:: version = &
    & '$Name:  $' // &
    & '$Id: gtvarcreated.f90,v 1.5 2009-05-25 09:55:58 morikawa Exp $'
continue
  call beginsub(subname, 'url=<%c> length=%d', &
    & c1=trim(url), i=(/length/), version=version)
  stat = dc_noerr
  cause_i = 0
  data_class = ''
  ! URL の検査
  call urlsplit(url, file=fnam, var=vnam)
  if (vnam == "") then
    call gtdatatmpnam(file=fnam, base="dim", result=new_url)
  else
    new_url = url
  endif
  ! gdnc 形式が選択される場合は
  call create(var=gdnc, url=new_url, length=length, xtype=xtype, &
    & overwrite=overwrite, err=err)
  if (present(long_name)) then
    call put_attr(gdnc, 'long_name', long_name, err=err)
  endif
  call map_create(var, vtb_class_netcdf, gdnc%id, 1, (/length/), stat)
    if (stat /= dc_noerr) then
      cause_i = 1
      goto 999
    end if
  call gtvar_dump(var)
  data_class = 'netcdf'
999 continue
  call storeerror(stat, subname, err, cause_i=cause_i)
  call endsub(subname, 'class=%c mapid=%d', &
    & c1=trim(data_class), i=(/var%mapid/) )

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_noerr, dc_trace::endsub(), gtdata_internal_map::gtvar_dump(), gtdata_internal_map::map_create(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function: