gtvardimname2ord.f90 File Reference

Query dimension order number from dimension relative name. More...

Go to the source code of this file.

Functions/Subroutines
integer function	gtvardimname2ord (var, name)

Detailed Description

Query dimension order number from dimension relative name.

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 gtvardimname2ord.f90.

Function/Subroutine Documentation

gtvardimname2ord()

integer function gtvardimname2ord	(	type(gt_variable), intent(in)	var,
		character(len = *), intent(in)	name
	)

Get dimension order from dimension relative name

A variable belongs to multiple dimensions. Dimensions are identified by order numbers, but since the order of dimensions in a variable can be exchanged, it is sometimes convenient to identify them with short names relative to the variable. For example, for variable filename?var, used with comma notation like filename?var,dim=1 (see "5.4 Comma Notation" in gtool4 netCDF Convention). (For netCDF variable filename?varname, dimension name dim would indicate filename?dim, but such relationship does not always hold.)

The Dimname_to_Dimord procedure gives the dimension order number from such relative dimension names. Valid numbers are 1 or greater; numbers 0 or less indicate an error.

Parameters

[in]	var	Variable handle
[in]	name	Dimension relative name

Returns

Dimension order number (0 or less indicates error)

Definition at line 63 of file gtvardimname2ord.f90.

  use gtdata_types, only: gt_variable
  use dc_string, only: stoi
  use gtdata_netcdf_generic, only: search_dim
  use gtdata_netcdf_types, only: gd_nc_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  implicit none
  type(gt_variable), intent(in):: var
  character(len = *), intent(in):: name
  integer:: class, cid
  result = -1
  if (name == ' ') return
  result = stoi(name)
  if (result /= 0) return
  ! 個別層に問い合わせて次元番号を得ようと試みる。
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    result = search_dim(gd_nc_variable(cid), name)
  endif
  ! map 表から次元名を使って次元番号を得ようと試みる。

References gtdata_internal_map::var_class().

Here is the call graph for this function: