Class debugset
In: setup/debugset.f90

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

Module DebugSet

  * Developer: ODAKA Masatsugu, SUGIYAMA Ko-ichiro
  * Version: $Id: debugset.f90,v 1.1.1.1 2006/04/25 03:43:58 deepconv Exp $
  * Tag Name: $Name:  $
  * Change History:

Overview

デバグ設定モジュール

Error Handling

Known Bugs

Note

Future Plans

Methods

Included Modules

dc_trace dc_message

Public Instance methods

[Source]

subroutine debugset_init (cfgfile)

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

    !モジュール読み込み
    use dc_message,    only: MessageNotify

    !暗黙の型宣言禁止
    implicit none

    !入力変数
    character(*), intent(in) :: cfgfile

    !NAMELIST から情報取得
    NAMELIST /debugset/ DebugOn
    
    open (10, FILE=cfgfile)
    read(10, NML=debugset)
    close(10)

    !デバッグモードなら dc_trace を ON にする
!    if ( DebugOn ) call SetDebug

end subroutine

[Validate]