Error handling module. More...

Data Types
interface	dumperror
	Procedure reference specification. Made as an external function to be replaceable in the future. More...

Functions/Subroutines
integer function, public	errorcode ()
subroutine, public	geterrormessage (msg)
subroutine, public	storeerror (number, where, err, cause_c, cause_i)

Variables
integer, parameter, public	dc_noerr = 0
	Error storage variables
integer, parameter, public	gt_efake = -100
	Positive error numbers are reserved for libc system error messages. Due to high system dependency and very large values used, it is difficult to reserve empty space.
integer, parameter, public	gt_enomoredims = -101
	-101 or less: Data structure errors
integer, parameter, public	gt_edimnodim = -102
integer, parameter, public	gt_edimmultidim = -103
integer, parameter, public	gt_edimotherdim = -104
integer, parameter, public	gt_ebaddimname = -105
integer, parameter, public	gt_enotvar = -106
integer, parameter, public	gt_enomem = -107
integer, parameter, public	gt_eotherfile = -108
integer, parameter, public	gt_eargsizemismatch = -109
integer, parameter, public	gt_enomatchdim = -110
integer, parameter, public	gt_elimited = -111
integer, parameter, public	gt_ebadvar = -112
integer, parameter, public	gt_echarshort = -113
integer, parameter, public	gt_enounlimitdim = -114
integer, parameter, public	gt_ebadattrname = -115
integer, parameter, public	gt_ebadhistory = -116
integer, parameter, public	gt_ebadallocatesize = -117
integer, parameter, public	gt_erankmismatch = -118
integer, parameter, public	gt_enoturl = -119
integer, parameter, public	gt_ebadgt4commagraphy = -120
integer, parameter, public	gr_enotgr = -300
	-300 or less: GrADS I/O errors
integer, parameter, public	dc_enotinit = -400
	-400 or less: DC utilities errors
integer, parameter, public	dc_ealreadyinit = -401
integer, parameter, public	dc_ebadunit = -402
integer, parameter, public	dc_ebadcaltype = -403
integer, parameter, public	dc_ebadtimezone = -404
integer, parameter, public	dc_efilenameempty = -405
integer, parameter, public	dc_ebadfileopmode = -406
integer, parameter, public	dc_enounitnum = -407
integer, parameter, public	dc_enofileexist = -408
integer, parameter, public	dc_enofileread = -409
integer, parameter, public	dc_enofilewrite = -410
integer, parameter, public	dc_enegative = -411
integer, parameter, public	dc_earglack = -412
integer, parameter, public	dc_enoassoc = -413
integer, parameter, public	dc_enoentry = -414
integer, parameter, public	dc_enodimtime = -415
integer, parameter, public	dc_edimtime = -416
integer, parameter, public	dc_etoolargetime = -417
integer, parameter, public	dc_ebaddate = -418
integer, parameter, public	dc_einconsistcaldate = -419
integer, parameter, public	hst_enotindefine = -500
	-500 or less: Data I/O layer errors
integer, parameter, public	hst_eindefine = -501
integer, parameter, public	hst_eintfile = -502
integer, parameter, public	hst_ebadname = -503
integer, parameter, public	hst_enottermgthist = -504
integer, parameter, public	hst_enodependtime = -505
integer, parameter, public	hst_ebadvarname = -506
integer, parameter, public	hst_enotimedim = -507
integer, parameter, public	hst_enoaxisname = -508
integer, parameter, public	hst_evarinuse = -509
integer, parameter, public	hst_ealreadyregvarfix = -510
integer, parameter, public	hst_ebadslice = -511
integer, parameter, public	hst_ebadnewfileint = -512
integer, parameter, public	hst_emaxdimsdepended = -513
integer, parameter, public	hst_eindivisible = -514
integer, parameter, public	hst_ebadterminus = -515
integer, parameter, public	hst_ebadorigin = -516
integer, parameter, public	hst_empinoaxisdata = -517
integer, parameter, public	usr_errno = -1000
	-1000 or less: User-defined errors

Detailed Description

Error handling module.

Author: Youhei SASAKI, Eizi TOYODA, Yasuhiro MORIKAWA

Copyright: Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

Error handling about parts of programs should be regulated definitely. Error means that input to the part of program is invalid, or expected operation can not be done, etc.

Procedures (procedures is generic name of subroutines and functions) provided to users by gtool5 library almost report error to invoker in the following two manner.

When error occurs, the program display appropriate messages and aborts.
If logical optional argument err is given, the argument err become .true. when error occurs. If err is abbreviated, the operation is same as above.

StoreError subroutine in dc_error module handle above all operations. See StoreError about the interface of it.

Error Code List / エラーコード一覧

Programmers who add codes to gtool5 library must call StoreError with appropriate error code. And so values of error code and corresponding messages are listed as follows to figure out if a new error code is needed to declared. To use error codes mnemonic, require "netcdf_f77" module or include "netcdf.inc" (deprecated) about error codes with prefix NF_E, or require "dc_error" module about error codes with prefix GT_E and DC_E and HST_E. Error codes smaller than USR_ERRNO are saved as user-defined error codes.

Non error code that indicates normal (error-free) situation is DC_NOERR.

List of numerical values of error codes issues a guideline about declaration of new error codes. Give not numerical value but mnemonic of error code to source code.

Unused codes / 利用しないコード

Positive integer is not used as error codes.

NetCDF library might return "libc" error code "error". Numerical value of "errno" is no portable, so positive integer should be reserved for "errno".

Non error code / 非エラーコード

Use following non error code by referring this "dc_error" module.

Number	Mnemonic
0	DC_NOERR

Error codes for netCDF / netCDF に関するエラーコード

Use following error codes by referring this "netcdf_f77" module.

Number	Mnemonic	Error message
0	NF_NOERR	No Error (non error code)
-33	NF_EBADID	Not a netCDF id
-34	NF_ENFILE	Too many netCDF files open
-35	NF_EEXIST	netCDF file exists && NC_NOCLOBBER
-36	NF_EINVAL	Invalid argument
-37	NF_EPERM	Write to read only
-38	NF_ENOTINDEFINE	Operation not allowed in data mode
-39	NF_EINDEFINE	Operation not allowed in define mode
-40	NF_EINVALCOORDS	Index exceeds dimension bound
-41	NF_EMAXDIMS	NF_MAX_DIMS exceeded
-42	NF_ENAMEINUSE	String match to name in use
-43	NF_ENOTATT	Attribute not found
-44	NF_EMAXATTS	NC_MAX_ATTRS exceeded
-45	NF_EBADTYPE	Not a netCDF data type or _FillValue type mismatch
-46	NF_EBADDIM	Invalid dimension id or name
-47	NF_EUNLIMPOS	NC_UNLIMITED in the wrong index
-48	NF_EMAXVARS	NF_MAX_VARS exceeded
-49	NF_ENOTVAR	Variable not found
-50	NF_EGLOBAL	Action prohibited on NC_GLOBAL varid
-51	NF_ENOTNC	Not a netCDF file
-52	NF_ESTS	In Fortran, string too short
-53	NF_EMAXNAME	NC_MAX_NAME exceeded
-54	NF_EUNLIMIT	NC_UNLIMITED size already in use
-55	NF_ENORECVARS	NC_rec op when there are no record vars
-56	NF_ECHAR	Attempt to convert between text & numbers
-57	NF_EEDGE	Edge+start exceeds dimension bound
-58	NF_ESTRIDE	Illegal stride
-59	NF_EBADNAME	Attribute or variable name contains illegal characters
-60	NF_ERANGE	Numeric conversion not representable
-61	NF_ENOMEM	Memory allocation (malloc) failure
-62	NF_EVARSIZE	One or more variable sizes violate format constraints
-63	NF_EDIMSIZE	Invalid dimension size
-64	NF_ETRUNC	File likely truncated or possibly corrupted
-62 to -99		Reserved area for future extensions of netCDF

Error codes for gtdata / gtool5 のデータ構造 (gtdata) に関するエラーコード

Use following error codes by referring this "dc_error" module.

Number	Mnemonic	Error message
-100	GT_EFAKE	function not implemented
-101	GT_ENOMOREDIMS	dimension number d is out of range
-102	GT_EDIMNODIM	dimension variable has no dimension
-103	GT_EDIMMULTIDIM	dimension variable has many dimensions
-104	GT_EDIMOTHERDIM	dimension variable has another dimension
-105	GT_EBADDIMNAME	cause_c: unknown dimension name
-106	GT_ENOTVAR	variable not opened
-107	GT_ENOMEM	allocate/deallocate error
-108	GT_EOTHERFILE	specified dimensional variable not on the same file
-109	GT_EARGSIZEMISMATCH	arguments (cause_c) array size mismatch
-110	GT_ENOMATCHDIM	dimension matching failed
-111	GT_ELIMITED	variable already limited
-112	GT_EBADVAR	variable type not supported
-113	GT_ECHARSHORT	character length not enough
-114	GT_ENOUNLIMITDIM	NC_UNLIMITED dimension is not found
-115	GT_EBADATTRNAME	invalid attribute name
-116	GT_EBADHISTORY	invalid GT_HISTORY variable
-117	GT_EBADALLOCATESIZE	invalid allocated size
-118	GT_ERANKMISMATCH	rank of data and argument is mismatch (cause_c)
-119	GT_ENOTURL	URL (cause_c) is not found
-120	GT_EBADGT4COMMAGRAPHY	(cause_c) is not gtool4 comma-graphy
to -299		Reserved area for future extensions of gtdata layer

Error codes for GrADS data I/O / GrADS データ入出力に関するエラーコード

Use following error codes by referring this "dc_error" module.

Number	Mnemonic	Error message
-300	GR_ENOTGR	invalid GrADS file
to -399		Reserved area for future extensions of GrADS data I/O layer

Error codes for DC utilities / DC ユーティリティ用エラーコード

Use following error codes by referring this "dc_error" module.

Number	Mnemonic	Error message
-400	DC_ENOTINIT	object (cause_c) is not initialized
-401	DC_EALREADYINIT	object (cause_c) is already initialized
-402	DC_EBADUNIT	unit (cause_c) is invalid
-403	DC_EBADCALTYPE	calendar type (cause_i) is invalid
-404	DC_EBADTIMEZONE	time zone (cause_c) is invalid
-405	DC_EFILENAMEEMPTY	filename is empty
-406	DC_EBADFILEOPMODE	file open mode (cause_c) is invalid
-407	DC_ENOUNITNUM	available unit number is not found within (cause_c)
-408	DC_ENOFILEEXIST	file (cause_c) is not found
-409	DC_ENOFILEREAD	file (cause_c) is not readable
-410	DC_ENOFILEWRITE	file (cause_c) is not writable
-411	DC_ENEGATIVE	negative value is invalid for (cause_c)
-412	DC_EARGLACK	lack of arguments (cause_c)
-413	DC_ENOASSOC	argument (cause_c) is not associated
-414	DC_ENOENTRY	entry of (cause_c) is not found
-415	DC_ENODIMTIME	dimensional time can not be converted into nondimensional time
-416	DC_EDIMTIME	nondimensional time can not be converted into dimensional time
-417	DC_ETOOLARGETIME	number is too large for time
-418	DC_EBADDATE	invalid expression of date
-419	DC_EINCONSISTCALDATE	calendar and date are inconsistent
-420 to -499		Reserved area for future extensions of DC utilities

Error codes for data I/O layer / データ入出力層エラーコード

Use following error codes by referring this "dc_error" module.

Number	Mnemonic	Error message
-500	HST_ENOTINDEFINE	operation (cause_c) not allowed in data mode
-501	HST_EINDEFINE	operation (cause_c) not allowed in define mode
-502	HST_EINTFILE	different intervals are applied to a file (cause_c)
-503	HST_EBADNAME	name (cause_c) is invalid
-504	HST_ENOTTERMGTHIST	GT_HISTORY correspond to (cause_c) is not terminated
-505	HST_ENODEPENDTIME	(cause_c) does not depend on time
-506	HST_EBADVARNAME	variable name (cause_c) is invalid
-507	HST_ENOTIMEDIM	time dimension is not found
-508	HST_ENOAXISNAME	axis or weight (cause_c) is not found
-509	HST_EVARINUSE	variable name (cause_c) is already used
-510	HST_EALREADYREGVARFIX	already register of variables is fixed by (cause_c)
-511	HST_EBADSLICE	slice options are invalid (cause_c)
-512	HST_EBADNEWFILEINT	invalid newfile interval (cause_c)
-513	HST_EMAXDIMSDEPENDED	variable (cause_c) depends on (cause_i) dimensions
-514	HST_EINDIVISIBLE	(cause_c) can not be divided
-515	HST_EBADTERMINUS	terminus options are invalid (cause_c)
-516	HST_EBADORIGIN	origin options are invalid (cause_c)
-517	HST_EMPINOAXISDATA	data of axis (cause_c) for MPI is lack

Reserved error codes / gtool5 の将来の拡張のために予約してあるエラーコード

Following error codes are reserved for future extensions.

Number	Description
-600 to -999	Reserved area for future extensions of gtool5

User-defined error codes / ユーザ定義用エラーコード

Error codes smaller than -1000 are saved for as user-defined error codes used by upper programs.

Number	Mnemonic	Error message
-1000 to	USR_ERRNO	cause_c (cause_i)

Function/Subroutine Documentation

◆ errorcode()

integer function, public dc_error::errorcode

Return an error code specified currently.

Returns: Integer error code currently set

Definition at line 606 of file dc_error.f90.

607 result = errno

◆ geterrormessage()

subroutine, public dc_error::geterrormessage ( character(len = *), intent(out) msg )

Return messages corresponding to an error code specified currently.

Parameters

[out] msg Error message string corresponding to the current error code

Definition at line 618 of file dc_error.f90.

    use netcdf, only: nf90_strerror
    character(len = *), intent(out):: msg
    character(len = STRING):: message
    character(len = 20):: errno_c
    character(len = 20):: cause_int_c
  continue
    select case(errno)
    case(gt_efake)
      msg = ' function not implemented'
      !
      ! -101 以下: データ構造のエラー
      ! -101 or less: Error of data structure
      !
    case(gt_enomoredims)
      write(message, "(': dimension number', i4, ' is out of range')") cause_int
      msg = trim(message)
    case(gt_ebaddimname)
      msg = '(' // trim(cause_string) // '): unknown dimension name'
    case(gt_enotvar)
      msg = ' variable not opened'
    case(gt_enomem)
      msg = ' allocate/deallocate error'
    case(gt_edimnodim)
      msg = ' dimension variable has no dimension'
    case(gt_edimmultidim)
      msg = ' dimension variable has many dimensions'
    case(gt_edimotherdim)
      msg = ' dimension variable has another dimension'
    case(gt_eotherfile)
      msg = ' specified dimensional variable not on the same file'
    case(gt_eargsizemismatch)
      msg = ' arguments (' // trim(cause_string) //') array size mismatch'
    case(gt_enomatchdim)
      msg = ' dimension matching failed'
    case(gt_elimited)
      msg = ' variable already limited'
    case(gt_ebadvar)
      msg = ' variable type not supported'
    case(gt_echarshort)
      msg = ' character length not enough'
    case(gt_enounlimitdim)
      msg = ' NC_UNLIMITED dimension is not found'
    case(gt_ebadattrname)
      msg = ' invalid attribute name'
    case(gt_ebadallocatesize)
      msg = ' invalid allocated size'
    case(gt_erankmismatch)
      msg = ' rank of data and argument are mismatch (' // trim(cause_string) // ')'
    case(gt_enoturl)
      msg = ' URL (' // trim(cause_string) // ') is not found'
    case(gt_ebadgt4commagraphy)
      msg = ' (' // trim(cause_string) // ') is not gtool4 comma-graphy (ex. "time=100.0,x=10:20,y=^1:^5")'
      !
      ! -300 以下: GrADS 入出力のエラー
      ! -300 or less: Error of GrADS I/O
      !
    case(gr_enotgr)
      msg = ' invalid GrADS file'
      !
      ! -400 以下: DC ユーティリティのエラー
      ! -400 or less: Error of DC utilities
      !
    case(dc_enotinit)
      msg = ' object (' // trim(cause_string) // ') is not initialized'
    case(dc_ealreadyinit)
      msg = ' object (' // trim(cause_string) // ') is already initialized'
    case(dc_ebadunit)
      msg = ' unit (' // trim(cause_string) // ') is invalid'
    case(dc_ebadcaltype)
      write(message, '(" calendar type (", i4, ") is invalid")') cause_int
      msg = trim(message)
    case(dc_ebadtimezone)
      msg = ' time zone (' // trim(cause_string) // ') is invalid'
    case(dc_efilenameempty)
      msg = ' filename is empty'
    case(dc_ebadfileopmode)
      msg = ' file open mode (' // trim(cause_string) // ') is invalid'
    case(dc_enounitnum)
      msg = ' available unit number is not found within (' // trim(cause_string) // ')'
    case(dc_enofileexist)
      msg = ' file (' // trim(cause_string) // ') is not found'
    case(dc_enofileread)
      msg = ' file (' // trim(cause_string) // ') is not readable'
    case(dc_enofilewrite)
      msg = ' file (' // trim(cause_string) // ') is not writable'
    case(dc_enegative)
      msg = ' negative value is invalid for (' // trim(cause_string) // ')'
    case(dc_earglack)
      msg = ' lack of arguments (' // trim(cause_string) // ')'
    case(dc_enoassoc)
      msg = ' argument (' // trim(cause_string) // ') is not associated'
    case(dc_enoentry)
      msg = ' entry of (' // trim(cause_string) // ') is not found'
    case(dc_enodimtime)
      msg = ' dimensional time can not be converted into nondimensional time'
    case(dc_edimtime)
      msg = ' nondimensional time can not be converted into dimensional time'
    case(dc_etoolargetime)
      msg = ' number is too large for time'
    case(dc_ebaddate)
      msg = ' invalid expression of date'
    case(dc_einconsistcaldate)
      msg = ' calendar and date are inconsistent'
      !
      ! -500 以下: データ入出力層のエラー
      ! -500 or less: Error of data I/O layer
      !
    case(hst_enotindefine)
      msg = ' operation (' // trim(cause_string) // ') not allowed in data mode'
    case(hst_eindefine)
      msg = ' operation (' // trim(cause_string) // ') not allowed in define mode'
    case(hst_eintfile)
      msg = ' different intervals are applied to a file (' // trim(cause_string) // ')'
    case(hst_ebadname)
      msg = ' name (' // trim(cause_string) // ') is invalid'
    case(hst_enottermgthist)
      msg = ' GT_HISTORY correspond to (' // trim(cause_string) // ') is not terminated'
    case(hst_enodependtime)
      msg = ' (' // trim(cause_string) // ') does not depend on time'
    case(hst_ebadvarname)
      msg = ' variable name (' // trim(cause_string) // ') is invalid'
    case(hst_enotimedim)
      msg = ' time dimension is not found'
    case(hst_enoaxisname)
      msg = ' axis or weight (' // trim(cause_string) // ') is not found'
    case(hst_evarinuse)
      msg = ' variable name (' // trim(cause_string) // ') is already used'
    case(hst_ealreadyregvarfix)
      msg = ' already register of variables is fixed by (' // trim(cause_string) // ')'
    case(hst_ebadslice)
      msg = ' slice options are invalid (' // trim(cause_string) // ')'
    case(hst_ebadnewfileint)
      msg = ' invalid newfile interval (' // trim(cause_string) // ')'
    case(hst_emaxdimsdepended)
      write(message, '("(", i4, ")")') cause_int
      msg = trim(message)
      msg = ' variable (' // trim(cause_string) // ') depends on ' // trim(message) // ' dimensions'
    case(hst_eindivisible)
      msg = ' (' // trim(cause_string) // ') can not be divided'
    case(hst_ebadterminus)
      msg = ' terminus options are invalid (' // trim(cause_string) // ')'
    case(hst_ebadorigin)
      msg = ' origin options are invalid (' // trim(cause_string) // ')'
    case(hst_empinoaxisdata)
      msg = ' data of axis (' // trim(cause_string) // ') for MPI is lack'
 
      !
      !
      ! -1000 以下: ユーザー定義
      ! -1000 or less: User-defined error
      !
    case(:usr_errno)
      if (len(trim(adjustl(cause_string))) < 1) then
        cause_string = 'Unknown error'
      end if
      if (cause_int_valid) then
        write(cause_int_c, "(i8)") cause_int
        msg = trim(cause_string) // ' (' // trim(adjustl(cause_int_c)) // ')'
      else
        msg = trim(cause_string)
      end if
    case default
      goto 999
    end select
    write(errno_c, "(i8)") errno
    msg =  '*** ERROR (Code ' // trim(adjustl(errno_c))  // &
      & ') [' // trim(cause_location) // '] ***  ' // &
      & trim(msg)
    return
 
999 continue
    if (len(cause_string) > 0) then
      message = nf90_strerror(errno)
      write(errno_c, "(i8)") errno
      msg =  '*** ERROR (Code ' // trim(adjustl(errno_c)) // &
        & ') [' // trim(cause_location)             // &
        & '('   // trim(cause_string) // ')] ***  ' // &
        & trim(message)
    else if (cause_int_valid) then
      message = nf90_strerror(errno)
      write(errno_c, "(i8)") errno
      write(cause_int_c, "(i8)") cause_int
      msg =  '*** ERROR (Code ' // trim(adjustl(errno_c)) // &
        & ') [' // trim(cause_location)             // &
        & '('   // trim(adjustl(cause_int_c)) // ')] ***  ' // &
        & trim(message)
    else
      message = nf90_strerror(errno)
      write(errno_c, "(i8)") errno
      msg =  '*** ERROR (Code ' // trim(adjustl(errno_c))  // &
        & ') [' // trim(cause_location) // '] ***  ' // &
        & trim(message)
    endif

References dc_ealreadyinit, dc_earglack, dc_ebadcaltype, dc_ebaddate, dc_ebadfileopmode, dc_ebadtimezone, dc_ebadunit, dc_edimtime, dc_efilenameempty, dc_einconsistcaldate, dc_enegative, dc_enoassoc, dc_enodimtime, dc_enoentry, dc_enofileexist, dc_enofileread, dc_enofilewrite, dc_enotinit, dc_enounitnum, dc_etoolargetime, gr_enotgr, gt_eargsizemismatch, gt_ebadallocatesize, gt_ebadattrname, gt_ebaddimname, gt_ebadgt4commagraphy, gt_ebadvar, gt_echarshort, gt_edimmultidim, gt_edimnodim, gt_edimotherdim, gt_efake, gt_elimited, gt_enomatchdim, gt_enomem, gt_enomoredims, gt_enoturl, gt_enotvar, gt_enounlimitdim, gt_eotherfile, gt_erankmismatch, hst_ealreadyregvarfix, hst_ebadname, hst_ebadnewfileint, hst_ebadorigin, hst_ebadslice, hst_ebadterminus, hst_ebadvarname, hst_eindefine, hst_eindivisible, hst_eintfile, hst_emaxdimsdepended, hst_empinoaxisdata, hst_enoaxisname, hst_enodependtime, hst_enotimedim, hst_enotindefine, hst_enottermgthist, hst_evarinuse, and usr_errno.

◆ storeerror()

subroutine, public dc_error::storeerror	(	integer, intent(in)	number,
		character(len = *), intent(in)	where,
		logical, intent(out), optional	err,
		character(len = *), intent(in), optional	cause_c,
		integer, intent(in), optional	cause_i )

Error handling subroutine for typical procedures of library

Number of necessary arguments is two. Give integer error code to first argument number, and procedure name where the error occurs to second argument where. By default, like a following string is displayed to standard output, and the program aborts. Error message is determined by error code automatically. See error code list.

*** ERROR (Code number) [where] ***  error_message

*** ERROR (Code number) [where(cause_c)] ***  error_message

In addition, for usage that users call StoreError as an error handling tool from the outside of gtool5 library, error codes smaller than USR_ERRNO is saved. When error codes smaller than USR_ERRNO is given, StoreError displays like a following string to standard output, and stops the program. dc_message module is prepared too. This module can be used more easily for message output and rise of error.

*** ERROR (Code number) [where] ***  cause_c

*** ERROR (Code number) [where] ***  cause_c (cause_i)

Parameters

[in]	number	Error code
[in]	where	Place where error occurs
[out]	err	Exception handling flag. By default, when error code (excluding non error code) is given to number, the program display error message and aborts. If this err argument is given, .true. is substituted to err and the program does not abort.
[in]	cause_c	Character message
[in]	cause_i	Integer message

Definition at line 890 of file dc_error.f90.

    integer,            intent(in)            :: number
    character(len = *), intent(in)            :: where
    logical,            intent(out), optional :: err
    character(len = *), intent(in),  optional :: cause_c
    integer,            intent(in),  optional :: cause_i
  continue
    if (present(err)) then
      err = (number /= dc_noerr)
      return
    endif
    if (number == dc_noerr) return
    errno = number
    cause_location = where
    if (present(cause_c)) then
      cause_string = trim(cause_c)
    else
      cause_string = ""
    endif
    if (present(cause_i)) then
      cause_int = cause_i
      cause_int_valid = .true.
    else
      cause_int_valid = .false.
    end if
    call dumperror

References sysdep::abortprogram(), dc_noerr, geterrormessage(), and dc_types::string.

Here is the call graph for this function:

Variable Documentation

◆ dc_ealreadyinit

integer, parameter, public dc_error::dc_ealreadyinit = -401

Definition at line 535 of file dc_error.f90.

535 integer, parameter, public:: DC_EALREADYINIT = -401

◆ dc_earglack

integer, parameter, public dc_error::dc_earglack = -412

Definition at line 546 of file dc_error.f90.

546 integer, parameter, public:: DC_EARGLACK = -412

◆ dc_ebadcaltype

integer, parameter, public dc_error::dc_ebadcaltype = -403

Definition at line 537 of file dc_error.f90.

537 integer, parameter, public:: DC_EBADCALTYPE = -403

◆ dc_ebaddate

integer, parameter, public dc_error::dc_ebaddate = -418

Definition at line 552 of file dc_error.f90.

552 integer, parameter, public:: DC_EBADDATE = -418

◆ dc_ebadfileopmode

integer, parameter, public dc_error::dc_ebadfileopmode = -406

Definition at line 540 of file dc_error.f90.

540 integer, parameter, public:: DC_EBADFILEOPMODE = -406

◆ dc_ebadtimezone

integer, parameter, public dc_error::dc_ebadtimezone = -404

Definition at line 538 of file dc_error.f90.

538 integer, parameter, public:: DC_EBADTIMEZONE = -404

◆ dc_ebadunit

integer, parameter, public dc_error::dc_ebadunit = -402

Definition at line 536 of file dc_error.f90.

536 integer, parameter, public:: DC_EBADUNIT = -402

◆ dc_edimtime

integer, parameter, public dc_error::dc_edimtime = -416

Definition at line 550 of file dc_error.f90.

550 integer, parameter, public:: DC_EDIMTIME = -416

◆ dc_efilenameempty

integer, parameter, public dc_error::dc_efilenameempty = -405

Definition at line 539 of file dc_error.f90.

539 integer, parameter, public:: DC_EFILENAMEEMPTY = -405

◆ dc_einconsistcaldate

integer, parameter, public dc_error::dc_einconsistcaldate = -419

Definition at line 553 of file dc_error.f90.

553 integer, parameter, public:: DC_EINCONSISTCALDATE = -419

◆ dc_enegative

integer, parameter, public dc_error::dc_enegative = -411

Definition at line 545 of file dc_error.f90.

545 integer, parameter, public:: DC_ENEGATIVE = -411

◆ dc_enoassoc

integer, parameter, public dc_error::dc_enoassoc = -413

Definition at line 547 of file dc_error.f90.

547 integer, parameter, public:: DC_ENOASSOC = -413

◆ dc_enodimtime

integer, parameter, public dc_error::dc_enodimtime = -415

Definition at line 549 of file dc_error.f90.

549 integer, parameter, public:: DC_ENODIMTIME = -415

◆ dc_enoentry

integer, parameter, public dc_error::dc_enoentry = -414

Definition at line 548 of file dc_error.f90.

548 integer, parameter, public:: DC_ENOENTRY = -414

◆ dc_enofileexist

integer, parameter, public dc_error::dc_enofileexist = -408

Definition at line 542 of file dc_error.f90.

542 integer, parameter, public:: DC_ENOFILEEXIST = -408

◆ dc_enofileread

integer, parameter, public dc_error::dc_enofileread = -409

Definition at line 543 of file dc_error.f90.

543 integer, parameter, public:: DC_ENOFILEREAD = -409

◆ dc_enofilewrite

integer, parameter, public dc_error::dc_enofilewrite = -410

Definition at line 544 of file dc_error.f90.

544 integer, parameter, public:: DC_ENOFILEWRITE = -410

◆ dc_enotinit

integer, parameter, public dc_error::dc_enotinit = -400

-400 or less: DC utilities errors

Definition at line 534 of file dc_error.f90.

534 integer, parameter, public:: DC_ENOTINIT = -400

◆ dc_enounitnum

integer, parameter, public dc_error::dc_enounitnum = -407

Definition at line 541 of file dc_error.f90.

541 integer, parameter, public:: DC_ENOUNITNUM = -407

◆ dc_etoolargetime

integer, parameter, public dc_error::dc_etoolargetime = -417

Definition at line 551 of file dc_error.f90.

551 integer, parameter, public:: DC_ETOOLARGETIME = -417

◆ dc_noerr

integer, parameter, public dc_error::dc_noerr = 0

Error storage variables

Non-error code (no error)

Definition at line 468 of file dc_error.f90.

468 integer, public, parameter :: DC_NOERR = 0

◆ gr_enotgr

integer, parameter, public dc_error::gr_enotgr = -300

-300 or less: GrADS I/O errors

Definition at line 530 of file dc_error.f90.

530 integer, parameter, public:: GR_ENOTGR = -300

◆ gt_eargsizemismatch

integer, parameter, public dc_error::gt_eargsizemismatch = -109

Definition at line 515 of file dc_error.f90.

515 integer, parameter, public:: GT_EARGSIZEMISMATCH = -109

◆ gt_ebadallocatesize

integer, parameter, public dc_error::gt_ebadallocatesize = -117

Definition at line 523 of file dc_error.f90.

523 integer, parameter, public:: GT_EBADALLOCATESIZE = -117

◆ gt_ebadattrname

integer, parameter, public dc_error::gt_ebadattrname = -115

Definition at line 521 of file dc_error.f90.

521 integer, parameter, public:: GT_EBADATTRNAME = -115

◆ gt_ebaddimname

integer, parameter, public dc_error::gt_ebaddimname = -105

Definition at line 511 of file dc_error.f90.

511 integer, parameter, public:: GT_EBADDIMNAME = -105

◆ gt_ebadgt4commagraphy

integer, parameter, public dc_error::gt_ebadgt4commagraphy = -120

Definition at line 526 of file dc_error.f90.

526 integer, parameter, public:: GT_EBADGT4COMMAGRAPHY = -120

◆ gt_ebadhistory

integer, parameter, public dc_error::gt_ebadhistory = -116

Definition at line 522 of file dc_error.f90.

522 integer, parameter, public:: GT_EBADHISTORY = -116

◆ gt_ebadvar

integer, parameter, public dc_error::gt_ebadvar = -112

Definition at line 518 of file dc_error.f90.

518 integer, parameter, public:: GT_EBADVAR = -112

◆ gt_echarshort

integer, parameter, public dc_error::gt_echarshort = -113

Definition at line 519 of file dc_error.f90.

519 integer, parameter, public:: GT_ECHARSHORT = -113

◆ gt_edimmultidim

integer, parameter, public dc_error::gt_edimmultidim = -103

Definition at line 509 of file dc_error.f90.

509 integer, parameter, public:: GT_EDIMMULTIDIM = -103

◆ gt_edimnodim

integer, parameter, public dc_error::gt_edimnodim = -102

Definition at line 508 of file dc_error.f90.

508 integer, parameter, public:: GT_EDIMNODIM = -102

◆ gt_edimotherdim

integer, parameter, public dc_error::gt_edimotherdim = -104

Definition at line 510 of file dc_error.f90.

510 integer, parameter, public:: GT_EDIMOTHERDIM = -104

◆ gt_efake

integer, parameter, public dc_error::gt_efake = -100

Positive error numbers are reserved for libc system error messages. Due to high system dependency and very large values used, it is difficult to reserve empty space.

Negative error numbers are used by netCDF. Allowing for some extensions, values up to -99 are not used.

Definition at line 503 of file dc_error.f90.

503 integer, parameter, public:: GT_EFAKE = -100

◆ gt_elimited

integer, parameter, public dc_error::gt_elimited = -111

Definition at line 517 of file dc_error.f90.

517 integer, parameter, public:: GT_ELIMITED = -111

◆ gt_enomatchdim

integer, parameter, public dc_error::gt_enomatchdim = -110

Definition at line 516 of file dc_error.f90.

516 integer, parameter, public:: GT_ENOMATCHDIM = -110

◆ gt_enomem

integer, parameter, public dc_error::gt_enomem = -107

Definition at line 513 of file dc_error.f90.

513 integer, parameter, public:: GT_ENOMEM = -107

◆ gt_enomoredims

integer, parameter, public dc_error::gt_enomoredims = -101

-101 or less: Data structure errors

Definition at line 507 of file dc_error.f90.

507 integer, parameter, public:: GT_ENOMOREDIMS = -101

◆ gt_enoturl

integer, parameter, public dc_error::gt_enoturl = -119

Definition at line 525 of file dc_error.f90.

525 integer, parameter, public:: GT_ENOTURL = -119

◆ gt_enotvar

integer, parameter, public dc_error::gt_enotvar = -106

Definition at line 512 of file dc_error.f90.

512 integer, parameter, public:: GT_ENOTVAR = -106

◆ gt_enounlimitdim

integer, parameter, public dc_error::gt_enounlimitdim = -114

Definition at line 520 of file dc_error.f90.

520 integer, parameter, public:: GT_ENOUNLIMITDIM = -114

◆ gt_eotherfile

integer, parameter, public dc_error::gt_eotherfile = -108

Definition at line 514 of file dc_error.f90.

514 integer, parameter, public:: GT_EOTHERFILE = -108

◆ gt_erankmismatch

integer, parameter, public dc_error::gt_erankmismatch = -118

Definition at line 524 of file dc_error.f90.

524 integer, parameter, public:: GT_ERANKMISMATCH = -118

◆ hst_ealreadyregvarfix

integer, parameter, public dc_error::hst_ealreadyregvarfix = -510

Definition at line 567 of file dc_error.f90.

567 integer, parameter, public:: HST_EALREADYREGVARFIX = -510

◆ hst_ebadname

integer, parameter, public dc_error::hst_ebadname = -503

Definition at line 560 of file dc_error.f90.

560 integer, parameter, public:: HST_EBADNAME = -503

◆ hst_ebadnewfileint

integer, parameter, public dc_error::hst_ebadnewfileint = -512

Definition at line 569 of file dc_error.f90.

569 integer, parameter, public:: HST_EBADNEWFILEINT = -512

◆ hst_ebadorigin

integer, parameter, public dc_error::hst_ebadorigin = -516

Definition at line 573 of file dc_error.f90.

573 integer, parameter, public:: HST_EBADORIGIN = -516

◆ hst_ebadslice

integer, parameter, public dc_error::hst_ebadslice = -511

Definition at line 568 of file dc_error.f90.

568 integer, parameter, public:: HST_EBADSLICE = -511

◆ hst_ebadterminus

integer, parameter, public dc_error::hst_ebadterminus = -515

Definition at line 572 of file dc_error.f90.

572 integer, parameter, public:: HST_EBADTERMINUS = -515

◆ hst_ebadvarname

integer, parameter, public dc_error::hst_ebadvarname = -506

Definition at line 563 of file dc_error.f90.

563 integer, parameter, public:: HST_EBADVARNAME = -506

◆ hst_eindefine

integer, parameter, public dc_error::hst_eindefine = -501

Definition at line 558 of file dc_error.f90.

558 integer, parameter, public:: HST_EINDEFINE = -501

◆ hst_eindivisible

integer, parameter, public dc_error::hst_eindivisible = -514

Definition at line 571 of file dc_error.f90.

571 integer, parameter, public:: HST_EINDIVISIBLE = -514

◆ hst_eintfile

integer, parameter, public dc_error::hst_eintfile = -502

Definition at line 559 of file dc_error.f90.

559 integer, parameter, public:: HST_EINTFILE = -502

◆ hst_emaxdimsdepended

integer, parameter, public dc_error::hst_emaxdimsdepended = -513

Definition at line 570 of file dc_error.f90.

570 integer, parameter, public:: HST_EMAXDIMSDEPENDED = -513

◆ hst_empinoaxisdata

integer, parameter, public dc_error::hst_empinoaxisdata = -517

Definition at line 574 of file dc_error.f90.

574 integer, parameter, public:: HST_EMPINOAXISDATA = -517

◆ hst_enoaxisname

integer, parameter, public dc_error::hst_enoaxisname = -508

Definition at line 565 of file dc_error.f90.

565 integer, parameter, public:: HST_ENOAXISNAME = -508

◆ hst_enodependtime

integer, parameter, public dc_error::hst_enodependtime = -505

Definition at line 562 of file dc_error.f90.

562 integer, parameter, public:: HST_ENODEPENDTIME = -505

◆ hst_enotimedim

integer, parameter, public dc_error::hst_enotimedim = -507

Definition at line 564 of file dc_error.f90.

564 integer, parameter, public:: HST_ENOTIMEDIM = -507

◆ hst_enotindefine

integer, parameter, public dc_error::hst_enotindefine = -500

-500 or less: Data I/O layer errors

Definition at line 557 of file dc_error.f90.

557 integer, parameter, public:: HST_ENOTINDEFINE = -500

◆ hst_enottermgthist

integer, parameter, public dc_error::hst_enottermgthist = -504

Definition at line 561 of file dc_error.f90.

561 integer, parameter, public:: HST_ENOTTERMGTHIST = -504

◆ hst_evarinuse

integer, parameter, public dc_error::hst_evarinuse = -509

Definition at line 566 of file dc_error.f90.

566 integer, parameter, public:: HST_EVARINUSE = -509

◆ usr_errno

integer, parameter, public dc_error::usr_errno = -1000

-1000 or less: User-defined errors

Definition at line 579 of file dc_error.f90.

579 integer, parameter, public:: USR_ERRNO = -1000

Data Types

Functions/Subroutines

Variables

Detailed Description

Error Code List / エラーコード一覧

Unused codes / 利用しないコード

Non error code / 非エラーコード

Error codes for netCDF / netCDF に関するエラーコード

Error codes for gtdata / gtool5 のデータ構造 (gtdata) に関するエラーコード

Error codes for GrADS data I/O / GrADS データ入出力に関するエラーコード

Error codes for DC utilities / DC ユーティリティ用エラーコード

Error codes for data I/O layer / データ入出力層エラーコード

Reserved error codes / gtool5 の将来の拡張のために予約してあるエラーコード

User-defined error codes / ユーザ定義用エラーコード

Function/Subroutine Documentation

◆ errorcode()

◆ geterrormessage()

◆ storeerror()

Variable Documentation

◆ dc_ealreadyinit

◆ dc_earglack

◆ dc_ebadcaltype

◆ dc_ebaddate

◆ dc_ebadfileopmode

◆ dc_ebadtimezone

◆ dc_ebadunit

◆ dc_edimtime

◆ dc_efilenameempty

◆ dc_einconsistcaldate

◆ dc_enegative

◆ dc_enoassoc

◆ dc_enodimtime

◆ dc_enoentry

◆ dc_enofileexist

◆ dc_enofileread

◆ dc_enofilewrite

◆ dc_enotinit

◆ dc_enounitnum

◆ dc_etoolargetime

◆ dc_noerr

◆ gr_enotgr

◆ gt_eargsizemismatch

◆ gt_ebadallocatesize

◆ gt_ebadattrname

◆ gt_ebaddimname

◆ gt_ebadgt4commagraphy

◆ gt_ebadhistory

◆ gt_ebadvar

◆ gt_echarshort

◆ gt_edimmultidim

◆ gt_edimnodim

◆ gt_edimotherdim

◆ gt_efake

◆ gt_elimited

◆ gt_enomatchdim

◆ gt_enomem

◆ gt_enomoredims

◆ gt_enoturl

◆ gt_enotvar

◆ gt_enounlimitdim

◆ gt_eotherfile

◆ gt_erankmismatch

◆ hst_ealreadyregvarfix

◆ hst_ebadname

◆ hst_ebadnewfileint

◆ hst_ebadorigin

◆ hst_ebadslice

◆ hst_ebadterminus

◆ hst_ebadvarname

◆ hst_eindefine

◆ hst_eindivisible

◆ hst_eintfile

◆ hst_emaxdimsdepended

◆ hst_empinoaxisdata

◆ hst_enoaxisname

◆ hst_enodependtime

◆ hst_enotimedim

◆ hst_enotindefine

◆ hst_enottermgthist

◆ hst_evarinuse