program TestUtil
use fileset
use debugset
use gridset
use timeset
use dataset
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 から情報を得て, 格子点を計算する
call gridset_init(cfgfile)
!----------------------------------------------------------------------
! ユーティリティを初期化
!----------------------------------------------------------------------
!減衰率を決める
call Dumping_init()
end program TestUtil