エラー処理

Error handling

Authors:	Eizi TOYODA, Yasuhiro MORIKAWA
Version:	$Id: dc_error.f90,v 1.3 2009-10-03 14:53:46 morikawa Exp $
Tag Name:	$Name: gtool5-20100924 $
Copyright:	Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:	See COPYRIGHT

This file provides the following module.

dc_error

Required files

netcdf/netcdf_f77_win.f90 dc_utils/dc_error.f90 dc_utils/dc_types.f90

Methods

DumpError

Included Modules

dc_types dc_error sysdep

Public Instance methods

DumpError( )

Subroutine :

GetErrorMessage からエラーメッセージを取得後、それを sysdep#AbortProgram に渡してプログラムを終了させます。

Get error messages from "GetErrorMessage", and put the messages to sysdep#AbortProgram, and stop the program.

[Source]

subroutine DumpError()
  !
  ! GetErrorMessage からエラーメッセージを取得後、
  ! それを sysdep#AbortProgram に渡してプログラムを終了させます。
  !
  ! Get error messages from "GetErrorMessage", and put the messages 
  ! to sysdep#AbortProgram, and stop the program.
  !
  use dc_types, only: STRING
  use dc_error, only: GetErrorMessage
  use sysdep, only: AbortProgram
  character(len = STRING):: message
continue
  call GetErrorMessage(message)
  call AbortProgram(message)
end subroutine DumpError