qser.inp

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

C **

C ** InType MQSER(NS) TCQSER(NS) TAQSER(NS) RMULADJ(NS) ADDADJ(NS) ICHGQS

C **

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

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

C **

C ** InType=1 Structure

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

C ** TQSER(M,NS) QSER(M,1,NS) !(MQSER(NS) PAIRS FOR NS=1,NQSER SERIES)

C **

C ** InType=0 Structure

C ** TQSER(M,NS) (QSER(M,K,NS),K=1,KC) !(MQSER(NS) PAIRS)

C **

1 2 86400 0 1 0 0 ! Discharge

0.5 0.5

0.00        0.1002

200.00    0.1002