tser.inp

C ** EFDC_DSI Testing, tser.inp Time Series FILE

C ** REPEATS NCSER(2) TIMES

C **

C ** InType MCSER(NS) TCCSER(NS) TACSER(NS) RMULADJ(NS) ADDADJ(NS)

C **

C ** IF InType.EQ.1 THEN READ DEPTH WEIGHTS AND SINGLE VALUE OF Temp

C ** ELSE READ A VALUE OF TEMP FOR EACH LAYER

C **

C ** InType=1 Structure

C ** WKQ(K),K=1,KC

C ** TCSER(M,NS) CSER(M,1,NS) !(MCSER(NS,2) PAIRS FOR NS=1,NCSER(2) SERIES)

C **

C ** InType=0 Structure

C ** TCSER(M,NS) (CSER(M,K,NS),K=1,KC) !(MCSER(NS) PAIRS)

C **

1        2      86400       0        1        0 !         Discharge

1.0 1.0

       0.00         11.0000

   200.00         11.0000