Subroutine ANVarCreateD

subroutine ANVarCreateD

        ! Uses
    use an_types, only: an_variable, an_variable_search
    use an_vartable, only: vtable_add
    use dc_string, only: strieq
    use dc_types, only: string
    use dc_url, only: UrlSplit
    use dc_trace, only: BeginSub, EndSub, DbgMessage
    use netcdf_f77, only: nf_noerr, nf_real, nf_int, nf_double,  nf_def_var, nf_def_dim
    use an_file, only: anfileopen, anfiledefinemode
    use dc_error, only: StoreError, gt_enomem

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

        ! Variables
    type (an_variable), intent(out) :: var
    character (len=*), intent(in) :: url
    character (len=*), intent(in) :: xtype
    integer, intent(in) :: length
    logical, optional, intent(in) :: overwrite
    logical, optional, intent(out) :: err
    type (an_variable_search) :: ent
    character (len=string) :: filename
    character (len=string) :: varname
    character (len=string) :: cause_c
    integer :: stat
    integer :: nc_xtype
    character (len=*), parameter :: subname = "ANVarCreateD"

end subroutine ANVarCreateD

Description of Variables

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

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

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

integer, intent(in) :: length

logical, optional, intent(in) :: overwrite

logical, optional, intent(out) :: err

type (an_variable_search) :: ent

character (len=string) :: filename

character (len=string) :: varname

character (len=string) :: cause_c

integer :: stat

integer :: nc_xtype

character (len=*), parameter :: subname = "ANVarCreateD"