Class: fileset

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

Methods

FileInstitution FileSource FileTitle fileset_init

Included Modules

dc_types dc_iounit dc_message mpi_wrapper

Public Instance methods

FileInstitution

Variable :

FileInstitution = ‘GFD Dennou Club (www.gfd-dennou.org)’ :

character(STRING), save, public

:	データファイル作成者/グループ. Institution or person that changes data files for the last time

FileSource

Variable :

FileSource = ‘deepconv/arare5 $Name: $ (www.gfd-dennou.org/library/deepconv)’ :

character(STRING), save, public

:	データファイル作成プログラム名. Source of data file

FileTitle

Variable :

FileTitle = ‘Aqua planet atmospheric convection experiment‘ :

character(STRING), save, public

:	実験名. Title of experiment

fileset_init( cfgfile )

Subroutine :

cfgfile :

character(STRING), intent(in)

設定ファイル名

設定ファイルから出力ファイルに記載する情報を読み込む

This procedure input/output NAMELIST#fileset_nml .

[Source]

  subroutine fileset_init(cfgfile)
    !
    !設定ファイルから出力ファイルに記載する情報を読み込む
    !
    
    !暗黙の型宣言禁止
    implicit none
    
    !入力変数
    character(STRING), intent(in) :: cfgfile  !設定ファイル名
    integer                       :: unit     !装置番号
  
    
    !設定ファイルから読み込む出力ファイル情報
    NAMELIST /fileset_nml/ FileTitle, FileSource, FileInstitution
    
    !設定ファイルから出力ファイルに記載する情報を読み込む
    call FileOpen(unit, file=cfgfile, mode='r')
    read(unit, NML=fileset_nml)
    close(unit)
    
    !"myrank == 0" に該当する計算ノードが, 読み込んだ情報を出力
    if (myrank == 0) then 
      call MessageNotify( "M", "fileset_init", "FileTitle = %c",    c1=trim(FileTitle) )
      call MessageNotify( "M", "fileset_init", "FileSource = %c",   c1=trim(FileSource) )
      call MessageNotify( "M", "fileset_init", "FileInstitution = %c", c1=trim(FileInstitution) )
    end if

  end subroutine fileset_init