fixing warning in degrib2

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