increase maximum message size in debufr utility

src/jumplink.F90

@@ -206,7 +206,9 @@ subroutine makestab
   ! Set up expansion segments for type 'SUB', 'DRP', and 'DRS' nodes.
 
   newn = 0
-
+  do k=1,maxjl
+    knt(k) = 0
+  enddo
   do n=1,ntab
     iseq(n,1) = 0
     iseq(n,2) = 0
@@ -215,15 +217,11 @@ subroutine makestab
       iseq(n,1) = newn+1
       noda = n
       node = n+1
-      do k=1,maxjl
-        knt(k) = 0
-      enddo
       if(typ(noda)=='REP') then
         knt(node) = knti(noda)
       else
         knt(node) = 1
       endif
-
       outer: do while (.true.)
         newn = newn+1
         if(newn>maxjl) then

src/openclosebf.F90

@@ -720,7 +720,12 @@ subroutine rewnbf(lunit,isr)
       call bort(bort_str)
     endif
   elseif(isr==1) then
-    if(junn==0 .or. jsr(junn)/=1) then
+    if(junn==0) then
+      write(bort_str,'("BUFRLIB: REWNBF - ATTEMPING TO RESTORE '// &
+        'PARAMETERS TO BUFR FILE WHICH WERE NEVER SAVED (UNIT",I3,")")') lunit
+      call bort(bort_str)
+    endif
+    if(jsr(junn)/=1) then
       write(bort_str,'("BUFRLIB: REWNBF - ATTEMPING TO RESTORE '// &
         'PARAMETERS TO BUFR FILE WHICH WERE NEVER SAVED (UNIT",I3,")")') lunit
       call bort(bort_str)

utils/debufr.F90

@@ -60,7 +60,7 @@ subroutine fdebufr_c ( ofile, lenof, tbldir, lentd, tblfil, lentf, prmstg, lenps
 
   implicit none
 
-  integer, parameter :: mxbf = 2500000
+  integer, parameter :: mxbf = 7500000
   integer, parameter :: mxbfd4 = mxbf/4
   integer, parameter :: mxds3 = 500
   integer, parameter :: mxprms = 20