|
<br />CALL STAGE(K,M,N,SZ,Q,H3,Q3,H1)
<br />D9=H1/(M+l.)
<br />IF(Hl .GT. H3) D9=HI-H3+H3/(M+l.)
<br />V6=(1.49/N)*(SZ**0.S)*D9**0.667
<br />C9=0.6BZ*V6*(11667-{J667*(M/(M+l.))))
<br />P(I,3)=lTO/60.J+D(I) C9
<br />C
<br />C CO~WUTE AND SAVE PEAK DEPTH AT X-S (I)
<br />Q=P(I 1)
<br />CALL STAGE(K,M,N,SZ,Q,H3,Q3,Hl)
<br />P(I,Z)=H1
<br />C DET TIME FLOODING AND DEFLOODING
<br />~!~~B'B
<br />CALL TfMFLD(K,M,N,S2,H3,H4,Q,Q3,Tl,T4,TS)
<br />P(I,4)=T4
<br />P(I,S)=TS
<br />CONTINUE
<br />
<br />C
<br />4S0
<br />C
<br />C
<br />C PRINT HEADING
<br />4SS WRITE(IOUT,924) DAMNAM RIVNAM
<br />924 FORMAT(//IX, ' PROFILE OF CRESTS AND TIMES FOR' ,SA4,' DAM',
<br />1/20X,' ON ' ,SA4,' RIVER'//lX1' DISTANCE'
<br />11X' PEAK PEAK FLuOD TIME' TIME TIME',
<br />l/lX,'DOWNSTREAM FLOW DEPTH DEPTH FLOOD PEAK '
<br />l' DEFLOOD'
<br />l/1X,' (HILES'
<br />l' HR',n
<br />DO 460 I = 1 NO
<br />WRITECIOUT,92S) D(I),P(I,1),P(I,Z),C(3,I),P(I.4),PlI,3),P(I,S)
<br />460 CONTINUE
<br />92S FO~~T(F8.2,F12.2,F8.2,4F10.2)
<br />C
<br />1 FORMATI/)
<br />701 FORMAT SA4)
<br />702 FORMAT F1Q.2)
<br />703 FOR1'~T 11)
<br />704 FORMAT FI0.3)
<br />SOO STOP
<br />END
<br />
<br />CFS
<br />
<br />FEET
<br />
<br />FEET
<br />
<br />HR
<br />
<br />HR
<br />
<br />,
<br />
<br />C
<br />
<br />C
<br />
<br />BLOCK DATA
<br />'CO~~ION/ARAY/ F(IS,6),X(6),O(B),E(8,8),T(8,8),C(3,8),H(2,8),B(4,8),
<br />1PC8,S)
<br />C XCI) IS THE X* DISTANCE (10X)
<br />C F~l,I) IS FC2S(1,I), F(2,I) IS FC2SC2,I), ETC, I=X* POINTER
<br />C F 6 I) IS FCSO(l I) F(7 I) IS FCSO(2 I) ETC I=X* POINTER
<br />C F 11,1) IS FC7S(1,I}, F(IZ,I) IS FC7S(2,f), EtC, I=X* POINTER
<br />C
<br />DATA X(l) X(2) X(3),X(4) X(S),X(6)
<br />1/0.0001116.00,jo.001so.06,100.00,200.00/
<br />DATA F( ,1)...F\1",Z)I'l113),FC1,4),F(l,S),FC1,6)
<br />1/100.,S6.I3",.,2U., Z'I/./
<br />DATA F(2, )...F\Z~ZJ1Fl"'I3)lFlZ,4),F(Z,S),FC2,6)
<br />1/100....74.I4'.,3J.I"'4.13.
<br />DATA ,(3, ),F\312J1FCj13)IF(3,4),FC3,S),FC3,6)
<br />1/100. ,8S '16,+. lSu . ,j S. 1",0.
<br />- DATA FC4, ),F\412J,F('+13)lF(4,4),Fl4,S),FC4,6)
<br />1/100....90 '17,+. ,6",.,<+S, ~",6.
<br />DATA .(S, )IF\SI2J~F\J13),F(S,4),FCS,S),F(S,6)
<br />1/100.193.IB .,7 .,J3.~jl.
<br />DATA r'C6, )IF\6A2JAF(013)lF(6,4),FC6,S),F(6,6)
<br />1/100....73.I5j.,4j.,jO,1"'0~
<br />DATA r(7, )JF\712J,F\I...3J,F(7,4),F(7,S),F(7,6)
<br />1/ 100 . ,83 . 160 . , S 1 . ,,+2 . 1'" 8 .
<br />DATA FC8, )IF\B12J)F(OA3),F(8,4),F(B,S),F(8,6)
<br />1/100....92.I7'.,7u.,J4,lj61
<br />DATA r(9, ),F\912JJF\',3J,FC9,4),F(9,S),FC9,6)
<br />1/100. ,9S. ,80.,7,. ,04. ,,+3.1
<br />DATA FC10,1),FC10,2),F(10,3),F(10,4),FCI0,S),F(10,6)
<br />1/100.197.,90....84.,71.1SO.
<br />DATA r'C11,1)"C11,Z),r'(11,3),F(11,4),FC11,S),F(11,6) 1I-9
<br />
|