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

Don't deallocate/reallocate index every time
NOAA-EMC · Sep 7, 2021 · e184a5d · e184a5d
2 parents 4a45dbf + 3b73984
commit e184a5d
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/src/getidx.f b/src/getidx.f
@@ -98,10 +98,6 @@ END SUBROUTINE GETG2IR
          LUX=0
       ENDIF
 
-      IF (ASSOCIATED(IDXLIST(LUGB)%CBUF)) then
-         DEALLOCATE(IDXLIST(LUGB)%CBUF)
-      end if
-
       IF (LUGI.LT.0) THEN      ! Force re-read of index from indexfile
                                ! associated with unit abs(lugi)
          IF ( ASSOCIATED( IDXLIST(LUGB)%CBUF ) )