Update msxqual.c

Attempt to prevent infinite loop on wall species redistribution (provided via email by Feng Shang).
USEPA · Mar 20, 2024 · 32a3417 · 32a3417
1 parent 39b7c19
commit 32a3417
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/solver/msxqual.c b/src/solver/msxqual.c
@@ -1457,7 +1457,8 @@ void  evalnodeinflow(int k, double tstep, double* volin, double* massin)
             MSX.FirstSeg[k] = seg->prev;
             MSX.Link[k].nsegs--;
             if (MSX.FirstSeg[k] == NULL) MSX.LastSeg[k] = NULL;
-
+            else MSX.FirstSeg[k]->next = NULL; //03/19/2024 added to break the linked segments 
+
             // ... recycle the used up segment
             seg->prev = MSX.FreeSeg;
             MSX.FreeSeg = seg;