Class fileset
In: setup/fileset.f90

引数に与えられた NAMELIST ファイルから, I/O ファイル名を取得し, 保管するための変数型モジュール

Methods

ExpInst   ExpSrc   ExpTitle   HistoryFile   InitFile   RandomFile   ReStartFile   fileset_init  

Included Modules

dc_message

Public Instance methods

ExpInst()
Variable :
ExpInst :character(80)
: 最終変更者・組織
ExpSrc()
Variable :
ExpSrc :character(80)
: データを作成する手順
ExpTitle()
Variable :
ExpTitle :character(80)
: データの表題
HistoryFile()
Variable :
HistoryFile :character(80)
: ヒストリーファイル
InitFile()
Variable :
InitFile :character(80)
: 初期値ファイル
RandomFile()
Variable :
RandomFile :character(80)
: 乱数ファイル
ReStartFile()
Variable :
ReStartFile :character(80)
: リスタートファイル
fileset_init( cfgfile )
Subroutine :
cfgfile :character(*), intent(in)

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

This procedure input/output NAMELIST#fileset .

[Source]

  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

[Validate]