Class fileset
In: ../src/setup/fileset.f90

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

Methods

Included Modules

dc_types dc_iounit dc_message mpi_wrapper namelist_util

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: arare5-20110623-2 $ (www.gfd-dennou.org/library/deepconv)’ :character(STRING), save, public
: データファイル作成プログラム名. Source of data file
FileTitle
Variable :
FileTitle = ‘cloud moist convection experiment‘ :character(STRING), save, public
: 実験名. Title of experiment
Subroutine :

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

This procedure input/output NAMELIST#fileset_nml .

[Source]

  subroutine fileset_init
    !
    !設定ファイルから出力ファイルに記載する情報を読み込む
    !
    
    !暗黙の型宣言禁止
    implicit none
    
    !内部変数
    integer                       :: unit     !設定ファイル用装置番号
  
    
    !設定ファイルから読み込む出力ファイル情報
    NAMELIST /fileset_nml/ FileTitle, FileSource, FileInstitution
    
    !設定ファイルから出力ファイルに記載する情報を読み込む
    call FileOpen(unit, file=namelist_filename, 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