From 7f5985daf8bcba237766dbc0edcd3d081d6e99b2 Mon Sep 17 00:00:00 2001
From: Ed <edward.hartnett@noaa.gov>
Date: Wed, 22 Jan 2025 14:22:16 -0700
Subject: [PATCH 1/2] fixing warning in degrib2

---
 utils/degrib2.F90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/utils/degrib2.F90 b/utils/degrib2.F90
index 74d1d9a13..14bc22911 100644
--- a/utils/degrib2.F90
+++ b/utils/degrib2.F90
@@ -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
@@ -59,7 +59,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.

From 6669b845a06de91d565fb93eb795507780c4548b Mon Sep 17 00:00:00 2001
From: Ed <edward.hartnett@noaa.gov>
Date: Wed, 22 Jan 2025 14:29:36 -0700
Subject: [PATCH 2/2] fixing warning in degrib2

---
 utils/degrib2.F90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/utils/degrib2.F90 b/utils/degrib2.F90
index 14bc22911..2740cfaf4 100644
--- a/utils/degrib2.F90
+++ b/utils/degrib2.F90
@@ -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
@@ -69,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