(ATCScript "Comprehensive Flow Report Driver HydroCalib"
  (Arg aCurScenario  "madriver")
  (Arg aLocations    "RCHRES30") 
  (Arg aPrecipDSNs   2100)
  (Arg aBaseDrive    "c:")
  (Arg aBasePath     "\NCASI\")

  (Set Locations  (Array aLocations))
  (Set PrecipDSNs (Array aPrecipDSNs))

  (LoadLibrary "ATCScriptData" "ATCScriptFile"  "ATCScriptGrid" "ATCScriptHspf" 
               "ATCScriptIPC"  "ATCScriptGraph" "ATCScriptMisc")

  (Set CRLF (+ (Chr 13) (Chr 10)))

  (Set StandardsDir (+ aBaseDrive "\ScriptTest\Standards\"))
  (Set InputDir     (+ aBaseDrive aBasePath aCurScenario "\"))
  (Set OutputDir    (+ InputDir "OutFiles\"))

  (Set Scenarios (Array "Observed" aCurScenario))

  (ChDir InputDir)

  ('Set Debug "On")

  ('Set LocalDebug "On")
  (Set DebugFile (+ aBaseDir aBasePath "ComprehensiveReportDriverDebug.txt"))
  (If (= LocalDebug "On") (SaveFile DebugFile (+ "About to open UCI " InputDir aCurScenario ".uci" CRLF)))
  (Set lUci (HspfUciOpen (+ InputDir aCurScenario ".uci")))
  (If (= LocalDebug "On")
     (AppendFile DebugFile (+ (Format (HspfSJDate) "mm/dd/yy") CRLF
                              (Format (HspfEJDate) "mm/dd/yy") CRLF
                              (HspfRunInfo) CRLF
                              (ArrayItem (HspfMetSegs)   1) CRLF
                              (ArrayItem (HspfLandUses)  1) CRLF))
     (If (> (Len HspfPtSources) 0)
        (AppendFile DebugFile (+ (ArrayItem (HspfPtSources) 1) CRLF))
     )
  )
  (HspfEngStop)

  (Set gHspfRunInfo (HspfRunInfo))

  (Set gCurConstituent "Flow")
  (RunScript (+ StandardsDir (+ "Constants4" gCurConstituent ".spt")))

  (Set HspfnVals       1)
  (SaveFile (+ OutputDir "Annual_WatershedSummary.txt")
            (RunScript (+ StandardsDir "WatershedSummaryReport.spt") aCurScenario)
  )

  (Set SDate (HspfSJDate))
  (Set EDate (HspfEJDate))
  (Set HspfTimeUnits   "yr")
  (Set HspfTimeStep    1)
  (Set HspfnVals (JDateDiff SDate Edate HspfTimeUnits HspfTimeStep))
  (SaveFile (+ OutputDir "Total_WatershedSummary.txt")
            (RunScript (+ StandardsDir "WatershedSummaryReport.spt") aCurScenario)
  )

  (DataFile TSerFileBin Open "HSPFBinary" (+ InputDir aCurScenario ".hbn"))
  (SaveFile (+ OutputDir "WaterBalance.txt")
            (RunScript (+ StandardsDir "WaterBalance.spt") TSerFileBin aCurScenario)
  )

  (DataFile TSerFileBin Clear)
  (Unset TSerFileBin)

  (HspfUciClose)

  (SaveFile (+ OutputDir "ExpertSysStats.txt") 
            (+ gHspfRunInfo (Chr 13) (Chr 10) (ExpSysStats InputDir aCurScenario))
  )

  (DataFile TSerFileWDM Open "WDM" (+ InputDir aCurScenario ".wdm"))

  (SaveFile (+ OutputDir "MonthlyRunoff.txt")
            (RunScript (+ StandardsDir "MonthlyRunoff.spt") TSerFileWDM Locations aCurScenario)
  )

  (SaveFile (+ OutputDir "DailyMonthlyFlowStats.txt")
            (RunScript (+ StandardsDir "DailyMonthlyFlowStats.spt") TSerFileWDM Locations aCurScenario)
  )

  (Set Constituents (Array "Flow"))

  (RunScript (+ StandardsDir "XYGraphTimeseries.spt") TSerFileWDM Locations Scenarios Constituents "XYEntire" SDate EDate)

  (RunScript (+ StandardsDir "FlowDurationGraphTimeseries.spt") TSerFileWDM Locations Scenarios "FloDurEntire" SDate EDate)

  (Set dsnString "")
  (For dsnCounter = 1 to (Len PrecipDSNs)
    (+= dsnString (+ "(DataFile TSerFileWDM Data DSN " (ArrayItem PrecipDSNs dsnCounter) ") "))
  )
  (RunScript (+ "(Set PrecDataSets (Array " dsnString "))"))

  (SaveFile (+ OutputDir "AnnualRunoff.txt")
            (RunScript (+ StandardsDir "AnnualRunoff.spt") TSerFileWDM PrecDataSets Locations aCurScenario)
  )

  (Set ScriptTimeseriesGraph (FileAsString (+ StandardsDir "FlowGraphTimeseries.spt")))
  (Set GraphTitle "EntireMonthly")
  (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Arith No 5)
  (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Log   No 5)

  (Set GraphTitle "Entire")
  (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Arith No 4)
  (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Log   No 4)

  (Set wholeSdate SDate)
  (Set wholeEDate EDate)
  (While (< SDate wholeEDate)
    (Set EDate (JDateAdd SDate "yr" 1 1))
    (Set GraphTitle (WaterYear SDate))
    (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Arith Yes)
    (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Locations Scenarios GraphTitle SDate EDate Log   Yes)
    (Graph Clear)
    (Set SDate EDate)
  )

  ('Set Debug "On")
  ('DataFile TSerFileWDM Clear)
  (Unset TSerFileWDM)
  (Unset lCurConstituent)
  (Unset PerConstituent)
  (Unset ImpConstituent)
  (Unset PerImpConv)
  (Unset PerImpUnits)
  (Unset RchConstituent)
  (Unset RchConv)
  (Unset RchUnits)
  (Unset PtConstituent)
  (Unset PtConv)
  (Unset PtUnits)
  (Unset PtScenario)
  (Unset AreaUnits)
  (Unset TotalUnits)
  (Unset HspfAggregation)
  (Unset HspfTimeUnits)
  (Unset HspfTimeStep)
  (Unset HspfnVals)
  (Unset ScriptTimeseriesGraph)
  (Unset dsnString)
  (Unset Sdate)
  (Unset EDate)
  (Unset wholeSdate)
  (Unset wholeEDate)

  (ChDir "..")
  (Return)
)