DFLOW/DFLOWCalcs.vb, DFLOW/frmDFLOWResults.vb -- slight adjustment to…

… keep agreement with IDF
respec · Nov 18, 2022 · 19a3f98 · 19a3f98
1 parent 97a45f7
commit 19a3f98
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DFLOW/DFLOWCalcs.vb b/DFLOW/DFLOWCalcs.vb
@@ -733,7 +733,7 @@ Public Class DFLOWCalcs
             Dim lExcursions As New ArrayList
             Dim lClusters As New ArrayList
             'Dim lExcQ As Integer = CountExcursions(lxQy, 1, 120, 5, lTSN, lExcursions, lClusters)
-            Dim lExcQ As Double = CountExcursions(lxQy, lBioPeriod, lBioCluster, lBioExcursions, lTSN, lExcursions, lClusters)
+            Dim lExcQ As Double = CountExcursions(lxQy, 1, lBioCluster, lBioExcursions, lTSN, lExcursions, lClusters)
             lExcursions.Clear()
             lClusters.Clear()
 

diff --git a/DFLOW/frmDFLOWResults.vb b/DFLOW/frmDFLOWResults.vb
@@ -309,7 +309,7 @@ Public Class frmDFLOWResults
 
                     Dim lExcursions As New ArrayList
                     Dim lClusters As New ArrayList
-                    Dim lExcQ As Double = DFLOWCalcs.CountExcursions(lxQy, DFLOWCalcs.fAveragingPeriod, DFLOWCalcs.fBioCluster, DFLOWCalcs.fBioExcursions, lTSN, lExcursions, lClusters)
+                    Dim lExcQ As Double = DFLOWCalcs.CountExcursions(lxQy, 1, DFLOWCalcs.fBioCluster, DFLOWCalcs.fBioExcursions, lTSN, lExcursions, lClusters)
                     lExcursions.Clear()
                     lClusters.Clear()