Merge pull request #10 from mark-a-potts/DA-closbuf-fix

DA closbuf fix
NOAA-EMC · Jul 16, 2020 · c39f6e5 · c39f6e5
2 parents ce9ac36 + 77b1d43
commit c39f6e5
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/src/closbf.f → src/closbf.F b/src/closbf.f → src/closbf.F
@@ -54,10 +54,19 @@ 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 CALLED BEFORE OPENBF'
+        CALL ERRWRT(ERRSTR)
+        CALL ERRWRT('++++++++++++++++++++WARNING++++++++++++++++++++++')
+        RETURN
+      ENDIF
+#endif
       CALL STATUS(LUNIT,LUN,IL,IM)
       IF(IL.GT.0 .AND. IM.NE.0) CALL CLOSMG(LUNIT)
       IF(IL.NE.0 .AND. NULL(LUN).EQ.0) CALL CLOSFB(LUN)

diff --git a/src/list_of_files.cmake b/src/list_of_files.cmake
@@ -72,7 +72,6 @@ set(fortran_src
   chrtrn.f
   chrtrna.f
   cktaba.f
-  closbf.f
   closmg.f
   cmpmsg.f
   cmsgini.f
@@ -298,6 +297,7 @@ set(fortran_src
   wtstat.f
   arallocf.F
   ardllocf.F
+  closbf.F
   ireadmt.F
   irev.F
   isetprm.F