OCR Text |
Show Waddell and Fields- Model for Evaluating the Effects of Dikes on the Water and Salt Balance of Great Salt Lake 5 3 Table 18. continued 00 1^ 9 0 J= NN » 50 IF ( N( J » 3). GE. N4+ N5) G0 TO 1500 1490 CONTINUE 150 0 Nl=(( N4* N5- N( J- 1 » 3))/( N( J * 3)- N( J- l• 3)))*( N( J• 1)- N( J- l, 1))+ N( J- l• 1) R( i)= J NN= b( 2)- 2 DO 1540 J= NN* bO IF ( S( J> 3). GE. 54+ S5) G0 TO 1550 1540 CONTINUE 1550 Sl=(( S4* Sb- S( J- l » 3)))/( S( J » 3)- S( J- l » 3)>*< S< Jt1)- S( J- l • 1>)* S( J- ltl) B( 2)= J NN= B( 3)- 4 DO 1570 J= NN> 50 IF ( L( J » 3). GE. L4T) GO TO 1575 1570 CONTINUE 1575 Ll=(( L4T - I( J- l* 3)))/( L( J * 3)- L( J- 1,3))*( L( J » 1)- L< J- l• 1))* L( J- l » 1) B( 3)= J 1576 G6= N6 N6= T1*( M1* S6/( S4- 620000>)- M2* N6/ N4)+ N6 F2= N6/ N4 IF ( F2. LE. 483.) G0 TO 1690 H2= N6- 483.* N4 N9= H2+ N9 N6= N6- H2 H4 = 0. GO TO 1800 1690 H2= 0. H4=(. 01/ 1.901)* T1*( 483.* N4- N6) IF ( H4. GT. N9) G0 TO 1710 GO TO 1715 1710 H4= N9 1715 N6= N6+ H4 N9= N9- H4 IF ( N9. LT. 0.) GO TO 1735 GO TO lttOO 1735 N9= 0, 1800 TLS- TXS- N6- N9- 300000000. UFCS=( S4- 620 0 0 0.)* 483. IF( TLS. Lt. UFCS) GO TO 1840 Hl= TLS- 483.*( S4- 620 0 0 0.) S9= S9* Hl S6= TLS- S9 H5 = 0. GO TO 1890 1840 H1= 0. S6= TLS- S9 H5=( 0.01/ 1.90i)* Tl*( 483.*( S4- 62000 0.)- S6) IF ( H5. GT. S9) H5= S9 S9= S9- H5 S6= S6* H5 IF ( S9. LT. 0.) S9= 0. |