Subroutine ANVarInquire
subroutine ANVarInquire
! Uses
use an_types, only: an_variable, an_variable_entry
use an_file, only: inquire
use an_vartable, only: vtable_lookup
use an_generic, only: ANXTypeName
use dc_trace, only: beginsub, endsub, DbgMessage
use netcdf_f77, only: nf_noerr, nf_max_name, nf_inq_vartype, nf_inq_dimlen, nf_inq_unlimdim
! Calls
call ANXTypeName
call DbgMessage
call beginsub
call endsub
call inquire
call local_getname
! Variables
type (an_variable), intent(in) :: var
integer, optional, intent(out) :: ndims
integer, optional, intent(out) :: dimlen
logical, optional, intent(out) :: growable
character (len=*), optional, intent(out) :: name
character (len=*), optional, intent(out) :: url
character (len=*), optional, intent(out) :: xtype
type (an_variable_entry) :: ent
integer :: stat
integer :: length
integer :: i
integer :: i_xtype
integer :: idim_growable
character (len=*), parameter :: subname = 'anvarinqurie'
character (len=nf_max_name) :: buffer
character (len=nf_max_name) :: fbuffer
! Subroutines and functions
subroutine local_getname (ent, varname)
end subroutine ANVarInquire
Description of Variables
var
type (an_variable), intent(in) :: var
ndims
integer, optional, intent(out) :: ndims
dimlen
integer, optional, intent(out) :: dimlen
growable
logical, optional, intent(out) :: growable
name
character (len=*), optional, intent(out) :: name
url
character (len=*), optional, intent(out) :: url
xtype
character (len=*), optional, intent(out) :: xtype
ent
type (an_variable_entry) :: ent
stat
integer :: stat
length
integer :: length
i
integer :: i
i_xtype
integer :: i_xtype
idim_growable
integer :: idim_growable
subname
character (len=*), parameter :: subname = 'anvarinqurie'
buffer
character (len=nf_max_name) :: buffer
fbuffer
character (len=nf_max_name) :: fbuffer
Description of Subroutines and Functions
local_getname
subroutine local_getname (ent, varname)
type (an_variable_entry), intent(in) :: ent
character (len=*), intent(out) :: varname
end subroutine local_getname