diff --git a/src/tocgrib2super/tocgrib2super.F90 b/src/tocgrib2super/tocgrib2super.F90 index d6a78d4..d20566a 100755 --- 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))