[Dart-dev] [4826] DART/trunk/observations/NCEP/prep_bufr/lib: Shorten the error messages in 3 locations to avoid errors with

[nancy at ucar.edu]

Revision: 4826
Author:   nancy
Date:     2011-03-28 11:17:22 -0600 (Mon, 28 Mar 2011)
Log Message:
-----------
Shorten the error messages in 3 locations to avoid errors with
some compilers and max line length.  No change in code otherwise.

Modified Paths:
--------------
    DART/trunk/observations/NCEP/prep_bufr/lib/msgini.f
    DART/trunk/observations/NCEP/prep_bufr/lib/rewnbf.f
    DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f

-------------- next part --------------
Modified: DART/trunk/observations/NCEP/prep_bufr/lib/msgini.f
===================================================================
--- DART/trunk/observations/NCEP/prep_bufr/lib/msgini.f	2011-03-28 15:57:55 UTC (rev 4825)
+++ DART/trunk/observations/NCEP/prep_bufr/lib/msgini.f	2011-03-28 17:17:22 UTC (rev 4826)
@@ -194,8 +194,8 @@
 
       RETURN
 900   WRITE(BORT_STR,'("BUFRLIB: MSGINI - MISMATCH BETWEEN INODE (=",'//
-     . 'I7,") & POSITIONAL INDEX, INOD (",I7,") OF SUBTAG (",A,") IN '//
-     . 'DICTIONARY")') INODE(LUN),INOD,SUBTAG
+     . 'I7,") & POSIT INDEX, INOD (",I7,") OF SUBTAG (",A,") IN DICT")') 
+     . INODE(LUN),INOD,SUBTAG
       CALL BORT(BORT_STR)
 901   WRITE(BORT_STR,'("BUFRLIB: MSGINI - TABLE A MESSAGE TYPE '//
      . 'MNEMONIC ",A," NOT FOUND IN INTERNAL TABLE D ARRAYS")') SUBTAG

Modified: DART/trunk/observations/NCEP/prep_bufr/lib/rewnbf.f
===================================================================
--- DART/trunk/observations/NCEP/prep_bufr/lib/rewnbf.f	2011-03-28 15:57:55 UTC (rev 4825)
+++ DART/trunk/observations/NCEP/prep_bufr/lib/rewnbf.f	2011-03-28 17:17:22 UTC (rev 4826)
@@ -167,7 +167,8 @@
      . LUNIT
       CALL BORT(BORT_STR)
 903   WRITE(BORT_STR,'("BUFRLIB: REWNBF - SAVE/RESTORE SWITCH (INPUT '//
-     . 'ARGUMENT ISR) IS NOT ZERO OR ONE (HERE =",I4,") (UNIT",I3,")")')     . ISR,LUNIT
+     . 'ARGUMENT ISR) IS NOT ZERO OR ONE (HERE =",I4,") (UNIT",I3,")")')     
+     . ISR,LUNIT
       CALL BORT(BORT_STR)
 904   WRITE(BORT_STR,'("BUFRLIB: REWNBF - ERROR READING A DICTIONARY '//
      . 'MESSAGE AFTER REWIND OF BUFR FILE IN UNIT",I4,")")')  LUNIT

Modified: DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f
===================================================================
--- DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f	2011-03-28 15:57:55 UTC (rev 4825)
+++ DART/trunk/observations/NCEP/prep_bufr/lib/wrdlen.f	2011-03-28 17:17:22 UTC (rev 4826)
@@ -469,8 +469,8 @@
      . 'WORDS!)")') I
       CALL BORT(BORT_STR)
 901   WRITE(BORT_STR,'("BUFRLIB: WRDLEN - MACHINE WORD LENGTH (",I4,"'//
-     . ') IS NOT A MULTIPLE OF 8 (THIS MACHINE HAS WORDS NOT ON WHOLE'//
-     . ' BYTE BOUNDARIES!)")') I
+     . ') NOT MULT OF 8 (MACHINE HAS WORDS NOT ON WHOLE BYTE BOUNDARIES!)")') 
+     . I
       CALL BORT(BORT_STR)
 902   WRITE(BORT_STR,'("BUFRLIB: WRDLEN - BYTE ORDER CHECKING MISTAKE'//
      . ', LOOP INDEX J (HERE =",I3,") IS .GT. NO. OF BYTES PER WORD '//