Module DebugSet

• Developer: ODAKA Masatsugu (odakker(at)gfd-dennou.org)
• Version: $Id: debugset.f90,v 1.2 2005/02/02 09:53:48 odakker Exp $
• Tag Name: $Name: $
• Change History:

Overview

デバグ設定モジュール

Error Handling

Known Bugs

Note

Future Plans

Dependency

use dc_trace, only: SetDebug

Public Interface

logical :: DebugOn   ! デバッグ出力スイッチ

Procedure Interface

Initialize module and acquire NAMELIST

NAMELIST から情報を得て, デバッグ出力スイッチの切替えを行う.

subroutine debugset_init(cfgfile)

Input

character(*), intent(in) :: cfgfile

NAMELIST

NAMELIST /debugset/ DebugOn

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

if (DebugOn) then
  call SetDebug
end if