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