HSPEXP/HSPFOutputReports.vb -- graph from spec file closes timeseries…

… files, need to reopen
respec · Jan 17, 2019 · 7991dfd · 7991dfd
1 parent f0456a3
commit 7991dfd
Showing 1 changed file with 19 additions and 2 deletions.
diff --git a/HSPEXP/HSPFOutputReports.vb b/HSPEXP/HSPFOutputReports.vb
@@ -208,8 +208,8 @@ Module HSPFOutputReports
                 Directory.CreateDirectory(pOutFolderName)
                 File.Copy(pTestPath & pBaseName & ".uci", pOutFolderName & pBaseName & ".uci", overwrite:=True)
 
-                'read binary output files for later use in wq reports, qa reports, or receiving models 
-                If pConstituents.Count > 0 Or pBATHTUB Or pWASP Or pModelQAQC Then
+                'read binary output files for later use in qa reports
+                If pModelQAQC Then
                     Dim lOpenHspfBinDataSource As New atcDataSource
                     Logger.Dbg(Now & " Opening the binary output files.")
                     For i As Integer = 0 To aHspfUci.FilesBlock.Count
@@ -260,6 +260,23 @@ Module HSPFOutputReports
                     DoExpertSystemStats(aHspfUci, lRunMade)
                 End If
 
+                'read binary output files again for later use in wq reports or receiving models 
+                If pConstituents.Count > 0 Or pBATHTUB Or pWASP Then
+                    Dim lOpenHspfBinDataSource As New atcDataSource
+                    Logger.Dbg(Now & " Opening the binary output files.")
+                    For i As Integer = 0 To aHspfUci.FilesBlock.Count
+                        If aHspfUci.FilesBlock.Value(i).Typ = "BINO" Then
+                            Dim lHspfBinFileName As String = AbsolutePath(aHspfUci.FilesBlock.Value(i).Name.Trim, CurDir())
+                            lOpenHspfBinDataSource = atcDataManager.DataSourceBySpecification(lHspfBinFileName)
+                            If lOpenHspfBinDataSource Is Nothing Then
+                                If atcDataManager.OpenDataSource(lHspfBinFileName) Then
+                                    lOpenHspfBinDataSource = atcDataManager.DataSourceBySpecification(lHspfBinFileName)
+                                End If
+                            End If
+                        End If
+                    Next i
+                End If
+
                 'Write input file for BATHTUB
                 If pBATHTUB Then
                     If pOutputLocations.Count > 0 Then