Class fileset
In: setup/fileset.f90

    Copyright (C) GFD Dennou Club, 2004, 2005, 2006. All rights reserved.

Module FileSet

  * 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:

Overview

引数に与えられた NAMELIST ファイルから, ファイル名や表題等の情報を取得し 保管するための変数型モジュール

Error Handling

Known Bugs

Note

Future Plans

Methods

Included Modules

dc_message

Public Instance methods

[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

[Validate]