fixing warning in degrib2

NOAA-EMC · Jan 22, 2025 · 7f5985d · 7f5985d
1 parent f4e7eb9
commit 7f5985d
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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.