| Class | fileset |
| In: |
setup/fileset.f90
|
引数に与えられた NAMELIST ファイルから, I/O ファイル名を取得し, 保管するための変数型モジュール
| Subroutine : | |
| cfgfile : | character(*), intent(in) |
NAMELIST からファイル名に付けるタグを得て, 出力ファイル名を作成する.
This procedure input/output NAMELIST#fileset .
subroutine fileset_init(cfgfile)
!
!NAMELIST からファイル名に付けるタグを得て, 出力ファイル名を作成する.
!
!モジュール読み込み
use dc_message, only: MessageNotify
!暗黙の型宣言禁止
implicit none
!入力変数
character(*), intent(in) :: cfgfile
!NAMELIST から情報を取得
NAMELIST /fileset/ InitFile, HistoryFile, ReStartFile, RandomFile, ExpTitle, ExpSrc, ExpInst
open (10, FILE=cfgfile)
read(10, NML=fileset)
close(10)
!確認
call MessageNotify("Message", "fileset_init, InitFile ", InitFile)
call MessageNotify("Message", "fileset_init, HistoryFile", HistoryFile)
call MessageNotify("Message", "fileset_init, ReStartFile", ReStartFile)
call MessageNotify("Message", "fileset_init, RandomFile ", RandomFile)
call MessageNotify("Message", "fileset_init, ExpTitle ", ExpTitle)
call MessageNotify("Message", "fileset_init, ExpSrc ", ExpSrc)
call MessageNotify("Message", "fileset_init, ExpInst ", ExpInst)
end subroutine fileset_init