Variable search. More...

Functions/Subroutines
subroutine	gtvarsearchnext (url, end)

subroutine	gtvarsearchinit (urlbase)

Detailed Description

Variable search.

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

Function/Subroutine Documentation

◆ gtvarsearchinit()

subroutine gtvarsearchinit ( character(len = *), intent(in) urlbase )

Variable search initialization subroutine

See GTVarSearchNext above.

Parameters

[in] urlBase Base URL for search

Definition at line 93 of file gtvarsearch.f90.

  use gtdata_netcdf_generic, only: var_search
  use gtdata_internal_vartable, only: gdnc_search
  use dc_trace, only: beginsub, endsub
  implicit none
  character(len = *), intent(in):: urlBase
continue
  call beginsub('gtvarsearchinit', 'urlbase=<%c>', c1=trim(urlbase))
  call var_search(gdnc_search, &      ! (out)
    &             urlbase = urlbase ) ! (in)
  call endsub('gtvarsearchinit')

References dc_trace::beginsub(), dc_trace::endsub(), and gtdata_internal_vartable::gdnc_search.

Here is the call graph for this function:

◆ gtvarsearchnext()

subroutine gtvarsearchnext	(	character(len = *), intent(out)	url,
		logical, intent(out)	end
	)

Variable search subroutine (get next)

To get all variables dependent on a filename urlBase, first call GTVarSearch(urlBase) (see below), then call GTVarSearch(url, end) in an infinite loop. This returns variable names one by one in url. When end becomes true, all variable names have been searched.

Example:

use gtool5
character(len = STRING) :: filename, varname
logical                 :: end
 
write(*,*) "Enter file name: "
read(*,*) filename
 
call gtvarsearch(filename)
do
  call gtvarsearch(varname, end)
  if (end) exit
  write(*, *) trim(varname)
enddo