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