Skip to content

fixing warning in degrib2 #816

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

Open
edwardhartnett wants to merge 3 commits into
base: develop
Choose a base branch
from
Open

fixing warning in degrib2 #816

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
7f5985d
fixing warning in degrib2
edwardhartnett Jan 22, 2025
6669b84
fixing warning in degrib2
edwardhartnett Jan 22, 2025
8bcd43f
Merge branch 'develop' into ejh_w2
edwardhartnett Jan 26, 2025
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: 4 additions & 4 deletions utils/degrib2.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@ program degrib2
use params
implicit none

integer :: msk2, icount, ifl1, itot, j, lengrib, lgrib
integer :: msk2, icount, ifl1, itot, j, lengrib
integer*8 :: iseek8, msk18, lskip8, lgrib8, lengrib8
integer :: maxlocal, n, ncgb, numfields, numlocal
real :: fldmax, fldmin, sum
Expand All @@ -29,7 +29,8 @@ program degrib2
character(len = 40) :: labbrev
character(len = 110) :: tabbrev
integer(4) narg, iargc, temparg
integer :: currlen = 0, numpts = 0
integer :: numpts = 0
integer*8 :: currlen = 0
logical :: unpack, expand
type(gribfield) :: gfld
integer :: ierr, ios, is
Expand Down Expand Up @@ -59,7 +60,6 @@ program degrib2
do
! Find a GRIB2 message in the file.
call skgb8(ifl1, iseek8, msk18, lskip8, lgrib8)
lgrib = lgrib8
if (lgrib8 .eq. 0) exit ! end loop at EOF or problem

! Read the GRIB2 message from the file.
Expand All @@ -70,7 +70,7 @@ program degrib2
endif
call bareadl(ifl1, lskip8, lgrib8, lengrib8, cgrib)
lengrib = lengrib8
if (lgrib8 .ne. lengrib) then
if (lgrib8 .ne. lengrib8) then
write(6, *)' degrib2: IO Error.'
call errexit(9)
endif
Expand Down
Loading