dont end csv parser if not active

AquaticEcoDynamics · Sep 24, 2021 · 2059fbb · 2059fbb
1 parent 136cbb3
commit 2059fbb
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/aed_csv_reader.F90 b/src/aed_csv_reader.F90
@@ -615,8 +615,7 @@ LOGICAL FUNCTION aed_csv_close(unit)
 !-------------------------------------------------------------------------------
 !BEGIN
  aedr => units(unit)%p
- aed_csv_close = end_parse(aedr)
- IF (ASSOCIATED(aedr)) DEALLOCATE(aedr)
+ IF (ASSOCIATED(aedr)) aed_csv_close = end_parse(aedr)
  NULLIFY(aedr)
  units(unit)%p => aedr
 END FUNCTION aed_csv_close