gtvaropen.f90 File Reference

Open gtool4 data. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvaropen (var, url, writable, err)

Detailed Description

Open gtool4 data.

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

Definition in file gtvaropen.f90.

Function/Subroutine Documentation

gtvaropen()

subroutine gtvaropen	(	type(gt_variable), intent(out)	var,
		character(*), intent(in)	url,
		logical, intent(in), optional	writable,
		logical, intent(out), optional	err
	)

Open gtool4 variable

Opens the gtool variable identified by url and stores it in var. If writable is set to .true., attempts to open for writing. The default is to open read-only. (Note: writable behavior is not yet guaranteed.)

Variables opened with Open must always be closed with Close.

If an error occurs and err is provided, err returns .true.. If err is not provided, the program terminates.

Open is a generic name for 2 subroutines; it is also possible to open by specifying a dimension of a variable.

Parameters

[out]	var	Variable handle
[in]	url	Variable URL
[in]	writable	Open for writing (optional)
[out]	err	Error flag (optional)

Definition at line 64 of file gtvaropen.f90.

  use dc_string, only: strhead
  use dc_types, only: string
  use gtdata_types, only: gt_variable
  use gtdata_generic, only: limit
  use gtdata_internal_map, only: map_create, vtb_class_netcdf, gtvar_dump
  use gtdata_netcdf_generic, only: open, inquire
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_url, only: url_chop_iorange
  use dc_error, only: storeerror, dc_noerr, gt_enotvar
  use dc_trace, only: beginsub, endsub
  use dc_present, only: present_and_true
  implicit none
  type(GT_VARIABLE), intent(out):: var
  character(*), intent(in):: url
  logical, intent(in), optional:: writable
  logical, intent(out), optional:: err
  integer:: ndims, stat, cause_i
  character(STRING):: cause_c
  integer, allocatable:: dimlen(:)
  type(GD_NC_VARIABLE):: gdnc
  character(STRING):: filevar, iorange
  character(*),      parameter:: subname = "GTVarOpen"
  character(*),      parameter:: version = &
    & '$Name:  $' // &
    & '$Id: gtvaropen.f90,v 1.4 2009-05-25 09:55:57 morikawa Exp $'
continue
  call beginsub(subname, fmt='<%c>', c1=trim(url), version=version)
  stat = dc_noerr
  cause_i = 0
  cause_c = ''
  var = gt_variable(-1)
  call url_chop_iorange(url, iorange=iorange, remainder=filevar)
  call open(gdnc, filevar, writable, err)
  if ( present_and_true(err) ) then
    stat = gt_enotvar
    goto 999
  end if
  call inquire(gdnc, ndims=ndims)
  allocate(dimlen(max(1, ndims)))
  call inquire(gdnc, dimlen=dimlen)
  call map_create(var, vtb_class_netcdf, gdnc%id, ndims, dimlen, stat)
  if (stat /= dc_noerr) then
    cause_i = ndims
    goto 999
  end if
  deallocate(dimlen)
  call limit(var, trim(iorange))
  call gtvar_dump(var)
999 continue
  call storeerror(stat, subname, err, cause_c = cause_c, cause_i = cause_i)
  call endsub(subname, 'mapid=%d', i=(/var%mapid/))

References dc_trace::beginsub(), dc_error::dc_noerr, dc_trace::endsub(), dc_error::gt_enotvar, gtdata_internal_map::gtvar_dump(), gtdata_internal_map::map_create(), dc_present::present_and_true(), dc_error::storeerror(), dc_types::string, and dc_url::url_chop_iorange().

Here is the call graph for this function: