Class | fileset |
In: |
setup/fileset.f90
|
Copyright (C) GFD Dennou Club, 2004, 2005, 2006. All rights reserved.
* Developer: SUGIYAMA Ko-ichiro * Version: $Id: fileset.f90,v 1.1.1.1 2006/04/25 03:43:58 deepconv Exp $ * Tag Name: $Name: $ * Change History:
引数に与えられた NAMELIST ファイルから, ファイル名や表題等の情報を取得し 保管するための変数型モジュール
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