変数探査 More...

Functions/Subroutines
subroutine	gtvarsearchnext (url, end)

subroutine	gtvarsearchinit (urlbase)

Detailed Description

変数探査

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 )

変数探査初期化サブルーチン

上記の GTVarSearchNext を参照してください。

Parameters

[in] urlBase 検索のベースURL

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
	)

変数探査サブルーチン (次を取得)

あるファイル名 urlBase に依存する変数すべてを取得するには、まず GTVarSearch(urlBase) (下記のサブルーチン) を呼び出し、その後無限ループの中で GTVarSearch(url, end) を呼び出します。そうすることで url に1つ1つの変数名が返ります。 end が真になったとき、すべての変数名を探索し終えたことになります。