fixed version problem (#340)

NOAA-EMC · May 29, 2024 · 4d009a5 · 4d009a5
1 parent ab13383
commit 4d009a5
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/tocgrib2super/tocgrib2super.F90 b/src/tocgrib2super/tocgrib2super.F90
@@ -232,6 +232,7 @@ end subroutine getgb2p2
      !
      !        Read and return packed GRIB field
      !
+     idxver = 2
      CALL GETGB2P2(lugb,lugi,jrew,DSCPL,IDS,PDTN,PDT, &
           GDTN,GDT,extract,idxver,KREW,gribm,itot8,iret)
      itot = int(itot8, kind(4))