(ATCScript "FlowGraphTimeseries"
  (Arg "DataFileObject")
  (Arg "PrecipDataSets")
  (Arg "Locations")
  (Arg "Scenarios")
  (Arg "GraphTitle")
  (Arg "SDate")
  (Arg "EDate")
  (Arg "YAxisScale"     "arithmetic")
  (Arg "ShowComponents" "No")
  (Arg "TUnits"         4)

  (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 DataSetPrec (DataTSer  DataSetPrec SubSetByDate SDate EDate))
    (Set DataSetPrec (DataTSer  DataSetPrec Aggregate TUnits 1 "Sum"))

    (Graph DATA DataSetPrec)
    (Graph VAR 3 1)
    (Graph AGGR TUnits 1 0)
    (Graph CURVE 1 1 1 0 Blue (DataTSer DataSetPrec 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 DataSet (DataTSer DataSet SubSetByDate SDate EDate))
      (Set DataSet (DataTSer DataSet Aggregate TUnits 1 "Aver"))
      (Graph DATA DataSet)
      (Graph VAR 1 YAxisScaleFlag)

      (If (> (DataTSer DataSet Attrib "MAX") curMaxAxisVal)
        (Set curMaxAxisVal (DataTSer DataSet Attrib "MAX"))
      )
      (If (= CurScenario "Observed")
        (Set Color "Blue")
        (Set LineType 1)
        (Set LegendCaption "Observed")
        (Graph AGGR TUnits 1 0)
        (Graph CURVE 1 LineType 1 0 Color LegendCaption)
        (Else
          (Set Color "Red")
          (Set LineType 3)
          (Set LegendCaption (+ "Simulated (" (Format (FileAttribute (DataFile DataFileObject FileName) "date") "yyyy-mm-dd hh:mm") ")"))
          (Graph AGGR TUnits 1 0)
          (Graph CURVE 1 LineType 1 0 Color LegendCaption)
          (If (= ShowComponents "Yes")
            (RunScript (+ StandardsDir "FlowGraphAddComponents.spt"))
          )
        )
      )
    )

    (C establish maximum y-axis values)
    (Set curMaxAxisVal (RunScript (+ StandardsDir "MaxAxisVal.spt") curMaxAxisVal (- YAxisScaleFlag 1)))
    (Set maxPrecipAxis (Round (+ (DataTSer DataSetPrec 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")
    )
  )

  (UnSet Counter)
  (UnSet YAxisScaleFlag)
  (UnSet CurLocation)
  (UnSet curFile)
  (UnSet maxPrecipAxis)
  (UnSet LineType)
  (UnSet LegendCaption)
  (UnSet DataSetPrec)
  (UnSet DataSet)
)