Merge pull request #105 from NOAA-EMC/bugfix/getidx-performance

Add `save`to idxlist to improve performance. Withou the save the grib index is regenerated every time. Tests on WCOSS2 went from 25s to 2s reading a grib file.
NOAA-EMC · Sep 1, 2021 · 6c69955 · 6c69955
2 parents 7e78071 + 7fc208f
commit 6c69955
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/getidx.f b/src/getidx.f
@@ -58,7 +58,7 @@ SUBROUTINE GETIDX(LUGB,LUGI,CINDEX,NLEN,NNUM,IRET)
          character(len=1),pointer,dimension(:) :: cbuf
       END TYPE GINDEX
 
-      TYPE(GINDEX) :: IDXLIST(10000)
+      TYPE(GINDEX), save :: IDXLIST(10000)
 
       DATA LUX/0/
 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -