Switched to ERRWRT warning

NOAA-EMC · Jul 16, 2020 · 77b1d43 · 77b1d43
1 parent 17c05ce
commit 77b1d43
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/closbf.F b/src/closbf.F
@@ -54,13 +54,14 @@ SUBROUTINE CLOSBF(LUNIT)
       USE MODA_NULBFR
 
       INCLUDE 'bufrlib.prm'
+      CHARACTER*128 ERRSTR
 
 C-----------------------------------------------------------------------
 C-----------------------------------------------------------------------
 #ifdef DYNAMIC_ALLOCATION   
       IF ( .NOT. ALLOCATED(NULL) ) THEN
         CALL ERRWRT('++++++++++++++++++++WARNING++++++++++++++++++++++')
-        ERRSTR = 'BUFRLIB: CLOSBF WAS CALLED BEFORE CALLING OPENBF' 
+        ERRSTR = 'BUFRLIB: CLOSBF CALLED BEFORE OPENBF'
         CALL ERRWRT(ERRSTR)
         CALL ERRWRT('++++++++++++++++++++WARNING++++++++++++++++++++++')
         RETURN