subroutine fileset_init(cfgfile)
    !
    !NAMELIST からファイル名に付けるタグを得て, 出力ファイル名を作成する. 
    !

    !暗黙の型宣言禁止
    implicit none

    !入力変数
    character(*), intent(in) :: cfgfile

    !内部変数
    integer                  :: unit     !装置番号
    integer                  :: s        !ループ添字

    !NAMELIST から情報を取得
    NAMELIST /fileset/ InitFile, HistoryFilePrefix, ReStartFile, RandomFile, ExpTitle, ExpSrc           , ExpInst

    call FileOpen(unit, file=cfgfile, mode='r')
    read(unit, NML=fileset)
    close(unit)

    !確認
    call MessageNotify( "M", "fileset_init", "InitFile=%c",    c1=trim(InitFile))
    call MessageNotify( "M", "fileset_init", "HistoryFilePrefix=%c", c1=trim(HistoryFilePrefix) )
    call MessageNotify( "M", "fileset_init", "ReStartFile=%c", c1=trim(ReStartFile) )
    call MessageNotify( "M", "fileset_init", "RandomFile=%c",  c1=trim(RandomFile) )
    call MessageNotify( "M", "fileset_init", "ExpTitle=%c",    c1=trim(ExpTitle) )
    call MessageNotify( "M", "fileset_init", "ExpSrc=%c",      c1=trim(ExpSrc) )
    call MessageNotify( "M", "fileset_init", "ExpInst=%c",     c1=trim(ExpInst) )


    !ファイル名を格納する配列の割り付け
    !  次元数は
    !    PotTemp, Exner, VelX, VelY, VelZ, MixRt(SpcNum), Km, Kh
    !    VorX, VorY, VorZ
    !    *BasicZ, *Zprof
    !  の合計 12 + SpcNum
    
    FileNum = 12 + SpcNum
    write(*,*) FileNum
!    if allocated(HistoryFile) then 
!       write(*,*) "already allocated HistoryFile(FileNum)"
!    else
       allocate(HistoryFile(FileNum))
!    end if
    allocate(gt_hist(FileNum))

    HistoryFile(1) = trim(HistoryFilePrefix)//"_Exner.nc" 
    HistoryFile(2) = trim(HistoryFilePrefix)//"_PotTemp.nc" 
    HistoryFile(3) = trim(HistoryFilePrefix)//"_VelX.nc" 
    HistoryFile(4) = trim(HistoryFilePrefix)//"_VelY.nc" 
    HistoryFile(5) = trim(HistoryFilePrefix)//"_VelZ.nc" 
    HistoryFile(6) = trim(HistoryFilePrefix)//"_Km.nc" 
    HistoryFile(7) = trim(HistoryFilePrefix)//"_Kh.nc" 
    HistoryFile(8) = trim(HistoryFilePrefix)//"_BasicZ.nc" 
    HistoryFile(9) = trim(HistoryFilePrefix)//"_Zprof.nc" 

    HistoryFile(10) = trim(HistoryFilePrefix)//"_VorX.nc" 
    HistoryFile(11) = trim(HistoryFilePrefix)//"_VorY.nc" 
    HistoryFile(12) = trim(HistoryFilePrefix)//"_VorZ.nc" 

    do s = 1, SpcNum
      HistoryFile(12+s) = trim(HistoryFilePrefix)//"_"//trim(SpcWetSymbol(s))//".nc"
    end do


    !確認
    do s = 1, Filenum
      call MessageNotify( "M", "fileset_init", "HistoryFile=%c", c1=trim(HistoryFile(s)) )
    end do
    
  end subroutine fileset_init