OCR Text |
Show Waddell and Fields- Model for Evaluating the Effects of Dikes on the Water and Salt Balance of Great Salt Lake Table 18. continued DO 1270 J= NN « 50 IF < N( Jf1). GE. N1) GO TO 1280 1270 CONTINUE 1280 N2=( N1- N( J- 1,1))/( N( J » l)- N( J- l » 1)) N3= N2*( N( J « 2)- N( J- lf2))• N( J- 1 » 2) N4 = N2*( N( Jt3)- N( J- l « 3))• N< J- 1? 3) NN = 8( 2)- 2 DO 1330 J= NN* 50 IF < S( J » 1). GF. Sl) GO TO 1340 1330 CONTINUE 1340 S2=( S1- S( J- 1,1))/( S( J » 1)- 5( J- 1,1)) S3= S2MS( J » 2)- S( J- 1 » 2>)* S( J- 1 » 2) S4= S2*( S( J » 3)- S( J- 1* 3))* S( J- 1 » 3) NN= 8( 3)- 2 DO 1364 J= NN* 50 IF < L( J* 1). 6E. L1) GO TO 1365 1364 CONTINUE 1365 L2=( L1- L( J- 1 » 1))/( L( Jt1)- L( J- l• 1)) L3= L2*( L( J » 2)- L( J- 1 » 2)>+ L( J- l » 2) L4= L2*( L( J » 3)- L( J- 1 » 3)>* L( J- 1 » 3> L5T= L4 IF( L4. LE. 0.) L4=. l T2= 12.5* 12.* SlN(. 262*( 8.* 15.21* X6* 30.5>/ 15.21- 3.53) PS= 0.99823 P6=( 8.* T2- T2** 2.0+ 132416.)/ l32432. P3= 1.0 • 0.63*( N6* 0.0007353)/ N4 P4= 1.0 • 0.63*( 36* 0.0007353)/( S4- 620000.) P7= 1.0 • 0.63*( L6* 0.0007353)/ L4 IF( P7. GE. l. 225) P7= 1.225 N7=( P3- 1.0)/. 63 S7=( P4- 1.0)/. 63 L7=( L6/ L4) » . 0007353 P4= P4* P6/ P5 P3=( P3* P6/ P5) » 0.996 P7= P7* P6/ P5 Cl= 4183. C C 1644 V= 0.0 R3= 0.0 1939 R3= R3+ 1 P= S1- N1 IF ( R. LE.. 15) R= .15 Y3= S1- C1 Y9= Y8- R R1=- 6.3* Y9- 5.84*( P3- P4)* Y8* 7.09 » Y8 IF ( R1. LE. 0.0) Rl= 0.1 R2= 6.39* Y9+ 5.94*( P3- P4)* Y8- 6.23* Y8 IF ( R2. LE. 0.0) R2= 0.1 A4 = 3.55MY8- R1- R2)/( Y8- Y9)- 1.02 |