! Copyright (C) GFD Dennou Club, 2000.  All rights reserved.
!
! 独立変数 create
!
! 長さ length の自分自身を次元とする変数を作成する。
! 長さ length = 0 の変数は可変長である。
! 次元変数は自動生成されることが多いため、変数名部を欠く指定に対しては
! 名前を自動生成する。
!
subroutine GTVarCreateD(var, url, length, xtype, long_name, overwrite, err)
    use dc_string
    use gtdata_types, only: GT_VARIABLE
    use gtdata_generic, only: GtDataTmpNam
    use an_generic, only: Create, Put_Attr, an_variable
    use gt_mem, only: Create, mem_variable
    use gt_map, only: map_create, vtb_class_memory, vtb_class_netcdf, gtvar_dump
    use dc_url, only: UrlSplit, UrlMerge
    use dc_trace, only: beginsub, endsub, message
    use dc_types, only: string
    implicit none
    type(GT_VARIABLE), intent(out):: var
    character(len = *), intent(in):: url
    integer, intent(in):: length
    character(len = *), intent(in), optional:: xtype
    character(len = *), intent(in), optional:: long_name
    logical, intent(in), optional:: overwrite
    logical, intent(out), optional:: err
    character(len = string):: fnam, vnam, new_url
    type(an_variable):: an
    type(mem_variable):: mem
continue
    call beginsub('gtvarcreate-d', 'url=<%c> length=%d', c1=trim(url), i=(/length/))
    if (strHead(url, "memory:")) then
        call Create(mem, url, length, xtype, long_name, overwrite, err)
        call map_create(var, vtb_class_memory, mem%id, 1, (/length/))
        call gtvar_dump(var)
        call endsub('gtvarcreate-d', 'class=memory mapid=%d', i=(/var%mapid/))
        return
    endif
    ! URL の検査
    call UrlSplit(url, file=fnam, var=vnam)
    if (vnam == "") then
        call GtDataTmpNam(file=fnam, base="dim", result=new_url)
    else
        new_url = url
    endif
    ! an 形式が選択される場合は
    call Create(var=an, url=new_url, length=length, xtype=xtype, &
        & overwrite=overwrite, err=err)
    if (present(long_name)) then
        call put_attr(an, 'long_name', long_name, err=err)
    endif
    call map_create(var, vtb_class_netcdf, an%id, 1, (/length/))
    call gtvar_dump(var)
    call endsub('gtvarcreate-d', 'class=netcdf mapid=%d', i=(/var%mapid/))
end subroutine