gtvarsliceauto.f90 File Reference

Automatic I/O range specification. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarsliceauto (var, compatible)

Detailed Description

Automatic I/O range specification.

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

Function/Subroutine Documentation

gtvarsliceauto()

subroutine gtvarsliceauto	(	type(gt_variable), intent(inout)	var,
		type(gt_variable), intent(in), optional	compatible
	)

Automatically specify I/O range

Makes the I/O range of variable var "appropriately" small. If compatible is specified, sets it to the exact same I/O range as that variable.

Slice is a generic name for multiple subroutines; there are also methods to specify by string or number.

Related procedures to Slice include Get_Slice and Slice_Next. Get_Slice retrieves the set I/O range. Slice_Next is used to read the entire variable by moving the I/O range.

Parameters

[in,out]	var	Variable handle
[in]	compatible	Variable to match I/O range (optional)

Definition at line 57 of file gtvarsliceauto.f90.

  use gtdata_types, only: gt_variable
  use gtdata_generic, only: inquire, get_slice, gtvarslice
  type(GT_VARIABLE), intent(inout):: var
  type(GT_VARIABLE), intent(in), optional:: compatible
  integer:: nd, i
  integer, allocatable:: start(:), count(:), stride(:)
  call inquire(var, alldims=nd)
  if (nd <= 0) return
  allocate(start(nd), count(nd), stride(nd))
  if (present(compatible)) then
    call get_slice(compatible, start, count, stride)
    do, i = 1, nd
      call gtvarslice(var, i, start(i), count(i), stride(i))
    enddo
  else
    call get_slice(var, start, count, stride)
    do, i = 1, nd
      if (count(i) < 1) count(i) = 1
      call gtvarslice(var, i, start(i), count(i), stride(i))
    enddo
  endif
  deallocate(start, count, stride)

References gtvarslice().

Here is the call graph for this function: