Subroutine ANVarSearchNext
subroutine ANVarSearchNext
! Uses
use an_types, only: AN_VARIABLE_SEARCH
use dc_types, only: string
use netcdf_f77
use dc_url, only: UrlMerge
use an_file, only: inquire, AnFileClose
use dc_trace, only: beginsub, endsub, DbgMessage
! Calls
call ANFileClose
call beginsub
call endsub
call inquire
! Variables
type (AN_VARIABLE_SEARCH), intent(inout) :: iter
character (len=*), intent(out) :: url
logical, intent(out) :: end
character (len=string) :: filename
character (len=NF_MAX_NAME) :: varname
integer :: stat
integer :: varid_tmp
end subroutine ANVarSearchNext
Description of Variables
iter
type (AN_VARIABLE_SEARCH), intent(inout) :: iter
url
character (len=*), intent(out) :: url
end
logical, intent(out) :: end
filename
character (len=string) :: filename
varname
character (len=NF_MAX_NAME) :: varname
stat
integer :: stat
varid_tmp
integer :: varid_tmp