gtvarsearch.f90

Go to the documentation of this file.

 
 
subroutine gtvarsearchnext(url, end)
  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/))
end subroutine gtvarsearchnext
 
subroutine gtvarsearchinit(urlBase)
  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')
end subroutine gtvarsearchinit