FOPTRAN IV G LEVFL 1 f> 



HAIN 



DATE = 71201 



22/08/17 



0122 

 0123 

 012* 

 0125 

 0126 

 0127 

 0128 

 012<? 

 0130 

 0131 

 0132 

 0133 



013* 

 0135 

 0136 



0137 

 01^8 

 01 39 

 1*0 



01*1 

 01*7 

 1*3 

 01** 

 01*5 

 ni*6 



1*7 



01 *P 

 01 *9 



1 ?0 



01 'il 



1 52 

 0153 

 015* 

 0155 

 0156 



0157 

 0158 

 0159 



01 60 

 0161 

 0162 



0163 



016* 

 0165 

 0166 

 0167 

 0168 

 0169 



0170 

 0171 

 0172 



DATAVIX,' KG Tl^'e START TIME PE 

 R END STORMFLO INTERFLO RA 



RS ( J ) , RP( J ), RE ( J ), OFLL < J », 



PIFLC(K)=SUBFF(K)*1C0.0/QFLL(K) 

 PRFLG(K) = 1CO.O/QFLHK)«RFLI(K) 

 P0 9PK( K ) =1 00.0/OFLL( K I *OFLPK ( K) 

 POAPK( K ) = 100.0/0FLL( K) *OFDPK( K) 

 J = J+1 

 K=K+1 



IF( S( J ).LF.rN!nS ) GO TO 8001 



Gr TP * 



8001 WR I TE( 6, 81 10) 

 8110 FORMAT( • l« ,50X, • TABLE 2') 



WR I TE ( 6, SCC3 ) 

 =?003 FnPMAT( ?0X, • SU^'MARY OF STTRM 



2AK TI^^EENH p START R PEAK 

 3PIDFL0' ) 

 II=K- 1 



DO 9100 J=1,II 



WRITE(6,8008) J,TS(J),TP(J),TE(J) 

 ?SUBFF( J) ,DFLL( J I 

 8008 FORMAT! 1 X, 13, 9F 10.*) 

 8100 CONTINUE 



WP ITE ( 6, 80C2 I 



800 2 FnPMAT('l',50X,«TABLE3«/lX,'ST0Rf".2X,«ST0RMFLC',29X,'TIME',18X,'P 

 2fcRlMETeR/',*X,«RECESSlCN',« PASF IIML',3X,'RISING',3X,«FALLING'/1X 

 3, 'NO ' , 3X, • ;^A SF L I NF • , 3X , 'PER I ►'ETTR » , • Tnp ANGL F ' i 3 X , ' TO PEAK«,5X 

 *, ' STOP MEL" •,?X,«LN(l*ST0RMFLC)«,*X,'TIfF',7X,'ANGLE't3X,'LIMB ANGL 

 5*" • , 1 X, 'L I ANGL<= ' ) 



DP 6200 J=1.II 



OR 1( J )=PP( J)-PS< J) 



pp 2( J (=RP( J)-RF ( J) 



PT i( J )=TP( J)-TS( J) 



PT2( J )=TF( J)-TP( J) 



UP ( J ) = SORT(00 1( J ) ♦•2 + nTI < J ) ♦♦?) 



nN(J) = S0RT(P0?(J)*'»? + 0T2(J)**?) 



PiS£(J)=S0RT((FC(J)-''S(J))**2HTE(JI-TS(, J ))•♦?) 

 PFRIM(J)=UP(J)*nN(J)+8ASF(J) 



A(J»=ATAN(DTl(J)/!'»Rl(J)| + ATflN(PT?<j)/ORp(j)| 



A?(J)=ATAN((R£(J)-«S(JI)/(TP(J)-TS(J)I) 



APISE(JI=ATAN(PR1(J)/PT1(J)) 



AGLDNC J) =ATAN(OT?( J) /nR2( J) ) 



PERFL(J)=PFPIM(J)/AL0G((CFLL(J)*1.0)I 



TDTTM( J) =TE( J)-TS( J) 



WR ITF( 6, 8009 ) J,RASE(J),PERIM(J),A(J),DT I ( J ) , QFL L ( J ) , P ER FL (J I, 



2 DT2( J) ,A?( J),ARI SE ( J) ,AGLON( J) 

 FnPMAT(lX,I3,2X,8F12.6,2F9.6) 

 CONTINUE 

 WP ITE( 6, 8120) 

 6120 FORMAT (' 1 ' ,50X, • TABLE *•» 



WRITE (6,8703) 

 8703 FORMAT( 1X,«STCRM NO STCR»'FLC 



2H INTEPFLINCH RAPINCH TOTAL 



3EAK • ) 



C AINCH IS A CONSTANT FOP CONVERTING CFS 



A INC 36 on. 0*6*0. 0*1 2.0/(52 80.0**2) 

 C ACREK IS THE AREA OF THE WATERSHED BEING STUDIED IN ACRES 

 C THE VALUE OF 'ACREK' MLST BE CHANGED TO FIT THE WATERSHED 

 C BEING STUDIED. 



ACREK=3561 .0 



DO 8720 J=1,1T 



QINCH(j)=OFLL(J)*AINCH/ACREK 

 SUB IN( J ) = SUPFF( J ) ♦AI NCH/ACREK 

 RINCH(J)=RFLL(J)*A1NCH /ACREK 



WRITE ( 6, 8700) J , OF LL ( J » , S UBFF ( J I , RF LL ( J ) , QI NCH ( J ) , SUB IN ( J ) , 

 2PINCH(J),T0TTM(J),QFLPK(J),CFPPK(J) 

 8700 FORMAK IX.I 3,5X,9P 12.6) 

 3720 CONTINUE 



OP 8600 J=1,II 



8009 

 8200 



INTERFLO 

 TIME OFLO TO 



INTO INCHES 



RAPIOFLO OINC 

 PEAK OFLOAFTER P 



18 



