gtvargetslice.f90 File Reference

Get variable I/O range restriction information. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvargetslice (var, dimord, start, count, stride, count_compact)

Detailed Description

Get variable I/O range restriction information.

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

Function/Subroutine Documentation

gtvargetslice()

subroutine gtvargetslice	(	type(gt_variable), intent(in)	var,
		integer, intent(in)	dimord,
		integer, intent(out), optional	start,
		integer, intent(out), optional	count,
		integer, intent(out), optional	stride,
		logical, intent(in), optional	count_compact
	)

Get I/O range information for specified dimension

Gets I/O range information set by Slice for dimension dimord of variable var. See Slice for start, count, stride.

If count_compact is set to .true., queries including degenerate dimensions.

Get_Slice is a generic name for 2 subroutines; there is also a method to bulk get information for all dimensions.

Parameters

[in]	var	Variable handle
[in]	dimord	Dimension order number
[out]	start	Start index (optional)
[out]	count	Count (optional)
[out]	stride	Stride (optional)
[in]	count_compact	Include degenerate dimensions (optional)

Definition at line 60 of file gtvargetslice.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: gt_dimmap, map_lookup, dimord_skip_compact
  implicit none
  type(GT_VARIABLE), intent(in):: var
  integer, intent(in):: dimord
  integer, intent(out), optional:: start
  integer, intent(out), optional:: count
  integer, intent(out), optional:: stride
  logical, intent(in), optional:: count_compact
  type(GT_DIMMAP), allocatable:: map(:)
  integer:: vid, udimord, ndims
  logical:: allmode
continue
  allmode = .true.
  if (present(count_compact)) allmode = count_compact
  call map_lookup(var, vid=vid, ndims=ndims)
  if (vid < 0 .or. ndims <= 0) goto 999
  allocate(map(ndims))
  call map_lookup(var, map=map)
  if (allmode) then
    udimord = dimord
  else
    udimord = dimord_skip_compact(dimord, map)
  endif
  if (udimord < 1 .or. udimord > size(map)) goto 997
 
  if (present(start)) start = map(udimord)%start
  if (present(count)) count = map(udimord)%count
  if (present(stride)) stride = map(udimord)%stride
  deallocate(map)
  return
 
997 continue
  deallocate(map)
999 continue
  if (present(start)) start = -1
  if (present(count)) count = -1
  if (present(stride)) stride = -1

References gtdata_internal_map::dimord_skip_compact(), and gtdata_internal_map::map_lookup().

Here is the call graph for this function: