program TestSetup

  use fileset
  use debugset
  use gridset
  use timeset
  use basicset

  character(80) :: cfgfile

  !----------------------------------------------------------------------
  ! 介袋步
  !----------------------------------------------------------------------
  !NAMELIST ファイルの艰评
  call getarg( 1, cfgfile )
  write(*,*) "Input NAMELIST file: ", cfgfile

  !I/O ファイル叹の介袋步
  !  NAMELIST ファイル叹を回年し, deepconv/arare の
  !  叫蜗ファイル叹を NAMELIST から评る
  call fileset_init(cfgfile)

  !デバグ肋年の介袋步
  !  NAMELIST から攫鼠を评て, デバッグ叫蜗スイッチの磊仑えを乖う.
  call debugset_init(cfgfile)

  !箕癸に簇する肋年の介袋步
  !  NAMELIST から涩妥な攫鼠を粕み艰り, 箕粗簇息の恃眶の肋年を乖う.
  call timeset_init(cfgfile)

  !湿妄弄ˇ步池弄年眶の介袋步
  !  纷换に网脱する步池硷および, 孺钱, 尸灰翁, NameList ファイルから arare 悸乖に涩妥なパラメタを艰评する
!  call dataset_init(cfgfile)

  !呈灰爬攫鼠の介袋步
  !  NAMELIST から攫鼠を评て, 呈灰爬を纷换する
  call gridset_init(cfgfile)

  !答塑眷攫鼠の介袋步
  !  NAMELIST から攫鼠を评て, 答塑眷を纷换する
  call BasicSet_init(cfgfile)

end program TestSetup