OCR Text |
Show Waddell and Fields- Model for Evaluating the Effects of Dikes on the Water and Salt Balance of Great Salt Lake 47 Table 18. continued IF ( Z. EQ. 1.0R. Z. EQ. 3) GO TO 210 IF ( Z. FQ. 4.0R. Z. EQ. 6.0R. Z. EQ. 12.0R. Z. EQ. 14) GO TO 220 IF ( Z. EQ. b) GO TO 230 IF ( Z. EQ. 20) GO TO 240 210 00 211 11= 1,43 DO 211 KK= 1,12 QHII, KK) = ( 375./ 675.)*< QU( II, KK)) 211 DU( II, KK)= QU( II, KK)- QI( II, KK> D1= 20000.* D8 DO 212 11= 1,43 DO 212 KK= 1,12 212 Q( II, KK>* QB( IItKK) GO TO 245 220 DO 221 11= 1,43 DO 221 KK= 1,12 QI( IIfKK)*( 150./ 675.) « ( QU( II » KK)) 221 DU( II, KK)= QUUI, KK)- QI( II, KK) DlsO. O DO 225 11= 1,43 DO 225 KK= 1,12 225 Q( II, KK)= GW( II, KK) GO TO 245 230 DO 233 11= 1,43 DO 233 KK= 1,12 QI< II, KK>,= ( 075./ 675.) » < QU( II, KK)) 233 DU< II, KK)'= QU( II, KK)- QI < II, KK> Dl= 21000. 00 235 11= 1,43 DO 235 KK= 1,12 235 Q( II, KK)= QJ( II, KK) GO TO 245 240 DO 241 11= 1,43 DO 241 KK= 1,12 QI( II, KK)=( 60 0./ 675.)*( GU( II, KK)) 241 DU( II, KK)= QU( II, KK)- QI ( IltKK) 01= 41000* 08 DO 243 11= 1,43 DO 243 KK= 1,12 243 Q( II, KK)= QT( II, KK) 245 DO 244 11= 1,43 DO 244 KK= 1,12 244 H( II, KK)= QT( II, KK)- Q( II, KK)• H( IItKK) 246 D7= D6- Dl DATA F /• 095t. 086t. l01t. ll4,. 110t. 074f045 » . 059t. 050,. 084f089t 1.093,. 012,. 020,. 047,. 088,. 120,. 160,. 179,. 167,. 109,. 062,. 023,. 012/ DATA P / 0.71,1.01,0.7,0.9,0.7btl. 14,1.08,1.08,. 72,1.08,1.93,1.50, 1.86,1.12,1.29,1.11,1.11,. 96,1.12,. 96,1.15,. 87,. 86,. 82,1.02,. 79,1.18 1t. 74,. 82•. 71,. 77t. 91,1.06,1.20,1.18,. 67,1.12,1.31,. 97,1.22,1.27, 1.96,1.26/ DATA FJ / 220 0., 220 0., 2100., 2000., 190 0., 180 0., 2000., 2100., 220 0., 12200., 2200., 2200. / |