Class | debugset |
In: |
setup/debugset.f90
|
Copyright (C) GFD Dennou Club, 2004, 2005, 2006. All rights reserved.
* 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:
デバグ設定モジュール
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