attempting tocgrib2 fix

NOAA-EMC · May 23, 2024 · a0e766d · a0e766d
1 parent 3b336e6
commit a0e766d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/tocgrib2/tocgrib2.F90 b/src/tocgrib2/tocgrib2.F90
@@ -53,6 +53,7 @@ PROGRAM tocgrib2
 
   logical :: extract=.false.
   integer idxver = 2
+  integer (kind = 8) :: itot8
 
   interface
      subroutine getgb2p2(lugb, lugi, j, jdisc, jids, jpdtn, jpdt, jgdtn, jgdt,  &
@@ -157,7 +158,8 @@ end subroutine getgb2p2
 
      !        Read and return packed GRIB field
      CALL GETGB2P2(lugb,lugi,jrew,DSCPL,IDS,PDTN,PDT, &
-          GDTN,GDT,extract,idxver,KREW,gribm,itot,iret)
+          GDTN,GDT,extract,idxver,KREW,gribm,itot8,iret)
+     itot = int(itot8, kind(4))
      IF (IRET.NE.0) THEN
         IF (IRET.EQ.96)WRITE(6,'(A)')' GETGB2P: ERROR READING INDEX' &
              //' FILE'