Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

increase maximum message size in debufr utility #630

Merged
merged 2 commits into from
Oct 29, 2024
Merged

increase maximum message size in debufr utility #630

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
910ae58
increase maximum message size in debufr utility
jbathegit Oct 25, 2024
731a715
Merge branch 'develop' into jba_mxbf
jbathegit Oct 25, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 3 additions & 5 deletions src/jumplink.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -206,7 +206,9 @@ subroutine makestab
! Set up expansion segments for type 'SUB', 'DRP', and 'DRS' nodes.

newn = 0

do k=1,maxjl
AlexanderRichert-NOAA marked this conversation as resolved.
Show resolved Hide resolved
knt(k) = 0
enddo
do n=1,ntab
iseq(n,1) = 0
iseq(n,2) = 0
Expand All @@ -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
Expand Down
7 changes: 6 additions & 1 deletion src/openclosebf.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
2 changes: 1 addition & 1 deletion utils/debufr.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
Loading