NCEPLIBS-bufr  12.2.0
moda_borts Module Reference

Declare variables used to optionally catch and return any future bort error string to the application program. More...

Variables

character bort_catch = 'N'
 Flag indicating whether bort errors generated during all future calls to NCEPLIBS-bufr subroutines and functions should be caught and returned to the application program. More...
 
logical bort_target_is_unset = .false.
 .true. More...
 
character *300 caught_str
 Bort error string. More...
 
integer caught_str_len
 Length of bort error string. More...
 

Detailed Description

Declare variables used to optionally catch and return any future bort error string to the application program.

Author
J. Ator
Date
2025-08-20

Variable Documentation

◆ bort_catch

character moda_borts::bort_catch = 'N'

Flag indicating whether bort errors generated during all future calls to NCEPLIBS-bufr subroutines and functions should be caught and returned to the application program.

This variable is initialized to a default value which can be overridden via a call to function catch_borts() within the application program:

  • 'N' = No (default)
  • 'Y' = Yes

Definition at line 916 of file modules_arrs.F90.

Referenced by bort(), bort2(), catch_borts(), check_for_bort(), and exitbufr().

◆ bort_target_is_unset

logical moda_borts::bort_target_is_unset = .false.

.true.

iff bort_catch is 'Y' and a target location to which to return any caught error is not currently set.

Definition at line 918 of file modules_arrs.F90.

Referenced by catch_borts(), closbf(), exitbufr(), openbf(), readmg(), readns(), readsb(), and ufbint().

◆ caught_str

character*300 moda_borts::caught_str

Bort error string.

Definition at line 920 of file modules_arrs.F90.

Referenced by bort(), bort2(), and check_for_bort().

◆ caught_str_len

integer moda_borts::caught_str_len

Length of bort error string.

Definition at line 922 of file modules_arrs.F90.

Referenced by bort(), bort2(), check_for_bort(), closbf(), openbf(), readmg(), readns(), readsb(), and ufbint().