(ATCScript "WQGraphTimeseries"
  (Arg "aWDMFileObject")
  (Arg "aDBFFileObject")
  (Arg "aCurConstituent")
  (Arg "aLocations")
  (Arg "aScenarios")
  (Arg "aGraphTitle")
  (Arg "aSDate")
  (Arg "aEDate")
  (Arg "aYAxisScale"     "arithmetic")
  (Arg "aShowComponents" "No")
  (Arg "aTUnits"         4)

  (Select (Mid aYAxisScale 1 3)
    (Case "log" (Set lYAxisScaleFlag 2))
    (Case Else  (Set lYAxisScaleFlag 1))
  )

  (Set lCounter 0)

  (For lCurLocation in aLocations
    (Increment lCounter)
    (Set lCurMaxAxisVal 0)

    (Graph TIME aSDate aEdate)
    (Graph Grid 1 1 0)
    (Set lFlowDataSet (DataFile aWDMFileObject Data Location    lCurLocation 
                                                    Scenario    (ArrayItem aScenarios 2)
                                                    Constituent "Flow"))
    (Set lFlowDataSet (DataTSer lFlowDataSet SubSetByDate aSDate aEDate))
    (Set lFlowDataSet (DataTSer lFlowDataSet Aggregate aTUnits 1 "Aver"))

    (Graph DATA lFlowDataSet)
    (UnSet lFlowDataSet)
    (Graph VAR 3 1)
    (Graph AGGR aTUnits 1 0)
    (Graph CURVE 1 1 1 0 "Red" (DataTSer lFlowDataSet Attrib "Desc"))

    (For lCurScenario in aScenarios
      (If (= lCurScenario "OBSERVED")
        (Set lConsDataSet (DataFile aDBFFileObject Data Location    lCurLocation 
                                                        Scenario    lCurScenario
                                                        Constituent aCurConstituent))
        (Else
          (Set lConsDataSet (DataFile aWDMFileObject Data Location    lCurLocation 
                                                          Scenario    lCurScenario
                                                          Constituent aCurConstituent))
          (Graph TITLE (+ "Daily Mean " (DataTSer lConsDataSet Attrib "DESCRP") " at " lCurlocation) Caption)
        )
      )
      (If (> (Len (DataTSer lConsDataSet Values)) 0)
        (Graph VAR 1 lYAxisScaleFlag)
        (If (= lCurScenario "Observed")
          (Graph DATA lConsDataSet)
          (UnSet lConsDataSet)
          (Set lLegendCaption (+ "Observed " (DataTSer lConsDataSet Attrib "IDCONS")))
          (Graph CURVE 5 0 1 3 "Blue" lLegendCaption)
          (Else
            (Set lConsDataSet (DataTSer lConsDataSet SubSetByDate aSDate aEDate))
            ('Set lConsDataSet (DataTSer lConsDataSet Aggregate aTUnits 1 "Aver"))
            (Graph DATA lConsDataSet)
            (UnSet lConsDataSet)
            (Graph AGGR aTUnits 1 0)
            (Set lLegendCaption (+ "Simulated (" (Format (FileAttribute (DataFile aWDMFileObject FileName) "date") "yyyy-mm-dd hh:mm") ")"))
            (Graph CURVE 1 1 1 0 "Red" lLegendCaption)
            (If (= aShowComponents "Yes")
              (RunScript (+ StandardsDir "FlowGraphAddComponents.spt"))
            )
          )
        )
      )

      (If (> (DataTSer lConsDataSet Attrib "MAX") lCurMaxAxisVal)
        (Set lCurMaxAxisVal (DataTSer lConsDataSet Attrib "MAX"))
      )
    )
    ('establish maximum y-axis values)
    (Set lCurMaxAxisVal (RunScript (+ StandardsDir "MaxAxisVal.spt") lCurMaxAxisVal (- lYAxisScaleFlag 1)))
    (Set lMaxFlowAxis (Round (+ (DataTSer lFlowDataSet Attrib "MAX") 0.1) 0 "UP"))
    (If (= lMaxFlowAxis 0) (Set lMaxFlowAxis 1000))

    (Graph SCALE 0 lCurMaxAxisVal 10 0 0 0 0 lMaxFlowAxis 2 0 0 0)
    (Graph AXIS 0 lYAxisScaleFlag 0 0.2 " " aCurConstituent "YR" "Flow (cfs)")
    (Graph SHOW)
    (Set lCurFile (+ OutputDir lCurLocation aGraphTitle aYAxisScale ".png"))
    (Graph SAVE lCurFile)
    (Graph CLEAR)
  )

  (UnSet lCounter)
  (UnSet lYAxisScaleFlag)
  (UnSet lCurLocation)
  (UnSet lCurFile)
  (UnSet lMaxFlowAxis)
  (UnSet lLineType)
  (UnSet lLegendCaption)
)