(ATCScript "FlowGraphTimeseries Script"
  (Arg "DataFileObject")
  (Arg "PrecipDataSets")
  (Arg "YAxisScale" "arithmetic")

  (Select (Mid YAxisScale 1 3)
    (Case "log"
      (Set YAxisScaleFlag 2))
    (Case Else
      (Set YAxisScaleFlag 1))
  )

  (Set Counter 0)
  (For CurLocation in Locations
    (Increment Counter)

    (Graph TIME SDate Edate)
    (Graph Grid 1 1 0)

    (Set DataSetPrec (ArrayItem PrecipDataSets Counter))
    (Set DataSetPrecSubset (DataTSer DataSetPrec SubSetByDate SDate EDate))
    (Set DataSetPrecDaily (DataTSer DataSetPrecSubset Aggregate "DY" 1 "Sum"))

    (Graph DATA DataSetPrecDaily)
    (Graph VAR 3 1)
    (Graph AGGR 4 1 0)
    (Graph CURVE 1 1 1 0 Blue (DataTSer DataSetPrecDaily Attrib "Desc"))

    (Graph TITLE (+ "Daily Mean Flow at " Curlocation) Caption)

    (Set curMaxAxisVal 0)
    (For CurScenario in Scenarios
      (Set DataSet (DataFile DataFileObject Data Location CurLocation 
                                       Scenario CurScenario
                                       Constituent "Flow"))
      (Set DataSetSubset (DataTSer DataSet SubSetByDate SDate EDate))
      (Graph DATA DataSetSubset)
      (Graph VAR 1 YAxisScaleFlag)

      (If (> (DataTSer DataSetSubset Attrib "MAX") curMaxAxisVal)
        (Set curMaxAxisVal (DataTSer DataSetSubset Attrib "MAX"))
      )

      (If (= CurScenario "Observed")
        (Set Color "Blue")
        (Set LineType 1)
        (Set LegendCaption "Observed")
        (Else
          (Set Color "Red")
          (Set LineType 3)
          (Set LegendCaption (+ "Simulated (" (Format (FileAttribute (DataFile DataFileObject FileName) "date") "yyyy-mm-dd hh:mm") ")"))
        )
      )
      (Graph AGGR 4 1 0)
      (Graph CURVE 1 LineType 1 0 Color LegendCaption)
    )

    (C establish maximum y-axis values)
    (RunScript (+ StandardsDir "MaxAxisVal.spt") (- YAxisScaleFlag 1))
    (Set maxPrecipAxis (Round (+ (DataTSer DataSetPrecDaily Attrib "MAX") 0.1) 0 "UP"))
    (If (= maxPrecipAxis 0) (Set maxPrecipAxis 3))

    (Graph SCALE 0 curMaxAxisVal 10 0 0 0 0 maxPrecipAxis maxPrecipAxis 0 0 0)
    (Graph AXIS 0 YAxisScaleFlag 0 0.2 " " "Discharge (cfs)" "YR" "Precip(in)")
    (Graph SHOW)
    (Set curFile (+ OutputDir CurLocation GraphTitle YAxisScale ".png"))
    (Graph SAVE curFile)
    (Graph CLEAR)

    (If (= PrintFile "print")
      (OpenFile curFile "print")
    )
  )
)