| OCR Text |
Show 46 Utah Geological and Mineral Survey Water- Resources Bulletin 21, 1976 Table 18. Computer program to simulate the water and salt balance for selected diking options. REAL S( 55* 3)* N( 55* 3)* L( 55* 3)* G( 4* 3)* L4T* L5T REAL D( 4 » 3) » F( 24)* P( 43) » FJ( 12) REAL Q( 45t12)* H( 45* 12) » X( 45* 12) » LL* 20* 55* 3)* QT( 45* 12) REAL Nl » N2* N3* N4* N5* N6* Ll* L2* L3* L4* L5* L6 REAL N7* N8* N9* L7* L8 REAL QB( 45,12) » QW< 45* 12) » QJ( 45* 12)* QU( 45* 12)* 01( 45,12)* DIM 45* 12) INTEGER 6( 4)* Z* W9, R3 INTEGER 0 M= 5 0 = 10 READ ( M » 101) K » Z* A* CE* CL » N1* S1* L1 READ ( M » 102) N6* S6* L6* N9* S9* T1 101 FORMAT ( 2I10* 6F10.0) 102 FORMAT ( 5F15.0* F5.0) KOK PRESERVES K K0K= K REAO IN ELEV- AREA- VOL OF N* S* L READ ( 0* 301) (( S( II* KK) » KK= 1* 3)* 11 = 1* 55) READ ( 0* 301) (( N< II* KK) » KK= 1* 3)* 11 = 1* 55) DO 11 MM= 1* 9 DO 11 11= 1* 55 11 READ ( 0* 301)( LL( MM » II » KK)* KK= 1,3) 301 FORMAT ( 3F10.0) IF( 2. E0.1) MZ= 1 IF( Z. EQ. 3) MZ= 2 IF( Z. EQ. 4) MZ= 3 IF ( Z. EQ. 5) MZ= 4 IF( Z. EQ. 6) MZ= 5 IF( Z « EQ. 8) MZ= 6 IF( Z. EQ. 12) MZ= 7 IF( Z. EQ. 14) MZ= 8 IF( Z. EQ. 20) MZ= 9 DO 13 11= 1* 55 DO 13 KK= 1* 3 13 L( II* KK) = LL( MZ* II* KK) READ IN STREAMFLOW DATA READ ( 0* 302)(( QB( II* KK) » KK= 1* 12) » I1= 1* 43) READ ( 0* 302)(( QW( IItKK)* KK= 1 » 12) » I1= 1* 43) READ ( 0* 302) (( QJ( II* KK)* KK= 1* 12)* 11 = 1,43) READ ( 0* 302) (( H( II* KK) » KK= 1,12)* 11 = 1* 43) READ ( 0* 302) (( X( II* KK) » KK= 1 » 12) * 11 = 1* 43) READ ( 0* 302) (( QU( II* KK)* KK = 1* 12)* 11 = 1* 43) 302 FORMAT ( 6F10.0 » 20X) STREAMFLOW ANALYSIS DO 205 11= 1* 43 DO 205 KK= 1* 12 205 QT( II* KK)= QB( I1* KK) • QW( II* KK)* GJ( II* KK) 06= 41000. D8= 0.0 IF ( K. GT. O ) 08= 10000. D6= D6* D8 |
