gtvarsearch.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarsearchnext (url, end)
subroutine	gtvarsearchinit (urlBase)

Function/Subroutine Documentation

gtvarsearchinit()

subroutine gtvarsearchinit

(

character(len = *), intent(in)

urlBase

)

Definition at line 54 of file gtvarsearch.f90.

References gtdata_internal_vartable::gdnc_search.

  !
  !== 変数探査初期化サブルーチン
  !
  ! 上記の GTVarSearch を参照してください。
  !
  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')

gtvarsearchnext()

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

Definition at line 15 of file gtvarsearch.f90.

References gtdata_internal_vartable::gdnc_search.

  !
  !== 変数探査サブルーチン
  !
  ! あるファイル名 urlBase に依存する変数すべてを取得するには、
  ! まず GTVarSearch(urlBase) (下記のサブルーチン) を呼び出し、
  ! その後無限ループの中で GTVarSearch(url, end) を呼び出します。
  ! そうすることで url に1つ1つの変数名が返ります。
  ! *end* が真になったとき、すべての変数名を探索し終えたことになります。
  !
  !=== 例
  !
  !    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
  !
  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(out):: url
  logical, intent(out):: end
continue
  call beginsub('gtvarsearchnext')
  call var_search(gdnc_search, &    ! (inout)
    &             url=url, end=end) ! (out)
  call endsub('gtvarsearchnext', 'url=%c end=%y', c1=trim(url), l=(/end/))