Subroutine ANVarCreate

subroutine ANVarCreate

        ! Uses
    use an_types, only: AN_VARIABLE, an_variable_entry, an_variable_search
    use dc_types, only: string
    use dc_string, only: strieq
    use an_vartable, only: vtable_add, vtable_lookup
    use an_file, only: ANFileOpen, ANFileDefineMode
    use dc_url, only: UrlSplit
    use dc_trace, only: BeginSub, EndSub, DbgMessage
    use an_generic, only: toString
    use netcdf_f77, only: NF_NOERR, nf_def_var, NF_REAL, NF_INT, NF_DOUBLE,  NF_EBADDIM, nf_inq_unlimdim
    use dc_error, only: StoreError, GT_ENOMEM, GT_EOTHERFILE,  GT_EDIMNODIM, GT_EDIMMULTIDIM

        ! Calls
    call ANFileOpen
    call BeginSub
    call DbgMessage
    call EndSub
    call StoreError
    call UrlSplit

        ! Variables
    type (AN_VARIABLE), intent(out) :: var
    character (len=*), intent(in) :: url
    character (len=*), intent(in) :: xtype
    type (AN_VARIABLE), intent(in), dimension (:) :: dims
    logical, optional, intent(in) :: overwrite
    logical, optional, intent(out) :: err
    type (an_variable_search) :: ent
    type (an_variable_entry) :: ent_dim
    character (len=string) :: filename
    character (len=string) :: varname
    integer, allocatable, dimension (:) :: dimids
    integer :: stat
    integer :: nvdims
    integer :: i
    integer :: nc_xtype
    logical :: clobber
    character (len=*), parameter :: subnam = "ANVarCreate"

end subroutine ANVarCreate

Description of Variables

type (AN_VARIABLE), intent(out) :: var

character (len=*), intent(in) :: url

character (len=*), intent(in) :: xtype

type (AN_VARIABLE), intent(in), dimension (:) :: dims

logical, optional, intent(in) :: overwrite

logical, optional, intent(out) :: err

type (an_variable_search) :: ent

type (an_variable_entry) :: ent_dim

character (len=string) :: filename

character (len=string) :: varname

integer, allocatable, dimension (:) :: dimids

integer :: stat

integer :: nvdims

integer :: i

integer :: nc_xtype

logical :: clobber

character (len=*), parameter :: subnam = "ANVarCreate"