Module FileSet

• Developer: SUGIYAMA Ko-ichiro (sugiyama(at)gfd-dennou.org)
• Version: $Id: fileset.f90,v 1.3 2005/02/02 09:53:48 odakker Exp $
• Tag Name: $Name: $
• Change History:

Overview

NAMELIST ファイル名を設定し, deepconv/arare の出力ファイルを NAMELIST から得るためのモジュール

Error Handling

Known Bugs

Note

Future Plans

Public Data

character(80) :: cfgfile    = "arare.conf"  !設定ファイル

Public Interface

character(80) :: fs_RegFile             !出力 nc ファイル
character(80) :: sf_RegFile             !出力 nc ファイル
character(80) :: ss_RegFile             !出力 nc ファイル
character(80) :: fs_DimFile             !出力 nc ファイル
character(80) :: sf_DimFile             !出力 nc ファイル
character(80) :: ss_DimFile             !出力 nc ファイル
character(80) :: basicfile              !基本場の nc ファイル
character(80) :: distrbfile             !擾乱場の nc ファイル

Procedure Interface

Initialize module and acquire NAMELIST

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

subroutine fileset_init

NAMELIST

NAMELIST /fileset/ flag, basicfile, distrbfile

open (10, FILE=cfgfile)
read(10, NML=fileset)
close(10)