WATER POLLUTION CONTROL RESEARCH SERIES 11024DOC10/71
Storm Water Management Model
Volume IV-Prog ram Listing
ENVIRONMENTAL PROTECTION AGENCY • WATER QUALITY OFFICE
-------
WATER POLLUTION CONTROL RESEARCH SERIES
The Water Pollution Control Research Reports describe the results and progress
in the control and abatement of pollution of our Nation's waters. They provide
a central source of information on the research, development and demonstration
activities of the Water Quality Office of the Environmental Protection Agency,
through in-house research and grants and contracts with the Federal, State
and local agencies, research institutions, and industrial organizations.
Previously issued reports on the Storm and Combined Sewer Pollution Control
Program:
11023 FDB 09/70
11024 FKJ 10/70
11024 EJC 10/70
11023 12/70
11023 DZF 06/70
11024 EJC 01/71
11020 FAQ 03/71
11022 EFT 12/70
11022 EFF 01/71
11022 DPP 10/70
11024 EQG 03/71
11020 FAL 03/71
11024 FJE 04/71
Chemical Treatment of Combined Sewer Overflows
In-Sewer Fixed Screening of Combined Sewer Overflows
Selected Urban Storm Water Abstracts, First Quarterly
Issue
Urban Storm Runoff and Combined Sewer Overflow Pollution
Ultrasonic Filtration of Combined Sewer Overflows
Selected Urban Runoff Abstracts, Second Quarterly Issue
Dispatching System for Control of Combined Sewer Losses
Prevention and Correction of Excessive Infiltration and
Inflow into Sewer Systems - A Manual of Practice
Control of Infiltration and Inflow into Sewer Systems
Combined Sewer Temporary Underwater Storage Facility
Storm Water Problems and Control in Sanitary Sewers -
Oakland and Berkeley, California
Evaluation of Storm Standby Tanks - Columbus, Ohio
Selected Urban Storm Water Runoff Abstracts, Third
Quarterly Issue
To be continued on inside back cover...
-------
STORM WATER MANAGEMENT MODEL
Volume IV Program Listing
by
Metcalf & Eddy, Inc., Palo Alto, California
University of Florida, Gainesville, Florida
Water Resources Engineers, Inc., Walnut Creek, California
for the
ENVIRONMENTAL PROTECTION AGENCY
Contract No. 14-12-501 Project No. 11024EBI
Contract No. 14-12-502 Project No. 11024DOC
Contract No. 14-12-503 Project No. 11024EBJ
October 1971
For sale by the Superintendent of Documents, U.S. Government Printing Office, Washington, D.C. 20402 - Price $2
Stock Number 5501-0105
-------
EPA REVIEW NOTICE
This report has been reviewed by the Environmental
Protection Agency and approved for publication.
Approval does not signify that the contents neces-
sarily reflect the views and policies of the Environ-
mental Protection Agency, nor does mention of trade
names or commercial products constitute endorsement
or recommendation for use.
-------
ABSTRACT
A comprehensive mathematical model, capable of representing urban
storm water runoff, has been developed to assist administrators and en-
gineers in the planning, evaluation, and management of overflow abate-
ment alternatives.
Hydrographs and pollutographs (time varying quality concentrations
or mass values) were generated for real storm events and systems from
points of origin in real time sequence to points of disposal (including
travel in receiving waters) with user options for intermediate storage
and/or treatment facilities. Both combined and separate sewerage systems
may be evaluated. Internal cost routines and receiving water quality out-
put assisted in direct cost-benefit analysis of alternate programs of
water quality enhancement.
Demonstration and verification runs on selected catchments, varying
in size from 180 to 5,400 acres, in four U.S. cities (approximately 20
storm events, total) were used to test and debug the model. The amount
of pollutants released varied significantly with the real time occurrence,
runoff intensity duration, pre-storm history, land use, and maintenance.
Storage-treatment combinations offered best cost-effectiveness ratios.
A user's manual and complete program listing were prepared.
This report was submitted in fulfillment of Projects 11024 EBI, DOC,
and EBJ under Contracts 14-12-501, 502, and 503 under the sponsorship of
the Environmental Protection Agency.
The titles and identifying numbers of the final report volumes are:
Title EPA Report No.
STORM WATER MANAGEMENT MODEL 11024 DOC 07/71
Volume I - Final Report
STORM WATER MANAGEMENT MODEL 11024 DOC 08/71
Volume II - Verification and Testing
STORM WATER MANAGEMENT MODEL 11024 DOC 09/71
Volume III - User's Manual
STORM WATER MANAGEMENT MODEL 11024 DOC 10/71
Volume IV - Program Listing
iii
-------
CONTENTS
Section Page
Typical JCL 1
1 Executive Block 3
2 Runoff Block 13
3 Transport Block 41
4 Storage Block 125
5 Receiving Water Block 201
-------
TYPICAL JCL
THIS IS TYPICAL JCL FCR EXECUTING A RUN USING THE COMPLETE MUDEL
(JCL VARIATIONS MAY OCCUR ACCORDING TO MACHINE OR INSTALLATION)
**********
((THE FOLLCWiKG ARE THE ASSUMED TAPE/DISK ASSIGNMENTS FOR EACH RLOCKJ )
BLCCK
INPUT
FILE
OUTPUT
FILE
RUNOFF
TRANSPCRT
STCRAG6
RECEIVING
GRAPH
0
8
9
10
9
8
9
10
11
0
//STORM EXEC FCRTHCLG.PARM.FGRT=MAP
//FORT.SYSIN DO*
****** FORTRAN PROGRAM INSERTED HERE ******
SP--(NEW tKEEP f D!f Lt TE ) ,
,01 SP=( ME Wt KEEP , DEI ETt! ,
KEEP » DELE Tc ) ,
/*
//GU.FT08F001 CD DSNAME=C602.RUNOFF,UNIf=;
// SPACE=(TRK,UO,2),RL$t)
//GO.PT09F001 CD CSiNAHe = C802. TRANSPORT,U:
// SPACE=
//GO.FT11F001 DO DSNAXE=C80 2.RECE IV ING,UN IT^2314, 01 SP=( NEW.KF. r.» ,DEI "TO ,
// SPACE=(THK,(10,2),RLSE)
//GO. FTOlFOOl CC UMT = 2314, UISP=NEW, SPACE= ( TRK, ( 10,21 ,RLSH),
// DC8=(RECFM=VStLRECL=796,BLKSIZE=800)
//GO.FT02FOOI CC UNIT=2314,DISP=NEW,SPACE=(TRK,(10,21,RLSE»,OC8=*.FTOlFOOl
//GO.FT03F001 CC UNIT=2314,DISP=NEW,SPACE=(TRK,(10,2),RLSE),nCB = *. FTOlFOOl
//GO.FT13F001 CC WNIT=2314,OISP=NEW,SPACE=(TRK,(10,2),RLSE)iOCB=*.FTOlFOOl
//GO.SYSYSIN DC*
***** OAT* CARDS INSERTED HERE *****
»««t****************************************************************************
-------
Section 1
EXECUTIVo- 'LOCK
Page
Main Program 5
Subroutine GRAPH
Subroutine ^URVE 9
Subroutine PINE 11
Subroutine PPLOm ' 7:
-------
STGRMWATER MAIN PROGRAM
DI MEN SIGN PNAME (6,2 ) ,T ITLE1 { 10 » , STORM {4! , RAIN ( 4)
COMMON /TAPES/ I NCNT , I OUTCT 5 J I N (1 OS t JOUT ( J.O » i NSCK AT ( 5 !
COMMON CMK££2}
DATA FNAKE
1 . <-hSTORt
2 , 4HAGE j
N6=6
!NCNT=C
IOUTCT=0
/ 4HWATE» 4HTRAK', 4HP.ECE? 4HEMDP
4HGRAP, 4HRSr-;Ej 4HSPOR, 4H IV I N , 4HROGR
4HH
!
1
399 FORMAT i 10A4S
READ(OS,4CC)NSERYS,ACRES,AODWF,NDESYK»DESFLO,NSTRMS , QTRUNK
400 FORMAT! !5»F10a»FIO«2»I5,F10.1,I5,F10.1)
WRITE(06, 401 )NSERYS»T I TIE I,ACRES,ADDWF,NDESYR,DESFLO,QTRUNK
401 FORMATC1'/////26X,'FClir-iiAL ,:ATER QUALITY ADMINISTRATION',
*10X,'CCN1BACT S 14- 12- 50 1' /2. 6X- « STORKVJA TER MANAGEMENT PROJECT',
*Z7X ,« 14-12-502 ' »/82Xt! ' l-'.-12-503'///26X, 'METCALF & EDDY, INC'//
*26X?8WA1FR RESOURCES ENGINEERS? INC'//26X,«UNIVERSITY OF' ,
*' FLORICA'////31X,'DE f'CfoTRA T10N SCRIPS NO. ' , I 3/' 0' , 30X,
*10A4/31X,'COMBINED SEWFK AREA OF«,FS.2,'ACRES'/31X, 'AVERAGE DAILY
*ORY WEATHER FLOW =•,FS .2,«CFS«/31X,I 2,'-YEAR DESIGN FLOW =« ,F10.2,MAIN
*»CFS'/31X,'AVAILABLE MAX. TRUNK CAPACITY =•,F10.2,'CFS'//3IX,'STORMAIM
*MS STUDIED:
DO 500 J---l,NS
TOTAL RAINFALL, INCHES'?
402
403
500
240
26C
280
300
340
360
38C
100
i!MS
F 0 RK AT { 4 M , 4 A 'i i
WRITE (06 ,4C3 iSTTRM, RAIN
FDRMATt 3CX..4A4 , 1AX,'*A4!
CO NT INUE
HRI TE(C6 ,106)
REAOCN5, 10G)
WRITE (f^A tlCSI
READ(N5,1COS
WRiTE(N6» 1C8
COWTINLE
REAO(N5.102i CNAME
WRI rE(N6,106!
00 240 E = 1,6
!F(CNAME( 1) .NE.PNAHE( I ,1 ) .OR
GO TO <26C, 28
CONTINUE
WRITE (f>65 110}
STOP 100C
:!N(J!tJCUT(J)
ilNrJOUT
(NSCRAT? I } ti-1 ,
) (NSCRATil)
CNAME(2} .NE.PNAMEJ 1,2) )
300f 34-0,360.380) , I
GO TO 240
CALL P.LNCFF
GO TO 220
CALL TRAi\S
GO TO 220
CALL RECEIv'
GO TU 22C
HRI TE i !\6V 10
STOP
CALL STCPAC
GO TO 22G
CUNTlNLi
CALL Gf- A fH.i
GO Tu ?2C
FORMAT (20 14
IAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
IMAIN
MAIN
MAIN
MAIM
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIM
MAIN
MAIN
MAIN
MAIN
MAIM
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIN
MAIM
MAIN
1
"1
t-
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
16
19
20
21
22
23
?4
25
26
27
28
29
30
31
32
33
34
35
35
37
38
39
40
41
42
43
44
45T
45A
46
47
48
49
50
51
52
53
54
55
56
57
58
59
-------
102 FORMAT(2Cfl4) MAIN 60
104 FORMAT<«1 STORMWATER SIMULATION ENDED1) MAIN 61
1C6 FORMAT (1H.2A4) MAIN 62
108FORMATCO TAPE ASSIGMENTS1 / < 1 0110) » MAIN 63
110 FORMATCC CORRECT CNAME NOT FOUND «,2A4) MAIN 63T
END MAIN 64
-------
SUBROUTINE GRAPHIC!
COMMON /TAPES/ INCNT, IOUTCT , JIN( 10) , JOUTC 10) ,NSCRAT{ 5)
COMMON OtKMY(50)
COMMON X(20l,5l,Y<201,5),NLOC(100),YT(160,150),NPT( 100)
1,ITABUC1)«IPLGT(200)
COMMON/LAB/ TITL(18»,XLAB RETURN
NLP=NCP+1
R£AD(5tlOC» ( IPLOT(H),M=l,NPLOT)
HRITE(6,1C6) NPLOT, ( I PLOT (N) ,N=1 , NPLOT)
106 FORMATS •IMYDROGRAPHS ;;ILL CE ricricD FOR THE FOLLOWING' ,15,
!• PCiNTS'/dOIlCI )
IF(NPCV.LT.l) NPCV=1
NTAPE=JOLTUOUTCT)
GO TO 220
210 CONTINUE
READ(StlCO) NT APE, NPCV.NQP, NPLOT
NLP=NCP+1
IF(NPCV.EQ.O) NPCV=5
HRITE(6,102) NTAPE.NPCV
IFtNPLCT.LT.il GO TO 212
READ< 5, 100) ( I PLOT
IF(NVAL.LE,150) GO TC 402
WRITE(C6,400) NVAL
400 FORMAT <• S'THE GRAPH SUBROUTINE IS ASKING FOR MORE OUTPUT
DIMENSION OF YT(160,150) ALLOWS.'/' ','A VALUE OF
REQUESTED. THIS ERROR RESULTED IN A SYSTEM BLOW-UP
*APE THAN THE
*Wt«HAS BEEN
*T STANFORD ON FORTRAN H, JUNE 1970. DAS'////)
STUP
402 CONTINUE
REAO
GRAP
1
2
3
4X
5
6X
7
B
Q
10
11
12
13
14
15
If.
17
18
19
20
21
22
23
24
25
26
27
2C
29
30
31
31A
32X
32A
33
34
35
36X
37X
3CX
39
40X
41
42
'»3X
44
45
46
47
40
49
50
51
5?.
53
54
55
56
57
50
-------
GO TO 26C
245 DO 250 J=1,NCURVE
250 ITAB(J»=J
ITAB(NCURVE-H>=0
260 CONTINLE
MC=NSTEPS/100
IF(MC*100.KE.NSTEPS)
NR=0
DO 300 K=ltNSTEPStMC
290
2S5
300
3C1
302
303
305
310
315
318
320
330
350
104
709C
MC=MOl
DO 2SO J-lit'-C
NR=NR+1
IF(NR.GT.KSTEPS) GO TC
REAO(NTAPE) TI MES , ( YT (N,M) ,M=i,NVALJ
CONTINUE
00 295 Ml, 5
X(N,MI=TIKES/3600.
CONTINUE
CONTINUE
DO 350 J^l.NLP
1T=J
K=l
U=ITAB(U
DO 320 f=l,NCURVE,NPCV
IF(L.EC.C) GO TO 330
DO 310 K*=1,NPCV
IFU-H 301i301t302
LX=L
GO TO 3C3
LX=NCURVE*(L-1»*NCU/»L + J-1
NPTJMMJ=N
X(liKM)=TZERO /3600.
Y(1,MH}=0.
DO 305 M>=2,N
L=ITAB(K)
IF
GRAP
GPAP
GPAP
GRAP
3RAP
GRAP
GRAP
GRAP
GRAP
3RAP
SRAP
GRAP
GRAP
GRAP
GRAP
GRAP
SRAP
GRAP
GRAP
GPAP
GRAP
GRAP
GRAP
GRAP
GRAP
GRAP
GRAP
3 RAP
GRAP
GRAP
3RAP
GRAP
GRAP
GRAP
GRAP
GRAP
GRAP
GRAP
GRAP
GRAP
3PAP100
3RA»101
GRAP10?.
GRAP 103
GPAP 104
3RAP105
GRAP106
GRAP107
GRAP1D3
GRAP 109
GRAI'UO
GRAPlll
60
61
62
63
64
65
66
6?
6G
69
70
71
72
73
l
-------
2059
SUBROtllNE CURVE /5.
2C59 CONTINtE
A=AtOGlO(RANGE)
IF(A.tT.O.) GC TO 220
N=A
RAN(.E=RANCE/(10.**N)
L=RANGE-H.001
206 CONTINtE
IF (L. EC. 2) GC TO 209
IF(L.GT.-i) GO TO 207
t=4
207 IF(L.GT.S) L=10
209 CONTINtE
FRANG=t*10.**N
GO TO 240
220 M=A-0.^999
N=-M
RANGE=RANGE*10.**N
L=KANGE*1.C01
226 CONTINUE
1F(L.EC.2) CO TO 229
IF(L.GT.4) GO TO 227
L=4
227 CONTINUE
IF(L.GT.J) L=10
229 CONTINtE
FRANG=L/10.**N
240 CONTINUE
IF (YMIN.LT.O. > K=K-1
IF(YMAX.tE.(K«5)*FRANG) GO TO 250
L=L+1
IF(L.tT.ll) GC TO 245
1=2
1
2
3
4X
5
6
7
8
9
lf-(A.LC.O.) N=N-2
245 CONTINUE
IKA) 226t2C6,2C6
:URV
CURV
CURV
CURV
CURV
:URV
CURV
CURV
CURV
CURV 13
CURV 11
CURV 12
CURV 13
CUKV 14
CURV 15
;URV 16
CURV 17
CURV 18
^URV 19
CURV 23
CURV 21
CURV 22
CURV 23
CURV 24
CURV 25
:URV 26
CURV 27
CURV 28
CUPV 29
CURV 30
CURV 31
CURV 32
CURV 33
CURV 34
CURV 35
CURV 36
CURV 37
CURV 38
CURV 39
CURV 40
CU«.V 41
CURV 42
CURV 43
CURV 44
CURV 45
CURV 46
CURV 47
CURV 48
CURV 49
CURV 50
CURV 51
CURV 52
CURV 53
CURV 54
CURV 55
CURV 55
CURV 57
CURV f>8
CURV 59
CURV 60
-------
250 YMIN=K*FFANG
YMAX=(K+5)*FRANG
XSCAL=1CC./(XMAX-XMIN»
YSCAL=50./(YMAX-YMIN)
XINT=(XfAX-XMlNJ/10.
YINT=(YMX-YMlN)/5.
XLAB(l) =XflN
DO 260 K=ltlO
XLAB(N+1)*XLAB(M+XINT
260 CONTINUE
YLAB(6)=YPIN
DO 270 MltS
270 YLAe(6~N)=YLAi3(7-NH-YlNY
CALL PPLCT(0.0,100,NPLCTI
K = I
DO 450 L=1,KCV
IF(NPT(L).£Q.O> GO TC 440
XO=XSCAL*(X(ItLI-XMIN)
YO=YSCALMY(1,L)-YMIN)
NPOINT = NPT(L)
DO 400 N - 2tNPOINT
XT = XSCAL*(X(Ntt-» - XKIN)
YT = YSCAL*tY
-------
c
c
c
SUBROUTINE PINEUiiYl ,X2tY2,NSYK,NCT>
AXA=X1
AXB=X2
AYA=Y1
AYB=Y2
N=l
IF(ABS
-------
SUBROUTINE PPLOTlIX,IY.K.KCTI
DIMENSICfs A{5l,101),SYM(9)
CQHMCN /LAB/ TITLE{13 I,XLAB<11),YLAB16)
l,HORIZt2C),VERT(7,6), IT
DATA SYM / 4H****,4H++++, 4H11", 4HXXXX, 4H. ,
1 4H , 4HIIII, 4H /
IF(K-99) 200,220,230
200 A(51-IY,IX+1)=SYM(K)
RETURN
220 CONTINUE
1=0
WRITE(6,103) TITLE,NCT
DO 22.'J H-1,6
4H2222f
221
222
223
224
225
228
100
101
102
103
105
106
1C7
108
230
240
25C
260
27C
290
IF(YLAE(1).LE.IOOOOO.)WRITE(6.1C1)YLA8(I1),{A(I,J>,J=1,101)
IFlYLAB,101A1)
FORMAT {• SF16.3,1X, 101AI)
FORMATC «,F19.1,10F10.1)
FORMAT(1H,20X,18A4,I6/)
FORMAT(/30X,20A4)
FORMAT{3> ,2A4,7X,101A1)
FORMATC ', IPE16.2,1X,101AI)
FORMAT(2X,3A4,3X,101A1)
DO 250 1=1,50
DO 240 J=l,101
A(I,J)=SVf(7)
CONTINUE
00 260 J=l,101
A(51*J)-SYM<5)
00 270 1=1,101,10
A(51,i)=SYM(8)
DO 290 1=11,41,10
CONTINUE
RETURN
END
PPLO
PPLO
PPLO
PPLD
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLu
PPLO
PPLU
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLU
PPLO
PPLO
PPLU
PPLO
PPLO
PPLD
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLCI
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPLO
PPL3
PPLO
1
2
3
4X
5
6
7
8
9
ID
11
12
13
14
15
16
17
13
19
20
21X
22
23
24X
25
26
27X
23
29
3D
31
32
33
34
35
36
37
33
39
40
41
41A
42
43
44
45
46
47
48
49
50
51
52
S3
54
55
12
-------
Section 2
RONNOFF BLOCK
Page
Subroutine RUNOFF 15
Subroutine GUTTER 16
Subroutine HCURVE 20
Subroutine HYDRO 22
Subroutine RHYDRO 25
Subroutine WSHED , 30
Subroutine SFQUAL 3 2
13
-------
SUBROUTINE RUNOFF %UNJ 1
COMMON /TAPES/ INCNTtIOUTCTtJIN(10)iJOUT(10)tNSCRAT(5) RUNG 2
RUNO 3
HRlTEUtlC2) RUNU A
102 FORMATCl ENTRY MADE TO RUNOFF MODEL'J RUN3 5
INCNT=1NCNT*1 RUNO 6
IOUTCTMCUTCT+1 R'JNO 7
CALL HYOPC tUNf) 8
CALL GR*PH(CI ^UNU 9
CALL SFCLAL RUNO 10
RETURN R'JNO 11
END RUNO 12
15
-------
SUBROUTINE GUTTER
C
C THIS SUBROUTINE COMPUTES THE INSTANTANEOUS WATER DEPTH
C AND FLOW RATE FOR THE GUTTERS/PIPES
C
c*************** SPECJFICATJCN STATEMENTS
C
CCMrfCN /TAPES/ INCNTf IOUTCT t J IN( 10 ) t JOUTUO) iNSCRAT ( 5 I
COMMON NWt NGiNIN,HlSTOC,TRAIN,OELT,DELT2,NOWfNOC,NSTEP,TAREA,
COKMON ViFlOW(16C),WWIOTH< 160 > .WARE A ( 160 > , rJSLOPE ( 160 ) ,WN(160),
1 WSTORE<160,3),WLPAX ( 160 ) , WLMI N ( 160) , DECAY ( 160 ) .WDF.PTH t 160 f 3) t
2 liCON( 160, ii ,KAr,LUl6C),H,l Y.PC160)
CCKMCN GFLCWC16C) ,GWICTH( 160) ,GLEN( 1 60) ,GSLOPE< 160) ,GS1( 160) ,
1 GS2( ICC) tGN(16C) fGDEPTH(160> ,GCU.N(160) ,NPG ( 160 ) iDFULL ( 160) ,
2 NGUT<160),SUMQW(160»,PCTZER
COMMON NkTOGl 16C ,10) , I\GTOG( 160, 101 ,NWTOI( 10 ) ,NGT(1I ( 160)
COMMON PAIN (160*10) ,NHYET < 160) , NRAI N» NPGAG.NHISTO.THISTO
COMMON CSURU60),CELD(160),QIN(160)
COMMON IPRNT(16C) ,1 SAVE (160) tNPRNT ,NSAVEt UUTFLWf 160 ), INTERV,
1 JNTCNT
NOUT=JOLT(IQUTCT)
NTQUAL-NSCRATti)
C
DO 40 G K-1,NOG
J=NiiUTIN»
C
(,******** INPLTS FROM ADJACENT WATERSHED AREAS
C
SUMQW(J)=C.
00 220 JK-ltNIN
IF(MWTCG( J,JK) .EG.O) GO TO 240
NX=NWTCG( J» JK)
220 SUHQW{J)-SUMQW(J)4WFLOW(NX)
C******** INPUTS FROM UPSTREAM GUTTERS
C
240 QIN(J»
00 260
SU^QWCJI
JK-l.NIN
IF(N'GTOG(J,JX).EQ.O)
NX=NGTCG(J,JK)
GC TO 280
260
28C
290
C
C
C
DO=GOEPTH(J)
IF(CINIJ).NE.O.) GO TO 290
IF(GDtPTH(J).EQ.C.) GC TO 391
IF(NPG(J1,EQ.3) GO TO 391
IFLG=0
DEL[)( Jl=0.
DO 360 1=1,30
CCPPLTE ChflNGE IN DEPTH ( NEWTON-RAPHSON)
ESTIKATEO FINAL DEI'TH
Dl = GDEFTh(J)iOEl.D(J)
IF(NPG(J).£Q.2) CC TO 295
TRAPE701CAL GUTTER
GUTT
3UTT
GUTT
GUTT
GUTT
GUTT
3UTT
GUTT
GUTT
GUTT 10
GUTT 11
3UTT 12
GUTT 13
3UTT 14
GUTT 15
GUTT 16
GUTT 17
G'JTT 19
3UTT 19
GUTT 20
GUTT 21
GUTT 22
GUTT 23
GUTT 24
GUTT 25
3UTT 2o
GUTT 27
GUTT 28
GUTT 29
GUTT 30
GUTT 31
3UTT 32
GUTT 33
G'JTT 34
3UTT 35
GUTT 36
GUTT 37
GUTT 33
3UTT 39
3UTT 40
GUTT 41
GUTT 42
3UTT 43
3UTT 44
3UTT 45
GUTT 46
GUTT 47
3UTT 48
GUTT 49
GUTT 50
GUTT 51
GUTT 52
3UTT 53
GUTT 5<»
GUTT 55
GUTT 56
3UTT 57
3UTT 58
3UTT 59
GUTT 60
16
-------
IFJD1.LT.O.) 01=0.
C
C******** VCLlifE CHANGE (TRAPEZOIDAL SECTION)
DELV=GLEMJ)*OELO(J)*((GS1< J )+GS2( J) ) *( DO+0.5 *DELD( J ) )
DDELV = GLEN(J)*«GS1(J)+GS2< J ) I *D1+GWI DTH< J) )
C
C******** CRCSS-SECTICNAL AREA (TRAPEZOIDAL CROSS-SECTION)
AXO=0.5*(GSKJ)+GS2(J) )*DO**2+GW IOTH( J ) *00
AX1=0.5*(CS1(J I+GS2(J))*D1**2+GWIDTH( J)*D1
DAX1=(GS1(J)+GS2< J)J*01 + GWIDTHU)
C
C******** KinEO FcfufctTLK (1 RAPcZoIC AL CKCio-iECTION )
WPO=SQRT(GS1U)**2+1. ) *DO+SQRT( GS2 ( J )**2<-l . ) *DO*GWI DTH( J )
HP1=SQRT**2/4.)*(OELD(J)-0.5*SIN(2.*D1)
1 +0.5*SIN(2.*DO))
DDELV = GLEMJ)*(GHIDTH(J)**2M.)*(1.-COS(2.*D1) I
C
C******** CRCSS-SECTICNAL AREA (PIPE)
AXO=(GH!CTH(J)**2/4.)*(CO-0.5*SIN(;
AXl = (GWIDTH< J)**2M.)*(01-0.5*SIN( 2.*
OAX1=(GHIOTH(J )**2M. )*(l.-COS(2.*Dl) )
C
C******** WETTEC PERIPETER (PIPE)
HPO'GWICTHtJJ^OO
HPl=GvaOTh(J)*Dl
DWP1=GWICTH(J)
C
C ****4*4*4****#*«***ft«
C
c**x=***** HYDRAULIC RADIUS (ALL CROSS-SECTIONS)
315 IFIAXO.LT.0.I AXO=0.
IFIAX1.LT.C.) AX1=0.
IF(^PO.LE.C.I WPO=0.001
IF(WP1.LE.O.) WP1=0.001
RAl)0=AXC/Wf>0
RAOl=AXl/liPl
FLCW
( J)*(AXO**1. 6665667 )/ (KPO*<--0. 666666 A7 )
. 66666667)
GUTT
GUTT
3UTT
3UTT
GUTT
GUTT
5UTT
SUTT
OUTT
GUTV
GUTT
GUTT
3UTT
GUTT
GUTT
3UTT
GUTT
3UTT
3UTT
GUTT
GUTT
GUTT
3UTT
SUTT
GUTT
SUTT
GUTT
GUT1
3UTT
GUTI
3UTT
GUTT
GUTT
GUTT
GUTT
3UTT
GUTT
GUTT
GUTT
3UTT103
3UTT101
GUTT102
GUTT103
3UTT104
3UTT105
GUTT10&
GUTT107
3UTT108
3UTT109
3UT1110
GUTI 111
GUTT 112
GUTT 113
3UTT114
3UTM15
GUT! lib
GUTT117
GUTT118
GUTU19
3UTT120
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
9b
97
99
99
17
-------
FLOW*0.5* GO TO 380
DELD(J)=CEL
WRITE(6,1000) TIME,J,GDEPTH(J>,DELO(J)
1000 FORMATC Ct-ECK RESULTS. NOT CONVERGED IN *GUTTER**t
1 F8.0,I6,2E12.5)
C
C******** "NEW DEPTH AT END OF TIME INTERVAL
C
38C OELOUI^CEL
GDE PTHI J ) =GDEPTH ( J ) «-D ELO( J )
QSUfU JJ=C.
C
C******** AVERACE FLOK DURING TIME INTERVAL
C
GFLOW( J)=FLOW
GO TO 4CC
C
C ******* SURCHARGE
C
GDEPTH(JJ=DFULL(J)
GFLOW(J»=FLOW1
QSURJJI=GSUR(J)«{QiN{ J )-FLOH )*DEl.T
GO TO 40C
GFLOW( J)=CINU»
CONTINUE
355
360
390
391
'tOO
C
C
C
PRINT SELECTED OUTPUT
IF00 M
500
J)
GUTT121
GUTT122
3UTT123
SUTTlZ-t
SUTT125
GUTT126
GUTT127
GUTT123
3UTT129
5UTT130
GUFT131
GUTT132
GUT1133
3UT7I3^
5UTT135
GUTT136
3UTT137
GUTT133
3UTT139
SUTTl^O
SUTTl^-3
GUTT145
GUTTl^b
3UTT1A7
3UTT14S
GUTT14Q
3UTT1&0
GUTT151
SUTT152
GUTT153
3UTT155
GUTT156
3UTT157
GUTT158
GUTT159
3UTT16D
&UTT16L
GUTT162
GUTT163
3UTT155
SUT1 1 6
GUTT167
SUTTJ68
GUTT 169
S'JTT; 70
3UTT171
GUTT172
GUTT 173
3UTT174
TlNHM=TII^F/60.-FLOAT(NTIMtH)<'60.
WRITE(6f9GlO) NTIfCHt TIMEH, < CUT FLWIN ) tN=l ,NPRNT }
18
-------
9010 FORMAT(14,F6.2,10F10.2 ,/(10X,IOF10.2)t
J=NG'JT (N»
1F(QSUR(J».GT.OI WRITE(6,9000) J ,QSUR( J ) ,*JFL()W( J)
9000 FORMAT (' GUTTER1, 14,' SURCHARGED, SURCHARGED F10 .0, ' CIJFT,FLOW='
IFlO.li' CFS'l
505 CONTINUE
WRITE INLETS TO BE SAVED
510 IF(NSAVE.U.l) GO TO 610
00 600 N=1,NSAVE
GUTTlfli
GUTT182
GUTT183
GUTT18<»
3UTT185
GUTT186
GUTT187
GUTT188
GUTT189
3UTT190
3UTT191
GUTT192
3UTT193
600 OUTFLW(N(=QIK(J)
WRITEUCtT) TIME, (CUTFLW(N) ,N=1,NSAVE)
HRITE(KTCtAL)(OUlFLH(N),N=l,NSAVF.)
610 CONTINUE
RETURN
END
GUTT195
GUTT196
GDTT 197
3UTT198
GUTT199
GUTT200
19
-------
750
SUBROUTINE HCURVE(NTYPE, INLET)
COMMON NW,!\GfNIN,HlSTCC,TRAIN,DELTtOeLT2.NOW,NUG,NSTEP,TAREA,
1 TlMe,UME2tRl,RLOSS,SUMRtSUMl,SUMOFF,S'JMST,TZERO,NING
COMMON t»FLOWU60) ,WW IDTH( 160 ) ,W AREA { 160 ) ,W$LOPE( 160 ) ,WN< 1601 ,
1 HSTQREI 160*3) ,WLMAX ( 160) , WLMI N( 160) .DEC AY (160) ,WDEPTH( 160.3 I t
2 KCON<160,3)fNA*EW<160),PClMP<160)
CCMNUN GFLCWU6C) tGWIDTH(160> ,GLEN(160( ,GSLOPE ( 160 ) ,GS 1 (160),
1 bS2 ( 160 ) t GN( loC), GOEPTHC 16U ), GCON( 160 )tNPG( 1601, DFULLt 150).
2 NGUT(160),SUfQW(160) ,PCTZER
COMMON NfcTOGt 160,10) , NGTflGl 160,10) , NWTOI ( 10 ) , NGTOI ( 160)
COMMCN FAINQ60.10) ,NhYET ( 160 ) , NRAIN.NRGAG, NHI STQ, THISTO
CCMMUN QSUR(16C) ,DELO(160),QIN( 160)
COHKGN IPRKTJ 16C), ISAVEU&Oi » WRNT.NSAVE.OUTf LX( 160) , 1NTERV,
1 INTCNT
COMMON CLHMYI40I
COMMON HGRAPHU60) ,HTIME(160J
COM40N X(2C1,5),Y(201,5),NPT(5)
COMMON/L/SB/ TITLE{18),XLAB(11),YLAB<6)
1,HORIZ(20),VERT(7,6), IT
DIMENSION VER(7,2),TITL(7,2)
OIMEN5ICN TITEL(lB) ,OR1Z(20)
DATA TITL MHRAI N,4HFALL ,AH HYE ,4HTUGR,4MAPH ,AH »4H
^hINLE,AHT HY,^HDPOG,4HRAPH,4H ,4H ,-VH
TITEL / 16*4H ,4HBASI,AHN NO /
ORIZ /8*4H ,AHTIME,4H IN ,^HHOUR,4HS ,8*^H /
VER / AHRAIN.4HFALL.4H I , 4HN ,^H1N /,^H HR.4H
RUK.4HCJFF ,^H 1 ,4HN ,^H CF
DO 750 1=1,13
TITLE(I)=1ITEL(I)
00 760 1=1,20
DATA
DATA
DATA
It AH
760
RAINFALL HYETOGRAPH OR INLET HYDROGRAPH
IT=1
00 5 I»l,7
J = 1*2
VERT( I,IT)=VER(I,NTYPE)
TITLE(J) * TITLd.NTYPE)
CONTINUE
IF(NTYPE.GT.l) GO TO 380
NGAGP=5
TF
-------
X{MiK)=TKAX/3600.
Y(MtK) =C.
300 NPTU)=N
K=NGAGP*1
320 K=K-1
CALL CURVEU, YiNPTt K, INLET)
WRITE(6f9000) (K,K=J,JT)
9000 FORMAT(/30X,«RAINGAGE LEGEND' , I 8,
UH = X,I8t4H = .»
350 CONTINUE
RETURN
X(lfl>-l-T !•;£(!}
Y(1,1)=HGRAPH(1I
CHUUSE THE SCALE DOWN FACTOR
= *,I8,4H =
380
10
I = 1
DO 10 J * t.KSTEF.M
1=1 + 1
X(I,1)=H1IME( I)
Y(I,H=HGPAPH(I »
CONTINUE
NPT(i)=l
CALL CCRVE(X,Y,NPT,1, INLET)
RETURN
END
HCUR 60
HCIIR 61
HC'JR 62
HCUR 63
HC'.IR t>
-------
SUBROUTINE HYORC
C
C**»*************** SPECIFICATION STATEMENTS
C
COMMON Nfc,NG,NIN,HISTCG,TRAIN,OELT,OELT2,NOH,NOG,NSTEP,TAREA,
1 TIME.TIPE2,RI»RLOSS,SUMR,SUH1,SUMOFF,SUMST,TZERO,NING
COMMON WFL.GW(160),WWIDTH(160),VIAREAU60),*SLIJPE<160),WN<160),
1 HSTORE(160,3»»WLMAX (160),WLM1Nt160),DECAY(160),WOEPTH(160,3),
2 HCQN(160,31,NAfEh(160),PClPP(160l
CCMMGK GFLGMl160),GWlOTH(160),GLEN(160),GSLOPE(160),GS1( 1601,
1 GS2U60),GN(160),GDEPTH{160),GCON(160»,NPG<160),OFULLU60),
2 NGUTU6C),SUMQWU60) .PCT.2ER
covfinN- N;-TCC( !f.a,ro: r,\GTC3{ 160,10) .NWTOHLO; .riGTouioo)
COMMON PAINU60.10) .NhYET ( 160 ) , NRAIN.NRGAG, NHI STO, THISTO
CChMON CSUR(160),OELD(160),QIN(160)
COMMON IFRNT(16C),ISAVE(lbO),NPRNT,NSAVE,OUTFLW(160),lNTERV,
1 INTCNT
COMMON TJTLE(40)
COMMON HGRAPH(160),HTIPE(160)
C
C«*,t.*4c*4.* INITIALIZATION
C
NW=160
NG=160
NING=16C
NRANVL-2CO
0
1=1,NW
)'C.O
11=0.
I,l)=0.
I,3)=0.
I,2)=0.
1=1,NG
0
=C.
=0.0
=c.o
c.c
1=0.0
I)=0.
INTCNT=
00 220
220
hK10TH(
WDEPTH(
WDEPTH(
WDEPTH(
00 240
NPG(I)=
NGUT(I)
«SUR(1)
DELD(I)
OIN(I)=
GFLOWd
GOEPTH(
00 2f>0 J=l,NING
250 NGTOI (J)-C
00 260 JM.NIN
NWTOK J)=0
00 260 1=1, NG
260 NGTOGd ,J)=0
00 280 1-1,NRANVL
HGRAPH(I)=0.
HTlMf (I )=0.
00 2SO J-1,10
280 RAIN (I ,J)=C.
SUHR = C.O
SUM! -C.O
SUMOFF =0.0
SUMST = C.O
1
2
3
4
5
6
7
3
9
HYDR
HYOR
HYDR
HYDP.
HYDR
HYOR
HYO*
HYOR
HYDR
rtYOR 10
HYDR 11
HYDH 12
HY03 13
HYOR 14
HYOR 15
HYOR 16
HYD1* 17
HYD* IB
HYDR 19
HYDR 20
HYDR 21
HYO^ 22
HYD* 23
HYOR 24
HYDR 25
HYDR 26
HYD* 27
HYDR 23
HYOR 29
HYDR 30
HYOR 31
HYI)* 32
HYDR 33
HYOR 34
HYOR 35
HYOR 36
HYDR 37
HYOR 38
HYDR 39
HYDR 40
HYOR 4-1
HYDR 42
HYOR *3
HYOR 44
HYOR 45
HYOR 46
HYOR 47
HYOR 48
HYOR 49
HYOR 50
HYOR 51
HYOR 52
HYOR 53
HYD^ 54
HYO* *>5
HYD?, 56
HYDR 57
HYO< 58
HYD* 59
HYD* 63
22
-------
C******** CALL INPUT SUBROUTINE
C
CALL RHYCROtINLET}
TIHE=TZERC
C
C******** SET UP CRDERING ARRAY
00 22CC I=liNING
IF(NCTCKI).EQ.C) GO TO 2220
NSPOT=NG*1-I
2200 NGUT(NSPCT)=NGTOI( I»
C******** BUILD TREE STRUCTURE
2220 00 226C I*ltNG
KSPOT=NG«1-I
ISUB=NGLKKSPOT)
IF=TZERO/3600.
DO 440 ll=l,NSTEP,H
HYOR
HYDR
HYDR
HYOR
rtYOR
HYOR
DO 430 IJ=1,K
TIM£=TIHE+C£LT
TIME2=TIME-DELT2
HTIKE(I)=T1HG/3600.
C
C******** WATERSeEB ELEMENTS (OVERLAND FLOWI
C
CALL WShEO
C
C4*4t**** GUTTER ELEMENTS
C
IF(NOG.EC.O) GO TO 340
CALL GUTTER
340 CONTINLE
C
C******** HYDRCGRAPH CONSTRUCTION
C
C******** WATERShEOS CONNECTED DIRECTLY TO INLET
HGRAPHU 1=0.
DO 360 JK-ItMN
IF(MHTDUJK).EQ.OI GO TO 380
NX=
-------
380 IFINOG.EC.OI GO TO 420
00 400 JK=1,NING
IF(NtiTOKJM.EQ.O) GO TO 420
NX=NGICI (JK)
4CO HGRAPHd »=HGRAPH( I»+GFLOW (NXI
420 CONTINUE
C*******» SU* FCR CONTINUITY CHECK
SUMUFF=SUMOFF+HG*APH< H*DELT
C
430 CONTINUE
440 CONTINUE
C
C*******» CONTINUITY CHECK
DO 460 K-ltNOM
J=NAMEW(N)
SUMST=SUPST«-WOEPTH U,l»*WAREAm*PC IMP (J 1/10000. *(100.-PCTZER)
l«-HDEPTHUt2)*(100.-PCIMP(J)}/100.
460 CONTINUE
ERROR-(SUMR-SU.-U-SUMOFF-SUMS D* 100./SUMR
HRITE<6»9COOI SUKR,SUKI,SUMOFF,SUMST.ERROR
RAINFALL {CU FT) SF10.0//
INFILTRATICN (CU FT) ',F10.0//
GUTTER FLOH AT INLET (CU FT! '.FIO.O//
SURFACE STORAGE AT END UF STURM ICU FT)',F10.0//
IN CCNTlNUlTYi PERCENTAGE OF RAINFALL, '(F10.S)
OUTPLT
CALL HCtRVE(ltlNLET)
CALL hCURV£(2tINLET»
RETURN
END
HYDR121
HYOR12Z
HVOR124
NYOR123
HYDR12S
HYDR129
HYOP.13D
HYOR131
HYOR132
HYOR133
HYDR134
HYDR136
HYDR139
9000 FORMA T(
j
2
3
4
1TOTAL
TOTAL
TCTAL
TOTAL
ERROR
HYDR145
^YDR1<^3
HYDR149
24
-------
TITLE
lNLET»NSTEPt NHR,NMN,DELT.NRGAG
SUBROUTINE RHYOROCINLET)
COMMON /TAPES/ INCNT, IOUTCT,J1N(10),JOUT(10),NSCRAT<5)
COMMON NW,NG,NIN,HISTCG,TRAIN,DELT,DELT2,NUlr,',NUC,,NSTEP,TAREA,
1 TIME,TIPE2«RI,RLCSS»SUMR,SUMI,SUMOFFfSUMST,TZERU,NING
COMMON fcFLOk(160),WWIDTH(160),KAREA(160),WSLOPEf160),WN{160 I,
I HSTORE(16C,3»,V«LMAX (160) ,WLMIN(160), DECAYU60 ) ,WDtPTH( 160 ,3) i
2 MCON(16C,3),NAfEW(160),PCIMP(160)
COMMON GFLOW(160),GWIDTH(160),GLEN(160),GSLOPE(160),GS1(160),
I GS2C160),CN(160>,GDEPTH(160I,GCON(160),NPG(160),DFULL<160),
2 NGUT<16C),SUMQM160) .PCTZER
COMMON NtiTLGt 160,10),NGTUGf160,10),NWTUH10),NGTOI( 160)
COMMON R4IM160.10) ,NHYET (160 ), NRA IN,NRGAG,NHISTO,THISTO
COMMON GSUM16G),CuLD(l60 l.wifci ioO)
COMMON IPRNT(160I,ISAVE(160),NPRNT,NSAVE,OUTFLW(160), INTERV,
1 INTCNT
2»TITLE«4O
C
C**** GENERAL IKFORKATICN
C
READ(5,1005)
1005 FORMAT(20A4)
READ(5,10001
1,PCTZER
1000 FORKAT(2I5,I3.I2,F5.1 .I5.F5.0)
IFCPCTZER.EC.O.) PCTZER=25.
TZERO=2eCC.*FLOAT(NHR)+60.*FLJAT(NMN)
WRITE(6,1010I TITLE.INLET,NSTEP
101.0 FORMAT (1H ,20A4/,1H , 2CA4//
If 'OINLET NUMBER',I5/«CNUKBER OF TIME STEPS',15)
WRITE16.1041) OELT
WRITE{«,1043) PCTZER
1043 FORMAT! IK),F4.1 ,« PERCENT OF IMPERVIOUS AREA HAS ZERO DETENTION
1PTH* »
C
C**** RAINFALL INTENSITY HISTOGRAM
C
READJ5.1020) NhJSTO.THISTO
i02C FORMAT(I5,F5.0)
HRITE(6,1C40) NHISTO,THISTO
1040 FORMATC 'OFOR',16,' RAINFALL
I.F7.2,« MNUTES'J
TRAIN = FLCAT(NHISTO)*THISTO<-TZERO/60.
00 230 N=lfNRGAG
REAC(5,1030) (RAIN{ I ,N ),I=1,NHISTO)
1C3C fORMAT(lCF5.0)
C
C******** PRINT RAINFALL HISTORY
KRITE(6,1C42) N,(RAIN(I,N),1=1,NHISTO)
STEPS, THE TIME INTERVAL IS1
RAINFALL HISTORY IS1
1042 FORMAT( «OFOR RA1NGAGE NUKBER'il4,«
1//UOF10.2))
1041 FORMAT!•CINTEGRATICN TIME INTERVAL {MINUTES)1'»F8.2)
00 220 I=1,M-.ISTO
220 RAIN(I,N)=RAIN(I,N)/43200.
230 CONTINLE
TRAIN = TRAIN*60.
HISTOG = THISTO*60.
OELT = CELT*60.
DELT2 = CELT/2.
WATERSHED CATA
RHYD
RHYD
RHYD 1
RHYD Z
3
4
5
6
7
B
9
RHYD 10
RHYD 11
RHYD 12
*HYD 13
RHYD 15
RHYD 16
RHYD 17
*HYD 18
RHYD 19
RHYD 20
=IHYD 22
RHYD 23
RHYD 24
RHYD 25
*HYO 26
RHYO 27
RHYD 28
RHYD 29
RHYD 30
*HYO 31
D5*HYD 32
RHYD 33
RHYD 34
^HYD 35
HHYD 36
RHYD 37
RHYD 38
39
4D
RHYD 41
RHYD 42
^HYO 43
*HYD 44
RHYD 45
RHYO 46
RHYD 47
RHYD 48
RHYD 49
RHYD f>0
RHYD 51
RHYD 52
*HYD 53
RHYD 54
RHYD 55
RHYD 56
RHYD 57
5t)
59
RHYD 60
25
-------
NOW-0
NSTOP=C
TAREA=C.
WRITE16.1C50)
1050 FORMAT!'1SUBAREA GUTTER WIDTH
1S1STANCE FACTOR SURF/ICE STORAGE! IN I
1GAGE'/
2' NUMBER OR MANHOLE (FT) (AC)
•RHYO 61
RHYD 62
RHYD 63
RHYD 64
RHYD 65
AREA PERCENT SLOPE RERHYO 66
INFILTRATION RATEON/HR) RHYO 67
RHYD 68
IMPERV. RHYD 69
IMPERV. (FT/FTJ
MAXIMUM 'MINIMUM DECAY RATE
PERV. IMPERV. PERV»
DO 34C 1=1tNW
REAC(5flC6Q» JKfNtNGOTOtWl,W2fW3,W4fW5,W6,W7,W8
»
1060 FORMAT(3I5,3F5.0t7F5.3tFlO.51
*4=0.03
H5=0.013
W6=0.25
W7=0.062
H8=0.184
k«9=3.0
I U10-0.52
IFIW5.EQ.C.
IFCM6.EC.C.
IFCW7.EG.O.
1F(H6.EQ.O.
IF1W9.EC.O.
IF(W10.EC.C
IF(W11.EC.C
IF(JK.EQ.O)
) Wll-0.00115
JK=1
IF(N.EQ.O) GO TO 360
NCW-NCh^l
C ******** PRINT WATERSHED DATA
WRITE (6, 10701 N,NGUTO,Wl,W2rW3fH4,W5,W6,W7fW8
1,W9,WIO,H11,JK
1070 FORMAI(I5tI9,Fil.O,P8.0,F9.l,5F10.3tF9.2tF8.2TF12.5, 15 J
IF(N.GT.Nk) GO TO 320
C
C******** TRAhSFER DATA AND CONVERT UNITS
NHYET(N)=JK
h2*43560.
W3
WSTORE(N,1)=W7/12.
kSTORF(N, 2)
WAREA(NJ
PCIMP(^)
(WAREA( NI*PC
WCON
-------
280
JF(NWTOHJ).GT.C)
NWTOI(J!=N
GO TO 340
CONTINUE
GO TC 280
• THE
NO'
ASSIGNED
,110)
14/
C******** ERROR IN DATA
320 NSTOP=l
HRITE(6f1090) JK.N.NW
1090 FURMATC FOR INLET ' f 14 , 5X ,
1« IS LARCER THAN THE ALLOWED
34C CONTINUE
360 HRITE(6, 1100)NOW,TAREA
1100 FORMAT; 'OfCVAL KUMbLR Cf Sj iiCAl Ch.'icNI i>,
1 'OTOTAL TRIBUTARY AREA ( ACR ESI ,' , F8.2 I
C
C******** GLTTER AND PIPE DATA
C
NOG=0
HRITE(6,1110>
1110 FORMAT C1GUTTER GUTTER WIDTH
IDE SLOPES MANNING OVERFLOW'/
2 • NUMBER CONNECTION (FT)
3L R N UN)'/)
DO 480 I=ltNG
REAC(5tlll5IJK,NrNGOTC,NPiGl,G2,G3,G't,Gi>,G6,G7
1115 FORMAH«!iI5,7F8.0l
IF(N.EC.C) GO TC 500
LENGTH
(FT)
SLOPE
(FT/FT)
C******** PRINT GUTTER/PIPE DATA
KR1TE(6,1120) N,NGOTO, Gl , G2, G3, G4,Gr>,G6, G7
1120 FORMAT { I5.112tF14.1tFlO.OtFl0.3»F9.1fF6.1,F11.3iFl2.2)
IF(NP.EC.2> WR1TE(6,1122)
FORMATC+ *• )
IF(N.GT.NG) GO TO
1122
C4444**** TRANSFER DATA AND CONVERT UNITS
NPG(N)=NP
GHIDTh(M=Gl
GLEN
RHYD175
HHYD177
".IIY0179
HHY[)180
27
-------
4CC 00 420 J=1,NIN
IF(NGTCKJ).GT.C) GO TO 420
NfcTOKJl'fv
GO TO 480
42C CONTINUE
C
C******** ERRCR IN DATA
440 NSTOP=l
HRIT£(6,11301 JK,N,NG
1130 FORMATC FOR INLET • , I 5,5X,'THE ASS IGNEO GUTTER NO'tllO.SX,
IMS LARGER THAN ALLOWED NO', 110)
480 CONTINUE
50C WRITE (6,U50Z NCG
C
C
C
CREATE DUMMY GUTTERS AS NEEO=D
00 540 N=l,NG
IF(NlrtTUGCN,l).EC.O.AND.NGTOG
1190 FORMAT('1ARRANGEMENT OF SUBCATCHMENTS AND GUTTERS/PIPES1//
1' GUTTER', 5X,'TRIBUTARY GUTTER/PIPE',40X,
2*TRIBUTARY SUBAREA')
00 620 J-l.NG
IFCGLEM JJ.LE.O.) GO TO 620
00 605 M1,NIN
IF(NGTCG(J.K)) 605,606,605
605 CONTINUE
6C6 N=N-1
IFtN) 607,6C7,6C8
6C7 WR1IE(6,1200) J
GO TO 609
6C8 HRITEU.12CO) J, ( NGTOG( J , I» ,1-1 ,N)
1200 FORMAT {/IIO,5X, 10 I5/UOI5I)
609 DO 610 N=l,NlN
IF(NWTOG(JtNM 610,615,610
61C CONTINUE
615 ,I=1,N)
1230 FORMAT(1H+t74X,10 I 5)
620 CONTINUE
WRITF(^,12^0)
1240 FORMATCC INLET* ,6X,•TRIBUTARY GUTTER-PIPE-MANHOLE',
132X,'TRIBUTARY SUBAREA'I
RHYD1S1
RHYD182
RHYD183
RHYD185
RHYD136
RHYD18B
RHY0189
RHY0190
RHY0191
RHYD192
RHYD193
RHYD194
HHYD195
RHY019B
RHYD199
RHY0200
?HY0202
RHYD203
RHY0204
SHY0205
RHY9207
RHYD208
RHYD209
"UIY0211
RHYD212
RHY0213
RHY0214
RHYD216
RHYD217
RHY0218
IHYD220
RHYD221
RHY0222
RHYD223
RHYU224
HHYD22&
RHY0227
RHYD228
RHY0229
IHYD230
RHYD231
RHY0232
RHYD233
RHYD235
RHYD237
RHYD238
RHYD240
28
-------
00 628 N=1,NING
1FCNGTCI (N)I 628,630.628
628 CONTINUE
630 N=N-1
IF(N) 634,634,633
633 WRITE(6,1200) INLET,(NGTOI(I),1-1,M!
GC TO 635
634 WRITE(C,12CCI IMLET
635 00 636 Ml.MN
IF(NHTOHN) ) 636,638,636
636 CONTINUE
638 N=N-1
IRN) f',C,6';0,i39
639 KRITE<6,12301 (NWTOI(I),I=1,N)
64C CONTINLE
RHYD241
RHYD242
RHYD243
RHYD244
RHYD246
RHYD247
RHYDP48
RHYD249
RHYD2S1
RHYD252
RHVD253
RHYD25<*
READ INFORMATION TO CONTROL
INLETS SAVED AND PRINTED
NTQUAL=NSCRAT(1)
REWIND NTQUAL
REAO(5,1205) NSAVE
IF(NSAVE.LT.l) GO TO 660
REAC(5,12C5) (ISAVEtN ) ,N=i,NSAVE)
1205 FORMAT(16I5)
WRITE(6,1210) NSAVE,tISAVEt N),N=1,NSAVE)
1210 FORKATt 'OHYDRCGRAPHS WILL BE STORED FOR THE FOLLOWING1,1 5,
1» POINTS'/tlCIlC))
NOUT=JCUT( IOUTCT)
REWIND NCUT
WRITE(NOtT) TITLE
NQUAL=C
WRITEtNCUT) NSTEP,NSAVE,NQUAL,DELT,TZERO,TAREA
WRITE(NOLT) (ISAVEtN),N=1,NSAVE)
kRITEtNTQUAL) NSAVE,tISAVEtN),N=1,NSAVE)
66C CONTINUE
REAO(5,12C5) NPRNT,INTERV
IF(NPRNT.LT.l) GU TO 680
READ(5,12C5) ( IFRNT(N>,N=1,NPRNT)
WRITE(6 ,1220) NPPNT,(IPRNT (N),M=l,NPRNT)
1220 FORMATt «IhYCROGRAPHS ARE LISTED FOR THE FOLLOWING',15,• POINTS'
l/« TIKE ',ICI10X( 10X,10I10)>
WRITEU.1225)
FORMAT(Ih )
RHYD256
RHY0257
RHYD259
RHYD261
RHY0262
RHYD263
RHYD265
RHY0266
RHYD267
RHYD268
RHY0269
RHYD271
RHY3272
RHYD273X
RHYD274
RHYD275
RIIYD276
RHYD277
RHYD278
SHYD279
/RHYD281
RHYD232
1225
68C
CONTINLE
C******** EXIT IF
IFCNSTCP.EC.
RETURN
END
ERROR HAS
I) STOP
BEEN DETECTED
RHYD2B6
RHYR287
RHYU2S8
SHYU289
RHY0290
29
-------
SUBROUTINE WShED
C
C THIS SUBROUTINE COMPUTES THE INSTANTANEOUS WATER DEPTH
C AJ.O FLCH RATE FOR Tt-E WATERSHED AREAS
C
C*************** SPECIFICATION STATEMENTS
C
COMMUN NW,NG,NIK,HISTCG,TRAIN,CELT,DELT2,NOW,NQG.NSTEP,TARE A,
I TIMEfTlPE2,RI,RLOSS,SUMR,SUMI,SUMOFF,SUMST,TZERO,NING
CCf-irtUN HFLOHtl60),WWIDTH(160l,HAREA(l601,WSLUPE(160),WN(160),
1 WSTORE1 l60r3)»WLMAX ( 160), WLMIN (lt>0) , DECAYt 160) ,WDE PTH (160 ,3) ,
2 WCON(16C,3) ,NAF EWl 160 ), PCI KPU60)
CCMtfON GFLOUC160!»GWIDTH(160J.GLLNl160),GSLUPE(1601 ,OS I(160),
1 GS2( 160),GNt160),GDEPTHf 1601,GCON(160),NPG<160),OFULL(160),
2 NGUT(16C).SUMQM160) ,PCTZER
COMMON NWTOG(160,10),hGTnG(160, 10) ,NWTOI( 10) ,NGTOM 160)
COMMON RAINU60.10),NHYET(160),NRAIN,NRGAG,NHISTO,THISTO
CCM40N <3SUR(160) ,DELDU60)tQIN( 160)
COMMON IPRNT(16C),ISAVE(160)FNPRNT,NSAVE,OUTFLW(160),1NTEKV,
1 INFCM
C
SELECT AVERAGE RAINFALL DURING TIME INTERVAL
L. + (TI»'E2-TZERO»/HISTOG
C
C«****** BEGIN MAJOR LOOP FOR WSHED
C
00 320 K>1,NCW
J=NAHfcU(N)
NGAG=NHYET(J)
IF(TIKE2.LE.TRAIN) RI=RAIN(IND.NGAG)
OELR=0.
HFLUH(J)=0.
IF(WAREA(J).EQ.O.) GO TO 320
00 315 K=l,3
1F(K-2J 201,205,210
201 HAR=hAREA{J)*PCIMP
-------
220 IFURl-*LCSS)*DELT>WDEPTH
HFLO=(RI-RLOSS»*WAR-(CCORR-HDEPTH(J,K)|*WAR/DELT
IFJWFLC.GT.O.I GO TO 290
285 WFLO-0.
DCORR=kCEPTh(J,KJ*(RI-RLOSS)*DELT
C
C******** TRANSFER DEPTH FOR NEXT TIME INTERVAL
\*
290 WDEPTH(J,K)=DCORR
C******* S"UM FCR CONTINUITY CHECK
310 SUMR=SUMR*RI*OELT*KAR
WFLCWi J»=WFLOW(J)*HFLO
315 CONTINUE
320 CONTINUE
RETURN
END
WSHE 61
WSHH 62
WSHE 63
WSHE 64
WSHE 65
rfSHE 66
WSHL- 67
WSHE 68
WSHE 69
WSHE 70
WSHE 71
WSHE 72
WSIIE 73
WSHF 74
.5IWSHE 75
rfSHE 76
WSHE 77
WSHE 78
WSHf: 79
KSHE 80
VSHE 81
WSHH 82
WSHE 83
WSHE 84
WSHE 85
WSHE 85
WSHE 87
WSHE 88
WSHt 89
WSHC 90
•JSHP 91
WSHE 92
WSHE 93
WSHt 94
WSHF 95
WSHE 96
HSHE 97
31
-------
SUBROUTINE
SFQUAL
t EDDY
ENGINEERS' SURFACE QUALITY MODEL — ======
C
COMMON /TAPES/ INCNT,IOUTCT,JIN(10),JOUT(10) , NSCRAT<5)
COMMON NV-,NG,NlN,hISTCG,TRAIN,DELT,DELT2,NOW,NOG,NSTEP,TAREA,
1 TIME»TIfE2,RI,RLOSS,SUMR,SUMI,SUMOFF,SUMST,NSHED,N1NU
CChMCN KNUM 160), INPUT (160)*ASUBJ160),GUTTER(160),KLAND(160)
* TOTDDU60),REMDD(160),
* PO(16C),
* RUNCFS(2,160),AVGFLO(160),
* POP(160),POPSS(160),
* C8SUfMl60),CBLBS(2, 160) ,CB INC (160 ),
* CBACTf-!160i ,ATOTU60) ,C(160I
* tSFCOL 1(160) t!KOUNT«160),CCOLI (160) .TCCOLK160)
COMMON JNC160) ,RUNTMP( 160 ) , I PCI NT( 160) , BOD(160) , SS( 160)
CCMMCN TITLEI40)
CGMKCN TFCFSS(160),TCBINC<160),TCBAST(160),TPOP(160)
DATA NQUAL/3/
C READ NUMBER OF SUBAREAS
C OF STORf.
READ( C5,2CC)ICTNUK,NINLTStDT ,KHOUR»KMIN,NTSTEP,NPRINT
200 FORMAT(215,F5.0,415)
IFPRNT=NSCRAT(3)
REWIND IFPRNT
WRITE(C6,60l) KTNUM,NINLTS,DT,KHOUR,KMIN
SFQU
=====SFQU
SFQU
SFQU
SFQU
SFQU
SFQU
SFQU
SFQU
SFQU
t TINE INTERVAL IN MINUTESi AND STARTING
14, /
14, /
F6.2,
13, •: ,
AND DUST
/
•:'
12)
AND
DRT
601 FORMAT('1MJKBER OF SUBAREAS, KTNUM =•,
* • KUM3ER OF INLETS, NlNLTS =',
* • TIXK INTFRVAL (MIN), DT =',
* « STORM START TIME (HPrMIN) =«,
C READ IN DATA FOR ESTIMATING AVAILABLE BOD
READ(C5,2Ci) DRVCAY.CLFREC.HUPASS
201 FCRKAT C2F10.0, 15)
WRITE(C6,602> DRYDAY,CLFREQ,NUPASS
602 FORMAT('OCRYDAY = • , FIO.O, «» CLFREQ"1, FIO.O, ', NOPASS =', 15)
IMDRYDAY-CLFREC) 10,10,11
11 CLEAN=DR\CAY/CLFREQ
NCLEAN'CLCAN
IF(NOPASS-2) 13,14,15
13 IF(CLFREC.€T.l5.) REFF=C.60
IF(CLFREC.LE.15.) REFF=0.70
IF(CLFREC.LE.7.» REFF-C.75
GO TO 10
14 IF(CLFREC.GT.15.) REFF=0.88
IF(CLFREC.LE.l5.l REFF^=0.92
IF
-------
C PCOCB=LBS BCD AVAIL IN EACH CB AT START OF STORM
C Cfl'S ARE EXPECTED TO HAVE A CONSTANT CONCENTRATION REGARDLESS OF
C LAND USE
C IF ORYCAY IS GREATER THAN 1.0
IF(DRYCAY.CE.l) GO TO 19
POOCB=SCPT
RF.AD(C51202 < KN'.M !.".), Ifii'UT {,U , KLANO (U ), ASUB (K ) t GUT T ER K )
WR1TE<6,202» KNUM(Kl , INPUT!K),KLAND(K),ASUB(K),G'JTTER(K)
202 FORMAT (3I5.2F10.2I
GUTTER EQUALS GUTTER LENGTH IK 100'S OF FEET. DD=DUST AND DIRT
ACCJfULATICN PER DAY. FACTORS ARE FROM CHICAGO APWA STUDY.
=0.7*GUTTER(K)
=2.3*GUTTER(K)
=3.3*GUTTER(K)
=4.6*GUTTER(K)
=1.5*GUTTER(KI
IF(KLANC(K».E0.11 DO
IF.EQ.l) SFBOD =5.0*TOTDD(K)/1000.
=3.6*TOTDD(K)/1000.
=7.7*TOTDD(K)/1000.
=3.0*TOTDD(K)/1000.
=5.0*TOTOD(K)/1000.
SFBOD IS AVAILABLE SOLUABLE BOD CONTAINED IN THE DUST AND DIRT AT
THE START CF THE STORM ON THE SURFACE IN POUNDS.
pom=SFecc
REMDD(M = TOTDO(K>
REMOO = REMAINING DUST AND DIRT FROM PREVIOUS TIME STEP
300 CONTINUE
A=0.0004*DT
B=0.0025*DT
TMINS=CT
= TIME INTERVAL IN MINUTES
TSEC*TPIKS*60.0
T=TMINS/60.0
CCNVER=lCOOCCC.C/(3600.0*1*62.4)
CONV2=tC.C*283.2
CCNV2 CONVERTS FLOW IN CFS TO FLOW IN 100ML/MIN
INPT=NSCP«T(1)
REWIND INPT
IF(KLAND(K).EQ.2» SFBCD
IF(KLAKD(K).EQ.3) SFBOD
IFiKLANCtKJ.EQ.A) SFBLD
IF(KLANC(K).EQ.5I SFBCD
SFOU 61
SFO'J 62
SFQU 63
SFOU 65
SFOU 66
SFQU 67
SFQU 68
SFQJ 69
SFQU 70
SFQU 71
SFOJ 72
SFQU 73
SFQU Tt
SFQU 75
SFOJ 76
SFQU 77
SFQU 78
SFQU 79
SFQU 80
SFQU 8i
SFQU 82
SFQU 83
SFQJ 84
SFQU 85
SFQU 86
SFQU 87
SFOU 88
SFQU 89
SFQU 90
SFQJ 91
SFQU 92
SFQU 93
SFQU 94
SFQJ 95
SFQU 96
SFQJ 97
SFQJ 98
SFQU 99
SFQJ100
SFQU101
SFQJ102
SFQJ 103
SFQU104
SFQJ105
SFQU106
SFQU137
SFQJIDB
SFQUIO1'
s rou 1 1 o
SFQU111
SFQU112
SFQJ I U
SFQU11V
SFQU115
SFQJ lit,
SF«U117
SFQJ UP
SFGJU119
SFQU120
33
-------
READ(INPT) NCW, GO TO 1245
1F(1NPLT(K+1).NE.INPUT«KJ) J=J+1
CONTINUE
1PUINT(M=J
CONTINUE
SFQU121
SFQJ122
SFQU123
SFQU125
SFQU126
SFQU127
SFQU12B
SFQU129
SFQIU3D
SFQJ132
STOU133
1270
1245
1250
1260
00 1270 K=i,KTNUM
JN(J)=IKPUT(K)
IFCK.EC.KUUfMGO TU 127C
IFdNPUTCK+ll.NE.INPUTCK) ) J=J*1
CONTU4UE
TZERO=0.
rZERO=3600.*FLC^T(KHOUR)+60.*FLOAT(KMIN)
NOUT=JCUT(ICUTCTJ
REWIND KCUT
TIHC=TZERO
READ(UOUT) TITLE
REWIND NCUT
HRITECNCUTKTITLEd) tl=l»40)
WRUE(NOUT» NTSTEP,NlNLTS,NQUALfTSEC,TZERO,TAREA
WRITE (NOLI! (JN(K) ,K=1,NIMTSI
WRlTEAVGFH)(I» = (RUNCFS(NOlOiI I+RUNCFS ( NEW
IF(KTSTEP.£(3.1J ATOT(U=0.0
POPSSUI=C.C
SFQUJ55
SFQU151
SFOJ152
SFQJ1&3X
SFOU154
SFQU155
BOOSFQU156
SEL..-ITED POSFQJ157
SFQJ158
SFQU159
SFQUltO
SFQ'Jl&l
SFQ-J162
SFOJ163
SFQU164
SFQU16P
SFQU166
5FQU167
SFQJ163
SFOU16:)
SFOJ170
SFQU171
SFQ-J172
5FQU173
SFOU174
SFOJ175
SFQU176
SFOU177
II I/?. 0 SFOU173
SFQU179
SFQJ180
34
-------
222
CBASTM 11=0.0
RUNCFStNCLDtl)=RUNCFS(NEWtI)
CONTINUE
00 333 JJ=1,KTNUM
SFCOLI(JJ)=0.0
IKOUNTt J) = IKCUNTtJl + l
...CONVERT RUNOFF FROM CFS TO INCHES/HOUR..,
IF(KTSTEP.GT.l) GO TO 224
JK=JJ+1
00 223 JKL-U5
IF(ATCT(J».EC.O.O) ATOT(J)=ASUB(JJ)
IF(JK.GT.KTNUM) GO TO 224
IFUN?IT;JKJ .NF. *REMDD{JJ)/TOTDD( JJ»
C POPSS*REMCDUJ» POPSSi JJ) =C( JJ )*REMDD(JJ J
IFlKLANDt JJ.EC. 1) SPCQLI < J J)=5900GOOOO*POHSS ( J J ) /UT
IF(KLANC(JJ.EQ.2JSFCOLI(JJ»=12?0000000*POPSS( JJJ/DT
IF(KLANC<-CBVl!L I) )
C CBCENT IS PERCENT CF POLLUTICN REMJVcO/100.
20
*rSLT.*7.4f:)/CBNUIJ!
EACH CATCHBASIN
SFQU181
SFQU182
SFQJ183
SFQU184
SFQUIBb
SFQU186
SFQU187
SFQJ18S
SFQU189
SFOU190
SFQU191
SFQ'J192X
SFQJ193
SFQU194
SFQJ195
SFQU196
SFQ'J197
SFQJ198
SFQU199
SFOU200
SFQU201
SFQU202
SFQJ203
SF00204
SFQJ205
SFQD206
SFQU207
SFQU209
SFQJ210
SFOU211
SFQU212
SFQJ212A
SFQU213
SFQU213A
SFQIJ214
SFQJ215
SFQJ216
SFCJU217
SFQU218
SFQU219
SFQIJ220
SFQJ221
SFQU222
SFQU223
SFQU224
SFQJ225
SFOJ226
SFQJ227
SFQU229
SFQU230
SFQJ231
SFOU233
SFQU234
SFQU?37
SFQU238
35
-------
20
21
CBL 85 (N EV, , J J )=CBCENT*POC8
IF(KTSTEP.EQ.il C8INC(JJJ=CBLBS(NEW,JJI
IF(KTSTEP.GT.l) CBINC(JJI=CBLBS*PCP(JJ)
CBASTM(J)=C8ASTM(J»+CBASTM(JJI
SFCOLI(J I =SFCOL I(J)^S^COL1 ( JJ »
TCCOLK J)=TCCOLI( J)+TCCOLK JJ I
CCOLK J)=CCCLI(J)*CCOLI(JJ)
330 CONTINUE
IF(KTSTEP.EQ.NTSTEP) KNUM(J)=INPUT(JJ)
IF(JJ.EQ.KTNUM> GO TO 333
IF( INPUTCJJ^l » ,NE. INPUTUJ) } J=J*1
333 CONTINUE
00 440 J=l,MNLTS
BOO(J)=CDASTfM J) /DT
IF(NPRINl.EQ.O) GO TO 4^0
IF(KTSTEF.EQ.l) GO TO 439
IFfMKOLNT.LT.NPRINT) GO TO 440
439 WRITE(1FPRM)RUNCFS(NEW,JI, AVGFLO( J ) ,POPSS < J ) .CIHNC (J ) , POP( J)
*TM(J| ,CCCU( J)
44C SS
-------
*J)tJ=l,NINLTS)
00 442 JMtMNLTS
TPOP(J)=TPCP(J)*PCP(J)
TPOPSS
SFQJ317
SFQU318
SFQJ319
SFQU320
SFQ'J321
SFQJ322
THESFQU323
SFQD324
SFQU325
., SFQU326
FAMILY RSFQJ327
*ESIOFNTIAL'/'0',T23,«2',T33. 'MULTI-FAMILY RES IOENTIAL ' / ' D • ,T23, • 3' SFQU3?S
*»T33,«CCMERClALf/'0« , T23 ,«4« ,T33,' INDUSTRIAL'/'0', T23,'5 • ,T33,'UNSFQU329
*DEVELOPEC OP, PARKLAND',////) SFQU330
WRITE(6,605) SFQU331
6C5 FORMAT(« ',T89,'A MOUNT TRANSFERRE D'/ • ',T82,' SFQU332
* t/, ,,T124,'AVERA3ESFQU333
*•/• «,T54,'BOD PRIOR TC STORM, LBS. • ,T83,' SUSPENDF.D',T123, • COL I FORSFQJ334
*M'/« ',T9,'LAND',T40,'DUST E DIRT',T52,' SFQU335
* • ,T64, 'SCUDS' tT95,'F I V E DAY BO 0« ,T125 ,'CUNC. '/« '.T9SFQU336
*,'USE',Tig, 'AREA' ,T26 , 'GUTTER LENGTH PRIOR TO',T65,•NON-',T76,«INSFQU337
*«,T84,« (PCPSS) (CBINC) +(POP) = (CBASTM) (CCOLI)'/' ',T2,'INSFQU33B
*PUT (KLAND) ACRES HUNDRED FEET STORM, LBS. SOLUBLE SOLUBLSFQJ339
*E CATChBASIN POUNDS PCUNCS POUNDS POUNDS MPN/100ML'/' SFQU340
*' »' SFQJ3
-------
IF(KLANDJKK).EQ.4» SFBOD=3.0*TOTDO(KK»/1000. SFQU359
IF(KLArvD(KK).EQ.5l SF60D=5.0*TOIDD(KK)/1000. SFQU360
BOONS=TC7DO(KK)*0.05 SFQU361
PQCB=PCCCB*CBDEN*ASUB(KK) SFQU362
SUMDO«SUKCC^TOTCD(KK> SFQU363
SUMBUO=SUVeOC*BCCNS*SFBOD SFQU364
SUMCB=SUKCB+POC6 SFQU365
341 CONTINUE SFQU366
IFCKOUNT.KE.KTNUMI KOt'NT=KK + l SFQU367
IF(KK.EC.KTNUP) GO TO 334 SFOU36B
IF ( INPUT (KK+D.EQ. INPUTt KK1 » WRI TE(6t63 1»INPUT(KK)tKLAND(KKKASUB(SFQU369
*KK),GUTTER(KK) ,TOTDD( KK», SPBOO, BOONS, POCB SFQU370
til FGR.-1AT( ' 'i I5*I7tT17,» 8.2 iT/.5t.'il.t f Tj-it f-i. i.<: t Vit il-a.2 t T62t F8.2iTTSF(W371
»2tF8.2» SFQU37E
IF(INPLT(KK^•il.NE.K^U^(J»^ GO TO 3*0 SFQU373
334 CONTINUE SFQU37<»
340 CONTINUE SFQU375
LL=KCUKT SFQU376
IFtNPRINT.EQ.OI GO TO 660 SFQU377
HRITE(06,610) SFQU378
610 FORMAT*«0«»19Xf'SUSPENDED SOLIDS'f6X,«FIVE-DAY BIOCHEMICAL OXYGEN SFQU379
•DEMAND' f5X,«CCLIFCPM CCNC.V ' , IX, • T IME' » 4X, 'RUNCFS ' ,3X, • ( POPSS) • SFQU380
*t2X»MCCNCSS)« >3X,« (CRINC)' »lXt'*« t3X.« (POPI'tlXf •= (CBASfrt> (CSFQU381
fSX^MCCOLIJV • f 12X, 'CFS' ,^X, • LBS/DT1 ,6X, • MG/L' , 4X, • LBS/OS Fa'J332
'L9S/DT' ,4X,«LBS/OT',6X,lMG/Ltf7X,'MPN/IOOML1 ) SFQU383
1HOUR=KHCUR SFQU38<>
1HIN=KMN SFQU385
REMIND IFPRNT SFQU386
IF(KSKIP.EQ.O» GO TO 557 SFQ'J387
DO 556 KKal.KSKIP SFQU38B
READUFPRNTI SKIP1 »SKIP2t SKIP3t SKIP4, SK IPS »SKIP6 »SK IP7 SFQJ389
556 CONTIhUE SFQU390
557 CONTINUE SFQU391
ISKIP*NINLTS-1 SFQU392
NLSTEP*NTSTEP/NPRINT SFQU393
DO 555 KTSTEP=1,NUSTEP SFQU394
READ(IFPRM»RUNCFS(NEW,J).AVGFLC(J),POPSS(Jt,CBINC(JI,POP(JI,CBASTSFQU395
*M) GC TC 555 SFQU418
38
-------
HRITEt06t611l TPOPSS( J»tTCBINC( J) t TPOP( J J , TCBAST ( J» SFQtm?
611 FORMATCO*,1 PCUNOS REWOVEO' ,F10.2, IOX, 3F10.2 ) SFQU420
555 CONTINUE SFQU421
KSKIP=KSKIP+l SFUJ422
CO TO 665 SFQIK23
660 PCNTSS=TPCPSS(J»/SUMDD*100.0 SFOU42<.
PCT80D=TPCP9
211 FORMATdhU SFQU470
RETURN SF<3'Ji,71
END SrQJ472
39
-------
Section 3
TRANSPORT BLOCK
Page
Subroutine TRANS 43
Function DEPTH 54
Function DPSI 56
Subroutine DWLOAD 58
Subroutine FILTH 61
Subroutine FINDA 67
Subroutine FIRST 68
Subroutine INFIL 71
Subroutine INITAL 74
Subroutine NEWTON 76
Subroutine PRINT 77
Function PSI 80
Subroutine QUAL 82
Function RADH 85
Subroutine ROUTE 87
Subroutine SLOP 93
Function VEL 95
Subroutine TSTRDT 96
Subroutine TSTORG 104
Subroutine TSTCST 110
Subroutine TPLUGS 112
Subroutine TSROUT 116
Subroutine TINTRP 118
Function ACOS 119
BLOCK DATA 120
41
-------
SUBROUTINE TRANS
C
C«************* UNIVERSITY OF FLORIDA TRANSPORT MODEL*****************
C
C********SPECIFICATICN STATEMENTS
C
DIMENSION QK160) tQO( 160) .SURGE 1 ( 1601 , SURGE? (160) .WELL I (160),
1 HELL2U60), PUHF (160 ),G(400I, COK 160), Q02( 160 >,OUTIN< 10,5),
2 OUmO,5),OCTTAP(5.5)
COMMON /TAPES/ INCNT. 10'JTCT, JIN { 10) , JOUT< 10) , NSCRAT (5 )
CCMMON/ORHF/ CVDWF(7) .OVBOOI 7 ), OVSS (7 ) , HVOWFJ 24 ) , HVBOD< 24 ) ,
1 HVSS(24) ,HVCOLK241,KTNUM,KDAY,KHUUR,KMINS
1
2
C
C
1
2
3
4
5
6
7
8
9
NN(25),KM(25) fANURM( 15,51 I , QNORM ( 15.5 1) t
ONORM115,51),AFACTU5),RFACT<15)
COMMON/NAMES/ NAME(4 i 25) ,GNO, YES, BLANK
COMMON A(160,2,2) ,0(160,2,2) , CPOLL < 160.2 .2 ,3 ) . QMAX(ISO),
1 CFULLU60), AFULLU60), DXDT ( 160 ), Cl (160), SLOPEM160),
2 OIST(160). GEOKK160), ROUGH(160), NUE(160), NUE(160,3),
3 INUE(160.3), NTYPE(160), JR(loO), NKLASS, NE, NOT, EPSIL,
4 TIME, DT, M, KFULL, N, NOS, NPOLL, NPRINT, ITER,
5 CDhF<160). lOLDfloO), PK160). RNOFF(160), QINFIL(160),
6 WCWF(160.3), PLUTO(160,3), IR(160), P2(160), NIN(IOOO),
7 P5(160I,P6(160),P7(160),SCF<160 I.BARREL(160) ,
8 1.1TLE(40», NPE(20), NYN(20), NOROER(70), GEOM2(160I,
9 GECM3(160) , P4( 160), SCOUR( 160) , KSTOREU60)
CCMMON BCDIN( 2,150),SSIN( 2,150),BODOUT,SSOUT,COLIN(2,150),
* QINST,CCLST,CINSTL( 2),QOUSTL( 2),STORL( 2),CJOUTO( 2),STORO( 2)
* NStOR,KSTCR,IPRINT( 2)iIPOL( 2).IFLOOD( 2),ICOST( 2),DEPMAX( 2)
* ATERI"( 2,il).A02DT2( 2 ,11) ,BDEPTH( 2,ll),RSTOR( 2,11) .COLOUT,
* DUMSlP(li) iDUPDEPdl),
* KTSTEP,VOLIN( 2,150) ,VOLOUT( 2,150),STOR,CUMIN( 2),CUMOUT( 2),
SBOO( 2).SSS( 2),SCOL( 2),
ISTMOC( 2),ISTTYP( 2),ISTOUT( 2),
QPUMP( 2),OSTART( 2),DSTOP( 2),
OTON( 2),STOR«X( 2 I ,DTPUMP( 2),DTMORE( 2),STORF( 2),APLAN( 21,
CLANO( 2),CSTOR( 2).CPS( 2),CTOTAL( 2),CPCUYD( 2).CPACRE( 2),
LPtJP,LPREV( 2),LA8EL,DET£NT(l50),FRACd50),aUTl< 10,203)
EQUIVALENCE (C0(l),Q(1,2.2)I.(QI(1),Q( 1,1,2))
EQUIVALENCE (PUMP(I),DIST(1)),(SURGEU1),PU1)),(SURGE2(11,P2(1))
EQUIVALENCE (001(1 I,QfAX(1)), (C02(1),QFULL(1)I
EQUIVALENCE (WELL 1(1) ,SLOPEd)),(WELL2(1),ROUGH(1))
OlMENSICh JN(5)
DIMENSION FLODEPdSO)
CATA DESCRIBING USER SUPPLIED CONDUITS, IF ANY.
READ{5,901)NKLASS,KPRINT
NKLAS=NKLASS *12
IF (NKLASS.LE.O) GO TO 41
READ (5,903) ((NAME(J,I),J=l,4),1=13,NKLAS)
READ (E.SC1I (NN(I).I-13,N
-------
NNN = NNdl
READ (5,900) ( DNORMC 1 , J) , J=1.NNN)
NNN - Mf + 1
IF (NNN.GT.51) CO TO 18
CO 17 J=NNN»51
17 DNORMd, J)=0.0
18 CONTINUE
TRAN 60
TRAN 61
TRAN 62
TRAN 63
TRAN 64
TRAN 65
TRAN 66
C READ PARAMETERS AND PERFORM INITIALIZING CALCULATIONS ON Q-A :URVETRAN 67
DO 40 I=13,NKLAS
KLASSC I) = 2
C CONOUIT KITH TABULAR C-A RELATIONSHIP
ttMM = HM(I)
DAt>riA=i.O/rLCA1i JMMM-1J
REAO(5,<50CI(CNORM(I,J),J=1,MMM)
ANORH< ltl>=0.0
DO 33 J=2,fMM
33 ANGRMU,J)*ANGRM(ItJ-l)+DALPHA
MMM = f-^ + 1
IF (MKH.GT.51) GO TO 40
DO 39 J=KMM,51
ANORMU.J! =0.0
39 QNJRMt I,J)=0.0
40 CONTINUE
C
C**»*****WRITE CATA DESCRIBING DIFFERENT TYPES OF SEWER ELEMENTS! IF
C DESIREC)
41 CONTINUE
IF(KPKlNT.hE.l) GC TO 45
WRITE (6,970)
00 43 1=1,15
f*MM - HH(I )
IF (HKUl.LT.NNim MMM*NN(I)
43 WRITE (6,<;71) U (NAME (J, I ) , J = l ,41 .ALFMAXt 1 1 ,PSI MAXC I ) , AFACT( I ) ,
1 RFACTm,KDEPTH(I),KLASSU), ( J , ANOHM ( I , J ) , QNbRM( 1 , J ) , ON3RM( I , J ) ,
2 J=1,MMM)
HRITE<6,972)
WRITE (6, 973) (I,KDEPTH(I>,KLASSm , ( NAME! K, I I , K=l ,4 ) , I =16, 25 I
C
C********R£AC IN DATA FOR EACH SEWER SYSTEM
C
C READ IK TITLE FOR CATA.
C
45 REAC(5,9C3I ( T 1TLEI I) ,1=1 ,20)
C
C READ IN EXECUTION DATA.
C
READ (5t901) NErNDTtNINPUTfNNYN.NNPE.NJUTS.NPRI NT, NPCiLL, NITER
C
C NE TOTAL NUMBER OF ELEMENTS
C NOT = NUMBER OF TIME STEPS
C MNPUT = NUMBER OF INPUT ELEMENTS
C NNYN = NUMBER OP ELEMENTS FUR WHICH INFLOW
C PRINTOUT IS DESIRED
C MvPE = NUMBER OF ELEMENTS FOR WHICH OUTFLOW
t PRINTOUT IS DESIRED
C NCUTS - NUMBER OF ELEMENTS TOR WHICH OUTFLOW
C HYDRCGRAFHS ANN POLLUTCGS APHS ARE TU BE
C PROVIDED ON TAPE FOR INTERFACING
C fiFPINT = 0 NC TRACING MESSAGES GENERATED
C I TRACING MESSAGES ARC GENERATED IN ROUTE
TRAN 68
TRAN 69
TRAN 70
TRAN 71
TRAN 72
TRAN 73
TRAN 74
TRAN 75
TRAN 76
TRAN 77
TRAN 73
TRAN 79
TRAN 80
TRAN 81
TRAN 82
TRAN 83
TRAN 34
TRAN 85
TRAN 86
TRAN 87
TRAN 88
TRAN 89
TRAN 90
TRAN 91
TRAN 92
TRAN 93
TRAN 94
TRAN 95
TRAN 96
TRAN 97
TRA\ 98
TRAM 99
TRANIOO
TRAN101
TRAM102
TRAN103
TRAN104
TRAN105
TRAN106
TRAN107
TRAN108
TRAM109
TRAN110
TRAN111
TRAN1L2
TRAN113
TRAN114
TRAN115
TRAN116
TRAN117
TRAN118
TRANU9
44
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
NPOLL
MTER
2 TRACING
TRANS
= NUMBER OF
= NUMBER OF
MESSAGES ARE GENERATED IN ROUTE AND
POLLUTANTS
ITERATIONS
TO BE ROUTED
IN ROUTING SCHEME
REAO(5,900)DT.EPSIL,DECAYS
TRAN120
TRAM121
TRANJ122
TRAN123
TRAN124
TRAN125
CT = LENGTH OF TIME STEP IN SECONDS
EPSIL = CONVERGENCE CRITERIA IN ROUTING
DWDAYS = NUMBER OF DRY WEATHER DAYS PRIOR TO STORM
ASSIGN CEFAULT VALUES
IF (EPSIL.LE.0.0) EPSIL
0.0001
T RAN 127
T RAN 128
TKAN129
TRAN130
TRAM131
IRANI 32
IRANI 33
REAO(5,901) NCNTRL,NINFIL,NFILTH,JPRINT,JPLOT
NCNTRL
MNFIL
KFILTH
JPRINT
JPLOT =
IF
IF
IF
IF
IF
IF
IF
IF
IF
IF
INPUT INFORMATION IS ON TAPE
INPUT INFORMATION IS NOT ON TAPE
INFILTRATION ROUTINE IS TO BE CALLED
INFITRATION ROUTINE IS NOT TO BE CALLED
DRY WEATHER FLOW RUUTINE IS TU BE CALLED
ROUTINE IS NOT TO BE
IS TO BE CALLED
IS NOT TO BE CALLED
DRY HEATHER FLOW
PRINTING ROUTINE
PR I NT I i\IG
PLOTTING
PLOTTING
ROUTINE
ROUTINE
ROUTINE
TRAN135
TRAM 3ft
TRAV137
TPAN138
TRAN139
TRAN140
TRAM141
CALLEDTRANJ42
T RAN 14-3
TRA\!144
IS TO BE CALLED
NOT CALLED FROM
READ IN ELEMENT DATA AND INITIALIZE VARIABLES.
KSTOR = 0
NSTOR = 0
ICOST(1J=0
ICOST<2)=0
00 V? K=1,KE
REAO(5,<3C2)NOEm,(NUEULL(K) * 0.0
QMAX(K)-C.O
AFULL(K)=0.0
NNEEO = NCE
IRANI 70
TRAN177
45
-------
PARAMETERS FOR EACH ELEMENT
C********KEAD DATA FOR STORAGE ELEMENTS
C
IF (NSTOR .GT. 21 GO TO 9000
IF (NSTOR .GT. Cl CALL TSTRDT
C
C ******** SEQUENCE ELEHENT DATA
C
URl TE ( 6,503) (TITLE! IJ ,1=1 (20)
CALL SLOP
C
C********CALCULATE CONSTANTS AND FLOW
C
CALL FiFSl
C
C********XRITE DESCRIPTION CF RUN AND SEWER SYSTEM
C
WRITE (6,9031 ( TITLEJ U , 1=1 ,20)
WRITE(6,S15)NE,NDT,DT
WRITE (6,916)
00 48 I = l,f-E
NT = MYFEU)
48 WRITE (6,920) NOE( I ) ,NT,( NAME (J , NT) , J=l,4) ,SLO?£( I ) , D IST( I I ,
1ROUGH( I ) , GEOM1 ( I ) ,GEOK2( I ), GECM3 ( I ) , BARREL ( I ) , AFULL ( I ) ,QPULL( I ) ,
ZQMAXm.SCFU)
NRITEU.S13) EPSIL, NITER
C
C******** INITIALIZATION
C
NEE=NE+1
00 50 Ml, NEE
IOLD(K)=1
QINFIL(K)=0.0
QOWFJK)=0.0
SCOJR(K)=C.C
IR(K)=NINPUT*1
00 50 L=1,NPOLL
WOHF(K,L 1=0.0
PLUTC(K,L)=0.0
00 50 1=1,2
00 50 11-1,2
CPOLL(K,I,H,LMO.O
A(K,II,I)=0.0
Q(K,11,I )=C.O
CO(NE*1)=C.C
QI(NE*1)=0.0
49
50
NPOLS=NPCLL*l
KOAY=i
KHOUR-1
KMINS=C
TIHE=0.0
RNOFF(MNPUT-H)=0.0
DO 51 l=l,NPC)LL
PLUTO(N!NPUT+1,I)*0.0
51 CPOLL(Nr:+l,2,2,I) = 0.0
00 52
J-1.0
1=1.0
52 DVSSCI =1.0
00 53
TRAN178
TRAN179
TRAN180
TRAN181
TRAN182
TRAN183
TRAN185
TRAN186
TRAN187
TRAN188
TRAN189
TRAN19D
TRAN19I
TRAN192
TRAN193
TRAN194
TRAN195
TRAN196
TRAN197
TRAN198
TRAN199
TRAN200
TRAN201
TRAN202
TRAN203
TRAN204
TRAN205
TRAN206
TRAN207
TRAN208
TRAN2D9
TRAN210
TPAN2I1
TRAN212
TRAN213
TRAN214
TRAN215
TRAN216
TRAN217
1RAN218
TRAM219
TRAN220
TRAN221
TRAN222
TRAN223
OVOWF(
TPAN225
TRAN226
TRAV227
TRAN228
TRAN229
TRAN23D
TRAN231
TRAN232
TRAN233
TRAN234
TRAN236
TRAN236
TRAN237
46
-------
HVDWFCn-1.0
HVBUO(I)=1.0
53 HVSS(II*1.0
C
C*«"M»***INTERFACING MECHANISM FOR QUANTITY AND QUALITY OF RUNOFF
C
INCNTMNCNT+1
IOUTCT^lOllTCT+1
NTR1N=JINUNCNTI
NTROUT = JGi,T(ICUTCT)
C BYPASS TAPE OPERATIONS IF DESIRED
IF(NCNTRL.NE.l) GO TO 59
C
C********REAC HEADING INFORMATION ON INPUT TAPE
C
REWIND NTflU
ReAD(NTRIN)(TITLEU)tI=l,40)
REAO(NTRIN) NOUMltNINPUT,\POLLtNDUM2,TZEROtTAREA
TRAN?39
TRAM239
TRAN240
TRAM241
TRAN2<»2
TRAN246
TRAN247
C
C
C
C
C
READ ELEKEKT NOS. AT WHICH HYOROGRAPHS AND POLLUTOGRAPHS ARE
ENTEREC. TMS MUST ALSO BE THE ORDER IN WHICH HYDROGRAPH AND
POLLUTCGRAPH ORDINATES APPEAR AT EACH TIME STEP.
READCMPIM (NORDERUI, I=1,NINPUT)
C********WR1TE I-EACING INFORMATION CN OUTPUT TAPE
C
59 CONTINUE
REHfNO NTfCUT
WRITE (NTRCUTKTITLEJ I)tl=l,«0»
WRITE (.NTROUTI NDT.NOUTStNPOLLtDTtTZEROtTAREA
C
C***4«***READ ELEMENT NUMBERS FOR WHICH OUTPUT IS TO BE PROVIDED ON
C
REAC(5tSCl)(JN(I)tI-ltNOUTS)
WRITE(6t917) (JN( 11»I=lfNGUTS)
HRITE(KTROUT}(JN(NI,N=1,NCUTS1
C
DO oO I=ltNINPUT
NNEED=MORDFR(I)
NNEED=MN(NNEEO)
60 IR(NNEEO)- I
C
C********PERFORM SCRATCH TAPE OPERATIOMS
C
TRAN249
TP.AN25D
TRAN251
TRAM252
TR4N253
TRAN256
TRAN257
TRAN25B
TRAN259
TRAN260
TRAN261
TRAN262
TRAN263
TRAN26*
TRAN265
TRAN265A
TRAN266
TRAN267X
TRAN263
TAPETRAV269
TRAN270
TRAN271
TRAN272
TRAN273
C
C
C
C
C
C
C
READ IK ELEMENT NUMBERS FOR HHICH INPUT POLLUTOGRAPHS AND
HYOKOGRAFHS TO BE STOKED AT ALL TIME STEPS.
REAO(5t9Cl)(NYN(I)t!=ltNNYN)
READ IN ELEMENT NUMBERS FCR WHICH OUTPUT POLLUTOGRAPHS AND
HYOROGRAPHS TO BE STORED AT ALL TIME STEPS.
REAC(5t9ClHNPE( I ) tI=l,NNP£)
C*#******STORE PRINT INFORMATION UN SCRATCH TAPES
C
DO 62 III=lt2
NTX=NSCRATUII)
REWIND MX
TRAN275
TRAM276
TRAN277
TRAN278
TRAN279
TRAN233
TRAN281
TRAN202
TPAN283
TPAN28't
TRAN285
TPAN286
T RAN 2 87
TRAN288
TRAN289
TRAN29D
TRAM291
TRAM 292
TRAN293
TRA-N295
TRAN296
47
-------
IFUII.GT.l) GO TO 61 TRAN297
WRITE(KTX) NDT.NNYNtNPCLLtNNPEfDT,JPRINT.JPLOT TRAN296
WRITE(KTX» {NYN(II,I=1,NNYNI TRAN299
GO TO 62 TRAN300
61 WRITE(NTX) NOT,NNPE,NPCLL,NNPEtDTtJPRINT,JPLOT TRAN301
HRITE(NTX) (NPE(IlfI=lfNNPE) TRAN302
62 CONTINUE TRAN303
C********0£T£RHJNE AVERAGE DAILY DHF AND INFILTRATION TRAN305
C TRAN306
C DATA IS READ FROM BOTH OF THESE SUROUT1NES TRAN307
IF(NIKFIL.EG.1> CALL INFIL TRAN300
C TPAN309
IFfNFILTh.EQ.il CALL FILTH TRAN310
C TRAN311
C********INITIALIZE FLOWS. AREASt CONCENTRATIONS AND DEPOSITION TRAN312
C TRAN313
N = 0 TRANSIT
CALL OkLOAC(DUOAYS) TRAN315
C TRAN316
CALL IMTAL TRAN317
C TRAN318
C********BEGIN KAIN LOCPS OF PROGRAM TRAN319
C********OUTER LOOP ON TIMEt INNER LOOP ON ELEMENT NUMBER TRAN32D
C TRAN321
00 200 M1.1\DT TRAN322
C UPDATE TIME Of CAY TRAN323
TIM£=TIME*DT TRAN324
KMIrtS=KFlNS+INT{DT)/60 TRAN325
IF(KKINS.GT.60J KHOUR=KH.OUR+L TRAN326
IFIKMINS.GT.6C) KKINS-KHiNS-60 TRAN327
IF(KHOUR»GT.24> KDAY=KDAY*1 TRAN328
IF(KHOUR.GT.2^> KHOUR*! TRAN329
IF(KDAY.GT.7) KDAY=l TRAN33D
C TRAN331
C********RE AD INPUT TAPE AT EACH TIMESTEP TRAN33Z
C TRAN333
IF(NCNTRL.NE.l) GO TO 63 TPAN33^
C READ INPLT HYDROGRAPH AND POLLUTGGRAPH ORDINATES AT EACH TIME STEPFRAN335
C TPAN33&
READ(NTRIN» Dflf ,(RNGFF( I ) 11=1 tNINPUT > , ( (PLUTOt I f J ) t J=l f ^iPULL I f TRAN337
H=ltNINPUT) TRAN338
C TRAN339
63 CGNTIAUE TRAM340
C********CONVERT INFLOW POLL'JTCGRAPHS TO LBS/SEC OR MPN/SEC TRAN342
C
DO 68 ND=ltMNPUT
DO 68 M=lfNPCLL
68 PLUTO(NC»NJ)=PLUrn(NOfNJ)/60.
C
O***<***BEGIN ^NER LUOP ON ELEMENT NUMBER TRAM348
C TRAN3-V9
DO 150 I=lrNE TRfiN350
C K=CURP.ENT ELEMENT NUHBER t (I fxTERNAL NUM3CRI. TRAN351
M*JRJll TRAN352
C TRAN353
C STORE INPUT n'OPCGRAPHS AND POLLUTOGP.APHS FOR DESIRED ELEMENTS TRAN354
C TRAN355
DO 70 J=ltNNYN TRAN35o
48
-------
IF(NOE(M)-NYN(JM 70,69,70
69 NNEED=IP(M)
OUTlN(Jtl) = RNCFF(NNEEC»
00 81 JJ=2,NPDLS
CONVERT INLET POLLUTOGRAPH TO LBS/MIN
81 OUTIN(J,JJ)= PLUTO(NNEEQ,JJ-1) * 60.
GU TO 71
70 CONTINUE
71 INPUT=K
C
C********CORRECT DWF FOR TEMPORAL VARIATIONS
C
C CORRECT SEfcAGE FOR DAILY VARIATION
C MOWF(iNPtT.l) IS B 0 D IN LBS/SEC
C HDWF< INPLItZ) IS SS IN L3S/SEC
C HDWF{INPLT,3) IS COLIFCRM IN MPN/SEC
INPUT»*OVDWF(KCAYJ
INPUT,1)*DVBOC{KOAY)*DVDWF(KDAY}
fcCfcF( INPUT,2)*DVSS(KDAY)*DVDHF(KOAY)
WDWF3=KDhF(INPUT,3)*1.0*DVDWF(KCAY)
CORRECT SEhAGE FOR HOURLY VARIATION
DUMYl=CCHF*hVDWF(KHOUR)
DUMY2=fcDkFl*HVBCO(KHOUR)*HVDWF(KHOUR)
DUMY3=KChF2*HVSS(KHOUR)*HVOWF(KHQUR)
DUMY5=fcDkF3*HVCOLl(KHCUR»*HVDHF(KHOUR)
C********SUK UPSTREAK FLOWS
C
TOTAL=0.0
00 80 J=l,3
NNEEO=INUE«M,J)
NTU - NTYPE(NNEED)
IF (NTU.LE.17.0R.NTU.CE.23) GO
C HERE IF LPSTREAK ELEMENT IS OF
L = GF.CI'3 (KNEED)
QQ = QC2(NNEED)
IF (NOE(K).EQ.L) QQ - QOKNNEEO)
TOTAL = TOTAL+QC
GO TO 80
79 TOTAL = TCTAL+QO(NNEEO)
80 CONTINUE
OR MPN/MIN FOR PRINT ONLY
TO 79
FLOW DIVIDER TYPE.
C********SURCHARGE ROUTINE
C
C
C
C
90
NT => NTYPE(M)
K = KLASS(NT)
GO TO (9Ct90,110)tK
IF ELF>ENT IS A CONDUH,CHECK FCP. SURCHARGING.
QI(M) = TOTAL/BARREL(M)
QHM)=CI(M)*Q1NFIL(M)
IF(QHK>.LE.QKAX(K) ) GO TO 95
STORE SURCHARGE IN UPSTREAM ELEMENT.
SURCHARGING CCNDUIT IS ASSUMED Til HAVE MANHOLE
ASSUME ELEMENT WILL PLOfc FULL AT UPSTREAM END.
QFULL(P) = Pl(f')*SQRT(SLOPE(M))
= (CI (M (-OFULL 1>
TRAN357
TRAN356
TRAN359
TRAN360
TRAN361
TRAN362
TRAN363
TRAN365
TRAN366
TRAN367
TRAN3&8
TRAM369
TRAN370
TRAN371
TRAN372
TRAN373
TRAN374
TRAN375
TRAN376
TRAN377
TRAN37B
TRAN'379
TRAN380
TRAN331
TRAN382
TRAN383
TRAN385
TPAN386
TRAM387
TRAM388
TRAN339
TRAN390
TRAN391
TRAN39?
TPAN393
TRAM39V
TRAN39S
TRAM396
TRAN399
TRAN^OO
TRAN-402
TRAN403
TRAN'tO't
TRAN405
TRAM«V06
TRAN4D7
TPANI407A
TRAN408
TRAN'tlO
TRAN411
TRAN412
TRAN415
49
-------
QIIMHCFULLCM)
KFULL= 1
1TER = 0
GO TO 115
C NO LONGER UPSTREAM SURCHARGE.
95 NNEED=INUE(H,1)
SURGE2(NNEEDJ=0.0
ITER=NITER
GO TO 115
C
C********SU*' INFLCWS TO NON-CONDUITS.
C
110 NNcEJ- IRCMI
Ql(H)=TCTAL*RNCFF(M)/DT+DUMYl
maim.LT.0.01 QI(MJ=0.0
1TER = 0
C
C***»****ROUTE FLOW THROUGH ELCHENT
C
115 CALL RCUTE(MTER)
IFtNT.EQ.lS) GO TO 116
HER = ITER+1
IFUTER.GT.MTER) GO TO 115
C
C********MUUTIPLY FICh BY NUMBER OF BARRELS
C
116 QIIM) = CHM)*BARREl
-------
C********REPLACE VALUES AT OLD TIME STEP BY VALUES AT NEW ONE
C
125 A(M,L,1)=/S(C, 1,2)
A(H,2,1I=A(M,2,2)
DO 126 IP=1,NPOLL
CPOLL(P,1,1»IP)=CPOLL (M,1,2,IP)
126 CPOLUP t2fl»IP)=CPULL (M,2,2,1 P)
C(M,1,1»=Q NUE ( M) , SCCUR (M)
CONTINUE
THE FOLLOWING WRITE STATEMENTS ARE TO WRITE THE FLOW DEPTH FOR
ELEMENT 115 OF KINGMAN LAKE AREA.
WRITE(06,1000)
C1000 FURMAT(* IS 'DEPTH OF FLCH FOR ELEMENT 115 (DOWNSTREAM) FOR
C *HESTEP'//» S'STEP 123^
C * 6 7 8 9 10«//)
C WRITE(Cfc,l001)(FLODEP
-------
C********PRIM TOTAL HYDROGRAPHS AND POLLUTOGRAPHS FOR DESIKFD ELEMENTS
C
IFCJPRINT.NE.il GO TO 170
CALL PRINT
C
170 CONTINUE
TRAN521
TRAN522
TRAN523
TRAN524
TRAN525
MESSAGES-
CALL TS1CST
GO TO 9999
: E RROR
900.0 WRITE (6, 6901 NSTOR
690 FOIvlAVCO *** iht MfHBEK Ci
* «t MUST NOT EXCEED
9999 RETURN
TRAN527
TRAN528
TRAN529
TRAN530
TRANJ531
TRAN532
STORAGE
2')
UrtUSi NSTCR = •, I 5,
TRAH535
TRAM536
TRAN537
TRAN538
TRAN539
TRAN540
TRAN541
C****4***FORKAT STATEMENTS
C
900 FORMATC8F10.5)
901 FORMAT(1615)
902 FORMAT(5I4,7F8.3)
903 FORMAT(20A4)
SIC FORMAT C TOTAL SIMULATION TlME=«F7.I,' SECONDS. TIME STEP*'F6.1,
1 • SECONDS.')
911 FORMATC EXTERNAL'/' ELEMENT TIME STEP'/' NUMBER », 3X, 10( I 6,4X11
912 FORMAT 4553
3S (FT) (FT! (FT) OF (SO.FT) (CFS) (CFS) FLOW WHETRAM554
4N LESS'/1 NUK.«74X,'£*RRELS'27X,«THAN 95? FULL?') TRAN555
917 FORMAT ('CHYDROGRAPHS AND PuLLUTCGRAPHS PRUVIDED TO SUBSEQUENT PROTRAN556
TRAN546
ROUTITPAN547
TRAU548
TRAM549
TRAN550
TRAM551
TRAN552
1GRAMS FCP THE FOLLOWING ELEMENTS:«/(101 5»)
92C FORMAT (21 5, 3X ,4A4 ,F8 ,5,F9.2 ,F9 .4 fF9. 3 ,2F7
921 FORMATI//43X,'SELECTED INLET HYDROGRAPHS -
FORMAT(//43X,'SELECTED
Fl3RSAT(//42Xf 'SELECTED
FORMAT
-------
980 FORMAT {• TIME QFULLS FROM ELEMENT I TO NE.'I TRAN581
981 FORMAT (F9.0,15F8.2/(9X,15F8.2)) TKAN582X
983 FORHAT(//43X,'SELECTD VELOCITIES - FT./SEC.1) TRAN583
END TRAN58*
53
-------
FUNCT£CN DEPTH(ALPHA)
COMPUTES NORMALIZED DEPTH IN CONDUIT GIVEN NORMALIZED AREA, ALP
DIMENSION QI<160),CO<160>
COMMON/TABLES/KDEPTH(25),KLASS(25)tPSIMAX(l5),ALFMAX(15).
1 NN(25),MM(25»,ANOBM(15,51),QNORM<15,51),
2 DNORM(l5,5l),AFACT(15)»RFACTU5)
COMMON 4(160,2,2) ,6(160,2,21 , CPOLL<160,2,2,3), QMAXI1SOI,
1 QFULLU60I. AFULL(160), DXDT(160),Cl(160», SLOPE(160I,
2 CIST(160), GEOMU160), ROUGHU60), NOE(160), NUE(i60,3»,
3 INL'E(160,3), NTYPEU60), JR(160), NKLASS, NE, NOT, EPSIL,
4 TIKE, OT, M, KFULL, N, NOS, NPULL, NPRINT, ITER,
5 CCWFU60), IOLCU60), PK160I, RNOFFU60), QINFIL(160),
6 WCKF(160,3), FLbFUa&G,3). Ifl(160l, P2(160), NIN(IOOO),
7 P5U60I,P6(160)»P7(16C),SCFU&0),BARREL(1601,
8 IITLEKO), NPE(20), MYM2C)* NORDER(70), GEOM2(160),
9 GECM3(16C) , P4(160),SCOUR(160), KSTOREU60)
COMMON ECDIN( 2,150),SSIN( 2,150) ,BUDOUT,SSOUT,COLIN(2,150 I,
QINST,COUST,QINSTL( 2),COUSTL( 2),STORL( 2),QUUTO< 2I,ST(JRO<
NSTORtKSTORtlPRINT( 2)tIPOL( 2)tIFLOOD< 21,ICOST< 2>,DEPMAX(
ATERM 2,11),A02DT2( 2,11),BOEPTH( 2,ll),BSTnR( 2,11) .COLOUr,
OUMSTR(11),OUMOEP(11),
KTSTEP,VCLINI 2,150),VOLOUT( 2,150),STOR,CUMIN( 2),CUMOUTC 2)
SBOC( 2),SSS( 2),SCCH 2),
ISTMOC1 2),ISTTYP( 2I,ISTOUT( 21,
QPUMPl 2),DSTARTl 2),DSTOP( 2),
DTGrt( 2)»STORWX( 2) ,DTPUMP( 2),DTMURE( 2),STORF( 2)fAPLAN( 21
CLANC( 2),CSTCR( 2),CP5( 2),CTOTAL( 2),CPCUYD( 2),CPACRE( 21,
LP,JP,LPREV( 2),LABEL,DETENT(150),FRAC(150I,OUT1( 10,200)
EQUIVALENCE (Q0(l) ,Q( 1,2 ,2) ) t (QU 1) tQ( It 1,2))
IFULPhA.£0.0.0) GO TO 80
NT = MYPE(«)
KDEPTH(NT) ^= 1
KDEPTHCNT) = 2
KDEPTK(NT) = 3
IF (KOEPTH(NT)
WITH A FUNCTIONAL D-A RELATIOMSHIP.
WITH A TABULAR D-A RELATIONSHIP.
OTHER THAN CONDUIT.
50
C KDEPTH(NT) ^= 1 FOR CONDUIT
C KDEPTHCNT) = 2 FOR CONDUIT
C KDEPTK(NT) = 3 FOR ELEKENT
EQ.2) GO TO
IF (NT.EC.2) GO TO 80
IF (NT.EC.10) GO TO 100
IF (NT.EC.11) GC TO 110
IF (NT.EQ.12) GO TO 120
C ROUTINE FCR TABULAR D-A CURVE.
C LINEAR INTRPCLATION BETWEEN TABULAR PJINTS IS USED.
50 0/LPHA = ANORM(NT,2)-ANORM(NT,1)
I = ALPHA/CALPHA+1.0
DEPTH = CNORM(NT,I)*(ALPHA-ANCRM(NT,I) )/DAL PHA* (DNOP.Mt NT, 1*1)-
1 DNORMINT,!))
RETURN
C IN RECTANCULAR CONDUIT, NORMALIZED DEPTH EQUALS NORMALIZED AREA.
80 DEPTH = ALPHA
RETURN
C FUNCTICNAL FCRM FOR MODIFIED BASKET-HANDLE.
100. AA = ALPHA*AFULL(H)
IF (AA.GT.CEOM3(M») GO TO 105
DEPTH = AA/GEGW2(M)/(GEaMi(M)»GEOM2(M)/2.0)
RETURN
105 ALF = (AA-GECM3(M)+P5(M)/2.0)/P5(M)
I = ALH/C.C2*1.C
DO = CNOPM( I, n*JALF-AN3RM(l,l) > /O. 02* ( ONORMt 1,1 + 11 -DN()RM( 1, I ) )
DEPTH = <(CC-0«5l*G£CK2(M)*GECMl(H))/(GEOMl(M)+r,fcOM2(M)/2.0)
RETURN
C FUNCTICNAL FCRM FOR RfCTANGULAR, TRIANGULAR POTTOM.
HA
.,
2)
2)
,
t
k .
DEPT
.OEPT
DEPT
DE«>T
DEPT
DEPT
DEPT
3EPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
,DEPT
,DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
D6PT
DEPT
DEPT
DEPT
OEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPf
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DEPT
DFPT
OEPT
DEPT
DEPT
DEPT
DEPT
OEPT
DEPT
DEPT
DEPT
DEPT
1
2
3
-------
110 AA » ALPHA*AFULL(H) DEPT 61
AB = *GECi-l3(M) J aEPT 73
I ^ ALF/0.02*1.0 OEPT T*
DEPTH = D^CFH(1,I)*•(0^•CRM( 1, 1 + 1 J-DNORM (1, 1) )/0.02*( ALF-ANDRM( 1,1 D3EPT 75
DEPTH = CEPTH*2.0*GEOM3(M)/(P2(MI*DIST(H)) OEPT 76
RETURN OEPT 77
125 DO = P2(M*BIST(M)-GECM1
-------
c
FUNCTION DPSI (ALPHA)
FINDS DERIVATIVE OF FUNCTIONAL Q-A CURVE GIVEN A/AFULL (ALPHA!.
C*****NOTEi FOR NT=2»10,lltl2, SUB PSI MUST HAVE BEE.^ CALLED PRIOH TU
C
C
c
c
c
c
DPS I.
THIS hILL ALWAYS BE THE CASE IF DPSI IS CALLED ONLY FROM NEWTON.
COMMON /PSIRPS/ AAfABtDlf DZfAAAtCATHtALFi IiR
COMMaN/TABLES/KDEPTH<25),KLASS(25),PSlMAX(l5) .ALFMAXU5),
1 NN(25».MK(25I , ANORM( 15 1 51 ) , QNORM( 15 f 51 ) ,
2 ONORM(15,51),AFACTI15),RFACTU5»
COMMON A(160,2,2) ,0(160,2,2) * CPOLL ( }60,2 ,2 , 3) , QMAX(ISO),
1 CFULL(160>, AFULL(160), OXDT ( 160 ) , C 1 ( 160 ) , SLOPEU60),
2 OIST(160), GEOMK160), ROUGH(160I, NQE(160), NUCU60.3},
3 INUEdfC,?!: NTYPrn.AO), JP(lf»02t fcKLASS, ME t NOT, EPSIL,
4 TIKE* DTf Mf KFULlf Nt NOSt NPOLL, NPRINT, ITER,
5 QCKF(160), IOLDU60), PK160), RNOFFU60), QINFILU60I,
6 kDhF(160,3), PLUTO(160t3» t IRU60), P2(160J, NIN(LOOO)t
1 P5(160I,P6(160),P7(16C),SCF(160),BARREL(160) ,
8 1ITLE(40), NPE(20», NYN(20), NUROER(70), GEuM2(163),
9 GECM3(16C) , P4( 160) ,SCOUR( 160) , KSTOREU60)
COMMON BODINC 2f150»tSSIN( 2, 150) , BODOUT , SSOUT .COL INC 2. 1 50 ) ,
* QINSTtCOlST,QI.NSTL( 2)tQOUSTL( 2)tSTORL< 2)tOOUTO( 2),STORO( 2)
* NSTORtKSTOR,IPRINT( 2),IPOL( 2I.IFLOODI 2)tICOST{ 2),DEPMAX( 2)
* ATERM 2tll» ,AU2DTZi 2 1 11 ) i BDEPTH( 2»ll)fBSTCR( 2 , 1 1 } , COLOJT ,
* DaMSTR(lll,CU^DEP(ll»,
* KTSTEPtVOLINt 2 t!50) fVOLOUT( 2,150) ,STORfCUMlN( 2),CUM3UT( 2),
SBODC 2),SSS( 2),SCOL< 2),
IST»«CC( 2),ISTTYP( 2»,ISTOUT( 2),
QPUMP( 2),DSTART( 2JtDSTOP( 2),
DTON( 2),STORt'X( 2I,DTPUMP{ 2),DTMORE( 2),STORF( 2),APLAN( 2),
CLANC( 2),CSTOR( 2)fCPS( 2),CTOTAl.{ 2),CPCl)YD( -2),CPACRE( 2),
LPiJP,LPREV< 2) , LABEL, DETENT (150) ,FRAC(150) ,OUTi( 10,203!
NT - NTYFE(M)
IF(NT.EC.2) GC TO 30
IF (NT. EC. 10) GC TO 100
IF (NT.EC.11J GC TO 110
IF (NT. EC. 12) GO TO 120
INCLUDE TABULAR DPSI CALC. IN CASE OPSI IS CALLED BY KLASS=2
CONDUIT.
MMM = MMKTI
DALPHA = ANORK(KT,2)-ANORK(NT,1)
I « ALPHA/CALPHA+1.0
IF II.EC.KMM) I^I-l
OPSI = (CKCRM(NT,I*l)-CNORM{NT,I))/(ANiJRM(NT,H-l)-ANURM(NT,I)»
RETURN
SPECIAL FUNCTIONAL FOPM FOR RECTANGULAR CONDUITS.
30 CONTINUE
IF(ALPHA.LE.O.O) GO TO AS
IF (ALPHA. GT.*LFMAX(NT» GU TO 35
IF (ALPhA.LT.O.OOOll GO TO 40
DPSI = CATH*(P6(M5*ALPHA/AAA+1. 666667)
RETURN
35 DPSI = ( l.O-P4(f))/U.O-ALFMAX(NTM
RETURN
40 IF (AL»>tiA.LE.1.0E-30) GO TO 45
OPSI = 1. 666667*1 ALPH/*P7(M))**0. 6666667
RETURN
45 DPS I = l.CE-30
RETURN
FUNCTIONAL FORM FOR MODIFIED BASKET-HANDLE.
100 IF (ALPHA. EC. 0.0) liU TO 45
DPSI
DPSI
DPSI
DPSI
DPSI
DPSI
OPSI
DPSI
DPSI
DPSI
RPSI
DPSI
DPSI
OPSI
OPSI
OPSI
5PSI
DPSI
DPSI
OPSI
,DPSI
,3PSI
DPSI
DPSI
OPSI
DPSI
DPSI
DPSI
DPSI
OPSI
OPSI
DPSI
DPSI
DPSI
OPSI
DPSI
DPSI
DPSI
DPSI
DPSI
DPSI
OPSI
DPSI
DPSI
DPSI
DPSI
DPSI
DPSI
DPSI
DPSI
DPSI
DPSI
DPSI
DPSI
DPSI
DPSI
OPSI
DPSI
DPSI
DPSI
1
2
3
<»
5
6
7
8
9
10
11
12
13
14
15
IS
17
18
19
20X
21
22
23X
24
25
26X
27
28
29
30
31X
32
33
3^
35
3o
37
33
39
40
41
42
43
44
45
4b
47
48
49
50
51
52
53
54
55X
56
57
58
59
60
56
-------
IF (AA.GT.GEOM3(MII GO TO 105 OPSI 61
IF (ALF.LT.O.OOCi) GO TO 103 DPSI 6t
OPSI = CATH*(-l.333333*R*ALF/AAA+1.666667)*AFULL(MI/GEOM3(M» DPSI 63X
RETURN DPSI 64
103 OPSI - P6(M)*l.666667*(ALF*P7(M))**0.6666667*AFULL(M)/GEJM3(MI DPSI 65X
RETURN DPSI 66
105 OPSI = 1*1.666667) DPSI 75
RETURN DPSI 76
FUNCTIONAL FORM FOR RECTANGULAR, ROUND BOTTOM. DPSI 77
120 IF (ALPHA.EQ.0.0) GO TO 45 DPS! 73
IF (AA.GT.F6CH)) GO TO 125 DPSI 79
OPSI =
-------
C
C
C
CCHMUN
2),CUMOUT( 2»
SUBROUTINE CWLOAO(DWDAYS)
C THIS SUBROUTINE SETS UP INITIAL CONDITIONS OF SEDIMENTATION
C BASED UPCN 'DWCAYS* CF DRY WEATHER FLOW PRIOR TO THE STORM
DIMENSION QK160I ,QO(160) ,QU! ( 160 ) , QQ2 ( 160 )
CCHMCN/DFWF/ CVCWF(7> fCVBOD( 7 ),0 VSS ( 7 J ,HVOWF( 24 J ,HVBOD { 24) ,
1 HVSS124),HVCOLI(24) ,KTNUM,KDAY ,KHOJR,KM[NS
COMMON/TAELES/KCEPTH(25),KLASS(25) ,PSIMAX( 15) fALFHAX(l5),
1 NM25I,MM(25) ,ANORM< 15, 51 ) ,QNORM( 15, 51 ) ,
2 DNOPM(15,51)»AFACT(15)rRFACT(15)
COMMON A(160»2i2) ,Q(160t2t2) , CPOLL( 1 60 , 2 ,2 , 3 ) , QMAX(160),
1 QFULLU60). AFliLLU60>t DXDT( 160 ) tC 1 ( 160 ) t SLUPF<160)»
2 CISTU60), GEOMKUOJi ROUGHU60). NOE(160), NUF, K'TYPFdf-OJ, JR(l,':0), NKLASS, NE , NOT, EPSILt
4 TIKEt DTf H, KFULLf N, NOSt MPULlt NPRINTt ITERt
5 COKFd&OJ, IOLCtl60), PK160), RNOFFJ160J, QINFIL(160),
6 WCWF(160,3)f PLtTO(160f3) , IRI160), P2(160)t NIN(IOOO),
7 P5(160l»P6(l60)tP7(160JtSCF(160» .BARREL ( 160) ,
8 TITLE(AO»t NPE(20), NYN(20), NORDER170), GEOM2(160),
9 G€CK3(160» . P4( 16C) f SCCURf 160 ) . KSTnkC(160)
BCDIN( 2fl50l,SSIN( 2, 150 ) .BODOUT , SSOUT.COL 1N( 2t 1 50) ,
QINSTtCOUSTtQINSTL{ 2)iQOUSTL( 21,STORL( 2).OUUTO( 2J.STCJROJ
NSTORfKSTORt 1PRINT( 2)tlPOL( 2)fIFLO(lD( 2)tICOST( 2),OEPMAX(
ATERV( 2tilltA02DT2< 2, 11 ) . BDEPTH1 2tll).BSTOR( 2 ,11 ) .COLOUT,
DUMSTRC 11) .OUMDEPUl) i
KTSTEP,VCLIN( 2. 150) ,VOLOUT( 2 , 150> ,STOR , CUMIN(
SBCOt 2),SSS( 2),SCOL( 2) ,
ISTMOCC 21,ISTTYP( 2).ISTOUT( 21,
QPUMP( 2I.DSTARTC 2),DSTOP( 2),
DTOra 2JfSTORKX( 21 iDTPUMPC 2>.OTMORE( 2),STORF( 2)»APLAN( 2
GLAND < 2»fCSTCR< 2JfCPS( 2),CTOTAL( 2)fCPCUYD( 2),CPACf.E( 2),
LP,JP»LPREV( 2>tLABELtDETENT(150)iFRAC(150>,OUTl(10,200)
EQUIVALENCE (QOK 1 1 tQMAXt 1» , (002 ( 1),QF(JLL( 1)1
EQUIVALENCE UPSTREAM FLOWS AND CONVERT LOADS TO LBS/SEC
00 20 J-l»3
HOUR
SEWER
EACH HO'JR(EXCEPT FOR ANY DEPOSITION FR3M
NTU=NTYPE(LI
IF(NTU.LE.17.0R.NTU.GE.23) GO TU 19
KK=liECM3(L»
OQ=C02(L)
JF(NUE( f ).EO.KK) CQ=Q01(L)
GO TO 19
. t
2
2
i
t
1
OWLD
OWLO
OWLO
DWLO
DWL-0
DWLJ
OMLO
OWLO
OWLO
DWLO
OWL(J
DWLO
OWLO
DWLO
DWLO
DWLU
DWLD
OWLO
DWLO
DWLO
J.DWLJ
J.DWLD
OWLO
DWLH
OWLO
DWLJ
DWLO
OWLO
DWLO
DWLO
D Kl U
DWLJ
DWLO
DWLU
OWLU
DWLJ
DWLO
DWLO
DWLO
DWLU
DWLU
OWLO
OWLO
DWLO
OWLO
DWLO
OWLO
DWLO
OWLO
DWLU
DWLD
DWLO
DWl.fl
OWLO
DWLO
DWLU
DWLO
DWLU
DWLO
DWLO
1
2
3
f>
5
6
7
8
-------
18
19
20
28
30
100
200
C
C
QQ=«(L,2,1I*BAPREL
SUM1=SUM1+CQ
SUK2=SUf2+CPOLL(L,2,l,2)*CQ
ADO DWF ANC INFILTRATICN FOR THIS
(H)*riVDWF(KJ) *
HOUR
QINFIL(M)
210
Q(M,1,1)=SUM1/BARREL(M)
Q(M,2fl»*G(Ptltl)
CALCULATE LOADS IN LBS/CF
IF(SUMl.LE.O.O) GO TO 100
CPOLL(K,1,1,2)= SUH2/SLH1
CPOLLtH,2,l,2)=SUK2/SUMl
N!=;TrrrtlfU
IF (NT. EC. 22) GO TO 28
lF(NT.LT.le.OR.NT.GT.22) GO TO 30
IN A FLOW DIVIDER TYPE ELEMENT, ASSUME ALL DWF IS NOT DIVERTED.
COHM)=SUM1
Q02(M)=0.0
GU TO 30
QOHM) = 0.0
002(M) = SUM1
IF A NON-CONDUIT DO NOT CALCULATE ANY DEPOSITION
IF(KLASS«NT).EQ.3J GO TO 100
ASSUME UNIFORM AREA OF FLOW THROUGHOUT ELEMENT
PS=Q(M,l,l)/CFULL(MJ
CALL FINDA(PSfA PCT1=-. 1501*CRITD + .3^27
IFCCRITD. GT. 2.0. AND. CRITD.LE. 10.0) PCT 1=- ,00656+CRI TO*. 0656
IF(CRITC.GT.10.0I PCT1=O.C
IF(CRITD.LE.O.O) PCT1=1.0
PCT2=PCTl
SCOUR(fJ=SCOURlf)»PCT2*SUM2*3600.
SUM3=(l.C-PCT2)*SUM2*(1.0-PCTl)*SCOUR(M)/3600.
CPOLL(Kt 1,1,21 = SUM3 /SUM1
CPCLL{f,2,l,2)=CPCLL{M,l,l,2»
SCOUK( M)=PCT1*SCCUR(M»
CONTINUE
CONTINUE
ASSUME SAME BED LOAD ACCUMULATION FOR EACH OWDAY
DO 210 1=1, NR
«=J«(I>
SCOUR (f )=CWCAYS*SCOUR(M)
SET UPPER LIMIT OF BED LOAD AS HALF OF PIPE VOLUME
THE NUMBER 84.28=2 . 7*62.4 /2. 0
ULlMIl = 84.28*AFUt.L(M)*CIST(M)*6ARREL(M)
IFfSCUURlKl.GT.LLlMIT) SCCUR ( f ) =ULIHIT
CONTINUE
PR1KT CUT INITIAL D'.-;LCAD CONDITILNS
WKITE(6,<300) DWDAYS
hRI T-r. (6 ,910)
OWLO 61
DWLO 62
DWLO 63
DWLO 64
DWLO 65
DWLO 66
DWLO 67
DWLU 68
DWLO 69
DWLO 70
DWLU 71
DWLO 72
OWLO 73
DWLO 74
DWLO 75
DWLU 76
OWLO 77
DWLO 78
DWL3 79
DWLO 80
DWLO 31
DWLO 82
DWLO 83
DWL3 34
DWLO 85
DWLO 86
DWLO 37
DWLU 38
DWL3 89
DWLO 90
DWLO 91
DWLO 92
DWLO 93
DWLO 94
DWLO 95
DWLO 96
DWLO 97
DWLO 98
DWLO 99
DWL0100
DWL0101
DWLD132
DWLU 103
DWL3134
DWL0105
DWL0106
DWL0107
DWLU108
DHL D 139
DWL0110
DWLOlll
DWLU112
DWLU113
DWLOU4
3KL0115
DWL0116
DWL0117
DWLJ118
DWL0119
DWL0120
59
-------
DO 220 1*1,NE OWL0121
H=JR(l» DWL012Z
NT=NTYPE
900 FOR«AT(»l't28X,"INITIAL BED OF SOLIDS (LBS) IN SEWER DUE TO'/, OWLD127
130X,F5.lt* DAYS OF DRY WEATHER PRIOR TO STORM •///) DWLD128
910 FORMATC « ,31X t 'ELEMENT1,20X, "SOLI DS I N',/, 32X, « NUMBER',23X, • BOTTOOWLai29
1M«/,62X,«(LBSJ'///) OWL3130
920FURMATC * «30X , 16 , 20X tFlO.5 ) OWL0131
RETURN OWL0132
E.ND DWLU133
60
-------
C
C
C
c
C
c
c»
c
c
c
c
c
c
SUBROUTINE FILTH
SUBROUTINE TG DETERMINE AVERAGE DAILY OWF QUAL AND QUAN
***
COMMON/CRWF/ CVDWF< 7) ,OV80D ( 7 ) , OVSS ( 7 ) ,HVDWF( 24) ,HVBOO ( 24 ) ,
1 HVSS(24) ,HVCCLI 124 ) ,KTNUM,KDAY,KHOUR,KM INS
COMMON/TABLES/KOEPTH(25) ,KLASS( 25) , PSI MAX( 15) ,ALFMAX(15),
1 NM25),PM(25I,ANORM(15,51),QNORM(15,51),
2 ONORMJ 15,51),AFACT(15)»RFACT(15)
COMMON A(160,2,2) ,0(160,2,2) , CPOLLt 160, 2,2, 3) , QMAX(160),
1 QFULLU6C), AFULLU60), DXDT ( 160 1 ,C1 ( 160 ) , SLOPEI160),
2 CIST(160), GEOMK160), ROUGHU60), NOEU60), NUE(160,3I,
3 INUE(160,3), NTYPEU60), JR(160), NKLASS, NE, NOT, EPSIL,
4 llttt, Ul, iMt KhuLL, N, NCS, NruLLt NPftlrcft liLk,
5 CDWFU60), IOLC(160), PK160), RNOFF(160), QINF1L(160),
6 KDWF(160,3)t PLUO(160t3), IR(160), P2(160), NIN(IOOO),
7 P5 ( 160 ), P6 ( 160 ),P7(1 60), SCF( 160), BARREL (160),
8 TITLE140), NPE(20), NYN(20), NORDER(70), GEOM2(160),
9 GECH31160) , P4{ 160) , SCOUR ( 160) , KSTOREU60)
COMMGN BCDIN( 2,150),SS1N( 2, 150), BODOUT, SSOUT,
* OINSTfCGLST,QINSTL( 2),QOLSTL( 2),STORL< 2),QOUTO( 2),STURO( 2)
* NSrOR,KSTOR,IPRINT( 2),IPOL( 2),IFLOOD( 2),ICOST( 2),DEPMAX( 2)
* ATERM 2,ll),A02DT2( 2 ,11 ) ,BOEPTH( 2,11),BSTOR( 2, 1 1 ) ,COLOUT,
* DUMSTR( 11),DUMOEP( 11),
* KTSTEP,VCLIN( 2, 150 ) fVOLOUT( 2t 150) , STOR, CUMIN( 2),CUMOUT( 2),
* SBODt 2),SSS( 2),SCGL( 2) ,
* ISTKCC( 2),ISTTYP( 2),ISTOUT( 2),
* QPUKPt 2)tDSTART( 21,OSTOP( 2),
* OTON( 2)»STORKX( 2),DTPUMP{ 2>.DTMORE< 2),STORF( 2),APLAN( 2),
* CLANC( 2),CSTOR( 2),CPS( 2),CTOTAL( 2),CPCUYD( 2),CPAC*E( 2),
* LP,JP,LPREV{ 2) , LABEL, DETENT(150>,FRAC(150) ,OUT1 < 10,203 )
***
****** *********** ******** ********************* *****************
READ DAILY AND HOURLY CORRECTION FACTORS FOR SEWAGF
REAO(5t501) DVCWF ,DVBCD,DVSS
501 FORMAT(7FIO.O)
REAO(5,5C2) HVDWF ,HVBOD,HVSS,HVCOL I
502 FORMAT (8F10.0)
**«***«*#*
REAU TOTAL NUMBER OF SUBAREAS. TYPE OF FLOW AND QUALITY DATA
AVAILABLE, NUMBER OF PROCESS FLOWS, TIME SIMULATION BEGINS! DAY,
HOUR* AND MINUTE), CURRENT VALUE OF THE CONSUMER PRICE INDEX, CP1,
CURRENT VALUE OF THE COMPOSITE CONSTRUCTION COST INDEX, CCCI
REAO( 5,503) KTNUM,KASE,NPF,KDAY , KHUUR , KMI NS ,C PI ,CCC I , PUPJLA
PCPULA IS TH TCTAL POP IN ALL AREAS IN THOUSANDS
503 FORMAT (6 I5t2F5.1 ,F10.3)
HR1TE(6,601)
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
,FILT
,FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
FILT
:FILT
FILT
FILT
FILT
FILT
FILT
601 FORMAT (« 1' ,27X, 'QUANTITY AND QUALITY OF 0 W F FOR EACH SJBARE A1 //) F ILT
C
C'
C
C
C
C
C
f *********
COMPUTE TCTAL INFILTRATION WITHIN STUDY AREA
AINF1L=0.0
DO 415 KK*1 ,NE
415 A1NFIL= AINF1L+CINFIL(KK)
AINFIL*4.4
IF(KASC.NE.l) ADWF-0.0
IF KASE = L THE AVERAGE FLOW AND CHARACTERISTICS ARE KNOWN FOR THE
ENTIRE AREA BUT NOT FOR THE INDIVIDUAL SUBAREAS (EG SEWAGE PLANT
FILT
FILT
FILT
FILT
FILT
FILT
1
2
3
V
5
b
7
8
9
10
11
12
13
14
15
16
17
18
19X
20
21
22X
23
24
25X
26
27
28
29
30X
31
32
33
34
35
36
37
33
39
40
41
42
43
44
45
46
<*1
48
49
50
51
52
53
54
55
KINGTE1P
FILT
FILT
FILT
FILT
56
57
58
59
61
-------
C DATA)
C IF KASE * 2 NC SUCH
IF (KASE - 1)
DATA IS AVAILABLE
, 411, 412
C«4*«******KASE
C
1 FOLLOWS
ACWF ETC. ARE THE AVE DAILY VALUES CF DRY WEATHER FLOW
HG/Lt SUSP SOLIDS IN MG/L , RESPECTIVELY
(FOR EXAMPLE, FROM A TREATMENT PLANT SERVING THE ENTIRE
411 READ(5,5C4) ADWF,A800 .ASUSO.ACOLI
504 FORMAT (3F10.0,E10.2)
ACOLI IS THE VALUE OF TOTAL COLIFORfS IN MPN/iOOML
C
C
C
C
C
C
C
C
FILT
FILT
FILT
FILT
FICT
FILT
IN CFS, BOD INFILT
FILT
STUDY AfEAFILT
FILT
FILT
FILT
READ TOTAL AKtA ~iO PuAUi', iNOJSlKUu A*tA, CUNHci^CUL, RESIDENTIAL FILT
HIGH INCCHE, RESIDENTIAL AVE INCOME, RESIDENTIAL L3K INCOME, RESI-FILT
OENTIAL MTh CABBAGE GRINDERS* PARKS AND OPEN AREA - ALL IN ACRES FILT
TINA, TCA, TRHA, TRAA, TRLA, TRGGA, TPOA
IN POUNDS PER DAY
AND TOTAL PCFULATICN
READ (5,505) TOTA,
505 FORMAT (6F6.0J
CCHPUTE TOTAL BOD AND SUSPENDED SOLIDS
TOTBOC- (fiCWF/l.547l*ABCP*8.34
TOTSS=(ACWF/1.547)*ASUSQ«3.34
CCMPUTE TOTAL CCLIFORf'S IN MPN/OAY
TCOL1 = ACCL1*ADWF*2.<.47E*7
MAKE DATA CCKRECTICN FOR IKFILTRATION
CIOWF= ACKF- AINFIL
HAKE DATA CCRPECTICN FOR PROCESS FLOWS
FIRST INITIALIZE SUMATION QUANTITIES
SUKQPF=0.0
SUKBOO-O.C
SUMSS=C.O
NPF IS hUfBEP OF PROCESS FLOWS
IF(NPF.LE.01 GO TO 416
DO 500 JJ-1,NPF
READ PROCESS FLOW CHARACTERISTICS AND LOCATIONS
READ(5,506) INPUT, QPF, BODPF, SUSPF
506 FORMATU5.6F10.3)
SUMQPF=SLKC?F * QPF
SUMBO C= SUKROD +(QPF/1.5^7)*BODPF*8.34
SUMSS=SUMSS * (QPF/1.547>*SUSPF*8.34
500 CONTINUE
416 C20WF=C10KF-SUMQPF
lF(C20hF.ir.O.O» GO TO 412
C1BOO=TCTBCD-SUMOOD
ClSS=TOTSS-SUfSS
****
MAKE FINAL CORRECTIONS TO ALLOW FOR INCOME VARIATIONS, COMMERCIAL
USE, GARBAGE GRINDERS, A^D POPULATION
COMPUTE RESIDENTIAL AND COMMERCIAL AHEA CONTRIBUTING TO PLANT
TOWFA=TOTA-TINA-TPOA
CCMPUTfc V«EIOhTEO DhFA BASED ON EXPECTED VARIATIONS IN SEWAGE
STRENGTH.
WTDHFA* C.9*TCA+1.2*TRHA«-l.O+TF.AA*0.8*TRLA+l.3*TRCGA
CCHPUTE CCPPECTICN FACTOR TO WEIGHT SEWAGE STRENGTH - NOTE BOD AND
SS ARE AFFECTED EQUALLY
TOTR=TCl,FA*TRG
87
88
89
90
91
92
93
94
95
96
97
98
99
62
-------
C2SS=C1SS/CF
IF(C2BCC.LE.O.O» C28OO=0.0
£F(C2SS.LE.O.O> C2SS- 0.0
C ***
C CCHPUTE AVERAGE CORRECTED AND WEIGHTED DWF CHARACTERISTICS IN
C LBS/DAY/CFS.
AIBJD=C2BCD/C2DV
FILT142
FILT143
FILT144
FILT145
F I L T 1 4 6
FILT147
FILT149
FILT150
FILT151
F1LT152
FILT153
F1LT154
FILT155
FILT156
FILT157
603 FORMAT
ilX
2X t • * • t2Xf • INFIL « » 2Xt ' = « f 2XF I LT 15?.
*f'QCOHF«tlXf •KLANO'tSX.'DWBOO' i 7Xt • OWSS1 »SX t ' TOTPOP ' »3X
.,4X,»SSCChC«,4X,' CCLIFURfS')
WRITE (6f604l
604 FORMAT <• • f 17X, «CFS« t 6X, «CFS • ,7X, 'CFS • , I IX, « LBS/MI N' , ^
. t7X, 'PERSONS' iSX.'MG/L'.dXt'MG/L'.^X,' MfW IOOML • // >
CQ=0.0
QQDWF=C.O
SMTDWF=C.O
C
C**********TIMESTEP CCMPUTATICNS FOLLOW
BODCONC' FILT159
FILT160
FILT161
• LBS/MIN' F ILT162
FILT163
FILT164
FILT165
FILT166
F1LT167
FILT16B
DO 300 I=1,KTNUM
DWF=0.0
C COMPUTE ChF FOR EACH SUM RE A
C SU8AREAS IN A CITY AKE CHOStN PRIMARILY UN LAND USE CRITERIA
REAC( 5, 5C7IKNUM, INPUT, KLAND.METHOD, KUN IT, WATER, 1'RI CG, SfiWAGE ,ASUB,
IPOPDENfOV^LNGS.FAKILYtVALUSfPCGGfSA'JPF.SAIi^FfSASPF.XINCDM, KSUflT
5C7 FilRMAT{2i3t3U,13F5.0tI2l
C DATA CHECK ANC ASSUMPTICNS NECESSARY Tt) OVERCOME KISSING DATA
C IF HOUSE VALUATIOK(VALLIE) IS UNDEFINED, ASSUME $^0,000 HOMES
F1LT170
FILT171
FILT172
FILT173
FILT174
F1LT175
FILT176
FILT177X
FILV17B
FILT179
63
-------
110 IF(VALUEmitllltll2 FILT180
111 VALUE=2C.C F1LT181
C CHECK CN WhEThER POPULATION DENSITY OR THE NUMftER OF DWELLINGS FILT182
C FOR EACH SUBAREA ARE INCLUDED AS INPUT DATA FJLT183
C CORRECT VALUE TO I960 COLLARS USING DEPARTMENT OF INTERIOR FRT134
C COMPOSITE CONSTRUCTION COST INDEXU960 VALUE OF CCCI=103.0I FILT185
112 IFICCCI.LE.0.0) CCCI= 103.0 FILT1B6
VALUE* VALUE*103.0/CCCI FILT187
rF{D!12,12,13 FILT223
C EQUATION 1 LINAKEAVER F1LT224
12 DWFM178« + 3.28*VALUE»*CWLNGS*0.134/(24.*3600. I FILT225
GO TO 200 FILT226
C EUUAT10N 2 METEUED WITH PUBLIC SEWER LINAWEAVER AND HOWE FILT227
C CORRECT PRICE TO 1965 OCLLARS USING THE CONSUMER PRICE nOEX(1965 FIIT223
C CPi=lC9.0) «=ttT22?
13 IF (CPI.IE.0.0) CPI= 109.9 FILT230
PRICE= PRICE*109.9/CPI FILT231
OWF={2Ct.*3.47*VALUE-1.30*PRICE)*DWLNGS*0.134/(24.*3600.) FILT232
GU TO £CC FILT253
C METHOC TO ESTIMATE DWF IN MULH-FAMILY RESIDENTIAL SUflAREAS FILT234
C CHECK. ON WHETHER VALUE AND FAMILY ARE INCLUDED AS INPUT DATA FILT235
2C IF(f-AMtLy)2l.21t22 F1LT236
21 FAMILV-3.0 FILT237
C EQUATiCN 3 FLAT RATE AND APARTMENTS WITH PUBLIC SEWER L. AND H. F1LT23B
22 DKFM28.<3*4.39*VALUE+33.(>*FAMILY)*OWLNi,S*0.134/'<24.*3600. I FILT239
64
-------
GO TO 200
OWF MODEL REQUIRES WATER OR SEWAGE INPUTS
TO ESTIMATE ChF FCR COMMERCIAL OR INDUSTRIAL SUBAP.EAS
30 DWF=DWF+SAQPF
GO TO 2CC
4C DWF=DWF+SACPF
GO TO 20C
50 DWF=0.0
200 CONTINUE
POP=ASUe*PCPCEN
TOTROP=TCTPOP+PQP
IFiAOWF.LE.O.Oj QQF=0.0
IFtAOWF.GT.O.O) g«f-=AlNFIL/ADWF
CQ=QQF*DWF
IF(KLANC.NE.4) CQ=QQF*DWF
IF(KLAND.EQ.A) CQ=0.0
C**********CIALITY
C
C COMPUTE CkF QUALITY FOR EACH SUBAREA
C DAILY CUALITY AVERAGES ARE CONVERTED TU SUBAREA QUALITY RATES
C CLBS/SECI
201 CONTINLE
ClDT=CT/< 24. 0*60. 0*60.0)
IF(XINCCC.IE.O.O) XINCOM=VALUE/2.5
IF (KLAND.LE.2) GO TO 421
IF(KLANC.EC.3» GO TO 422
IF (KLANC.EC.4I GO TO 423
424 DWBUD=DWF*nBOC*ClDT
OHSS=OKF*A1SS*C10T
GO TU 25
422 DWBOO=EWF*0.9*A1800*C10T
DWSS=OhF*0.9*AlSS*ClDT
GO TO 25
423 DWBOD=(SACPF/1.547)*S£EPF*8.34*C1PT
OMSS=(SACPF/l.547)*SASPF*8.34*ClDT
GO TO 25
C CCMPUTE RESICENTIAu STRENGTHS CN THE BASIS OF INCOME AND GARBAGE
C GRINDERS.
421 OWBO!)=DkF*AlBOC*ClDT
OHSS=DWF<-A1SS*CIOT
IF(XINCOM«GT.15.I DW3 00= 1 .2*DUiaOD
IF DWBOD =0.8*DWBOO
IF(X1NCC*.LT.7. I CWSS=0.8*OWS3
DWBOD=CWBCOX0.3*PCGG*DWBCO)/100.
OWSS=OKSS + i0.3-»PCGG*OWSS) /ICO.
25 DWlBUO=CfcSCO*60./CT
OWlSS=DhSS*60./OT
WRITE(6,6C5) KNUMf INPUT t DV,F,OQtCQDWF, KLAND tOWlBCJD,OWlSS
605 FURMATC ' .2 15 ,3F10.2 , 16 , IF! 1 .2 t 1F1 1 .2 »
C CCMPUTE TOTAL QUANTITIES IN SYSTEM
CWF
CKBUD
SMKSS=S«'rSS 4 DhSS
SMM(jO=S^'^CQ+CQ
FILT240
FILT241
FILT242
FILT243
FILT244
FILT246
CILT247
FILT248
FILT249
FILT250
FILT251
FILT252
FILT253
FILT253A
FILT253B
FILT254
FILT255
FILT256
F1LT257
FILT258
FILT2&1
FILT262
FILT263
FILT264
FILT265
FILT266
F1LT267
FILT268
FILT2C.9
FILT270
FILT271
FILT272
FILT273
FILT274
F1LT275
FILT276
F1LT277
FILT278
F1LT279
FILT230
FILT281
F1LT282
PILT233
FILTP84
FILT286
FILT287
FILT238
FILTZB'J
FILT290
FILT291
FILT292
FILT293
FILT294
FIL1 29S
MTP.lsF.LE.O.OJ DWCC 1.1 = 0.0
IF(SMTDWF.G1 .0.0) OWCf.L I-AICOLI *TOTPOP/ ( SMTDWF*2.447E*7 >
FIL12r>9X
F Il.T?oQ'x
65
-------
D2COLI=A1CCLI*PCP/<60.*24.*6C.1 FILT298
C D2CULI IS THE TOTAL DWF COL I FRCf THE ASUB IN MPM/SEC FRT299
INPUT=MMINPUT) riLT300
HDWFUNPUT,ll = CCWBOD/CT)+WDWFUNPUT,l) FRT301
HDWF( 1NPLT,2) = (DWSS/DT»*WDWH INPUT,21 FR-T302
V»DHF( INPUT,3}=02COLI+WOHF( INPUT,3) FILT303
IF(MSUBT}800,800,426 F1LT304
426 BODCCN=//l HLT310
800 CONTINUE FILT311
QDWFUNPLT)=QDWFl INPUT )+OViF FILT312
300 CONTINUE FRT313
C FILT314
c**********ENC OF TIMESTEP COMPUTATION FRT315
c FILT316
BQOCON=<$l'*'OOD*lOOOOOC.)/tSMTDWF*DT*7.48*8.34» F RT317
SSCONC=(SWKSS*1COOOOO.I/(SMTDWF*DT*7.A8*8.34> FRT318
WRITE (6,6071 SMMOWF. SMMQQ,SMTOWF, SMMBOD, SMMSS.TOTPQP tBQOCON, FRT319
.SSCCNC, CWCCL1 F1LT320
607 FORMAT ( «0« , IOX, • TOTALS' //llXf3F10.2 ,6X ,IFH.2, • LESS 1F7.2,' LBSFILT321
**«3FIO.O,3X»1P610.2J FRT322
Q*******>!<«* F1LT323
C FRT32*
IFCKASE.NE.U 00 TO 430 FRT325
IFlADhF.EO.O.) GO TO 430 FRT326-
CF2= AOV,F/SMTOo'F FRT327
HRITE(6,6C8) ADWF,SMTDWF,CF2 FILT328
608 FORMAT(/» COMPARISON OF MEASURED AND CALCULATED TOTAL SErfAGE FRT329
1 FLOW: ACWF-',F6.2, • CFS SMTDWF=',F6.2,' CFS'/' CORRECTION FACTFILT333
*QR (CF2) OF',F5.2,' APPLIED TC THE DWF (QUANTITY AND CUALITYJ AT FFILT331
*ACH INLET'! FILT332
GO TO 431 FILT333
430 CF2=1. FILT334
C CORRECTION FACTOR (CF2) APPLIED TO THE OWF (QUANTITY AND QUALITY) FILT335
C KHEN AChF IS MEASURED ^OWF(I,1I*CF2 FILT338
HOUF{I,2J=kDHF(I,2)*CF2 FRT339
MDWFC I.3J=V
-------
SUBROUTINE FINDA(PS.AA)
CALCULATES THE FLOW AREA IN CLNDUITS GIVEN THE FLOW RATE.
CCMMON/TABL6S/KOEPTH(25),KLASS(25),PSIMAX(15),ALFMAX(15),
1 NN(25),MM(25),ANURM(15,51),aNGRM(15,51),
2 DNORH(l5,51),ArACT(15),RFACT(15)
COMMON M160,2,2I ,0(160,2,2) , CPOLL(160,2,2,3), QMAX(ISO),
1 GFULL(160), AFULL(160), OXDT(160),Cl(160), SLOPE(160),
2 OIST(160), GEOM1U60), P.OIIGH( 160) t NOE(160)t NUG(160,3),
3 INUE, N1YPEU60), JR1160), NKLASS, WEt NOT, EPSIL,
4 TJPEt OTt M, KFULL, N, NOS, NPOLL, NPRINT, ITER,
5 CChF(160), IOLD(160), P1I160), RNOFF(160), QINFIH160),
6 kDWF(160,3)t PLUTOl160,3), IR(160), P2(160), NIN(IOOO),
7 PSJ16G) ,Pt>(16C j ,i'7(iwO i.^Li , 160i , JAK,l(20), NOROER(70), GEOM2U60),
9 GECM3(160I , P4(160),SCOUR(160), KSTOREI160)
COMMON BODINt 2,150),SSIN{ 2,150),BODOUT,SSOUT,COLIN(2,150),
*
*
*
Q1NST,CCLST,Q!NSTL( 2),
NSTCR,KSTCR,IPRINT( 2),
QOUSTH 2),STORL( 2),QOUTO( 2),STORO<
IPOL< 2),IFLOOD( 2),ICOST( 2),DEPMAX(
2,11),BSTOR( 2,11),COLJUT,
2),CUMOUT( 2)
ATERM 2,li),A02DT2< 2 ,11) ,8DEPTH(
OUMSTR(11),CUMDEP(11),
KTSTEP,VOLIN( 2,150 ) .VOLOUT( 2,150),STOR,CUMIN(
SBOO( <),SSS( 2),SCOL( 2),
ISTKODI 2),ISTTYP( 2),ISTOUT( 2),
QPUMP( 2)«DSTART( 2),DSTOP( 2),
OTON( 2),STORMX( 2),OTPUMP{ 2),DTMORE( 2),STORF( 2),APLAN( 2)
* CLANC( 2),CSTOR( 2),CPS( 2),CTOTAL< 2),CPCUYO( 2),CPACRE( 2),
* LP,JF,LPREV( 2),LABEL,OETENTC150),FRACI150),OUT1( 10,200)
AA = 0.0
IF (PS.EQ.C.C) RETURN
NT = NTYPE(M)
IF (KLASS(NT).EQ.l) GO TO 150
CONDUITS KITH TABULAR Q-A RELATIONSHIP.
MHM = f»«
-------
RH = AFULL = GECMKM»/GEC'42(M) FIRS 6^
P6«M) = -l.333333*P5(M) FIRS 6%
P7(M) = 2.C*P5m+2.0 FIRS 65
P2(M> = CECMKMJ/D1ST(M) FIRS 66
P4(M) = PSHALF^AX(NT}| FIRS 67
GO TO 15C FIRS 68
C CALCULATIONS FOR MODIFIED BASKET-HANDLE CONDUIT. FIRS 69
IOC CEOM3IM) = GEOMim*GFCM2(M) FIRS 70
P5(M» = 0.7853982*GEOM2(M)*GEOH2(M» FIRS 71
AFULL(H = GECM3(W + P5{M)/2.0 FIRS 72
RH - A! ULLl i.i / (GLo.''.t ( MS <•.;. jTC 7 Jo • t . J • GEUi'ii (i-i j ) FIRS 73
PKM> = 1.49/ROUGH{MMAFULL(M)*RH.**0.6666667 FIRS Tt
RH = GECrt3 = 2.C*GECM1{M)/GFU12(M»*2.0 FIRS 78
P2(M) = (GGGMltM)+GEOM2(M)/2.0J/DIST(M| FIRS 79
P4(MJ = PSHALKI FIRS 80
GO TO 15C FIRS 81
C CALCULATIC^S FCR RECTANGULAR CONDUIT, TRIANGULAR BOTTOM. FIRS 82
110 AFULL(M) = GECN2«M)*(GEGHl(M)-GECrt3(M>/2.0) FIRS 83
P5(MJ = 0.5*SIN(ATAN(2.0*GEOH3(M)/GEOM2I FIRS 8 = CECK3(M)/P5(H)+2.0*(GEGM1(M)-GEOM3(M))+GEOM2(M) FIRS 85
RH = P5(H)/JQ«T<2.0*GECM3(M)/GEOM2(M))*P6(M) FIRS 86
P7(M» = PH**0.6fc66667/AFULL(M)*«0.3333333 FIRS 87
PKM) = l.A9/ROCGH(HI*AFULL(M)*(AFULL(MJ/P6(M)J**0.6666667 FIRS 88
P2(M) - CEOMKMI/OISTIM) FIRS 89
P4(M) = PSKALFfAX(NT}| FIRS 90
GO TO 150 FIRS 91
C CALCULATIUS FCR RECTANGULAR CONDUIT, ROUND BOTTOM. FIRS 92
120 P5(M) * 2.0*ARSIN(GEUf,2(M}/2.0/GEOM3(M)) FIRS 93
P6(M) = GEGM3(MI*GEOM3(M»/2.0*( P5(M)-SIN(P5(M))t FIRS 9*CEC'n**0.6666667/P 1 (M) FIRS 99
P2(M) = (GECM1(K}+GECM3(M)*(1.0-CUS(P5(M)/2.0)»)/DIST{MI FIRS100
P*(M) = PSKALFMAX(N-T)) FIRS101
C CALCULATICNS COKMCN TO ALL CONDUITS. FIRS102
C CONVERT SLOPE FROM FT./100 FT. TO FT./FT. FIRS103
150 SLOPEm = SLGPE(M)*0.01 FIRSIO^
QFULL(M) = PKClf'SQRTfSLOPEtM)) FIRS105
GMAXCMJ = P<»{M)*QFULL(M» FIRS106
OXDT(M) = CIST(K)/DT FIRS107
CKM) = DXDT(M)*ArULL{M)/QFULL(M) F1RS108
C DETtRMNE IF FLCW IN CONDUIT IS SUPER-CRITICAL MOST OF TIME. FIRS109
C CRITFRUIN IS DERIVED BY COMPARING NORMAL AND CRITICAL VELOCITIES. FIRS110
C BOTH VELOCITIES DEPEND UPON DEPTH OF FLOW. " FIRSlll
C FACVOR OF 0.3 CCRkESPCKOS TO CIRCULAR PIPE 95% FULL. FIRS112
AA = 1.49/RCUGH(M)*SQRT(SLOPE(MlX32.2>*(P2(M)*DIST(Ml»**.1666667*0.3FIRS 113
SCF(M) = C;NQ FIRSII^
IF (AA.GE.l.GJ 5CF(M) = YES FIRS115
GO TO 2CC FIRS116
C CALCULATES FOR LIFT STATION. F1RS117
C INITIAL VOLUME IN WET WELL IS HALF THE CAPACITY. FIRS113
160 h'fcLL2(f) = 0.5*GEOH1(P) FIRS119
GO TU HC FIRS 120
69
-------
DETERMINE NUMBER AND ELEMENT NUMBERS OF FLOW DIVIDER TYPE 21«S. FIRS121
17C K = K+l FIRS122
IRtKI - M FIRS123
GO TO 190 FIRS12*
INITIALIZE SURCHARGE VOLUME IN NCN-CUNDUITS. FIRS125
190 SURGEim = 0.0 FIRS126
SURGE2(MI = 0.0 FIRS127
SCFIM) - BLANK FIRS128
20C CONTINUE FIRS129
IF (K.EC.C) RETURN FIRS130
INITIALIZE FLCW SETTING FOR TYPE 21 FLOW DIVIDERS. FIRS131
DO 220 1=1,K FIRS132
M= IRU) FIRS133
L=GECK3(MJ FIRS13*
L=NIN(LI FIRS135
220 GEOM1(KI=(QFULL(L>/2.0J'*BARREL(LI FIRS136A
RETURN FIRS137
END FIRS138
70
-------
SUBROUTINE IN ML
COMMON/TABLES/KOEPTH<25»,KLASS(25),PSIMAX(15),ALFMAX(15»,
1 NM25) »MM(25),ANOPM(15,51I,QNORM(15,51),
2 ONORM(15,5l),AFACT(15),RFACT(l5)
COMMON/MPES/ NAME(4,25) ,GNO , YES , BLANK
CQHHUN /Ml60t2,2) ,Q(160,2t2) , CPOLL ( 160 , 2, 2 , 3) , QMAXU60),
I
2
3
4
5
6
7
8
9
CFULL(160), AFULH160), OXDT( 160 It C 1 ( 160 ) , SLOPFM160),
OISTI160I, GEOMU160), ROUGH(160), NOE ( 160 ) , NUE(160,3),
INUEC160,3», NTYPEU60), JR(160», NKLASS, NE, NOT, EPSIL,
TIME, DT, M, KFULL . N, NOS, NPOLL, NPRINT, ITEP.,
QCV»F(160I» IOLD(160), PI (160), RNt)FF(160), QINFILU60),
hCWF(l*0T3)» PfllTnfl fcO,"*) , IR(160)t P7Of.nl. NfNOOOO),
P5U60),P6<160),P7(160),SCF(160) .BARREL < 160) ,
TITLEUO), NPE(20), NYN(20), NORDER(70), G£QM2<16D),
GECH3(16C) , PA( 1601 tSCOUM 160) , KSTORE(160)
SUBROUTINE TO ESTIMATE AND ALLOCATE SEWER INFILTRATION
DIMENSION NOO(12),NDXCAY(380>
REAO(5,5CO) OINFIL,GINFIL,R1NFIL
REAO(5,5C1I NOYUD.RSMAX.ULEN
15 READ(5t51C) (NDD( 1 1 f 1=1 f 12)
SINF1L-C.O
IF(GINFIL)10,10,50
SUHINF=DIM=IL+RINFIL
IF(5UKINF.eq.O.C)KRlTE(6,600)
IF(RSM«X.LE.C.OI GO TO 200
MFREZ-0
MLTBE=C
MLTEN-C
PLACE .KCNTHLY VALUES AT MIDDLE OF MONTH
11 = 0
DO 100 1=1,12
NODAY=II»15
NOXOAY ( KCC AY ) =NDO ( I)
11=11+30
CONTINUE
INTERPOLATE FOR FIRST AND LAST 15 DAYS OF 'YEAR'
1C
100
NY2=NDXCAY(15)
NX2=375
00 110 1=1,30
NX=NX+1
NY=«NY2-NY1I*(NX-NX1))/30 + NY1
NDXDAY(NX)*NY
110 CONTINUE
C CONVERT LAST 15 DAYS TO FIRST 15
NX=3oO
DO 120 1=1,15
NDXDAY( I)=NDXOAY(NX)
120 CONTINUE
C 1NTEKPOLATE FROC NDDAY-16 THRU
K=l
NX=16
13C
= <(NY2-K.Y1»*(NX-NX1))/30
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
I MF I
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INH
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INF I
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
INFI
I NCI
INFI
INFI
INFI
INFI
1
2
3
-------
NDXOAY(M)
K=K*1
NY
IFJK.LE.3C) GO TO 130
KX1=NXI*30
NX2=NX2+30
K=l
IFCNX2.LE.345I GO TO 130
C DETERMINE BEGINNING OF FREEZING PERIOD(MFREZ)
00 150 I*lt360
IF(NDXDAYm.GT.750> GO TO 160
150 CONTINUE
160 MFRLZ--1
C IF STORK CAY IS PRIOR TO FREEZING, SET SINFIl=0.0
IF(NDYUD.LE.HFREZ) GO TO 200
C STORM CCCURED AFTER FREEZING BEGAN
NTOT*0
DO 170 I=MFREZt360
IF GO TG 175
170 NTGT=NTOT+(NCXCAY(I>-750)
175 NAREA1=NTCT
MLTBE-I
NTOTaO
IF(NOYUO.LT.HLTBEI GO TO 200
00 180 I=MLTBEt360
NTOT=NTCT+(750-NOXDAY(I) )
IFtNTCT.GE.NARE/Sll GO TO 185
180 CONTINUE
C IF EGOAL AREA MOT REACHED SET MLTEN=360
185 NLTENM
IFJNDYUD.GE.KLTEM GO TO 200
C CALCULATE SINFIL
XMLTBE=FLOAT/(XMLTEN-XMLTBEJ»*3.U16
SINFIL'RSf'AX^SINtXXARGI
GO TO 40
20<3 SINFIL^O.O
40 QINF-RINFR+SINFIL+DINFIL
GO TO 60
50 QINF=GINFIL
6C CONTINUE
OPINF=O.C
IF(ULEK.LE.O.O)ULEN=6.0
ATERM=SCPT(4.0*2. 14161/ULEN
OPNFIL^C.O
DO 70 K=liNE
H=JR
85
86
87
8B
89
90
91
92
93
94
95
96
97
9fl
99
72
-------
OPNF1L=ATERK*SQFT(AFULL
-------
SUBROUTINE IMTAL
C ROUTINE INITIALIZES FLOWS, AREAS, AND CONCENTRATIONS TO VALUES
C CORRESPONDING TO DRV WEATHER FLOW PLUS INFILTRATION.
C WHEN THERE ARE NO INITIAL VALUES OF DHF OR INFIL, VALUES REMAIN
COMMON/TABLE S/KOEPTHJ 25 )»KL ASS (251 tPS I MAX( 15 » , ALFMAX ( 15 > ,
1 NM25),MM(25),ANORM(15,5l),QNORM<15,51),
2 DNORM(15,51),AFACTC15),RFACT{15)
COMMON/CftKF/ CVOtfFt 71 ,OVBCD ( 7 >,flVSS (7) ,HVDWF(24) ,HVBO[>(24 ),
1 HVSS(24>iHVCOLI(24),KTNUM,KDAY,KHOUR,KMINS
COMMON A(160,2,2) ,0(160,2,2) , CPOLL( 160,2.2,3 ), QMAXU&O),
1 OFULLC160), AFULLU60), DXDTU60),C1(160), SLOPE(160),
?. CIST(160lf GFO«HIAO», POUCH ? lf-0 ) , MO? ,BSTOR( 2,1U,:OLOUT,
* DUMSTRdll.DUKDEPdl),
* KTSTEP.VOLIM 2,150) ,VOLOUT( 2 ,150) ,STOR,CUHIN( 2),CJHOUT( 2)
* SBOC( 2),SSS( 2),SCOL( 2),
* ISTMOC( 2J,ISTTYP{ 2),ISTOUT( 2),
* QPtnP( 2»,DSTART{ 2),OSTOP( 21,
* OTON( 2l,STnRMX< 21 ,OTPUHP( 2»,DTMORE( 2),STORF( 2),APLAN< 2)
* CLANDt 2l,CSTORt 2),CPS( 2>,CTCTAL( 2>tCPCUYO( 2),CPACRE( 2),
* LP,JP,LPREV( 21, LABEL, DETENK 150) ,FRAC( 150 J,OUT1( 10,200)
DIMENSION SUH2(6) ,00(1601 ,QI (160),Q01 ( 160) ,Q02( 160)
EQUIVALENCE (QOK 1) fQMAX( 1) ) , (Q02(l I ,QFULL( 1) I
EQUIVALENCE
IFtNTU.LE.lY.OR.NTU.GE.23> GO TO 18
KK=GEOK3(L)
QQ*Q02(L)
IFlKCE(fl.EC.KK)QQ=Q01(L)
- GO TO IS
13 CC = Q(L,2,1J*BA! =0.0
IF (SOH1.EC.O.G) GO TC 40
0
f
2)
21
•
i
INIT
INIT
INIT
. INI-T
INIT
INIT
INIT
INIT
INIT
INIT
INIT
FNJT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
,INIT
tlNIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
INIT
IN:T
INIT
INIT
1
2
3
it
5
b
7
8
9
10
li
12
13
14
15
16
17
13
19
20X
21
22
23X
2'+
25
25X
27
28
29
30
31X
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
5?
53
54
55
56
57
58
59
60
74
-------
00 30 Ml.KPCLL ,N1T 61
IF(K.EC.l) SUM2(K)=SUM2{K)+WCWF [^ £3
IFCK.EC.2J SUM2
IF INIT
900 FORMAT { • IELEKENT FLOVS, AREAS, AND CONCENTRATIONS ARE INI T U' IZEDINIT B5
1 TO DRY KEAThER FLOW AND INFILTRATION VALUFS.') INIT 86
901 FORMAT(I6,ia,2F8.3,2F£.-VF3X,lPE8.2,OP3F11.4l INIT 8f
902 FORMAT (• ELE.NO. TYPE FLOW AREA CONC1 CONC2 CONC3 INIT 88
1 CCIVC4 CONC5 CONC6' ) INIT 39
RETURN INIT go
END INIT 91
75
-------
SUBROUTINE NEKTON(ALPHA,PSiC11,C2,KFLAG)
NEWTON-KAPHSON ITERATION ASSUMING FUNCTIONAL FORM FOR 3-A CURVE
DIMENSICIV CI(16C),«0<160)
COMMON/TABLES/KOEPTH<25),KLASS(25),PS1MAX(15»,ALFMAX<15),
1 NM25),MM(25),ANORM{15,51),QNURMt15,51) ,
2 DNORM<15,5U,AFACT(i;>),RFACT(15)
COMMON A(160,2t2) ,0(160,2,21 , CPOLL(160,2,2, 3), QMAX(160),
1 CFlilU 160), AfLLL<160) , DXDT (160 I ,C1 {160) , SLOPE(160),
2 OIST(160J, GEOMK160), ROUGH(lbO), NOEU60), NUE(160,3),
3 IKUE<160,3), NT¥PE(160>, JR<160>, NKLASS, NE, NOT, EPSIL,
4 TIME, OT, M, KFULL, N, NOS, NPDLL, NPRINT, ITER,
5 QCKFU60), 10LH(160), PK160), RNOFF<160), QINFIL<160),
6 HCWf(l60,3), fLUlO(16U,3), IK(160), P2U60). NIN(IOOO),
7 PS(160),P6(160),P7U6C),SCF<160),BARREL<160),
8 TITLE(AOI, NPE(20), NYNC20), NURDERJ70), GEUM2<160),
9 CECM3U60) , P4U60I ,SCOURU60) , KSH1RE1160)
2,150),SSIN( 2,150),BaDOUT,SSOUT,COLIN(2,150),
COMMON
QINST,CGLST,QINSTL(
NSTOR,KSTCR,IPRINT(
2),QOUSTL< 2),STORK 2),QUUTO( 2),STORO(
2i,lPOL( 2),IFLOODI 2J,ICOSr« 2),DEPMAX{
2,11),BSTOR( 2,11),CULUUT,
2),CUMOUT( 2)
ATERKl 2,ll),A020T2( 2,11),BOEPTH(
OUKSTR(ll),OU*DEP(ll)t
KTSTEP.VOLINJ 2,150 ) ,VOLOUT( 2,150),STOR.CUM
SBGOI 2),SSS( 2),SCOL( 2),
1STKCO( 2)fISTTYP( 2),ISTOUT( 2),
* QPUMP( 2»,OSTART( 2),OSTUP( 2),
* OTON( 2)iSTORMX( 2),DTPUMP< 2),DTMORE( 2),STORF( 2),APLAN( 21
* CLANCC 2),CSTOR( 2>,CPS( 2),CTQTAL( 2),CPC'JYO( 2>,CPACRE( 2),
* LP(JP,LPREV( 2),LABEL,OETENT{150),FRACI150),OUT1( 10,?00)
EQUIVALENCE ICC(1),Q(1,2,21),(QI(1),Q(1,1,2))
FIRST GUESS FOR ALPHA ASSIGNED IN CALLING PROGRAM.
KFLAli = I
HELP =0.0
ICHK = 0
I = 0
10 1=1*1
PS = PSHALPHA)
D=CPS*C11*ALPHA+C2)/(OPSI(ALPHA)4C1U
IF (ABS(O).LE.EPSIL) GO TO 20
ALPHA = JEWT
NEWT
NEWT
NEWT
NEWT
.NEWT
NEWT
NEWT
NEWT
NFWT
NEWT
NEWT
NEWT
NEWT
NEWT
NEWT
NEWT
NEWT
NEWT
NEWT
NEWT
NEWT
NEWT
NEWT
NFWT
.NEWT
NEWT
NFWT
NCKT
NEWT
NFWT
NEWT
NFWT
NEWT
NEWT
NEWT
NEWT
1
2
3
4
5
6
7
0
9
10
11
12
13
1^
15
16
17X
18
19
20X
21
22
23X
2*
25
26
27
28X
29
30
31
32
33
3*
35
36
37
id
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
76
-------
SUBROUTINE PRINT
C
C********ThIS IS A NEW SUBROUTINE WHICH WILL REPLACE THE OLD PRINT
WHICH EXISTED AT THE TIME OF THE MARCH MEETING
COMMON /IAPES/ INCNT, ICUTCT,JIN(101,JOUTC10),NSCRAT(5)
COMMON A(160f2i2) tQ(160,2,2) , CPOLL (160. 2 ,2 ,3 11 QMAXUSOl,
1 CFULL(160), AFULLU60), DXOT (160 ), Cl (160 ), SLQPEU60),
2 DIST(160)t GEOMK160), RCUGH(160), NOEU60J, NUE(160,3),
3 INUE(160t3)t NTYPE(L60lt JR<160), NKLASS, NEt NOT, EPSILf
4 TIKE, CTt Mt KFULLt N» N'OSf NPOLLt NPRINT, ITERi
5 CCWF<160), IOLC(160)f PK160), RNOFF(160), QINFIL(160)t
6 Wtw(-< loO,3) , PLU1~UU60,3), iKdoOJ, Ht NlN(iOOO),
7 P5(160)(P6U60) t?7<160»•SCF(160),BARREL<160),
8 TlTLE(40lt NPE(20lf NYNI20), NORDER(70), GEOM2U60),
9 GECK3(160) , P4(160),SCOUR(160I, KSTORE(160)
COMMON BODINJ 2tl50),SSIN( 2»150>tBODOUTtSSOUT,CQLIN<2Tl50),
QlNST,CCtSTiQINSTL< 2),GOUSTL( 2),STORL( 2|,QOUTO( 2>,STORO<
NSTOR,KS1CRtIPRINT( 2)tIPOL( 2)iIFLUUO( 2»iICOST{ 2»iDEPMAX(
ATERM{ 2tU)tA020T2( 2 , li ) .BDEPTH ( 2,11),BST(1R( 2 , 11) .COLO'JT,
DUMSTR(ll) tCUMOEPdllt
KTSTEPtVOLINC 2.150 ) tVGLOUT( 2.150)»STOR,CUMIN{ 2)tCUMOUT( 21
SBOO( 2)tSSS( 2),SCOL( 2),
ISTrtCO( 2)tISTTYP( 2)iISTOUT( 2lt
QPUMP( 2),OSTART( 2),DSTOP( 2),
DTON( 2»,STORMX( 2),OTPUMP( 2),DTMORE{ 2),STORF( 2>tAPLAN( 2)
CLANOC 2)tCSTOR( 2».CPS( 2)»CTOTAH 2I,CPCUYO( 2»fCPACRE( 2)f
LP* 'PtLPREV( 2)fLABEL,OETENT(150)fFRAC(150)tOUT1( 10f20D)
COMMON /XX/ OUT2UO,200t4>tPPm
11=0
5 11=11*1
NTX=NSCRAT«II)
REWIND MX
00 10 J=lt 10
NYN{J»=0
00 10 N=l,200
OUTK JtK)-0.0
00 10 1=1,A
OUT2U.N,11=0.0
PP(I)=C.O
10 CONTINUE
REAO(NTX) NOTfNNYNtNPCLLfNNPEiDTtJPRINT.JPLOT
READ(NTX)UYN< 1I,I = 1,KKYN)
900 FORMAT(1015)
DO 20 N=lfNDT
00 20 J=1,KNYN
REAO(NTX) COt (PP( I I «I =lriNPDLL)
OUTltJfM=OQ
DO 15 JJ=1,NPOLL
15 OUT2
WRITE(6*91l)(I,1=1.10)
00 216 1= 1,NNYN
216 WRITE<6,<;12> N YN( I) , ( OLT1 (I , J ) t J=l »NDT )
HRIT£(6T922)
hRITE(6,911)( 1,1=1,10)
DO 217 1=1,NNYM
t
2)
2)
i
»
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIV
PRIN
,PRIN
tPRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIM
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
RRIN
PRIN
PRIN
PRIN!
PRIN
PRIN
PRISJ
PRIN
PR1V
PR I M
PRIN
PRIV
PRIM
PRIN
PRIN
PRIN
PRIN
P * I fM
PRIN
PRIN
PRIN
PRIN
PRIN
PRIN
1
2
3
4
5
6
6A
6B
6C
6D
6E
6F
6G
6H
61
6J
6K
61
6M
6N
6U
6P
6Q
6R
6S
6T
6U
6V
7X
B
9
10
11
12
13
14-
li>
16
17
16
19
20
21
22
23
24
25X
26X
27
23
29
30
3'JA
31
32
33
34
3'j
36
37
77
-------
30
32
34
36
16C
217
29
218
30C
40
42
44
46
161
1000
50
52
54
56
234
DO 217 IP*1TNPOLL
GO TL) (30,32,36,34), IP
WRITE(6,560)
GO TO 16C
WRITE(6,961)
GO TO 160
HRITEU.<«2)
GO TO 160
HRITE(6,963I
CONTINUE
1F(IP.I\E.31WRITE<6,912)
IFUP.EQ.2)WRITE(6,967)
CUNHNUt
IF(lI.LE.l) GO TO 5
PRINT OUTFLOWS
HRITE(6,523)
NYN ( 1 J , (OUT2< I, J, IP ) , J=1,NDT|
NYNU),(OUT2( I t J »IP ) f J=l , NOT )
00 218 1«1.NNPE
WRITE (6, 9 12) KYM I ) , (OUT1 (I , J ) , J=l, NOT )
WRITE (6,924)
WRITE(6,S!1) (1,1=1,10)
00 219 I*1,NNPE
00 219 IP=l,NPOLL
GO TO (40,42,46,44), IP
WRITE (6, 9601
GO TO 161
WRITE(6,
-------
GO TO 238 PRIN122
237 OUT2U ,J,IP>=0.0 PRIN123
238 CONTINUE PRIN124
235 CONTINUE PRIN125
IF(IP.N£.3J WRITE(6t912)NYN(I),(CUT2
-------
FUNCTICN PSI (ALPHA)
PSI
FINOS C/CFULL (PSIJ GIVEN A/AFULL (ALPHA) FUR FUNCTIONAL Q-A CURVEPSI
COMMON /PS1CPS/ AA,AB,Dl,D2tAAA,CATH,AlF,IfR
COMMGN/TAGLES/KCEPTH(25)tKLASS(25)tPSIMAX(15),ALFMAX(15l,
1 NN(25),MM(25) , ANCRK 15,51 ) t CNURM ( 15 ,5 1) ,
2 DNOPM(15,51),AFACT(15),RFACT(15)
COMMON A(160,2,2) .0(160,2,2) , CPGLL< 160,2,2, 3) , QMAX(160),
1 CFULL(160lf AFULL(lbO), DXDT( 160 ) ,C U 160 ) i SLOPEU60),
2 CISTU60), GECKK160), P-OUGHU60), NOE(160I, NUEU60.3),
3 INUE(160,3)i NTYPE(160)t JR(160), NKLASSt NEt NOT, EPSILt
4 TlfEi DT, M, KFULLt N, NQS, NPOLL, NPRINT, ITER,
5 QCkFU60)t 1010(160), PK160), RNJFFU60), QInFIL(163l ,
6 fcLHH iov«Ji, *-Lu«LHl6C,3> , iktluutt P2, NPE(2C), KYNK20), NGROER(70), GEOM2(160),
9 GECK3(160) , P4( 160) , SCOUR ( IbO 1 , KSTORE(160>
COMMON BCO!N( 2.150),SSIN( 2, 1501 ,BLIDJUT .SSUUT ,COLIN<2 , 1501 ,
QINST,COCST«QINSTL( 2I«QOUSTL( 2),STORL( 2) ,QOUTO( 2),STORO( 21
NSTORtKSTOR»IPRINT( 2J,IPOL( 2)tIFLOOO( 2),ICOST( 2),OEPMAX( 2)
ATERM 2,ll),A020T2i 2. 11 ) »BOEPTH( 2tll)tBSTOR( 2 1 11 ) iCOLUJT t
DUKSTRS< 2tfCTOTAL( 2ltCPCUYD( 2I.CPACREJ 2)i
LP...IP»LPREV( 2»,LABELtDETENT( 150), FRAC( 150) ,OUT1( 10,200)
PSI * O.C
IF(ALPHA.LE.O.O) RETURN
HT ~ NTYPE(M)
IF (NT. EC. 2) GO TO 20
IF (NT. EC. 101 GO TO 100
IF (NT.EC.il) GO TO 110
IF (NT. EC. 12) GG TO 12C
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
,PS1
,PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
INCLUDE TABULAR PSI CALC. IN CASE PSI IS CALLED BY KLASS=2 CCWDUIT°SI
DALPHA = ANORM(NT,2)-Af\CRH(NT,l>
I * ALPHA/CALPhA+1.0
PSI = CfcCRMNT,I)*(QNORM(NT, 1*1 )-QNORM(NT, I » /DALPHA*< ALPHA-
1 ANCRH(NT,II)
RETURN
SPECIAL FUNCTIONAL FORM FOR RECTANGULAR CONDUITS.
20 R = P5(H)
IF (ALPHA. GT,ALF«AX(NT)| GO TO 25
AAA = 2.C*R*ALPHA+l.O
CATH = (ALPhA*P7(M)/AAA)**0. 6666667
PSI = ALPHA*CATH
RETURN
25 PSI = P4(m(ALPH/»-ALFMAX(NTll*(l.O-PMMI)/(1.0-ALFMAX(NTM
RETURN
FUNCTIONAL FORM FOR KCDIFIEO BASKET-HANDLE.
100 AA = AI.P«-A*AFULL(H)
IF (AA.GT.GECM3(H) ) GO TO 105
ALF = AA/GEO3
-------
PSI = 1.49/ROUGH(M»*AA*RH**0.6666667/P1-GEOrt3(M))*ALPHA PSI 70
CATH = (ALPhA*P6{M»/AAA>**0.6666667 PSI 71
PSI = ALPHA*CATH PSI 72
RETURN PSI 73
FUNCTICNAL FCRM FOR RECTANGULAR, ROUND BOTTOM. PSI 7<*
120 AA = ALPHA*AFULL(M) PSI 75
IF (AA.GT.P6(M)I GO TO 125 PSI 76
ALF = ALPHA*AFULL(H)/(3.1*GEOM2(M) PSI 83
D2 - GEO-3(W»*P5(M)+2.0/GEOM2(M)*(AFULL
-------
SUBROUTINE CUALCDUMY2 fOUKY3,DUMY4,DUMY5}
C ROUTING SUBPROGRAM FOR POLLUTANTS MOVING THROUGH SEWER ELEMENTS
C COMPLETE FIXING ASSUMED IN ALL ELEMENTS SURFACE ANO SUB-
C SURFACE INPUTSCPIPEFLOWtGROUNCWATERtSEWAGE, AND CATCHBASIN OUTF
C MIXING VCLUCE IS THE DIFFERENTIATING FACTOR THAT AFFECTS QUALI
C CHANGE FRCM CNE ELEMENT TC THE NEXT
DIMENSION SURGEK160).SURGE2C 160),WELL1<160),WELL2( 160)
1.QOJ160J,QI(160),Q01(160),QQ2(160),PUMP(160)
COMMON/TABLES/KDEPTm 25)iKLASS<25).PSIMAXC15)tALFMAX(15) t
1 KM25),MH(25),ANQRM< 15, 51 ),«NORM( 15,511,
2 ONORM(15,5D,AFACT(15»,RFACT(15)
COMMON A(160,2,2) ,0(160,2,2) , CPOLLi 160 , 2 ,2, 3) , QMAXU60),
1 CFU-LU60), A^ttLilfaO), OXul {160 ) , Cl (160 ), SLOPe{160),
2 C1STU60), GEOMK160), ROUGH! 160), NnE(160), NUE(160,3),
3 UUE(160,3), NTYPE(160), JR(160), NK.LASS, NE, NDT, EPSIL,
^ TIKEt DT, M, KFULL. N, NOS, NPOLL, NPRINT, ITER,
5 COWF{160), 10LCU60), P11160)f RNOFF(160), QINFIH160I,
6 kCfcF(16C,3), PLtTO(160,3)t IR(160), P2<160), NIN(IOOO),
7 P5(160)tP6(l60ltP7(16C),SCF(160l,BARREL(l60) i
8 TITLE(AO)t NP£(20), NYN(20), NOROER(70), GE()H2{160»,
9 GECM3C160) t P4(160! ,SCOUR(160), KSTURE(160)
COMMON BCOIM 2,150>tSSlN( 2,150>,BODOUT,SSOUT,COLIN<2,150),
* QINSTfCOLiSTtQINSTL( 2),COliSTL( 2I,STURL< 2)»QOUTO( 2),ST(JRO(
* NSTORtKSTOR,IPRINT( 2),IPOL( 2)tIFLOOD( 2),ICOST( 2),DEPMAX(
* ATERCJ 2,il),A020T2( 2,11)»BDEPTH( 2,11),BSTOR( 2 ,11).COLOUT,
* OUMSTRCIl)tDUKOEP(ll),
* KTSTEP,VCLIN( 2,150),VOLOUTJ 2, 150 ) ,STOR,CUMIN! 2),CUMOUT( 2)
* SBOO( 2),SSS( 2),SCCL( 2),
* ISTMOC( 2)»ISTTYP( 2)tISTOUT-( 2) t
* QPUKPt 2),DSTART( 2),OSTOP( 2),
* DTCN( 21tSTCRMX( 2),DTPUMP( 2)tDTMORE( 2),STORF( 2),APLAN( 2)
* CLAKO( 2J,CSTOR< 2I,CPS( 2),CTOTAL( 2),CPCUYO{ 2),CPACRE( 21,
* LP,JP,LPREV( 2),LABEL,DETENT(150I,FRAC(150),OUT1(10,200)
EQUIVALENCE (PUKP!I),DIST(1)),(SURGE1<1)iP1(1)1 , (SURGE2( 1),P2(1
EQUIVALENCE (QOK1),QMAX{1)), (Q02(l),QFULL( 1))
EQUIVALENCE ( C0< 1) ,Q< I ,2 ,2) 1 , (OKI )»Q( 1,1 , 2)}
EQU1VALEKCE (WELL1(1)•SLOPE(1)) ,(WELL2(1).ROUGH(1)1
REAL KVAL
P3=2./DT
NT-NTYPE(Ml
GO TU(11C,110,110,110,110,11C, 110,110,110,110,110,110,
I 110,110,110,120,130,12C,120, 120,120,120,150), NT
C PIPE***MIXING VOLUME FOUND BY AVERAGING UPSTREAM ANO DOWNSTREAM
C FLUW AREA.S AND BY MULTIPLYING BY LENGTH OF PIPE
110 VOLl=OIST(K»*(A(M,l,l)+A(M,2,l) ) /2.0*BARREL(M)
VOL2=C!ST(fl*(A(M,l,2)*A(M,2»2))/2.0*BARRFL(M)
AREAF=(A(Mtlt2)^A(M,2t2))/2.
RHYD=RADH(AREAF)
GO TO 160
C HANHOLE***M1XING VOLUME IS VOLUME CURRENTLY STORED AS SURCHARGING
120 VUL1=SURGEKM)
VOL2=SURGE2(M)
SURGE1(K)=SURGE2(M)
GU TO 160
C LIFT STATICN***MIXING VOLUME IS VOLUME CURRENTLY IN WET HELL
13C VOLl-rfELLKM)
VOL2-HELL2(MI
KELL1(M)= V»ELL2(M)
GO TU 16C
C ME FLUH CCfvTRCL STRUCTUP.ES***MIXING VOLUMES INITIALLY ZERO
LO
TY
t
2)
21
i
f
))
1
NU
QUAL
QUAL
QUAL
HQUAL
OUAL
aUAL
QUAL
3UAL
QUAL
QUAL
QUAL
QUAL
3UAL
QUAL
QUAL
QUAL
QUAL
QUAL
QUAL
QUAt
QUAL
QUAL
,3UAL
,QUAL
QUAL
QUAL
3UAL
QUAL
QUAL
QUAt
QUAL
"3UAL
3UAL
a UAL
QUAL
QUAL
3UAL
3 UAL
QUAL
QUAL
QUAL
QUAL
OUAL
QUAL
QUAL
QUAL
3UAL
QUAL
QUAL
. QUAL
QUAL
3UAL
QUAL
QUAL
QUAL
QUAL
3UAL
QUAL
QUAL
QUAL
1
2
3
4
5
6
7
6
9
10
11
12
13
14
15
16
17
18
19
20
21
22X
23
24
25X
26
27
28X
29
30
3d
32
33X
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
82
-------
ISO VOL1-0.0
VOL2=0.0
C QUALIIY CCNCENTRATICNS PCT 1=- . 1501*CRITD+.3527
IF1CRITO.GT.2.0.AND.CRITO.LE.10.0) PCT 1=- .00656*CRI TO*. 065 ^
IFCCRITD.GT. 10.01 PCT1=0.0
IRCRITD.LE.0.0) PCT1=1.0
PCT 2= PC Tl
SCOUR(^) = SCCUR{K»+PCT2*(TOTALH-TOTAL2*TOTAL3)*DT
TOIALA=(1.-PCT2)*(TOTALH-TOTAL2<-TOTAL3)*( 1 .-PC Tl } *SCOUR ( M » /DT
CPOLL(H,l,2t2)=TOTALA/GI ( M)
SCOUR (K»=PCT1*SCOUR(M)
THE NUMBER C4.28 = 2.7*62.4/2.0
ULIMIT=e^.28*AFULL(M»*DIST(M)*eARREL(MI
IF(SCOUR(H) .GT.ULIMIT J GO TO 300
GO TO 250
CPOLLC Htl ,2f 2 ) = ( (SCOUR (M)-UL IMIT )/Q I { M ) I/OT * CPOLL (M, 1,2, 2)
SCOUR(MI=ULIMIT
GO TO 250
PARAMETERS FOR 0 C
TOTAL 2=DUHY4
THE hUFBEP 0.2314815E-5 = 0
THe NUfflER 0.3'i72222E-5 = 0
THE NUMBER 0.4356716E-3 =
2/< 2A. 0*60. 0*60.0)
3/( 24.0*60. 0*60 .0 )
7.0*6.34/134000.0
QUAL
QUAL
3UAL
QUAL
QUAL
QUAL
QUAL
3UAL
OUAL
QUAL
3UAL
QUAL
QUAL
QUAL
QUAL
3 UAL
QUAL
QUAL
QUAL
QUAL
QUAL
QUAL
QUAL
QUAL
QUAL
QUAL
3UAL
QUAL
QUAL
QUAL
QUAL
QUAL
QUAL
QUAL
QUAL
3 UAL
QUAL
QUAL
QUAL
QUAL100
3UAI101
QUAL1D2
QUAL103
QUAL104
QUAL105
3UAL106
QUAL 137
QUAL10G
QUAL109
QUALUO
QUAL111
QUAL112
QUAL113
QUAt114
QUALllb
QUAL116
QUAL117
QUA 1113
QUAL119
QUAL120
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
85
87
88
89
90
91
92
93
94
95
96
97
98
99
83
-------
01 = 0.2314815E-5 QUAL121
02 = 0.3472222E-5 QUAL122
S = C.4356716E-3 QUAL123
GO TO 25C 9UAL124
PARAMETERS FCR NCNSETTLABLE, CONSERVATIVE POLLUTANT, (COLIFORMI OUAL125
240 TOTAL2=CLMY5 QUAL126
01=0.0 3UAL127
02=0.0 QUAL128
S=0.0 OUAL129
GO TO 25C QUAL130
245 IF(Q(M,1,2).LE.O.0001) GO TO 171 3UAL131
CPOLL(Mtl,2ilP)=*Q( M, 1,2»+D2*S* (VOL 1 OUAL140
2*VOL2))/(VCL2*(P3+Dl+D2»*C(M,2,2l) 3UAL141
IF(CPOLL(M,2»2fIP».LE.O.OI CPCLL(H,2.2fIPJ *0.0 OUAL142
172 CONTINUE QUAL143
RETURN OUAL144
END OUAL145
84
-------
c
c
c
c
FUNCTION RADH(A/U
FUNCTION TO COMPUTE THE HYDRAULIC RADIUS FUR A GIVEN FLOd AREA.
COMMON/TABLES/KCEPTH(251,KLA$S<25) ,PSIMAX( 15) .ALFMAXU5),
1 NN<2r>),MK.(25lfANORM( 15, 51),QNC)RM( 15,51) ,
2 DNQRM(l5,5l),AFACm5),RrACT(l5)
COMMON AU60t2,2) ,0(160,2,2) , CPOLL ( 160 ,2,2,3» , QMAX(160),
1 CFULL(160), AFULH160), DXDT (160 I , C 1 ( 160 ) , SLJPr:(160),
2 CIST(160), GEOMK160), ROUGH(160), NOE(160), NUE(160,3I,
3 IMJE(160,3)-, NTYPEU6C), JRU60), NKLASS, NE, NOT, EPSIL,
4 TIfE, DT, H, KFULL. N. NGS, NPULL, NPRINT, ITER,
5 CnWF(160), lOLC(lbO), PK160I, RNOFF(160>, QINFIK160J,
6 KCWF(160,3), PLOTO<160,3) , IR(160), P2(160), MN(IOOO),
7 P5(16U> ,H6( 160 )tP7(lbU) , SCF ( 160 ( t b AHKEL ( 160) ,
8 TITLE(40), NPE(20}, NYNC20), NDRDER(70), GEOM2(160lt
9 GECM3U60) , P4( 160) , SCCUR( 160) , KSTORE(160I
PARAKETEFS NEEDED ARE:
AA= #REA OF FLOW FOR WHICH RADH IS TO BE CALCULATED
REAL LI
IOC
1C5
AF=AFUL(M)
IF(AA.LE.O.O) GO TO 330
GO TO (100,300,400,400,400,400, AGO, 400, AGO, 500, 520, 540, 400t
1 400,40C,200,200,200f200,200,200,200,200,200,200>, NT
CIRCULAR PIPE
OIAK^GECMUM)
ALPHA=AA/AF
CALPH4=AKCRP(l,2)-ANORM(i,l)
I=ALPHA/DALPHA *1.0
Dl = DNORM(l,ll*(Al.PHA-ANORM( 1,1) ) /DALPHA* ( DNORM( 1, 1 + 1 ) -DNORM( 1, I ) )
110
120
13C
200
300
RR=DIAH/2.0
IF(Dl-RR) 110,120,130
HERE IF FLCW IS BELOW HALF WAY MARK
D2=RR-D1
Ll= SCPT(RR**2-D2**2J
ARG=Ll/D2
THETA=2.C*ATAMARG)
S=RR*THETA
RADH=AA/S
RETURN
HERE IF FLCW I S AT HALF HAY HARK
RADH=AA/(3.14159*RR)
RETURN
HERE IF -FLOW IS OVER HALF WAV MARK
D2=D1-RR
Ll= SCRT(RR**2-02**2)
THETA=2.0*ATAN2 (LI, 02)
S=RR*THETA
S= 2.0*3.14159*RR-S
RADrt=AA/S
RETURN
NO CALCULATIONS FCR NCN CONDUITS
RADH=C.O
RETURN
RECTANGULAR PIPE
XL=GCLM2(N)
RADH= AA/(XL+?.0*( AA/ AF)*DIAM)
*AOH 2
RADH 3
RADH 4
RADH 5
6
7
RADH 8
RADH 9
RADH 10
11
12
=
-------
RETURN
HERE IF NO FLOW IN PIPE
330 RAOH=0.0
RETURN
ASSUME EQUIVALENT CIRCULAR PIPE FOR UDD SHAPES
400 CIAM=SQRTl4.0*AF/3.14171
GO TO 105
HYDRAULIC RADIUS FOR MODIFIED BASKET HANDLE CONDUIT.
50000 = (GECM«K)+GECM2(M)/2.0)*CEPTH(AA/AFULL(M)»
IF (OD.GT.GECM1(Ml) GO TU 505
RAOH = AA/(GEQM2(M)+2.0*DD)
RETURN
5C5 CATHY - CC-CZCMHKJ
THETA - ARSIN(2.0*CATHY/GEOM2(M1I
PER = 2.0*CEGMHM)4G£CM2fM»*(l.O+THETA)
RAOH = AA/PER
RETURN
HYDRAULIC RADIUS FOR RECTANGULARt TRIANGULAR BOTTOM.
520 DO = GECHm*DEPTH(AA/AFULL(Ml)
IF (OO.GT.GEGM3(M)} GO TO 525
PER - CC/P5(M1
RAOH = AA/PER
RETURN
525 CATHY = CD-GECK3(M)
PER = 2.C*CATHY*GFOM3(KI/P5m
RAOri = AA/PER
RETURN
HYDRAULIC RADIUS FOR RECTANGULARt ROUND BOTTOM.
540 IF CAA.GT.P6(MH GO TO 545
DIAM = 2.0*GEQM3(K)
AF = 3. 1415i?7*i;ECM3(M)*GECM3(M)
GO TC 105
545 CATHY = AA-P6(M»
PER = 2.0+CATHY/GECM2(H)*GEOM3(M)*P5CM)
RAOH = AA/PER
RETURN
END
RADH 61
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
SUBROUTINE RCUTE(MTER)
ROUTING SUBPROGRAM FOR FLOW THROUGH SEWER ELEMENTS.
IN PROGRAM, ALPHA REPRESENTS NORMALIZED ARItA, A/AFULL.
IN PROGRAM, PSI AND PS REPRESENT NORMALIZED FLOW, Q/QFULL.
DIMENSION CI(16C),QOU6C) » SURGE 1 (160) ,SURGE2( 160 ), WELL I (1 60 I,
1 HELL2,KLASS(25),PSIMAX(15),ALFMAX(15),
I NN(25),MM(25)iANOPM(15,51»,QNORM(15,51»,
2 DNORMIlli.SUf AFACT(15)iRFACT(15)
COMMON/NAMES/ NAME(4,25),GNU,YES.BLANK
COMMON M160,2,2) ,0(160,2,2) , CPOLL( 160, 2,2, 3) , QMAXU60),
1 QFULH160), AFULL(160), OXDT (160 ) ,C1 (160 ), SLOPEU60),
2 DIST(140), GLOKHlodl, &OUGH(16U», NOE(160), NUF(160»3),
3 INUE(160,3), NTYPEU60), JR(160), NKLASS, NE, NOT, EPSIL,
4 TIME, DT, M, KFULL, N, NdS, NPULL, NPRINT, ITER,
5 CCfcF(160), IOLO(160), PK160), RNOFFU60), QINFIL(160),
6 HCKF<160,3), PLUTO(160,3) , IRC160), P2(160), NIN(IOOO),
7 P5C160) ,P6(160)»P7(16C),SCF(160) .BARREL (160) ,
8 TITLE(AO), NPEJ20), NYU<20), NOROER(70), GEOM2I1601,
9 GECM3(16C) , PM 160) , SCOUR (160) , KSTGRE<1&0)
COMMON EOLIN( 2,150),SSIN( 2,150),BOOOUT,SSOUT,COLINI 2,150),
QINST,COLST,QINSTL( 2),COUSTL( 2),STORL( 2),QOUTO( 2),STURO( 2)
NSTGR,KSTOR,IPRINT( 2),IPOL( 2),IFLOOD( 2),ICOST( 2),DEPMAX( 2)
ATERM( 2,11),*02DT2( 2,11),BOEPTH( 2,ll),BSTOR( 2,111.COLOUT,
DUKSTR(ll),OUKOEP(ll)i
KTSTEP,VCLIN'( 2, 150 I, VOLUUT ( 2,150), STOR,CUMIN( 2),CUMOUT( 2),
SBOD( 2),SSS( 2),SCCL( 2),
ISTMOD( 2),ISTTYP( 2),ISTOUT( 2),
QPlifFi 2>,DSTART( 2),OSTOP( 2),
OTON( 2),STOR»'X( 2)>OTPUMP( 2>,DTMOREI 2),STORF( 2),APLAN( 2),
CLANC( 2),CSTOR( 2),CPS( 2),CTOTAL( 2I,CPCUYO( 2),CPACRE( 2),
LP,JP,LPREV( 2),LABEL,OETENT(150)fFRAC(150),OUTK10,200)
EQUIVALENCE IQO(1),Q(1,2,2)),(QI<1),Q(1,1,2))
EtlUIVALEIVCE (PU^P(l),CIST(l)),(SURGEl(l),Pl(l)),(SURGE2(l) ,P2( 1))
EQUIVALENCE (COK1),QMAX(1)),(Q02(1),QFULL(1))
EQUIVALENCE =WEIGHT CN SPATIAL DERIVATIVE.
THESE CONSTANTS APPEAR IN DEFINITIONS OF C1(M) AND C2.
NOTE, fcT=fcD=0.5 CORRESPCND TO ORIGINAL VERSION OF TRANSPORT MODEL
HT=WO=0.55 APPEAR TO CIVE BEST ATTENUATION OF HYDKOGRAPHS.
NT = KTYPE(M)
ROUT
ROUT
ROUT
ROUT
M
ELEMENT
NUMBER
FCR CONDUIT
KLASS(NT)=2 FOR CONDUIT
KLASS(Kt)=3 FOR ELEMENT
K = KLASS(NT)
GO TO (5,5,2001, K
COMPUTE TOTAL HEAD
KFULL=l IF CONDUIT
KFULL=2 IF CONDUIT
IF (KFULL.EC.l) GO
IF (SCF(f).EC.GNG)
WITH FUNCTIONAL Q-A RELATIONSHIP.
WITH TABULAR Q-A RELATIONSHIP.
OTHER THAN CONDUIT.
SLOPE AND ASSOCIATED PARAMETERS.
IS FULL AT UPSTREAM END.
IS NOT FULL AT UPSTtXFA^ END.
TO 10
GO TO 6
NO ITERATICNS REQUIRED FOR CONDUITS WITH SUPER-CRITICAL FLOW.
ITER = 0
GO TC (20,100), K
IFIITER.GT.NITER) GO TO 7
ROUT 1
2
3
5
6
7
ROUT 3
ROUT 9
RUUT 10
ROUT 11
*OUT 12
ROUT 13
ROUT 14
ROUT 15
ROUT 16
*UUT 17
ROUT IB
ROUT 19
ROUT 20
ROUT 21X
,*UUT 22
,ROUT 23
ROUT 34X
RUUT 25
ROUT 26
*OUT 27X
ROUT 28
ROUT 29
RUUT 30
ROUT 31
*OUT 32X
ROUT 33
ROUT 34
ROUT 35
ROUT 36
*OUT 37
ROUT 35
ROUT 39
ROUT CO
ROUT 41
*OUT 42
.ROUT 43
ROUT 44
ROUT 45
ROUT 46
^UUT 47
ROUT 48
ROJT 49
10UT 50
ROUT 51
*OUT 52
ROUT 53
POUT 54
<*OUT 55
ROUT 56
*OUT 57
ROUT 53
ROUT 59
RUUT 63
87
-------
QOLO=CFULL(H) ROUT 61
Al = A(K,1,1)/AFULL(MJ *OUT 62
A2 = A(M,2tll/AFULL(M» ROUT 63
0V = {VEL(Q(M,l,lJ,A(M,l,lll**2- VEL«Q(M,211) tA(M,2,1))**2)/ ROUT 64
lDlST(Ml/64.4 ROUT 65
feSLOPE = SLOPE/AFULL(M) ROUT 69
0V - (VEL+DV *OUT 72
9 IF {.-JSLCIPE.LT.SLDPIK ;•'.»} ..'SLuPE - Si-OfECVJ ROUT 73
8 QFULHH1 - PHM|*SQRT(HSLCPE) ROUT 74
OEL3=ABS(CFULLtK)-QOLD) ROUT 75
IF(OELC.LT..OOOC2*QFULLIHJI ITER=0 ROUT 76
QFULL(MI=QOLD+(CFULL(H)-QOLO)/2. 30UT 77
QOLO=QFULL«MJ ROUT 78
IF UTER-N1TER.GE.NITER-1I ITER=0 ROUT 79
10 CUM) = AFULL(M»/QFULL(H)*DXD1(M)*WT/WO RUUT 80
QMAXCMJ = P4(MI*QFULL(H) ROUT 81
GO TO (20,100), K ^OUT 82
C ROUTINE FOR CONDUIT WITH FUNCTIONAL Q-A RELATIONSHIP. ROUT 33
C FIND NEK UPSTREAM AREA. ROUT 84
20 GO TO (2ft30lt KFULL ROUT 85
25 A(M,1,2» = AFULL(M ROUT 86
GO TO 40 3UUT 67
3C C2 = -CHMtlt2)/QFULL(F!) ROUT 88
ALPHA = A(M,i,U/AFULL(M) POUT 69
CALL NEV»TCN(ALPHA,PStO.O,C2,KFLAG) ROUT 90
IF (KFLAG.NE.2) GO TO 35 ROUT 91
WRITE (6,910» TIME,N,NOt(M>,AIM,1,11 ?OUT 92
ALPHA = A(M,l«l»/AFULL(K) ROUT 93
35 A(M,1,2) = ALPHA*AFULL(M» ROUT 94
C ASSIGN VALUES TO CONSTANTS AND SULVE FUR DOWNSTREAM Q AND A. ROUT 95
40 C2 = (1.0-HC1*Q(P,2,1 )-(1.0-HD)*Q(M,l,ll-WD*Q(M, 1,2 1 ROUT 96
C2 = C2+CXDT(H)*((1.0-HTJ*A(K,l,2»-(i.O-WT}*A
-------
6C
C
C
CONTINUITY ECUATICN TRIES TO FORCE Q.GT.QMAX. ROUT121
LET DOWNSTREAM FLOW BE QFULL UNLESS UPSTREAM Q IS GT QFULL.
IF (NPRINT.GE.l) WRITE (6,903)
IF(Q(M,i,2).GT.QFULL(M)) GO TO 75 P.OUT124
Q(M,2,2) = QFULL(M) ROUT125
ACM,2,2) = AFULL(M) ROUT126
RETURN
TRIES TO FORCE Q. LT. ZERO.
BE ZERO.
(6,904)
C
C
C
C
CONTINtlTY EQUATION
LET DCWNSTREAH FLCW
65 IF (NPRINT.GE.l) WRITE
Q(M,2,2) - 0.0
A(M,2,2)=0.0
RETURN
75 Q(M,2,2) = QCM,1,2>
ACM,2,2) = ACM,1,2)
RETURN
ROUTINE FOR CONDUIT WITH TABULAR Q-A RELATIONSHIP.
IOC DALPHA = ANORM(NT»2)-ANORP(NT,1)
MMM = PMCNTI
CALCULATE UPSTREAM AREA.
GO TO (102,105),KFULL
102 A(H,1,2) = AFULL(M)
GC TC 115
105 PS = C'K,l,2).LT.A(M,l,l)) ISIGN = -I
ICHK = 1
I =IOLD(M)
C2 = (l.O-WD)*C(P,2,l)-(1.0-WC)*0(M,l,l)-WD*Q(M,l,2)
C2 = C2*DXOT(M)*((1.0-WT)*A(M, 1,2>-(1,0-WT)*A(M,1,1)-WT*A(M,2,1)I
C2 = C2/CFULL(M)/WD
CALCULATE SLOPE OF LINE SEGMENT I OF Q-A CURVE.
120 SLUPE=(CNORK(NT,I-fl)-CNORK(NT,I H/DALPhA
IF(SLUPE+C1(M).EQ.O.O) GO TO 130
COMPUTE ALPHA CORRESPONDING TC INTERSECTION OF LINE SEGMENT I OF
Q-A CLRVE WITH LINE -Cl*ALPHA-C2.
ALPHA=(-CNORM(NT,II-C2+SLUPE*ANORM(NT,m/(SLUPE+C1 (M) )
CHECK TO SEE IF ALPHA IS IN PROPER RANGE.
IF (ALPHA.GT.l.O.OR.ALPHA.LT.O) GO TO 125
L= CALPHA/DALPHA) «• 1.0
PS = QNORMCNT,L) + (ALPHA-ANORK(NT,L) )/DALPHA * ( QNORMINT, L«-l )
1-QNORMCN1 ,L))
IF(4^S(PS*CUM)*ALPHA+C2) .LE.EPSIL) GO TO 150
TRY NEXT LINE SEGMENT.
125 I * I+ISIGN
126 JF (I.GT.O.AND.I.LT.MPM) GO TO 120
GO TO (127,50),ICHK
IF I HAS REACHED ZERO CR MMM START AT IOLO AND GO OTHER r)AY
127 ISIGN = -ISIGN
I * ICLCm + ISIGN
ICHK = 2
GO TO 126
LINE-Cl*ALPHA-C2 AND LINE SEGMENT ARE PARALLEL.
CHECK 1C SEE IF THEY *RE CO-LINEAR.
130 IF(ABS(C2«-CNOR«(NT,I )-SLUPE*ANURK( NT , I) ) .GT .EPS1 L I GU TO 125
ALPHA = ANOJiMCNT,! )-»OAl.PHA/2.0
L= (ALPHA/DALPHA) *• 1.0
PS = QNCRH(NT,L)t(ALPHA-ANURMCNT.L)I/OALPHA *(CNORMCNT,L+11
ROUT123
ROUT129
ROUT 1 30
ROUT 131
ROUT 133
ROUT 134
ROUT 135
ROUT136
ROUT13B
ROUT 139
ROUT141
ROUT
ROUT144
ROUT145
ROUT 146
ROUT147
ROUTl
ROUT176
KOUT179
ROUT180
89
-------
C
C
C
1-CNORMKT,LJ)
150 ACM, 2, 2) = ALPHA*AFULLIM1
Q(M,2,21 = PS*QFULL(Ml
RETURN
ELtMENT IS NOT A CONDUIT.
200 NGOTO * f*T-15
IF (NGCTC.LT.l) GO TO 210
GO TO (220,230,250,400,500, 250, 520, 220, 220, 220J, NGOTO
ERROR***CCNCUITS SHOULD BE KLASS 1 OR 2
210 QO(MJ=CI(M)
WRITE (6,905) M
RETURN
MANKDLc *** SIMl-LV TRANSLATE FLCW WITH Kb VIMfc OLLAY
220 QO(MJ=QI(H)
RETURN
LIFT STATICN***FUHPS ASSUMED TO BE PUMPING AT CONSTANT RATE
C=PUMP(KI).
VOLUME IN WET WELL INITIALLY IS HALF THE C APAC tTY( GEOM1) .
FORCE MAIN ASSUMED TO REMAIN FULL AT ALL TIMES RESULTING IN
TIME DELAY.
230 WELL2(M) = WELL2OM +QI GO TO 450
420
GO TO 413
IF
GO
QQ
ROUT181
ROJT182
ROUT1B3
ROU-T185
ROUT186
ROUT187
ROUT189
ROUT 190
ROUT191
ROUT192
ROUT194
ROUTL95
ROUT196
ROUT199
ROUT2DO
ROUT201
50UT202
SODT2D3
ROUT204
ROUT205
ROUT2C6
SUUT207
ROUT209
ROUT210
ROUT211
ROUT213
ROUT214
ROUTP15
"OUT216
RQUT213
ROUT21P
ROUT220
ROUT221
ROUT222
ROUT223
ROUT224
RUUT225
ROUT226
=»OUT227
ROUT22B
ROUT229
RUUT230
ROUT231
RO-JT232
ROUT233
ROUT234
RUUT235
ROUT236
ROUT237
ROUT239
90
-------
CPOLL(M,1,2,IP»/QHM)
CPOLUM, 1,2,1)*QI(M)*DT
CPOLL(M,l,2,2)*Ql{M)*OT
CPOLL(M,l,2i3J*QI(M)*DT
C02(NI=QOUST
GO
,0
.0
,0
TO 440
BODCUT/l)
CPULL(H,2,2,2)
CPOLLi TRIES TC FORCE O.LT.ZERU.
FORMAT (/' ERROR: CONDUITS SHCULO SE CLASS i OR 2.
C
C
C
C
*E,
QOKK)
<501
902
903
904
SC5
91 C
ROUT241
*OUT242
ROUT243
ROUT244
ROJT244A
ROUT245
ROUT247
ROUT249
ROUT25D
*OUT250A
^CJUl 251
ROUT252
ROUT253A
ROUT255
ROUT256
ROUT257
30UT258
ROUT26D
ROUT261
ROUT265
ROUT266
RUUT267
ROUT263
ROUT269
ROUT270
ROUT271
ROUT273
ROUT274
50JT275
RUUT277
ROUT 27 J
ROUT279
;IOUT2S1
ROUT282
ROUT283
ROUT2EK
ROUT287
AROUT28B
ROUT289
USE 0,A VALUES
ROUT 292
JNLFSROJT293
ROUT 294
USE ZERU.'I ?UUT?95
H=«15)
FORMAT (/• **WARNING: NEWTON UNABLE TO FIND AREA GIVEN FLOW. TIMfc'=ROUT297
91
-------
l'F7.1t«t TIME STEP=*I3ttt EXT. ELE. NUM.= 'I<*i«t USE OLD UPSTREAM AROUT298
2REA='F6.2J ROUT299
END ROUT300
92
-------
c
c
c
c
c
c
c
c
c
c
SUBRCUTUE SLCP
ROUTINE TC SEQUENCE ELEMENTS FOR COMPUTATION.
SLOP 2
SLOP 3
THIS VERSION OF SLOP LSES VECTOP «NIN' TO POINT TO INTERNAL NJMBERSLOP <*
EXTERNAL ELEMENT NUMBERS MUST BE NUMERIC AND LE 1000.
COMMON/NAMES/ NAME(4,25) »GNO T YE S,BL ANK
COMMON/TABLES/ KDEPTH< 25 ),KL ASS (25), PS IM AX ( 15 ),ALFMAX( 15 1,
1 NM25) ,MM(25) t ANORW 15 1 51 ) t QNORM( 15,5 1 ) t
2 DNORM(l5,5l),AFACT(15),RFACT(15)
COMMON A(160,2,2) ,0(160,2,2) , CPCLL ( 160 , 2,2, 3) , QMAXU60),
1 QFULL(160), AFULLI160), DXDT( 160 I , C 1 ( 160 I , SLOPF.(160),
2 DISTU60), GEOCK160), ROUGHU60), NOE(160), NUE(160,3J,
3 INUE(160i3), NTYPEU60), JR(160), NKLASS, NE , NOT, EPSIL,
4 riC.tr 01, i-i, KI-uLLr N, NuS, NHULL, NPRINI, HER,
5 QCfcF(160), IOLDU60), PK160), RNOFFU60), QINFIH160),
6 WCWF(160,3), PLUTO(160,3) , IR(160), P2U60), NIN(IOOO),
7 F5{160),F6{i60),P7U60),SCF(160),BARREL(160) ,
8 TITLEUO), NPE(20), NYM20), NURDER(70 1 , . GEOM2( 16D ) ,
9 GECP3(16C) , P4U60) ,SCOUR< 160), KSTORE1160)
COMMON BOCIN( 2,150) ,SSIM 2, 1 50) , BODOUT ,SSOUT ,CUL IN(2 , 1 50) ,
* «INSTtCOLST,QlNSTL< 2)»QOUSTL( 2),STORL( 2) ,QOUTO( 2),STORO( 2)
* NSTCRtKSTCR,IFRINT ( 2),IPOL{ 2),IFLOOD( 2),ICOST( 2),OEPMAX( 2)
* ATERM 2,1U,A020T2( 2 ,11 ) .BDEPTHC 2,11),BSTUR( 2 , 1 1 ) «COLOJT ,
* DJHSTR(ll),CUMDEP(ll),
* KTSfEP,VOLIN( 2,150),VOLOUT( 2 ,150) ,STOR ,CUMIN( 2),CJMOUT( 2),
* S60U( 2),SSS( 2),SCCL( 2),
* ISTNCCJ 2),ISTTYP( 2J,ISTOUT( 2),
* QPUKPt 2),DSTART( 2),DSTOP( 2),
* DTCNf 2),STORMX( 2),OTPUMP( 2),OTMORE( 2),STORF( 2),APLAN( 2),
* CLANOt 2)tCSTOR( 2),CPS< 2),CTOTAL< 2),CPCUYD( 2)»CPACRE( 2),
* LP,JPrLPREV( 2),LABEL,DETENT(150),FRAC(150) , OUT 1 ( 10,200 )
NEP1 = hE+1
ZERO CUT ARRAYS
DO 10 1=1, NE
IR(I) = 0
10 JR(I) = C
COMPUTE INTERNAL UPSTREAM ELEMENT NUMBERS.
DO 15 N=1,NE
DO IS J=l»3
IF (NUE(N.J)) 12,12,13
IF THERE IS NO UPSTREAM ELEMENT, ASSIGN ARTIFICIAL VALUE.
12 INUE(N.J) = NEP1
GO TO 15
13 L = NU£(N,JI
UPSTREAM ELEMENT NUMBERS NOW FCUND FROM POINTING VECTOR, 'NIN1.
IMJE(N,J» = MN(LI
15 CONTINUE
SEQUENCE ELEMENTS FOR COMPUTATION.
FLO.V MAY BE ROUTED IN ELEMENT I IF IT HAS BEEN ROUTED IN ALL
UPSTREAM ELEMENTS.
DO 30 N=1,NE
I = 1
17 IFURU )) 20,20,18
18 I - 1+1
IF (I-NEI 17,17,30
20 DO 25 J=l,3
IF (NUE(ltJ)l 25,25,22
22 L = INUE(I,J)
IF (IR(D) 18,18,25
25 CCNf INUE
IRU) = 1
SLOP 5
SLOP 6
SLOP 7
SLOP 8
SLOP 9
SLOP 10
SLOP 11
SLOP 12
SLOP 13
SLOP 14
SLDP 15
SLOP 16
SLOP 17
SLOP 18
SLOP 19
SLOP 20X
•SLOP 21
.SLOP 22
SLOP 23X
SLOP 24
SLOP 25
SLOP 26X
SLOP 27
SLOP 28
SLOP 29
SLOP 30
SLOP 31X
SLOP 32
SLOP 33
SLOP 34
SLOP 35
SLOP 36
SLOP 37
SLOP 38
SLOP 39
SLOP 40
SLOP 41
SLOP 42
SLOP 43
SLOP 44
SLOP 45
SLOP 46
SLOP 47
SL3P 48
SLOP 49
SLOP 53
SLOP 51
SLOP 52
SLOP 53
SLDP 54
SLOP 55
SLOP 5S
SLOP 57
SLOP 58
SLOP 59
SLOP 60
SLUP 61
93
-------
JR(NI - I SLOP 62
30 CONTINUE SLOP 63
WRITE 16,9051 SLDP 6<>
00 50 1=1.NE SLOP 65
L * JR(I) SLOP 66
NT = NTYPE(I) SLOP 67
50 WRITE <6,9C6> M3E(I),NT,(NAME(J,NTJ,J=1,4>,(NUE
-------
FUNCTION VEL(QQ»AA) VEL 1
ROUTINE TO COMPUTE VELOCITY GIVEN FLOW AND AREA. VEL 2
IF (AA.LE.0.0001) GO TO 10 VFL 3
VEL = CC/AA VEL ^
RETURN VEL 5
10 VEL = 0.0 VEL 6
RETURN VEL 7
END VEL 8
95 '•
-------
C«*s=s==rteTCALF £ EDDYt
SUBRCUTINE TSTRCT
CCMMON/T4BLES/KCEPTH|25),KLASS(25),PSlMAXl15),ALFMAX(15),
1
2
1
2
3
4
5
6
7
8
9
NN(25I,*M(25) ,ANORM( 15,5 1) , QNORM( 15,51 ),
ONORM(15,51),AFACT(15I,RFACT(15)
A(160,2t2) tQ(160,2i2) t CPOLL ( 160 ,2 .2 ,3 I , QMAX(160).
CFULL(160), AFULL(160Jf DXDT ( 160 ) ,C 1 ( 160 1 , SLOPE(160lt
OISTC160), GEOMl(160)t ROUGHI160), NGEU&O), N'JE(160,3),
INUE(160,3)t NTYPEU60), JR(160), NKLASS, NE, NDT, EPSIL,
TIKE, DT, M, KFULL, N, NOS, NPOLL, NPRINT, ITER,
COWFU60), IOLC(160), PK160), RNOFFU60), QINFILU60),
HCHFU60,3)t PLUTO(160,3), IRU60), P2(160>, NIN(IOOO),
10000
C
lllll
601
00 6886 KSTOR=1, NSTGR
MRITE(6r601) KSTOR
FORHATC1*,//, 'OINPUT DATA
*1
READ(5,5C1)
501 FORMAT(1C15I
C
C
C
C
C
C
C
C
C *
C
C
C
C
C *
C *
C *
C
C
C-EXCLUDCD
C-EXCLUDEU
C-EXCLLDEO
KSTOR
NOED
NUED
ISTEXS
ENGINEERS' STORAGE MODEL====«============ ====
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
2),TSTR
2),TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
FOLLOWS'TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
COVEREDTSTR
UNCOVERTSTR
TSTR
TSTR
EXCCSS FLOW HANDLING (BYPASS, BACK-UP, FLOUTSTR
I = BYPASS FRACHON CONTINUOUSLY, UNDER GRATSTR
2 = BYPASS FRACTION CONTINUOUSLY, CONTROLLETSTR
TITLEC40), NPE(20), NYN(20), NORDER170), GEOM2U60),
GECK3(160) , P4(160),SCOUR(160), KSTORE(160)
BCDINC 2*150)tSSINC 2,150),BODOUT,SSOUT,COLIN(2,150),
QIKST,CCUST,CINSTL( 2),QOUSTL( 2I,STORL( 2),QOUTO( 2),STORO(
NSTOR,KSTCR,IPRINT( 2),IPOL( 2),IFLOUD( 2),ICOST( 2),DEPMAX(
ATERM 2,ll),A02DT2( 2,ll),BDEPTH< 2,li),BSTOR( 2, 111 .COL'JUT,
DUMSTRUil.OUPDEPUl),
KTSTEP.VCLINJ 2,150),VOLOUT( 2,150),STOR,CUMIN( 2),CUMOUT( 2),
SBOD( 2),SSS( 2»,SCOH 2),
ISTMOD( 2I,ISTTYP( 2),ISTOUT( 2),
GPUMP( 2I.CSTARTC 2t,DSTOP( 2),
DTON( 2),STORCX( 2),DTPUMP( 2),DTMORE( 2),STORF( 2),APLAN( 2),
CLAND( 2I,CSTOR( 2),CPS( 2),CTOTAL( 2I»CPCUYD( 2),CPACRE( 2),
LP,JP,LPPEV( 2),LA8EL,DETENT(150J,FRAC(150),OUT1( 10,203)
DIMENSION ADEPTH(11),AASURF( lll.NUEDO)
DIMENS1CN COK150), C02115C)
EQUIVALENCE (QOK1) ,QMAXl 1) ), (Q02( 1) ,QFULL( II )
IF ( KSTCR .EQ. 0) STOP 10000
FOR STORAGE UNIT NO.'t 13, «
ISTMCD(KSTOR), ISTTYP(KSTOR) , ISTCUT(KSTOR)
NCTE.. OPERATIONAL OPTIONS INDICATED BY •*•
STORAGE UNIT NU.
NO. OF ELEMENT
NO. OF UPSTREAM ELEMENT
ISTMOD * STORAGE MODE
' 1 = IN-LINE
- 2 = OFF-LINE
= 3 = INTRASYSTEM
» 4 = REROUTING
ISTTYP = STORAGE STRUCTURE
(ROUTING, HOLDING, ETC)
(NATURAL, TANK, BAG)
1
2
3
IRREGULAR (NATURAL)
GEOMETRIC (REGULAR)
GECMtTRIC (REGULAR)
INTRASYSTEM
RUBBER BAG
RESERVUIR
RESERVOIR -
RESERVOIR -
1
2
3
4
5
6X
7
8
9
10
11
12X
13
14X
15
16X
17
18
19X
20
21
22X
23
24
25
26
27X
28X
29
30
31
32
33
34
35
36
37
39X
43
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
96
-------
AFTER SURCHARGE BEGINS
3 = BYPASS ALL,
4 * BACK UP
5 * PASS THROUGH (UNDER HEAD)
6 = FLOODS (AND SIMULATION TERMINATES)
OUTLET TYPE (GRAVITY, PUMP)
WITH FIXED ORIFICE
FIXED WEIR
FIXED SIDE-WEIR
FIXED SIPHON
WITH
WITH
WITH
GRAVITY
GRAVITY
GRAVITY
GRAVITY
NEW PUMPS
EXISTING PUMPS
ADJUSTABLE VALVE WITH GRAVITY
SLUICE GAIt HUH GKAVIIY
GRAVITY WITH FIXED WEIR AND ORIFICE
EFFECTS (YES/NO)
C-EXCLUCED
C-EXCLUDED
C-EXCLUDED
c-Exccuoeo *
C I STOUT
C * * 1
C * =2
C =3
C =4
C =5
C * « 6
C « 7
t =8
C * « 9
C-EXCLUDED 1STBUP = BACK-UP
C-EXCLUDEO * 1 = NO
C-EXCLUDED = 2 = YES,
C-EXCLUDED = 3 = YES,
C
DO 950 KK-l.NE
95C IF(KSTORE(KK).EQ.KSTOR) GC TO 970
WRITE(6,6041
604 FUR,MAT< "CELEPENT NO. TRACEBACK EPRGR' >
STOP
970 WRITE(6,602) KSTCR, NCE(KK),(NUECKK,11), 11 = 1, 3 I
* ISTOUTl KSTOR), 1 STMOiHKSTOR ) ,
602 FQRMATCC1, /, • •, 5X,
* 'CHARACTERISTICS OF STORAGE UNIT NUMBER1
* /, •0', IOX, 'ELEMENT NUMBER = ', 14, 24X,
* 'U/S ARE', 14, ',«, 14, ',', 14, 2JX,
•OUTLET TYPE =•, 13, 12X,
/i • «, IOX, 'STORAGE MODE =', 13, 27X,
•STORAGE TYPE -•, 13)
IPOL = 0
= 1
UPSTREAM
UPSTREAM
OF INLET POINT
OF OUTLET POINT
(CONTSTR
TSTR
TSTR
TSTP
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSVH
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
TSTR
ISTTYP(KSTOR)
I4t
*
*
C
C
c
c
1PRINT » 0
* I
IPOLCKSTORJ,
READ(5,502)
502 FORKATOIIOI
WRITE(6,603) iPOL(KSTUR),
603 FORMATCO', 99Xf "IPOL = ',
NOED=NCE(KK)
TSTR
TSTR
ARE'TSTR
TSTR
TSTS
TSTR
TSTR
FSTR
= HYDRAULICS ONLY (NO SOLIDS) TSTK
= SOLIDS PRESENT TSTR
= NO PRINTOUT EACH TIME-STEP (SUMMARY POSTSTP
= PRINTOUT ALL TIME-STEP SOLUTIONS (EACH TSTR
IPRINT(KSTOR), ICOST(KSTOR)
IPRINT)
REAO(5t512) (AOEPTH(II), AASUP.F(II), 11-1,11)
512 FORKATC4(F10.2, F10.0))
AOEPTH = DATA DEPTH (FTJ, 0 - DEPMAX.
AASURF = DATA SURF. AREA OF NAT. RESERVOIR
KRITEU.612) (ADEPTH(II), AASURFdII, 11-1,11)
TSTR116
TSTR117
TSTR118
TSTR119
(SQ. FT,
612 FORMA U • ', 18X, F10.2, F10.0, 5X, F10.2, FlO.Of
* F10.2, F10.0, 5X, F10.2, F10.0)
APLAMKSTOR) = AASURF* 11)
IF (ADEPTH(ll) .LT. OEPMAX( KSTOR) ) GO TO 903
GO TO 2000
5X,
)TSTR12l
TSTR122
TST9123
C
C
C
B) FOR REGULAR (MAN-MADE) RESERVOIR
TSTR125
TSTR126
TSTR127
TST<128
1200 PEAC(5,£1U
OEPMAX(KSTOR)
BASEA, BASEC, COTSLO
513 FORMAT12F10.0, F10.5)
C BASEA = BASE AREA OF RESERVOIR (SQ.FT.)
C BASEC = BASE CIRCUMF. OF RESERVOIR (FT.)
C COTSLO = COTAN OF SIOESLOPE ANGLE (HORIZ/VERT)
APLAMKSTOR) = BASEA + BASEC*COTSLO*DEPMAX ( KSTOR) *1. 1
HR1TE(6,613) DEPKAXtKSTOR), BASEA, BASEC, COTSLO
613 FORMAT(«0', 15X, 'MAN-MADE RESERVOIR, WITH MAX. DEPTH =', F7.2,
FT., AND CHARACTERISTICS', /, '0', 20X,
•EASE AREA =', F10.0, ' SQ.FT.,', 7X,
•EASE CIRCUMF. =», FIO.O, • FT.,1, 6X,
•CCT(SIDESLOPE) =', F10.5)
TSTR130
TSTR131
TSTS132
TSTR133
TSTR135
TSTR136
TSTR137
TSTR13B
READ OUTLET CONTROL DATA
BRANCH TO OUTLET TYPE (ISTOUT)
TSTS147
TSTR1<*8
ISTCUT(KSTOR)
(2100,2200, 906,
906, 906,2600, 906, 906,2900), K
TSTf,150
AJ OUTLET BY GRAVITY WITH FIXED ORIFICE
621
READ(5,52U CDAOUT
FORMAT(F10.3)
CCAOUT = OUTLET ORIFICE AREA * DISCHARGE
WRITE(6*621) CCAOUT, DT
FORMATCO', 15X, 'RESERVOIR OUTLET CONTROL
*RIFICE«, /, • ', 15X, 'ORIFICE AREA*CD =',
*F10.2, • SEC. (FROM INPUT HYDROGRAP )', /, •
*• f, 18X, 'CRIFICE CENTERLINE ASSUMED AT TANK
*AGE = 0»l
TSTR152
TSTR153
TSTRISi
GO TO 3000
C
C
C
C3EFFICIEMTTSTP. 156
TSTR157
BY GRAVITY WITH FIXED OTSTiUSS
F10.3, ' SQ.F-T, DT =',TSTK159
• ', 15X, 'N'JTE..', /t TST}. J
PTH = 0, WHEN STURFSTHlol
TSTR162
TSTR163
TSTRU't
Bl OUTLET BY GRAVITY WITH FIXED WEIR
22CO READ(5»522) WEIRHT, WEIRL
522 FORMAT(2F10.3)
C WEIRHT
C WEIRL
C METRO
WRITF(&,622) WEIRHT,
= RES. DEPTH (FT) WHEN SURF. AT WFIR ELEV,
= WEIR LENGTH (FT)
= 3.33*(PEPTH-WE1RHT)**1.5 (CFS/FT)
WEIRL, CT
TSTR166
TSTR167
TSTR168
TST5169
TST^17D
TSTR171
TSTR172
TSTH173
622 FURMAT(«0«, 15X, 'RESERVOIR OUTLET
*EIR«, /, • ', 15X, "WEIR HEIGHT ='
CONTROL BY GRAVITY WITH FIXED
F6.2, ' FT, WEIR LEN3TH =•,
TSTK175
98
-------
* F7.2t • FTt OT =«, F10.2, • SEC. (FROM INPUT HYDRUGRAPH)•)
60 TO 3000
c
c
c
2600
526
C
C
C
REAC(5,526)
FORMATOF10
F) OUTLET BY EXISTING PUMPS
626
QPUMP(KSTOR),DSTART(KSTOR),DSTOP(KSTOR)
3)
QPUMP = CONSTANT PUMPED OUTFLOW RATE (CFS)
DSTART = RESERVOIR DEPTH AT START OF PULPING
DSTOP = RESERVUIR DEPTH AT END OF PUMPING
WRITE (6, 6261 QPUMPJ KSTOR ) ,OSTART( KSTOR ), OS TOP (KSTOR)
FUKHAIt'C", 1SX, 'KtitKVUiK LUI'f-LUW UY HXED-RAlt PUMPINS1, /»
* • », ISXt "PUMPING RATE = ', F7.2, ' CFSt PUMPING START',
* • DEPTH = ', F6.2f « FT, PUMPING STOP DEPTH =«, F6.2t ' FT1
IF •>•}
TSTR223
BAG AND INTRASYSTEM 00 NUT HAVE 'DEPTH'
BRANCH TC STORAGE TYPE (ISTTYP)
TSTR225
TSTR226
TSTR227
TSTR22R
3000 K = ISTTYP(KSTCR)
GO TO (3100,3200,3200,
904, 904), K
C
C-
C
A) FOR 'NATURAL1 RESERVOIR
3100 DOEPTh = C£PKAX(KSTCR)/10.0
J = ISTCtTlKSTORJ
TSTR230
TSTH231
TSTR23?
TSTS233
TST6234
TSTR235
99
-------
c
c
IF (J.EQ.2.0R.J.EQ.3.0R.J.EQ.9) DDEPTH = WEIRHT/3.0
DUHOEP(l) = 0.0
DEPTH = 0.0
CALL TINTPP/7.0
OUMCEP(II) = DUMDEP(II-l) + DDEPTH
DEPTH = DUMOEP(II)
CALL TIKTFPUDEPTH, AASURFt lit DEPTH, AREA, KFLAG)
IF (KFLAG .NE. 0) GO TO 901
ARE 4 2 = AREA
3150 D'JMSTR(II) = OUMSTR(II-1» * 0.5*DDEPTH*( ARE A1+AREA2 )
c
c
631 FORMAT (»C', 2CX, 4( « DEPTHCF T ) STQR( CU.FT) • , 4X ) )
MRITE(6,632) (DUKDEP(II), CUPSTR(II), 11=1,111
632 FURMAT( • «, 18Xt F9.2, Fll.Ot 5X, F9.2, Fll.Ot 5X,
* F9.2, Fll.O, 5X, F9.2, Fll.OI
GO TO 33CO
C
C ------- B) FOR HAN-MACE RESERVOIR
C
320C DDEPTh * OEPHAX< KSTCR)/10.0
J = ISIOLT(KSTOR)
IF (J.EC.2.0R.J.EQ.3.0R.J.EQ.9) DOEPTH = WEIRHT/3.0
DUKDEFU) - 0.0
OUHSTR(l) = 0.0
00 3250 JI=2,ll
IF ( (J. EC. 2. OR. J.EQ. 3. OR. J. EC. 91. AND. II. £0.5) DOEPTH =
* (OEPrUX(KSTOR) - WEIRHT)/7.0
DUMOEP(II) ^ DUFDEP(H-l) + DDEPTH
3250 DUMSTRUI) =• CBASEA + 0 .5 *BAS CC*DUMDEP( 1 1 ) *CJTSLO) *DUMDEP ( 1 1 )
WRITE(6*631I
HRIJE<6,632) (DUMDEP(II), DUKSTR(II), 11=1,111
C
3300 00 3350 II=l«il
BSTOR(KSTOR,II) - DUMSTR(II)
3350 BDEPTH(KSTORtll) = DUMDEPUI)
C
C END OF DEPTH/STORAGE COMPUTATIONS
C
C -------------- . --- BRANCH TO STORAGE MODE (ISTMODJ ------------------
C
K = ISTMCD(KSTOR)
GO TO <
-------
c
c-
c
c-
c
4100
DT2
00 4150
DEPTH
S10R
QOUT
COMPUTE AND PRINT ROUTING PARAMETERS
A) FOR ORIFICE OUTLET
* 0.5*CT
11=1,11
= CUMOFP(II)
= DUKSTRU I)
= CDACUT*SQRT(64.4*CEPTH)
* »
#
F10.3, ' SEC., ARE
1 IF 10.0, /
..'»
, ' ',
GO TO eccc
c
c
4200 DT2
00 4250
DEPTH
STOR
H
CCUT
Ql CJ*1D UCTD
01 rUK Wtl K
= 0.5*DT
11=1,11
= DUMDEP(II)
= DUfSTRUIl
» DEPTH - WEIRHT
= 0.0
f"H 1 TI CT
UU 1 L t 1
C
c-
c
c
c
IF (H .GT. 0.0» COliT = WEIRL*3.33*H*SQRT(H)
A02DT2(KSTOR, II t = CG'JT*DT2
4250 AT£RM(KSTOR,II) = CCUT*DT2 * STOR
WRITE(6,641) DT, (ATERM(KSTOR,11) , 11 = 1,11),
* (A02DT2(KSTUR,II), 11=1,11)
GO TO 8CCO
CHECK BUFFER VCLUME FOR PUMPED OUTFLOW
4600 DSTRT = DSTART(KSTOR)
CALL TINlRPtOUMDEP, DUPSTR, 11, DSTRT, STORHI, KFLAG)
IF (KFLAG .NE. 0) GO TO SOI
OSTP = DSTOP(KSTOR)
CALL TINTRP(CUMDEP, DUMSTR, 11, DSTP, STORLO, KFLAG)
IF (KFLAG .NE. C) GO TO 901
STORDV = STCRH1 - STCRLO
PCMPDV = OPU^P(KSTCR)*DT
DVR * STCRCV/PUMPDV
IF (DVR .LT. 1.0) GO TO 4650
WRlTE(6,C'i6) DVR
646 FORMATCC', 15X, 'STORAGE BETWEEN LEVELS DSTART AND DSTUP =«,
* F7.3, • TIMES (QPUMP*DT)')
GO TU 8000
4t>l>C WRITE(6tfi,7) STORHI, STGRLD, STORDV, PUMPCV
647 FOfiMAI CC',20X, 'AT LEVEL DSTART, STORAGE =', F10.0,' CU.FT'
* ' ',20X, 'AT LEVEL DSTQP, STORAGE =», F10.0,• CU.FT'
TSTR2<)6
TSTK297
TSTR298
TSTR299
TSTR300
TSTR301
TSTR302
TSTR303
TSTR304
TSTR305
A02DT2(KSTOR,II1 = OCUT*DT2
4150 ATEKMKSTCKf ill = COJf*04«i t J.10R
WRITE(6,441) DT, (ATERM(KSTOR,II) , 11=1,11),
* (AO2DT2(KSTOR,II), 11=1,11)
641 FORMAT('0', 20X, 'THE TWO SETS OF 11 STORAGE PARAMETERS, FOR DT =
', '0«, 11X, 'ATERM.. «t
HX, 'A02DT2..', 11F10.0)
TSTR3D7
TS1R308
TSTR309
TSTR310
'TST:<311
TSTR312
TSTR313
TSTR314
TSTR315
TSTR316
TSTR317
TSTR318
TSTR319
TSTR320
TSTR321
TSTR322
TSTR323
TSTR324
TSTR325
TSTR328
TSTR329
TSTR33D
TSTR331
TSTR332
TSTR333
TSTR334
TSTR335
TSTR336
TSTR337
TSTR33S
TSTR339
TSTR340
TSTR341
TSTR342
TSTR344
TSTR345
TSTP-346
TSTR347
TSTR349
TSTR35D
TSTR351
TSTR352
TSTR353
,/,TSTR354
,/,TSTR355
101
-------
C
c
c
4900
4950
C
C
C
C
8000
551
C
^^^^.
C
561
C
C
8888
C
C
C
901
691
C
902
• S20Xf ^DIFFERENCE = BUFFER STORAGE =•, F10.0, • CU.FT',/
•0'tl6X, «CF. VOLUME PUMPED / TIME-STEP = •, FIO.O, • CU.FT',/
'0!,10X, «A RELIABLE HCDEL REQUIRES THE VOLUME PUMPED / TIME-'
•STEP TO BE LESS THAN THF BUFFER STORAGE* , /,
1 'tlCX, • THEREFORE ONE OF THE FOLLOWING AMENDMENTS SHOULD ',
•PRCEABLY BE MADE TC THE INPUT DATA -', /,
• «.15X, «AI REDUCE QPUMP RATE', /,
• *tl5X, «B) REDUCE OSTOP LEVEL', /,
1 *,15X, «C) INCREASE DSTART LEVEL', /,
• *tl5X, «D» INCREASE RESERVOIR PLAN AREAS', /,
•O't 2X, «**** FOR THE A30VE REASUNS, THE FOLLOWING OUTPUT'
' IS NOT NECESSARILY RELIABLE •»
GO TO 8000
II crtD UCTO Akin nBfCfpc ni ITI CT c /* nuo t i*ict\
1 rUK We 1 K AND uRIrlUc uUTLclS CunBlNtl)
DT2 * 0.5*DT
DO 4950 11=1,11
DEPTH = CUMCEPim
STOR = CLKSTRUII
QOUT = 0.0
DD = DEP1H-CRIFHT
IF (OC.CT.O.OI COUT=QOUT+CDAOUT*SQRT(6^.4*ODt
OOTKKSTCR.in = CCUT*OT2
H = OEPTh-HElRhT
IF (H.GT.0.0) CCUT=COUT4HEIRL*3.33*H*SQRT(H)
A02DT2(KSTCR,II) = QOUT*DT2
ATEW,KSTCR,II) = QOUT*OT2+STOR
HRITb (6, £411 DT,UTERK(KSTGR,II),II=l,ll),
1 (A02nT2
-------
692 FORMAT CO *** TERMINATE - INPUT TO TINTRP PROCEDURE IS GREATER THATSTR416
*N LARGEST VALUE ON CURVE (IN SUBRT. TSTRDTP) TSTR417
STOP TSTR418
C TSTR419
903 WRITE<6t««l KSTCRf DEPMAX(KSTUR), ADEPTH<11) TSTR420
693 FORMATCC *** FOR RESERVOIR NO.', 14, TSTR421
* «, THE MAX. DEPTH, DEPMAX =«, TSTR422
* F7.2, • FTt IS OUTSIDE DEPTH PARAMETER RANGE. LARGEST DEPTH PARATSTR423
*METER, ACEPTH(H) = ', F7.2) TSTR424
STOP TSTR425
C TSTR426
904 HRITE<6,694) ISTTYP1KSTOR), KSTOR TSTR427
694 FORMATC'C *•** IS7TYP -! , I3i ', IU RESCKVJiR NQ. • i 14. TSTR428
* «t IS CF A TYPE NOT PRESENTLY MODELED'I TSTK429
STOP TSTR430
C . TSTR43L
905 WRITEt6,6<55) ISTMOD (KSTOR» , KSTOR TSTR432
695 FORMATCO *** ISTMOO =', I3i ', IN RESERVOIR NO. • i 14, TSTK433
* »t IS OF A TYPE NOT PRESENTLY MODELED') TST*434
STOP TSTR435
C TSTR436
906 HRITE(6,6S6) ISTCUT(KSTOR), KSTOR TSTR437
696 FORMATCO *** ISTOUT =« , 13, '» IN RESERVOIR NJ.', 14, TSTR438
* •, IS OF A TYPE NOT PRESENTLY MODELED') TSTR439
STOP TSTR4-VO
C TSTR441
907 KRITE(6,6S7) ISTINF, KSTOR TSTR442
697 FORMATCO *** ISTINF =• , 13, ', IN RESERVOIR NO.J, 14, TSTR443
* ', IS OF A TYPE NOT PRESENTLY MODELED1) TSTR444
STOP TSTR445
C TSTR446
C TSTR447
9999 RETURN TSTR448
END TSTR4^9
£==================== = -=====•========= = ===^3s=== ============= = = = = = = = = ==
103
-------
SUBROUTINE TSTORG
CCMMGN/TAELES/KCEPTH(25),KLASS(25),PSIMAX(15),ALFMAX( 15),
1 NM(25) ,MM(25) , ANURM( 15 , 51 ) , QNORM( 15 ,5 1 1 ,
2 DNORM ( 1 5 , 5 1 j , A FAC T ( 1 5 ) , RF AC T ( 1 5 )
COMMON 4(160,2,2) ,0(160,2,2) t CPOLL ( 160 ,2 ,2 ,3 ) , QMAX(160),
1 CFULL(160lt AFULL(16C)» DXDT ( 160 » t C 1 ( 160) i SLOPEU60),
2 DIST(160lt GEOMK160), ROUGH(160), NOE (160), NUE(160,3),
3 IMJE(160,3), NTYPEU60), JRU60), NKLASS, NEt NOT, EPSILi
4 TIPE, OTt H, KFULL, N, NOS, NPOLL, NPRfNT, ITER,
5 QChF(l60)t IOLDU60), PI (160), RNOFF()60lt QINFILU60),
6 WC*iH160,3), PLUTO(160,3), IR(160)i P2U60), NIN(IOOO),
7 P5(l60),P6(160),P7(16CI,SCF(160),BARPeL(160) ,
e TiTLL{'»0), ;J;LI<:«;, iwM2ui, uow.it KIYO> , oiiuu2( 160),
9 GECP3(160) « P4(160»,SCOUR( 160), KSTORE(160k
COMMON EQOIN( 2,150), SSIN< 2 ,150) , BUDOUT , SSUUT ,CUL INC? , 1 50) ,
QINST,COCST,QINSTL( 2),COUSTL< 2), STORK 2) ,QUUTO( 2),STORO( 2)
NSTOR,KSTOR,IPRINT( 2),IPOL( 2),IFLOOD< 2),ICOST( 2),DEPMAX( 2)
ATERM 2ill) ,A02DT2( 2,1U,BOEPTH( 2»ll),BSTOR( 2 ,11 ) ,C OL'JJT ,
DUCSTRUIJ.OUMDEPUI),
KTSTEP,VCLIM( 2,150 ) ,VOLOUT( 2 ,150) ,STUR, CUMIN ( 2),CUMOUT( 2),
SeOD( 2),SSS( 2),SCOLl 2),
ISTMOC( 2),ISTTYP( 2I,ISTOUT( 2),
QPUKP( 2),DST*RT( 2),OSTQP( 2),
DTQN( 2»,STCRMX( 2),DTPUMP( 2)tDTMORE( 2),STORF( 2»,APLAN( 2),
CLANCC 2),CSTCR( 2),CPS( 2),CTOTAL( 2),CPCUYD( 2),CPACRE( 21,
LP, JP,LPREV( 2),LABEL,OETENT(150) ,FRAC( 150) ,OUT1( 10,200)
C
OIME^SIC^ OEPTHL( 21
DIMENSION C01U50), 002(150)
EQUIVALENCE (Q01 ( 1 ) , QHAX( 1 ) ) , (Q02( 1 ) ,QFULU 1) )
C
IF (KTSTEP .GT. 1 .OR. KSTOR .GT. 1) GO TO 1300
C
00 1050 KSTOUf*l,NSTCR
IF (1PRINTJKSTDUM) .GT. 0) GO TO 1100
105-0 CONTINUE
GO T(j 1200
C
HOC WRITE (6, 601) NOT
601 FORMA Tl • 1STORAGE SOLUTION FOR', 14, • TIME-STEPS FOLLOWS',
* «, CN A STEP-BY-STEP BASIS', //)
WRITE<6,6C2)
602 FORMAT! «OU STP TIME INFLOW OUTFLOW STORAGE DEPTH', 2X, 'IN: 800'
* 5X, «SS STOR: BCD', 7X, «SS«, AX, 'BOD1, 5X, 'SS OUT: 300'
* 5X, «SS«, 4X, 'BOO', 5X, ' SS1 , 2X, • J L', /,
* • N KC (KIN) (CHS) (CFS) (CU.FT) (TT.)', 5X,
* MLB) (LB)', 6X, MLB)', 5X, MLB) (MG/L) (MG/L)', 5X,
* MLBI (LB) (MG/L) (MG/L)', 2X , ' P P« , /)
C
1200 DO 1250 KSTDUM^l.NSTCR
STCRfX(KSTOUM) - 0.0
LPREV(KSTDUM) = 1
S60C(KSTDUMI = 0.0
SSS(KSICLH) = 0.0
SCUL(KSTI)UM) -« 0.0
STOR = STCRO(KSTDUM)
DO 1230 1-1,11
DUMSTR(I) = BSTOR(KSTDUK,I»
1230 OUMDEF(I) = BCEPT H( KSTDUM, I )
C
TSTO 1
TSTO 2
TSTO 3
TSTU 4
TSTU 5X
TSTO 6
TSTO 7
TSTO 8
TSTO 9
TSTO 10
TSTC1 11X
TSTD 12
TSTO 13X
TSTU 1<*
TSTU 15X
,TSTO 16
,TSTD 17
TSTO IPX
TSTO 19
TSTO 20
TSTO 21X
TSTO 22
TSTt) 23
TSTO 2*
TSTU 25
TSTO 26X
TSTG 27X
TSTC1 28
TSTO 29
TST3 30
TSTO 31
TSTO 32
TSTO 33
TSTJ 34
TSTH 35
TSTO 36
TST3 37
TSTO 38
TSTU 39
TSTO 43
TSTO 41
TSTU 42
,TS10 43
,TSTJ 44
TSTO 45
TSTO 46
TSTU 47
TSTO 48
TSTU 't9
TSTO 50
TSTO 51
TSTU 52
TSTD 53
TSTU 54
TSTU 54A
TSTO 55
TSTU 5'j
TSTU 57
TSTO 5S
TSTO 59
104
-------
CALL TieaPJ>(DUMSTR,DUKQEPfll,STOR,DEPTH,KFLAG)
IF (KFLAG .EQ. -101 GO TO 901
IF (KFLAG .EQ. 101 GO TO 8000
DEPTHKKSTDUM) = DEPTH
IF (DEPTH .GT. OEPMAX(KSTOUM)) GO TO 8000
IF (iPRINT(KSTOUM) .LT. 1) GO TO 1250
HRITE(6,603) KSTDUN COUTO (KSTOUM) , STORO(KSTOUM) , DEPTH
603
1250
604
1300
1350
FORMAT(' S
CONTINUE
HR1TE(6,6C4)
FORMA!i• '
I If
0.0
0.0'f F7.1, F10.0, F6.2)
00 1350 ll=ltll
DUKSTR(Il) = BSTOR(KSTOR,II»
OUMDEPUU - BDEPTH (KSTOR , 1 1 )
RKTSTP = KTSTEP
TIKE2K = OT*RKTSTP/60.0
BODOUT = 0.0
SSOUT = 0.0
COLOUT = 0.0
IF (ISTCUT(KSTOR)
GO TO 3CCC
EQ . 5 .OR. 1STOUT( KSTOR ) .EQ. 6) GD TO 2000
2000 IF (KTSTEP .GT. i> GO TO 2100
QINSTL(KSTGRI = 0.0
QOUSTL(KSTCP) = QOUTO(KSTOR)
STORL(KSTGR) * STOROUSTORI
CUM1MKSTOR) = 0.0
CUMCUT(KSTCR» = 0.0
STOR = STORO(KSTOR)
LP =0
JP =0
OTOMKSTOR) = 0.0
QINSTJ
2100 VQLiMKSTGR.KTSTEPJ = 0.5*DT* ( QINSTL (KSTOR)
VCLCUZ = CT*QCUSTL(KSTORI
STORZ = STORUKSTORI * VOLIN( KSTOR tKTSTEP) - VQLOUZ
CALL TINTPP(DUMSTR,DUMOEP,ll,STORZ,OEPTHZ,KFLAr,|
C
C
IF (KFLAG .EQ. -10»
IF (KFLAG .EQ. 10)
GO TO 901
GO TO 8000
C
C
C
***
THE FOLLOWING STATEMENTS, ABOVE 2150, ARE TEMPORARY
IF (OUST .GT. QPUMP(KSTOR) .AMD. QOUSTL( KSTUR J .EQ. 0.0)
* GO TC 2120
GO TO 2150
2120 FON = (Q1NST-QPUKP(KSTOR))/(QINST-QINSTL(KSTOR))
DSTARHKSTCRl = OEPTHZM 1 .0-FON) + FON*OEPTHL (KSTOR )
DTUN(KSTGR) = OTOMKSTOR) + FON
hRir£(6,6C5> OSTART(KSTOR), KSTOR
605 FORMAT(• «, 60X, "NEW USTART =•, F6.2, • FT.«,
* ', IN UNIT NO.', 131
TSTO 60
TSTO 61
TSTO 62
TSTU 63
TSTO 6<*
TSTO 65
TSTO 66
TSTO 67
TSTO 68
TSTO 69
TSTO 70
TSTO 71
TSTO 72
TSTQ 73
TSTO 74
TSTO 75
TSTU 76
TSTO 77
TSTO 78
TST3 79
TSTO 80
TSTU 80A
TSTO 81
TSTO 82
TSTO 83
TSTO 84
TSTO 85
TSTO 86
TSTO 87
TSTO 88
TSTO 89
TSTO 90
TSTC1 91
TSTO 92
TSTO 93
TSTO 94
TSTO 95
TSTO 96
TSTO 97
TSTO 96
TSTO 99
TST0100
TST0101
TSTOID2
TSTU103
TST0104
TST0105
TST0106
TST0107
TST0108
TST0109
TST0110
TSTOill
TST:)112
TST0113
TST0114
TST0115
TSTJ116
TST3117
TSTHllB
105
-------
2150 IF (QCItSTLlKSTORJ .EQ. 0.0 .ANO, OEPTHZ .GT. OSTART(KSTOR) }
* GO TC 22CO
IF (QOCSTKKSTORI .GT. 0.0 ,AND. DEPTHZ .IT. OSTQPUSTORI I
* 60 TO 2300
COUS1 = CGUSTUKSTGRI
VOLGUTIKSTOR.KISTEP) = VOLOUZ
STOR = STCRZ
DEPTH =« OEPTHZ
GO TO 2500
TST0119
TST0120
TSTU121
TST0122
TST0123
2200 FON * IDEPTHZ - OSTART = DTON(KSTOR» * 1.0
GO TO 40CO
C
3000 CALL TSRCUT
C
IF (STOR .GT. STORHX(KSTORn STORHX(KSTOR» = STOR
C
CALL TIMPP(DUMSTR,OUM)EPrHiSTUR,DEPTH,KFLAGI
C
IF (KFLAG .EQ. -10) GO TO 901
IF (KFLAC .EQ. 101 GO TO 8000,
IF (DEPTH .GT. DEPMAXUSTOR)) GO TO 8000
C
C
C
C
C
C
C
C
C
C
C
C
COMPUTE SEDIHEMT ANO BOD OUTFLOW
DETERMINE PLUG FRACTIONS AND DETENTION TIMES
CUHIN VCUHULATIVK INFLOW (CU.FT.J SINCF T =
CUHOUT -CUMULATIVE OUTFLOW (CU.FT.) SINCE T =
SSIN = SS INFLOW (LB) IN THIS TIME-STEP
BCOIN = BOC INFLOW (LB) IN THIS TIME-STEP
SBOO * BOD (LB) IN RESERVOIR
SSS = SS (LB) IN RESERVUIR
TST0141
TSTOU2
TSTOU3
TSTOU6
TSTOU7
TSTOH3
TSTD150
TSTD151
TSTD152
TST0153
TST0155
TSTD156
TST0157
TST015B
TST3159
TST0160
TST0161
TSTD162
TST0163
TST016i>
TST0167
TST016B
TST0169
TST0170
TST0171
TSTU172
TSTQ173
TST0175
TST0176
TSTU177
TST017B
106
-------
c
c
c
c
c
c
c
c
BOOOUT
SSOUT
BODCOT
SSCCUT
seocc
sssc
MG/L
BUD
ss
BOD
SS
BOC
SS
OUTFLOW
OUTFLOW
OUTFLOW
OUTFLOW
(LBI
(L8)
CONC.
CONC.
-------
41 8C BODCOT = SBOOC
SSCOtT * SSSC
COLCCT - SCCLC
BOOOUT = BUDCCT*VOLCUT(KSTOR,KTSTEP)/16050.0
SSO^l * SSCOUT*VOLOUT
-------
691 FORMAIC ', 14X. 'UNIT HAS FLCODED - HVDRUGRAPH TERMINATED1)
IFLOOC(KSTOR) = 1
GO TO 9999
B100 WRITE(6,£92)
692 FORMATC ', 14X, 'BUFFER VOLUME BETWEEN LEVELS DSTART AND DS1
* 'IS TOO SMALL,*, /,
* • «i 14X, 'RESULTING IN NEGATIVE VULOUT (AND FUN).«J
IFLOOC(KSTOR) = 1
GO TO 9999
GO TO 902
TSTJ287
TST0288
TST0289
TST0290
TST0291
TST0292
TST0293
TST3294
TST0295
TST0296
TST0297
TSTD298
TSTCJ299
901 IF (KFLAG .60. 10)
V»Kllt-(6,693)
693 FORMAT!«0 *** TERMINATE - INPUT TO TINTRP PROCEDURE IS LESS THAN LTST03DD
*OWEST VALUE ON CURVE (IN SUORT. STORAG)') TST0301
TST0302
TST0303
TSTCJ30
-------
c
c
c
601
C
C
C
c
c
c
c
c
c
c
4600
602
C
SOBROUTltiE TSTCST
COMMON/TABLES/KOEPTH(25),KLASS(25) ,PS IMAX< 15) , ALFMAXC 15 ) ,
1 NN(25»tfM(25»fANORM<15i5l»tQNnRM(!5t51lt
2 ONORM(15,51),AFACTU5),RFACT<15)
COMMON A(160,2,2» ,0(160,2,2) , CPULU 160,2 ,2 ,3 ) , QMAXU60),
1 QFULLU60), AFULL<160), DXDT( 160 ),C1( 160) , SLOPE (160),
2 CIST(160I, GEOPK160I, ROUGH(160), NOE<160), NUEU60.3),
3 INUE(160.3>, NTYPE(160I, JR(160). NKLASS, NE, NOT, EPSIL
4 TIHEt OT, H, KFULL, N, NOS, NPULL, NPRINT, ITER,
5 QCV,DSTOP( 2),
OTCN( 2)>5TORfX< 2t,DTPUHP( 2),DTMORE( 2I«STORF( 2)tAPLAN( 2)
* CLANC< 2)tCSTQR( 2),CPS( 2),CTOTAL( 2)tCPCUYD( 2) iCPACRE< 2),
* LP,JP,tPPEV( 2), LABEL, DETENT! 150) , FRAC( 150) ,OUT1( 10,200)
01MENSICN 001(1501, 002(1501
EQUIVALENCE (QOH 1 ) ,OMAX( 1) ) , (Q02( 1 ) ,QFULL( 1) )
DO 9000 KSTOR=lfNSTOR
If (ICCSKKSTORI .LT.l) GO TO 9000
HRITE16.601) KSTOR
FORHAT(«1«, 10X, 'SUHHARY OF STORAGE AND COSTS FOR UNIT N:). ',13
IF (IFLCCD(KSTOR) .EQ. 1) GO TO 902
CLArtC(KSTOR) = CPACRE(KSTOR) *APLAM( KSTUR 1/43560. 0
CSTOR
-------
c
c
c
c
c
c
c
c
r
Z) ALL OUTLETS
8000 CONTINUE
WRITE16,t03) APLAN!KSTOR),STOR MX! KSTOR ),CPACRE< KSTOR),
* CLANDIKSTnR),CPCUYD(KSTOR),CSTOR(KSTOR),CPS(KSTOR) ,
* CTOTAL(KSTOR)
603 FORMAT! • ', 15X, 'PLAN AREA OF RESERVOIR !LAND REQUIREMENT) = • ,
* F12.2, « SQ.FT.' , /,
* • «t 15X, 'MAX. STORAGE VOLUME USED (CONSTRUC. REQT. ) =«,
* F12.2, • CU.FT.', /,
* F12.2, /,
* ' ', 15X, 'CCS7 'JP-KESEKVOiit, AT i',f:5.2,
* • /CU.YD. . . .= ISF12.2, /,
* • •, 15X, 'COST OF PUMP STN. t SPECIAL STRUCTURES . .= $',
* F12.2, /,
* «C't 15X, 'TOTAL COST', 32X, •= $' , F12.2*
9000 CONTINUE
GO TO 9999
901 WRITE!6,691) I STCUT (KSTOR) , KSTOR
691 FORMAT! '0 *** I STOUT =', 13, ', IN RESERVOIR NO.', 14,
* ', IS OF A TYPE NOT PRESENTLY MODELED')
STOP
902 MRITEie,692)
692 FORMAT! 'C«, 10X , '*** UNIT FLOODED, SO SUMMARY IS INVALID')
9999 RETURN
END
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TST;
TSTC
TSTC
TSTC
t TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
TSTC
61
62
63
65
66
67
66
6P
70
7 1
72
73
74
75
76
77
78
79
80
81
QO
Oc.
83
84
85
86
87
88
89
90
91
92
93
94
95
111
-------
SUBROUTINE TPLUGS
COMMON/TABLES/KDEPTH(25) ,KLASS(25) t PSTMAXt 15 ) . ALFMAX ( 15 ) t
1 NM25I,PM(25) , />NORM< 15, 51 } ,QNORM< 15 ,5 1 1 1
2 ONOPM<15,51),AFACT(15»,RFACT(15)
COMMON A(160,2,2) ,0(160,2i2) t CPOLL ( 160 i 2t2 ,3) , QMAX(160),
1 CFULLI160), AFULL1160), OXUT ( 160 ) , Cl( 160 ) , SLOPE(160),
2 DISTU60), GECMK160), ROUGHU60), NUE(160)t NUE(160,3>,
3 IMIE(160,3>, NTYPEU60), JRU60), NKLASS, NE , NOT, EPSIL,
4 TIPE, DTf M.t KFULL, N, NCIS, UPOLL, NPRINT, ITER,
5 OCKF<160)» IOLDU60), Pl(160lt RNOFF{160t, QINFIL<160»,
6 WDfcFU60,3», PLUTQ{160,3)f IR{160)t P2<160), NIN(IOOO),
7 P5(16C) ,P6(160) iP 7(160) ,SCF( 160 ) t BARREL (160 I ,
8 TITLb(40)f NPfc<20), NYM20), NOROER«70)t OEOM21160),
9 GECM3(160> , P4(160t ,SCOUR( 160) i KSTUREI160)
COMMON BOC1N( 2,150)fSSlN( 2 t 1501 , BODDUT ,SSOUT ,COL IN( 2, 150 ) ,
* QINST,COIST,QINSTL< 2),QOUSTL( 2»,STORL( 2»tQOUTO< 2I,STORO( 2)
* NSTURtKSTaR,IPRINT( 21 . IPOL ( 2)tIFLOOO( 2)tICOST( 2>»DEPMAX( 2)
* ATERM 2,lll«A020T2( 2, 11 » , BDEPTHC 2, 11 ) , BSTOR ( 2 , 11 ) iCOLOUTi
* DUMSTRdlJtDUMOEPdllt
* K7STEPtVOHN( 2»150 ) tVQLOUK i, 150) ,STOR,CUM1N( ,SCCL( 2»,
* 1STHCDC 2)tISTTVP( 2).ISTOUT( 2) t
* QPUKPt 2)tDSTART( 2),DSTUP( 2)f
* OTON( 2»tSTORMX{ 2>,DTPUMP( 2)fDTMJR£( 2}fSTORFI 2>»APLAN( 2),
* CLANCC 2)tCSTOR( 2»tCPS( 2),CTOTAL( 2)tCPCUYD( 2I.CPACRE1 21,
* L?,JP,LPREV( 2) , LABEL, OETENT(150I,FKAC(150I,OUT1( 10, 2001
C
DIMENSION QCl(l50ltC02(150l
EQUIVALENCE < 001 (1) , QMAX(l) ) , (Q02( 1) ,QFULL( D)
C
C GIVEN KTSTEP, VOL INf VOLOUT C STORE ARRAYS, KTSTEP
TPLU
TPLU
TPLU
TPLU
TPLU
TPLU
TPLJ
TPLU
TPLU
TPLU
TPLU
TPLJ
TPLU
TPLU
TPLU
,TPLU
• TPLU
TPLU
TPLU
TPLU
TPLU
TPLU
TPLU
TPLU
TPLU
TPLU
TPLU
TPLU
TPLU
TPLJ
GTPLU
C ^INDS LP AND JP (NUMBERS OF FIRST AMD LAST PART-PL JGTPL'J
C CCMPUTES DETENT AND FRAC ARRAYS (KP=JP,LP»
C (SUBPROGRAM BY G.T.)
C
LABEL = 0
LP = KTSTEP
JP = LPREV(KSTOR)
VIKK = VOLINCKSTOR, KTSTEP)
VOKK = VOLOLTtKSTOR, KTSTEP)
SU*l=C.O
SUM =0.0
1000 SUM = SUM * VOLIN(KSTOR,LP)
SUM1= StM + VGKK - VIKK
BACK = SUM1 - STOR
IF (BACK .GT. VCKK) GO TO 1100
GO TO 1200
1100 BACK = VCKK
1200 IF(BACK> 1300, 1400,2000
1300 LP = LP - 1
IF(LP-l) 50CC,1CCO,1COO
C
i^iOO WRITE(6,60U
601 fORMATI'C A PART-PLUG - 0. EXECUTION TERMINATED.1)'
STOP l«iOO
C
2000 IF(VIKK .LC. 0.0) GO TO 4000
IF(LP .EC. KTSTEPI GO TO 3000
C
C GENERAL CASE
TPLU
TPLU
TPLJ
TPLU
TPLU
TPLU
TPLU
TPLU
TPL'J
TPLU
TPLU
TPLU
TPLU
TPLU
TPLU
TPLJ
TPLU
TPLU
TPLU
TPLU
TPL'J
TPLU
TPLU
TPLU
TPLU
TPLU
TPLU
TPLJ
1
2
3
4
5X
6
7
8
9
10
11X
12
13X
14
15X
16
17
18X
19
20
21X
22
23
2't
25
26X
27X
28
29
3D
31
32
33
34
35
36
37
38
39
40
40A
41
42
42A
43
44
45
46
47
48
49
5D
51
52
53
54
55
56
57
53
112
-------
c
c
A NUMBER OF PLUGS AND PART-PLUGS LEAVE
2050
2100
2200
2300
1FCLP
IFC JP
NF
IF(NF
SOUT
ML
NF
00 2050
SUUT
SOUT
STOT
IF(STOT
EC.
Gl.
EC
GO
GO
1
GO
- 1
I)
1)
JP
LPJ
= 0.0
* LP
= JP +
L=NF,ML
= SOUT
= SOUT +
- SUU1 *•
.GE. VOKKI
TO
TO
2500
2800
TO 2600
VOLIMKSTOR.L)
BACK
VULlHtKSVOR.JP)
GO TO 2400
FRAC = R1LP*OT
LPREV(KSTOR) = LP
GO TO
2400 FRONT = VOKK - SOUT
FRAC(JP)= FRONT/VOLIN(KSTORjJP)
GO TO 2100
f
^2500 FRONT = VOKK - BACK
GO TO 2300
C
2600 SCUT = BACK + VOL INtKSTOR,JP)
IFtSOUT .GE. VOKKJ GO TO 2700
FRAUJP>= 1.0
RIJP = KTSTEP - JP
DETENTUPJ = RIJP*OT
GO TO 2200
C
270.0 FRONT = VOKK - BACK
FRAC(JPI= FRONT/VOLIN
-------
3000 IF(LP ,€C.
IF(JP .GT.
NF =
IF(NF .EC.
SOUT =
ML *
NF *
00 3050 L
3050 SOUT *
SOUT
STOT
IF(STOT
JRACUPJ*
3100 RIJP
I)
1)
JP *
LP)
0.0
LP -
JP +
GO
GO
TO
TO
3700
3800
GO TO 3500
1
1
« SOUT «•
- SOUT +
* SCUT *
GE. VCKK)
1.0
KTSTEP -
VOLIN(KSTORtL)
BACK
VOLIN(KSTOR,JP)
GO TO 3400
JP
OETENTUM = RIJP*OT
00 3200 L=NF,ML
FRAC(L)= 1.0
RIL * KTSTEP - L
3200 OETENT(L) » RIL*OT
3300 FRACCLFM BACK/VOLIN(KSTOR,LP)
DETENT(LP) = DT*STOR/VIKK
LPREV(KSTOR) = LP
GO TO S999
3400 FRONT * VOKK - SOUT
FRAC(JP>= FRONT/VOLINJKSTOR,JP)
GO TO 3 ICO
p*
'3500 SOUT » BACK + VOLIN(KSTOR.JP)
RIJP = KTSTEP - JP
OETEKT(JP) = RIJP*CT
IF(SUUT .GE. VOKK) GO TO 3600
FRAC(JP)* 1.0
GO TO 3300
3600
3700
FRONT =
FRAC(JP)
GO TO 33CO
VOKK - BACK
FRONT/VOL IN(KSTCRtJP)
3800
3850
FRONT = VOKK - BACK
FRAC(LP1» BACK/VIKK
OETENT(LP) = OT*STOR/VIKK
LPREV(KSTOR) = LP
GO TO 9999
IF (LP .EQ. JP) GO TO 4100
NF = JP * 1
IF(NF .EC. LP) GO TO 360C
SOUT = 0.0
ML = LP - 1
DO 385C L=NF,ML
SOLT = SOUT + VOLIMKSTQR.L)
SUUT = SOUT + BACK
FRCN1 = VOKK - SOUT
FRAC(JP)*
GO TO 3 ICO
C
c
C
c
FRONT/VJLIN(KSTCR,JP)
SPECIAL END CONDITION
NO INFLOW, OUTFLOW FROM STORAGE
TPLU119
TPLU12D
TPLU121
TPLU122
TPLJ123
TP1U124
TPL-J125
TPLU126
TPLU127
TPLU128
TPLU12<3
TPLJ130
TPLU13L
TPLU132
TPLJ133
TPLU134
TPLJ135
TPLU136
TPLU137
TPLJ136
TPLU139
TPLU140
TPLUl-*!
TPL'J142
TPLU143
TPLJ144
TPLU145
TPLU146
TPLJ147
TPLJ148
TPLU149
TPLJ150
TPLU151
TPLU152
TPLJ153
TPLU154
TPLU155
TPLU156
TPLIT157
TPLJ158
TPLJ159
TPLU160
TPLU161
TPLJ162
TPIJ163
TPLJ16
-------
4000 .IF (LP .EC. JP» GO TO 4100 TPLU179
NF •» JP «• 1 TPLU180
JFCNF ,EQ. LP) GO TO 4200 TPLU181
SOUT = 0.0 TPLU132
ML = LP - 1 TPLU183
00 4050 L=NFtML TPLJIS^
4050 SQUT = SOUT + VOL IM KSTCRf L) TPLU185
SOUT = SOUT + SUM - STOR TPLU180
GO TO 2400 TPLU137
C TPLU18P.
4100 FRAC(LP)= BACK/VOLIN(KSTCR,LPI TPLJ189
RILP = KTSTFP - LP TPLU190
OETENT(LP) * RILP*DT TPLJ191
LPREV
-------
c
c
c
c
c
c
c
c
c
c
SUBROUTINE TSRCUT
COMMON/1ABLES/KOEPTHC25>tKLASS(25>»PSIMAX(15),ALFMAX( 15 It
1 NNI25),MM(25),ANORM(15,51), QNORMU5 ,5 1) ,
2 DNORM(15t51l,AFACT<15),RFACT{15 I
COMMON /!(lbOt2,2) ,Q<160,2,2) , CPOLL ( 160 , 2, 2, 3> , QMAX(160),
i GFULL<160), AFULLU60), DXDT(160),C1(160), SLOPE1160),
2 DIST(160)t GEOtn(1601» P,OUGH(160lf NOEU60), NUE(160,3lt
3 INUEC160.3), NTYP6U60), JR(160), NKLASS, NE, NUT, EPSILt
4 TIHE, OTt M, KFULL, N, NOS, .>iPULL, NPRINT, ITER,
5 QCKF(160). 1010(160), PH160), RNOFFU60), QJNFILU60),
6 WCWF<160,3), PLUTO (160,3 >, IR(160), P2(160), NIN(IOOO),
7 P5(160> ,P6(160)»P7U6C),SCF(160I.BARREL(160),
8 TITLE(40), NPEUO), NYNI20), NORDfcR(70), GEDM2(160) ,
9 GECM3U6C) , PA( 160> tSCUURl 160) , KSTORE(160)
COMMON EOCIN( 2,150),SSIN( 2 ,150) ,BODOUT,SSQUT,COLIN{2,150),
QINSTtCOLST.QlNSTU
NSTORiKSTO«,IPRINT(
2),QOUSTL( 2),STQRL( 2)tQOUTO( 2lfSTCRO( 21
2)»IPOL( 2)tIFLOOO( 2)fICOST( 2)rDEPMAX( 2)
ATERM 2,11),A02DT2( 2,111,BOEPTH( 2,11),BSTOR( 2,11)TCOLOUT,
DUMSTR( HI ,DUMOEPU1) ,
KTSTEP,VOLIN( 2,150 I,VOLOUT( 2,150),STOR.CUMINl 2),CUMOUT< 21,
SBOD( 2I,SSS( 2),SCCLJ 2),
ISTMOC( 2)»ISTTYP( 2),ISTOUT( 2),
UPUKP( 2),DSTART( 2),DSTOP( 2),
* OTOrt( 2»,STORMX( 2»»DTPLMP< 2)tDTMOR£{ 2),STURF( 2>,APLAN< 2),
* CLANC( 2»,CSTOR{ 2),CPS( 2),CTOTAL< 2),CPCUYD( 2),CPACP.E( 2),
* LPtJP,LPREV( 2),LABEL,OETENK150),FRAC(1501,OUT1( 10,200)
DIMENSICN OUMTRM(ll),OUMA02(111
DIMENSION C01(150»,Q02U50)
EQUIVALENCE (C01(11,QMAX(I)I,(Q02(11,QFULL(111
CNLY KORKS FOR ONE UNIT (KSTOR) AT A TIME
INPUTS ARE DT, QINST, KSTOR, KTSTEP, STORO( 2>,
QOUTO( 2), ATERM( 2,11), A02DT2t 2,11)
OUTPUTS ARE QOUST, STORE(100)
NOTE.. ALL FLOWS ARE IN CFS.
IF (KTSTEP .GT. 1) GO TO 1000
INITIALISE
CINSU(KSTOR) = 0.0
GOUSTL(KSTOH) - QOUTOIKSTOR)
STORL(KSTCP) = STORO(KSTOR)
OT2 = DT/2.0
'lOOO TERM = (QINSTL(KSTCK) * CINST)*DT2 - (QOUSTL(KSTOR)*DT?
* - STORL(KSTGR)J
IF (T£Pf .GF.. 0.01 GC TO 2000
WRITE(6,6C1) TERM, KTSTEP
601 FORMAT(• ', •** RESET TERM =', F12.5, • TO ZERO ', 110)
TERM = 0.0
FIND «02CT2» CORRESPOND INli TO 'TERM' ABOVE,
BY LINEAR INTRPULATICN.
1
2
3
4
5X
6
7
8
9
2COC »0 2050
2C50
11-1,11
III =
III = A02t)T2
-------
cc
c
c
c
2100
CALL TINTRP(DUMTRH,DUVA02,lltTERM,02DT2,KFLAG)
IF (KFLJC .NE. 0) GO TO 901
STOR - TERK - 02DT2
QUUST = 020T2/OT2
WRITC<6,61)
IF (ISTCUT(K$TOR).NE.9> GC TO 2200
CCMPUTE OUTFLOW THROUGH ORIFICE.
DO 2)00 ll = )r). I
DUMft02UI) = UUTHKSTCftilll
CALL TlNTRP(DUMTRKrDUKA02tlltTERM,02DT2.KFLAGl
IF (KFLAG.KE.O) GO TO 901
QOHM) = 020T2/DT2
Q02(M) = GOUST-COKM)
C
C
C
2200 QINSTL(KSTCR) =
OOUSTL(KSTOR)
STORL(KSTQR)
GO TO 9999
INITIALISE FOR NEXT TIME-STEP
QINST
= QOUST
= STOR
IF (KFLAG .EQ
WRITEU.fcSl)
691 FORMAT(«0 ***
*OWEi>T VALUE ON
STOP
ERROR MESSAGES
. 10) GO TO 902
TERMINATE - INPUT
CURVE (IN SUBRT.
TO TINTRP
ROUTE)•>
PROCEDURE
902 WRITEU, £S2)
692 FORMAT("C *** TERMINATE - INPUT TO
*N LARGEST VALUE ON CUPVE (IN SU8RT,
STOP
TINTPP PROCEDURE
ROUTE)'»
9999
RETURN
END
TSRO 61
TSRO 62
TSRO 63
TSRO 6
-------
*
*
*
DATA
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
DATA
*
* '
*
*
*
*
*
*
* •
* :
*
*
*
*
*
DATA
*
V
*
*
*
*
*
*
0
0
0
0
c
c
0
0
0
0
0
c
0
ON2/0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
DN2/0
0
0
0
0
0
0
0
0
c
0
0
0
0
0
0
CN4/0
0
0
0
0
0
0
0
c
0
0
0
0
0
•
•
*
•
*
*
•
•
*
•
•
ft
*
•
*
•
*
*
*
•
»
*
*
•
*
*
*
*
*
•
*
«
*
•
•
•
.
*
•
*
•
•
#
•
•
•
*
*
*
*
•
*
•
•
•
*
*
»
0
05273,0
04112,0
08574,0
07380,0
24194,0
100CO,0
41581,0
12236,0
15280,0
14141,0
16653,0
15657,0
17462,0
20799,0
18546,0
23186,0
20315,0
25386,0
21557,0
27118,0
22833,0
28900,0
24230,0
30658,0
25545,0
32349,0
27936,0
34017,0
30000,0
35666,0
32C40.0
37298,0
34034,0
38915,0
35652,0
40521,0
375^5,0
42117,0
39214,0
43704,0
40802,0
45284,0
42372,0
46858,0
43854,0
46430,0
45315,0
50000,0
46557,0
51572,0
47833,0
53146,0
49230,0
54723,0
50545,0
56305,0
52936,0
57892,0
55000,0
*
*
•
•
*
*
*
•
•
*
•
•
*
.
*
*
*
•
»
*
*
*
,
«
•
«
«
•
•
*
•
*
•
*
»
•
*
•
•
*
•
•
9
•
*
*
•
*
*
•
»
*
*
•
*
»
•
*
•
0 ,0
04102,0
0 ,0
07407,0
0 ,0
1CCOO.O
0 ,0
11769,0
0 ,0
13037,0
0 ,0
14036,0
15000,0
0 ,0
16546,0
0 ,0
18213,0
0 ,0
20000,0
0 ,0
22018,0
0 ,0
24030,0
0 ,0
25788,0
0 ,0
27216,0
0 ,0
28500,0
0 ,0
25704,0
0 ,0
3C892.0
0 ,0
32128,0
0 ,0
33476,0
0 ,0
35000,0
0 ,0
36927,0
0 tO
38563,0
0 ,0
41C23.0
0 ,0
43045,0
0 ,0
45003,0
0 ,0
46769,0
0 ,0
48431,0
0 ,0
5CCOO.O
0 ,0
5i4'i3,.0
0 ,0
52851 ,0
•
•
•
•
•
•
•
*
*
*
*
•
•
*
•
*
*
•
•
•
•
»
•
•
•
*
•
*
•
•
•
•
•
•
•
•
»
•
•
0
•
•
•
•
*
•
•
•
»
•
*
•
f
»
»
»
*
f
•
05584,0
0 ,0
Ol952tO
0 ,0
C5590,0
0 ,0
16479,0
0 ,0
19490,0
0 ,0
20000,0
0 ,0
o" ,0
25000,0
0 ,0
27312,0
0 ,0
29482,0
0 ,0
31454,0
0 ,0
33276,0
C ,0
35000,0
0 ,0
36697,0
0 ,0
38357,0
0 ,0
40000,0
0 ,0
41697,0
0 ,0
43372,0
0 ,0
4-5000,0
0 ,0
46374,0
0 ,0
47747,0
0 ,0
49205,0
0 ,0
50989,0
0 ,0
53015,0
0 ,0
55000,0
0 ,0
56429,0
0 ,0
57675,0
0 ,0
56334,0
0 ,0
60000,0
C tO
61441,0
0 ,0
•
•
•
•
•
*
•
*
•
•
*
*
*
•
*
•
•
•
•
*
•
•
•
*
•
*
*
•
*
•
•
•
•
*
•
*
•
*
•
•
•
•
•
•
•
•
•
*
•
•
*
•
•
•
•
*
*
•
•
.
04146,0.05112,0.04500,0
0 ,4*0.0,
07033,0.02896,0.04686,0
0 ,4*0.0,
09098,0.02312,0.02676,0
0 ,4*0.0,
10962,0.07904,0.01584,0
0 ,4*0.0,
12921,0.15000,0.05192,0
0 ,4*0.0,
14813,0.17576,0.10024,0
0 ,4*0.0,
16TO 1,0. l-y
-------
* 0.55487,0.0 ,0.
* C.57000,0.54271,0.
DATA CN5/0.61053,0.0 ,0.
* 0.59000,0.55774,0.
0.62710,0.0 ,0.
C.61023,0.57338,0.
0.64342,0.0 ,0
C.63045,0.59101tO.
0.65991,0.0 ,0.
0.65000,0.60989,0.
C.67659,0.0 ,0.
0.66156,0.63005,0.
0.69350,0.0 rO.
0.68413,0.65000,O.
0.71068,0.0 ,C.
C.70000,0.66682,0.
0.72616,0.0 ,0.
0.71481,0.66318,O.
DATA ON6/0.74602,0.0 ,0.
0.72984,0.IOCCC.0.
C.76424,0.0 ,0.
C.74579,0.71675,0.
0.70?97,0.0 ,0.
0.76417,0.73744,0.
0.80235,0.0 ,0.
C.78422,0.76651,0.
0.62240,0.0 ,0.
C.80477,0.8CCOO,0.
0.84353,0.0 ,0.
0. 82532,0.82C9C,0.
0.86563,0.0 ,0.
C.850CC,0,84311,0.
C.88970,0.0 ,0.
0.88277,0.8797d,0.
DATA ON7/0.91444tO.O ,0.
0.91500,0.91576,0.
C.94749,0.0 ,0.
C.95000,0.95000,0.
1.00000,0.0 ,1.
1.00000,1.00000,0.
END
62967,0.57804,0.57787,0.
0 ,0.0 ,4*0.0/
64582,0.59478,0.59224,0.
0 ,0.0 ,4*0.0,
66368,0.61171,0.60950,0.
0 ,0.0 ,4*0.0,
68209,0.62881,0.62941,0,
0 ,0.0 ,4*0.0,
70000,0.64609,0.65000,0.
0 lO.O ,4*0.0,
71463,0.66350,0.67064,0.
0 ,0.0 ,4*0.0,
72807,0.63111,0.69055,0.
C ,0.0 ,4*0.0,
74074,0.69901,0.70721.0.
0 ,0.0 ,4*0.0,
75296tO.71722,0.72031,0,
C ,0.0 ,4*0.07
76500,0.73583,0.73286,0.
0 ,0.0 ,4*0.0,
77784,0.75490,0.74632,0,
0 ,0.0 ,4*0.0,
79212,0.77447,0.76432,0.
0 ,0.0 ,4*0.0,
8C945.0.79471,0.78448,0.
0 ,0.0 ,4*0.0,
62936,0.61564,0.80421,0.
0 tO.O ,4*0.0,
85000,0.83759,0.82199,0.
0 ,0.0 ,4*0.0,
86731,0.86067,0.84363,0.
0 ,0.0 ,4*0.0,
88769,0.88557,0.87423,0.
0 ,0.0 ,4*0.07
91400,0.91159,0.90617,0.
0 ,0.0 ,4*0.0,
95000,0.94520,0.93827,0.
0 ,0.0 ,4*0.0,
00000,1.00000,1.00000,1.
0 ,O.C ,4*0.0/
54292,0.52747,3ATA241
DATA242
55729,0.54209,OATA243
DATA244
57223,0.55950,OATA245
DATA246
58780,0.57941,OATA?47
OATA248
60428,0.60000,DATA249
DATA25D
62197,0.62000,3ATA251
DATA252
64047,0.64000,DATA253
9ATA254
65983.0.66000.DATA255
3ATA255
67976,0.68000,DATA25?
OATA258
70000,0.73000,DATA259
DATA26D
71731,0.71843,DATft261
DATA262
73769,0.73865,DATA263
DATA264
76651,0.76365,OATA265
OATA266
8000D,0.79260,DATA267
DATA26B
62090,0.82088,DATA269
OATA27D
84311,0. 85000, DAT/V271
DATA272
87978,0.88341,OATA273
OATA274
91576,0.90998,0ATA275
DATA276
95000,0.93871,OATA277
OATA278
00000,1.0DOOO,DATA279
OATA28D
DATA281
124
-------
Section 4
STORAGE BLOCK
Page
Subroutine STORAG 127
Subroutine TRTDAT 130
Subroutine TRCHEK 140
Subroutine STRDAT 142
Subroutine TREAT 150
Subroutine BYPASS 169
Subroutine TRLINK 170
Subroutine SEDIM 171
Subroutine HIGHRF 173
Subroutine KILL 176
Subroutine STRAGE 177
Subroutine PLUGS 182
Subroutine SROUTE 186
Subroutine SPRINT 188
Subroutine TRCOST 190
Subroutine INTERP 198
'BLOCK DATA
125
-------
c
c
c
c
c
c
c
c
c
c
c
SUBROUTINE STORAG
HE TREATMENT MODEL 3, 23 AUG. 1970. IEJF) (T-STEP BASIS)
AVAILABLE SYSVOLS: WATFOR = 08-12,14-16
STOR
STOP
STO*
STOR
ST-OR
FORTH = 08-l2f 14-15, 17-99STOR
THIS M/PROG TO 6E CALLED SUBROUTINE STORAG BY EXEC
CCKNCN CCNVER,KHOUR,KMIN,L,KMOD,NFLAG,BIG,HEAD1,HEAD2,
* COESYN,CQIF,WAOU(7) ,WAIU< 7) ,Q«OU( 7) ,QQIN(7) ,WARM(7 ) . OQRLi
* BDlF,QCRK<7),BDOUm,ODIN(7>,BCOU(7),BCIN<7),BnF,QC*MXm ,QQOUHX(7 ) ,UQRMMN (7) ,QOOJMN(7),
BCRHT ( 7 ) ,BCOUT i 7 1 , BCRMMX (7 ) , BCOUM X{ 7 > , BCRMMN ( 7 ) , BCOUMN( 7 ) ,
SCRMT(7),SCOUT(7) ,SCRMMX( 71 , SCOUMX (7 ) ,SCRMHN (7) ,SCOJMN(7),
BDRH(7),BCRK(7),SCRM(7)
COMMON /TRLK/DT,NDT,KDT
COMMON /BI.K1/NAMEI4.21)
COMMON /BLK2/QCARR(150J,BDARR(150>
COMMON /BLK3/JS,JNS,NPULL,SSARR<150),COARR(150),POLL(163,5t5) ,
* 00(160,5)
DIMENSION TIME(160),TITLE(40),JN(5),TYTLE(20)
DATA TYTLE / 4HOUTP, ^HUT F, *hROM , 4HEXTE,
* ^HRNAL, An STO, 4HRAGE, 4H/TRE,
* 4HATME, 4HNT M, AHOOELi 4HS ,
* 4H , 4H , 4H , 4H ,
* 4H t 4H , 4H t 4H /
NSTIN * 10
NSTOUT =11
READ FRCM DISK
REWIND NSTIN
READ(NSTIN) ( T ITLE( I ) ,1 =1 ,40 >
DO 50 1=21,40
50 TITLEU) = TYTLEU-20)
WRITE(06,601) (TITLE(I) tl=lt40)
601 FORMAT (« ', 20AA)
WRITE (NSTOUT) (TITLE (I), I=lt*0)
READ (NSTIN) NDT,Nt)UTS tNPOL L ,DT ,TZERO,TRI BA
WRITfc(NSTCUT) NOT .NOUTS , NPOLL, DT, TZERO,TRIBA
REAO(NSTIN) ( JN(N) ,N=1 ,NOUTS»
WRITE(06,£03J ( JN( J ) , J= 1 .MQUTS )
603 FURMATC'O', 20X , 'TRANSPORT MJOEL UUTFALLS AT THE FOLLOWING •,
•* 'ELEMENT NUMBERS:', /, • ', 25X, 517)
WRITE(NSTCUT) { JN( J ) ,J = 1 , NOUTS )
READ FRCM CARD
READ(C5,5CO) JNS
500 FORMAT (1 1C)
STOR
MSTJR
STOK
STOR
STOR
STOR
STOR
s aiK
STOR
STUR
STOR
STJ^
STOR
STOR
STOR
STOR
STOR
STOR
STOR
STOR
STOR
STOR
STOX
STOR
STOR
STOR
STOR
STOR
STOR
STCR
STOR
STOR
STO*
STUR
STOR
STOR
S TOR
STO?
STOR
STOR
STOR
STOR
STOR
STOR
STOR
STOR
STOR
STOR
STOR
FIND OUTFLOW DATA FOR SELECTED EXT. ELFM. OF TRANSP.STOR
DO 1000 J=l, NOUTS
1000 IF(JNU) .EU. JNS) GO TO 2000
WRITE (06,699) JNS
699 FORMAT ( 'CTHE SELECTED EXTERNAL ELEMENT NUMBER,',
STOR
STOR
STOR
STOR
1
2
3
47
48
49
50
51
b2
53
54
5f.
56
57
5fl
59
60
127
-------
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
* 13, «, IS NOT AVAILABLE FROM THE TRANSPORT MODELS
* • CUTPUT. EXECUTION TERMINATED.1)
STOP
2000 JS = J
MRITE(6,611) JNS
611 FORKATCC', 20X, 'INPUT TO TREATMENT MODEL SUPPLIED FROM
* "TRANSPORT MODEL EXTERNAL ELEMENT NUMflF.R
JN = EXT. ELEM. NOS. OF TRANSPORT MODEL
NOUTS = NO. OF OUTFALLS FROM TRANSPORT MODE
JNS » JN OF OUTFALL TO BE TREATED
JS = NO. OF OUTFALL FROM TRANS. MOD. TO
NPOLL = NO. UF POLLUTANTS
TRIBA * TOTAL TRIBUTARY AREA (ACRES)
READ{5S501) Nrl'J.'iE, OESF
501 FORMATCIIO, F10.2I
DT * DT/60.0
CCNVER » 1000000. /(DT*60.*62. 4)
QUIFMX = 0.0
NRUNS » NO. OF DIFF. TREATMENT EXECS. TO BE
WITH TRANSPORT OUTPUT DATA
DESF = QDESYN/QQIFMX
FOR DESIGN STORM, SPECIFY DESF (PROGRAM
STOR
STOR
STOR
STOR
STOR
', STOR
', 131 STOR
OUTFALLS STOR
L STOR
STOR
BE TREATESTOR
STOK
STOR
ST'JR
STOR
STOR
STDR
STOR
RUN STOR
STOR
STOR
FINOS QDE-STOR
FOR OTHER STORMS, READ IN QDESYN (SET DESF .LE. OSTOR
WR1T£(6,6CC) NRUNS, DT, NOT, TRIBA, NOUTS, NPOLL, TZERO
600 FORHATCO', //, 'ONUMBER OF RUNS = , 110, /,
* «OTIME-STEP SIZE = , F10.2, •
* «ONO. TIME-STEPS MODELED = , I 10, /,
* 'OTRIBUTARY AREA = , F10.2, '
* 'ONO. TRANSP. MOD. OUTFALLS = ? I 10, /,
* «ONO. OF POLLUTANTS = , 110, /,
* 'OTIME ZERO = i FiC.l, •
NRUNS = NO. OF TREATMENT SIMULATION RUNS *
DT = TIME-STEP SIZE (MINI
NOT « NO. OF TIME- STEPS TO BE MODELED
KDT = TIME-STEP NUMBER
STANDARD UNITS FOR INPUT ARE CFS, LB/MIN £
1100 DO 2222 KDTM.NDT
STOR
STOR
STOR
M1N,«, /,STOR
STOR
ACRES', /.STOH
STOR
STOR
SEC') STC1R
STOR
ADE, TH1SSTUR
STOR
STOR
STOS
STOH
61
62
63
64
65
66
67
68
69
70
71
72
73
7'*
75
76
77
78
79
BO
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
rtrk
STOR100
MPN/MIN STOR1
STOR 1
'Jl
02
C
C
REACH NSTIN) TIME(KDT),(Q0(KDT,J),J = 1,NOUTS),
If ((POLL(KDT,K,J) ,J = l .NOUTS) ,K*1,NPOLL)
STANDARD UNITS FOR INTERNAL COMPUTATIONS
ARE
2222
3000
677
Q3ARRUDT) =
eOAKR(KDT) =
SSARRIKUTJ =
COARR(KDT) -
IF (QQARMKDT)
CONTINUE
DO 7777 KRUN=1,NRUNS
WRITM6,£77) KRUN
FORMAT ( • 1 RUN
CFS, MG/L,
QO(KDT,JS)
POLLJKOT,1,JS)*OT
POLL(KDT,2,JS)*OT
POLL(KDT,3,JS)*OT
.GT. 001FMXJ GQIFMX
CU.FT/DT, LB/DT, MPN/100ML, MPN/DT
«QARR(KDT)
STO-U03
STOR104
STOK105
STLR106
STOH137
STORID8
STOK109
STORllO
STUR111
STORU2
STC)f.ll3
NO.1
12,
STOR115
C
C-
c
CALL TRTCAT
READ, CALC. AND WRITE ALL TREATMENT UNIT
CHARACTF.^ISSTO
-------
IF (NFLAG .EQ. 0) GO TO 9999 STOn21
C STC1S122
C « r FEED HYOROGRAPH(S) TO STORAGE UMIT(S) STOR123
C STQK124
C STOR125
C 4000-6666 IS MAIN DRIVING LOOP STUR126
4000 00 6666 KDT=1,NDT STOR12B
CCC IF STORAGE UNIT HAS FLOODED, TREAT SHOULDN'T BE CALLSTOK130
QQIF = CCARR(KDT) STUR131
BDIF = BDARR(KOT) STOR132
SSIF = SSARR(KDT) S Tim 33
COtF = OGAKMKUTi STO'U3'i
C STOR135
CALL TREAT STCH136
C STOR137
QO(KDT,JS) = QQRL STOR138
PGLL(KDTrltJS) - BORL/DT STOR139
POLL(KDT,2fJS) * SSRL/DT STOR140
POLL(KDT,3,JS) = CORL/DT STOR14L
CCC PRINT TABLES £ WRITE OUTPUTS ON TAPE (DISC - IM ORIGST03142
C *** - PRESENTLY ONLY FOR RUN I STUR143
IF (KRUN .EQ. 1J WRITE(NSTOUT) TlME(KDT),(Q0(KDTtJliJ=lfNOUTS), STOR144
* ((PCLL(KDT,K,J),J=l,N3UTS),K=l,NPOLL) STOR145
6666 CONTINUE STOR 146
IF (ITABLE .EQ. 11 CALL SPRINT STOR147
C STOR148
CALL TRCOST STOR149
C . STOR150
7777 CONTINUE STtmSl
C STOR152
8000 HRITE(6,900» STOR153
900 FORMAT!M •) STOR154
C STOR155
GO TO 9999 STOR156
C STOR157
c ERROR MESSAGES STOR158
CC GO TO 9999 STOR160
C STUR161
9999 RETURN STOR162
END STOR163
129
-------
601
501
SUBROUTINE TRTOAT
COMMON CCNVER»KHOURtKMINiL»KMODtNFLAGiBIG,HEADl.HEAD2t
QOESVKfCQIF,WAOUm«WAIN{7l,QQOU<7),aQlN<7)tWARM(7)fQQ*L,
BDIF.CQRM7) ,BDOU(7 I |BD1N(7) ,BCUU(7) , BC IN(7) tBDRL t
SSlFtSSINmtSSOU<7l»SCOU{7),SCIN(7),SSRM(7),SSRL,COIFfCORL,
ADEPTH(il»,AA$URF(ll),ITREAT<7),ISTOR,IPRINT,ICOST,HKFD,
MOOSIZiICHEMfICL2iSCREEN»QQIFMXtDESF,lRANGEtKNtOF,TRI8AiSEDAf
$ .BCPMM.xm ,BrOU".Xl7» ,RCRMMN(7) » ECUJMri' 7 ) t
SCRHH7ltSCOUT(7l,SCRMMX<7),SCOUMX(7),SCRMMN(7l,SCOUMN(7),
BDRM<7),BCRM(7),SCRH(7)
COMMON /TBLK/OTtNDTf KOT
COMMON /BLK1/NAMEC4,21)
COMMON /BLK2/QOARR(150» tBDARRl150)
COMMON /STBK/QIM150J»BODIN(1501,SUSIN(150)tCOLIN( 150)t
OINSTtQOUST,QINSTL,COUSTL,STORL,QOUTOtSTORO,
ISPRIhflPOLtDEPMAXtQCMAXiOEPTH.
ATERK(11)tA02DT2(111,BOEPTH(111 ,BSTOR(11)«
DUMSTKdn.DUKDEPdl),
VOLlN(150lfVOLOUT
56
57
53
59
60
130
-------
c
c
c
c
c
c
c
c
ITREAK6)
ITREAim
WRITE<6,602)
602 FORMAT CO1,
ISTOR,
lit,
= J5
GO TO 8
J6 * LR * 16
JMI6) = J6
GO TO 6
J7 » LR + 18
JM(7) - J7
J ~ JM(L)
IF (LR .EG. 1) GO TO 10
WRITE(6,603) L, ITREAT(L), (NAME(I.J), 1=1,4)
FORMATC ', 34X, 11, 8X, 12, 8X, 4A4)
GO TO 20
HR1TE(6,604) L, ITREAT(L)
FORMATC ', 34X, 11, 8X, 12, 29X, '(BYPASS)')
CONTINUE
CALL TRCHEK
IF (NFLAG .EQ. 0) GO TO 9999
IPRINT = 0 = NO PRINTOUT EACH TI!
= i = PRINTOUT SOLUTION E
= 2 = PRINTOUT SOLUTION E
ICOST = 0 = NO COST COMPUTATION
= 1 = COMPUTE COSTS AND S
I RANGE = 0 = QUANTITY RANGES (MA
PACKAGE ARE',
SS«, //,
61
62
63
64
65
66
67
68
69
70
71
72
73
52 = EFFLUENT SCREENS TRTD
TREATMENT PARAMETER (LEVEL 6 = OUTLET PUTRTD
61 = GRAVITY = NO PUMPING (BYPASS) TRTO
62 = PUMPING (STATION) TRTD
TREATMENT PARAMETER (LEVEL 7 = CL2 CONTATRT.D
71 = NO CONTACT TANK (BYPASS) TRTD
72 = CONTACT TANK TRTD
TRTD
TRTD
TRTD
/.TRTO
TRTD
TRTD
TRTD
TRTD
TRTO
TRTD
TRTD
TRTD
TRTD
TRTD
TRTD
TRTD
TRTD
TRTD
TRTD
TRTD
TRTD
TRTD
TRTD
TRTO
TRTD
TRTO
TRTD
TRTD
TRTO
TRTD
TRTD
TRTD
TRTD100
TRTD101
TRTIU02
TRT0103
TRTD104
TRT0105
TRTD106
TRTD1D7
TRTD108
TRTD109
TRTDUO
TRTD111
TRTOH2
TRTD113
TRTD1 I*
TIME-STEP (SJMMARY PUSTRT0115
EACH TIME-STEP (3JANTTRTOl 16
EACH TIME-STEP
AND SUMMHRY
SUMMA.R IZE
(MAX.AV.MIN) NOT
75
76
77
78
79
80
Bl
32
83
84
85
86
87
88
39
90
91
92
93
94
95
96
97
98
99
( QUAL ITRT Dl 1 7
TRTD118
SJMMARTRTD120
131
-------
c
c
c
c
502
605
REAO(5,5C2)
FORMAT(4110)
WRITE(6,6C5)
FORMAT CO',
» I = QUANTITY RANGES
-------
IF (KMCO .LT. 13)
IF (KMCD .LT. ZOt
GO TO 903
GO TO 51
GO TO 52
49 MODS I Z * 5
NGUNIT = QMOO(KMOD)/5.0
60 TO 53
C
C
51
52
MOOS IZ
NOUNIT
GO TO 53
MOOS I Z
NOUNIT
25
CMCO(KKOO)/25.0
50
0.1
0.1
0.1
C
C
C
C
c-
c
c-
c
53 CONTINUE
WRITE(6t680) QDESYNt QMODIKMOO), KMOD
680 FORMAT(• •, 15X, 'TREATMENT SYSTEM INCLUDES MODULE UNITS', /,
* • »t 20Xt 'DESIGN FLOW IS THEREFORE INCREASED TO NEXT'i
* ' LARGEST MODULE SUE't /,
* « 't 20X, 'ADJUSTED DESIGN FLOHRATE =«, F10.2t ' CFS.t ='i
* F10.2, • MGD.'f /, " «f 20Xt '(KMOD =• t I3i •)«)
90 CONTINUE
FIND CHLORINATOR CAPACITY REQUIRED = PCL2WX (LB/DAY)
PCL2MX = 0.0
00 96 KDT=1,NDT
IF (QQARR(KDTI .GT. 0.0) GO TQ 92
BCIF = 0.0
GO TO 94
92 BCIF = 16050.0*80ARR(KDT)/ QCKAX
681 FORMATCO'r 5X, 'CESIGN FLOW INPUT TO TREATMENT WIL BE •
TRTD181
TRTD182
TRTD182
TRT0184
TRTD185
TRTD186
TRTD187
TRTD188
TRTD189
TRTD190
TRTD191
TRTD192
TRT0193
TRTD194
TRTD195
TRTD196
TRT0197
TRTD198
TRTD199
TRTD200
TRTD201
TRTD202
TRTD203
TRT0204
TRTD205
TRTD206
TRTD207
TRTD208
TRT0209
TRTD210
TRTD211
TRTD212
TRT0213
TRTD214
TRTD215
TRTa216
TRTD217
TRTD213
TRTD219
TRTD220
TRT0221
TRTD222
TRTD223
TRTD224
TRTD225
TRTD226
TRTD227
TRT0228
TRTD229
TRTD23D
TRTD231
TRTD232
TRTD233
TRTD234
TRTO?35
TRTD236
TRTD237
TKT0238
TP.TD239
TKTD243
133
-------
•CONSIDERABLY RESTRICTED BY MAXIMUM POSSIBLE OUTFLOWS
• FROM STORAGE «•f F10.2, • CFS«i /,
*
*
* ' ', 20X, -THEREFORE REDUCE TREATMENT DESIGN FLOW)
QOESYM - QCMAX
KPASS * 1
GO TO 55
C
C-
C
LEVEL I BRANCH (FOR TREATMENT BY BAR RACKS)
C
C
C
1000 K = ITREAT(l) - 10
L - 1
GO TO (1100,1200), K
C
C
11) TOP NO BAR RACKS
1100 WR1TE(6,611I
611 FORMAT CO1, 15X, 'BAR RACKS NOT INCLUDED (LEVEL 1)«)
GO TO 20CO
12) FOR BAR RACKS
1200 NSCRN = QDESYN/240.0
IF (NSCRN .LT. 2) NSCRN = 2
SCRCAP * QCESYN/NSCRN
SUAREA = SCRCAP/3.0
FAREAB = 1.4*SUAREA
MRITE(6,612I NSCRN,SCRCAP,SUAREA,FAREAB
612 FORMATCO't 15X, 'PRELIMINARY TREATMENT BY MECHANICALLY CLEAMED
* 'BAR RACKS (LEVEL 1)',
* /t'
,20X, 'NUMBER OF SCREENS
17, /,
* 20Xt 'CAPACITY PER SCREEN = •» F10.2, ' CFS1, /, • ',
* 20X, 'SUBMERGED AREA =«, F10.2,
* • SO.FT. (PERPENDICULAR TO THE FLOW)', /,
* • «, 20X, 'FACE AREA OF BARS = ', F10.2, • SQ.FT.')
C
C LEVEL 2 BRANCH (FOR INLET PUMPING!
C
2000 K » .ITREAT(2) - 20
L * 2
GO TO (2100,22001, K
21) FOR GRAVITY INLET (NU PUMPING, = BYPASS)
2100 WRITE(6,621)
621 FORHATCO', 15X, 'INFLOW BY GRAVITY (NO PUMPING) (LEVEL 2)')
GO TO 3000
22) FOR INLET PUMPING (STATION)
HE ADI
C
C
C
C
C
C
2200 READ(5,522)
522 FORMAT(F10.2)
WRITE(6,622) HEAD1
622 FORMATCC', 15X, 'INFLOW BY INLET PUMPING (LEVEL 2)', /,
* ' «t 20X, 'PUMPED HEAD =', F7.2, • FT. WATER')
C
C
3000 K - ITREATO) - 30
L = 3
GO TO (31CC»320C,3200,3400,3500), K
LEVEL 3 BRANCH (FOR PRIMARY TREATMENT)
TRTD241
TRTD242
TRTD243
TRTD244
TRTD2A5
TRTD246
TRTD247
TRTD248
TRTD249
TRTD253
TRTD251
TRTD252
TRTD253
TRT0254
TRT0255
TRTD256
TRTD257
TPTD258
TRT0259
TRTD260
TRTD261
TRTD262
TRT0263
TRTD264
TRTD265
TRTD266
TRTD267
'.TRT0263
TRT0269
TRTD270
TRT0271
TRTD272
TRTD273
TRT0274
TRTD275
TRTD276
TRT3277
TRTD278
TRTU279
TRTD28D
TRT0281
TRT0282
TRTD283
TRTD284
TRTD285
TRT0286
TRTD287
TRTD283
TRT0289
TRTD290
TRTD291
TRT0292
TRTD293
TRTD294
TRTD295
TRTD296
TRT0297
TRTD293
TRTD299
TRTD300
134
-------
c
c
c
31) FOR NO PRIMARY TREATMENT (BYPASS*
3100
631
MRITE(6,631)
FORMAT!fO't 15X,
60 TO 40CO
•NO PRIMARY TREATMENT INCLUDED (LEVEL 3)«)
C
C
C
3200
450
C?7
C
C
C
C
32) t 33) FOR DISSOLVED AIR FLOATATION
READ (5,450)
FORMAT (215,
TSURFA
DETHIN
VOLDAF
TRTD301
TRTD302
TRT0303
TRTD304
TRTP305
TRTD306
TRT0307
TRTD308
TRTD309
TRT0310
TRTD311
(1.0+0.01*RECIRCI*QOESYN*1000000.0/(1.547*OVR3AF) TRTD312
TSURFA*OEEP/((1.0*0,Oi*RECIRC)*QDE SYN*60.0) TRT0313
UV.UUf = ULSiCii bv'tRi:LJW KAic, GPD/Si (SOGD.OO SUGGETPTD314
RECIRC = RECIRCULATION FLOW, PERCENT (15.00 SUGGESTETRTD315
TSURFA = TOTAL SURFACE AREA, SO.FT TRTD316
OETMIN = DETENTION TIME, MIN TRT0317
TSURFA*DEEP TRTD318
ICHEM,
3F10.2)
ICL2, OVROAF, RECIRCt DEEP
WRITE (6,453) H.ODSI Z.NOUM T, QHOD( KMOD) , QDESYN, OVRDAF, RECIRC, TRT0319
* CEEP,TSURFA TRT0320
453 FORMAT( «0«,15X,«TREATMENT BY DISSOLVED AIR FLOATATION (LEVEL 3)'TRTD321
.t/2lX,«MCDULE SIZE *• , 17, « MGDV2IX,'NUMBER OF UNITS =»,TRTD322
.I7/21X,'TOTAL DESIGN FLOW =',F7.2,» MGD, =•, F7.2,1
20X, 'DESIGN OVERFLOW RATE =', F10.2,
SUGGESTED)*, /,
•DESIGN OVERFLOW
• GPO/SF, tSOOO
i
* «
IF (IChEK
455 FORMAT! • «
IF (ICHEK
456 FORMAT(• •
IF (ICL2
457 FORMAT(•
IF (ICL2
458 FORMAT I•
«, 20X, •RECIRCULATION FLOW =', F10.2,
• PERCENT (15 SUGGESTED)*, /,
', 20X, 'TANK DEPTH =«, F10.2,
•t 20X, 'TOTAL SURFACE AREA =«, F10.2,
.C-T. 0) WRITE(6,455)
r 20X, 'CHEMICALS WILL BE ADDED")
.EQ. 0) WR1TE(6,456)
', 20X, 'NO CHEMICALS ADDED')
.£T. 0) WR1TE(6,457)
•f 20X, "CHLORINE HILL BE ADDED*)
.EQ. 0) WRITE(6,458)
', 20X, 'HO CHLORINE ADDED"I
CFS1
FtFT', /,
SQ.FT.')
IF
GO
(ITPEAT(3)
TO 4000
. EQ. 33) GO TU 3400
33) £ 34) FOR FINE SCREENS
C
C
C
3400 SCREEN=QDESYN*449./50.
C SCREEN=AREA OF SCREENS ASSUMING DESIGN HYDRAULIC LOADING OF 50
IF UTREAT(3) .EQ. 33) WRIT£(6,461)
461 FORMAT(«0',15X,'TREATMENT BY FINE SCREENS',
* • (AHEAD OF DISSOLVED AIR FLOATATION) (LEVEL 3J«)
IF (ITPEA7(3) .£Q. 34) WRITE(6,462)
462 FORMAT{'C'.ISX,'TREATMENT BY FINE SCREENS1)
WRITE (6,460) SCREEN
C
C
C
460 FORMAT (• «,20X,'TOTAL
GO TO 40CO
SCREEN AREA =', FIO.O,' SQUARE FEET')
351 FOR SEDIMENTATION
3500 GO TO (3550,3600), ISTOR
: SEU TANKS TO BE INSTALLED (NO ASSOCIATED STORAGE)
3550 REAO(5,535) OVRSED, SEDEP, ICL2
535 FORMATt2F10.2, 110)
- NOTE: SEDEP MAY VARY AS TANK. FILLS
TRTD323
TRTD324
TRTD325
TRTD326
TRT0327
TRTD329
TRT0329
TRTD330
TRTD331
TRTD332
TRTD333
TRT0334
TRT0335
TRT0335
TRT0337
TRTD33B
TRT0339
TRTD340
TRTD341
TRT0342
TRT0343
GPM/S«TRT0344
FRTD345
TRT0346
TRT0347
TRTD348
TRTD349
TRTD350
FRT3351
TRTD352
TRTD353
TRTD354
TRTD355
TPTD336
IRTD357
TRT0353
TRTD359
TRTD360
135
-------
C ASSUME 10000 SQ. FT. PER UNIT (70 BY 140 FT)
C OVRSEO = OVERFLOW RATE IN SED TANK, (GPD/SF)
C NO MODULES REQUIRED HERE
SEONUM * CMCD(KMOO)*1000000.0/(OVRSED*10000.0)
NSED = SEONUM 4-1.0
SEDA = IOOOC.C*S€DNUM/NSED
VOLSED = SEOA*SEOEP*NSED
WRITE(6f635l OVRSED, SEDEP, NSEO, SEOA
635 FORMAT!
O't 15X, 'TREATMENT BY SEDIMENTATION (LEVEL 3)',
- (NO ASSOCIATED STORAGE)', /,
', 20X, 'DESIGN OVERFLOW RATE =', F10.2, ' GPD/SQ.FT.',
11600 SUGGESTED)', /,
t 20Xt 'SEO TANK DEPTH
' (8 FEET SUGGESTED)', /,
= • , F10.2t • FEFT1,
•t 20Xt 'NUMBER OF SED TANKS =•
110, /,
*t 20X» 'SURFACE AREA
= 't F10.2, ' SQ.FT./TANK')
CO TO 3900
C
C
SEDIMENTATION IN ASSOCIATED STORAGE UNIT
INPUT HANDLED IN LEVEL 0
36CC WRITE (6, 636)
636 FORMAT CO', 15X, 'TREATMENT BY SEDIMENTATION IN ASSOCIATED',
* « STORAGE - SEE LEVEL 0 ABOVE')
3900 IF (ICL2 .GT. 0) HRI TE16.457 )
IF (ICL2 .EQ. 01 WRITE(6,458)
LEVEL 4 BRANCH (FOR SECONDARY TREATMENT)
I TREAT (4) - 40
*
GO TO (410C.420C.4300), K
41J FOR NO SECONDARY TREATMENT (BYPASS)
C
C
C
41CO HRITE(£t641)
641 FORMAT CC', 15X. 'NO SECONDARY TREATMENT INCLUDED (LEVEL 4)')
60 TO 5000
C
C 42) FOR MICROSTRAINERS
C
C CESIGN LOADING = 40 GPM/SO.FT UF SUBMERGED AREA
4200 IF (QHOC(KMOD) .GE. 25.0) GO TO 4210
C QDESYN .LT. 25 MGD
NMS = KMOD
CAPMS = 5.0
AREAHS = QPOD(KKOD)*(1000000. 0/1440. 0)/(40.0*NMS)
NMS - NO. OF MICROSTRAINER UNITS
CAPMS = CAPACITY PER UNIT (MGD)
AREAMS = SUBMERGED SCREEN AREA (SQ. FT/UNIT)
C
C
C
GO TO 4220
4210
QCESYN .GE. 25 MGD
(QDESYN + C.D/19.34
12.5
12.5*<1000000.0/1440.01/40.0
NMS
CAPKS
AREAPS
4220 CONTINUE
WRITE(6r6421 NHS, CAFMS, AREAMS
642 FORMATI'O', 15X, 'TREATMENT BY MICROSTRAINERS', /,
*
*
*
*
20X.
20X,
20X,
'NUMBER OF UNITS
'CAPACITY PER UNIT
'SUBMERGED SCREEN AREA=«, F10.2,
=', 110, /,
='. F10.2, ' MGD', /,
TRTD361
TRTD362
TRTD363
TRTD36
-------
GO TO 50CO
C
C
C
C
C
C
43) FOR HIGH RATE FILTERS
ASSUME MIXED MEDIA, DOWNFLOW GRANULAR
BASED ON EOISONt N.J.
.EC. 1) WRITE(6,455)
SREFFH/100.0
BREFFH/100.0
LEVEL 5 BRANCH (FOR EFFLUENT SCREENS)
5000
K «
L =
GO TO
ITPEAT<5) -
C
50
(5100,5200), K
C
C
C
511 FOR NO tFFLUENT SCREENS
5100
651
WRITE(6,651)
FORrtATOC*, 15X,
•NO EFFLUENT SCREENS (LEVEL 5)')
TRTD446
TRTD447
TRTD448
TRTD449
TRTD450
MEAD TRT0451
TRT0452
TRTD453
TRTD454
/, TRTD455
TRT0456
SQ.FT',/,TRT0457
TRT0458
TRTD459
PERCENT', /,TRTD460
PERCENT', /.TRTD461
' FT.«, /, TRT0462
TRTD463
TRTD464
TRTD'»65
TRTD466
TRTD467
TRTD'+68
TRTD469
TRTD47D
TRTD471
TRTD472
TRT1H73
TRTD474
TRTD475
TRTD476
TRTD477
TRTD473
TRTD479
TRTD480
137
-------
60 TO 6000
52) FOR EFFLUENT SCREENS
TRTD481
TRTD482
TRTD483
5200
', 20X, 'NO. UNITS =', 17)
LEVEL 6 BRANCH (FOR OUTLET PUMPING)
TRTD490
TRTD491
TRT0492
TRTO<»93
ASSUME WATERWORKS TRAVELLING BASKET TYPE SCREENS,
6 KESH WIRE, TRTD486
450 GPM/SQ.FT GROSS SUBMERGED AREA RATING TRTDA87
ASSUME MAX SUBMERGED AREA PER UNIT = 100 SO.FT (SAY)TRT04a8
TRTD489
UNESN * QDESYN/100.0
NOESUN » IKT(UNESN)
UNESNC = FLOAT(NUESUN)
IF (UNESNO .GE. UNESN) GO TO 5210
UNESNC = UNESNO * 1 .0
NOESUN = NOESUN * 1
5210 IF (NOESUN .GT. I) GO TO 5220
UNESNO « 2.0
NOESLN = 2
5220 OQESUN = QD£SYN*0.646/UNESNO
WRITE (6,652) QCESUN,NOESUN
652 FORMATOO't 15Xt 'TREATMENT BY EFFLUENT SCREENS (LEVEL 5)»,
* • (FOR AESTHETIC IMPROVEMENTS)1, /,
* ' «• 20X, 'MODULE SIZE =', F10.2,
* • KGDt (MAX = 64.6 MGD.)', /,
* • «. 2nx. «NO. UNITS =«
C
6000 K = ITREAT(6) - 60
L = 6
GO TO (6100,6200), K
C
C 61) FOR GRAVITY OUTLET (NO PUMPING, = BYPASS)
C
6100 WRITE(6,661)
661 FORKATCO1, 15X, 'OUTFLOW BY GRAVITY (NO PUMPING) (LEVEL 6)'»
GO TO 7000
C
C 62) FOR OUTLET PUMPING (STATION)
C
6200 READ(5,522) HEA02
WRITE(6,6621 HEA02
662 FORMAT CO', 15X, 'OUTFLOW BY OUTLET PUMPING (LEVEL 6)«, /,
* * ', 20X, 'PUMPED HEAD =', F7.2, ' FT. WATER'!
C
C LEVEL 7 BRANCH (FOR CHLORINE CONTACT TIME)
C
7000 K = ITREAT(7) - 70
L = 7
GO TO (7iOCt7200), K
C
C 71) FOR NO CONTACT TANK (BYPASS)
C
7100 HRITE(6,671)
671 FGRMAT('OS15X, 'NO CHLORINE CONTACT TANK FOR OUTFLOW (LEVEL 7)')TRTU53S
GO TO 8000 TRT053t.
C TRT0537
C 72) FOR CHLORINE CONTACT TANK TRTD536
C TRTD639
7200 CAPUCL = 2000.0 TRTOS^O
TRTD495
TRTD496
TRTD497
TRTD498
TRT!)-t99
TRT0500
TRT0501
TRTD502
TRTD503
TRTD504
TRTD5D5
TP-T0506
TRTD507
TRTD508
TRTD509
TRTD510
TRT0511
TRTD512
TRTD513
TRTD51A
TRTD515
TRTD516
TRTD517
TRT0513
TRTD519
TRT0520
TRT0521
TRTD522
TRTD523
TRTD524
TRTD525
TRTU526
TRTD527
TRTU528
TRT0529
TRT053D
TRTU531
TRTD532
TKTU&33
138
-------
IF (PCL2KX .GT. 8000.0) CAPUCL = 8000.0
NUNITC = PCL2MX/CAPUCL + 1.0
VOtCCK = QDESVN*60.0*15.0
WRITE(6,672) NUN ITC,CAPUCL.PCL2MX,VJLCON
TRTD541
TRTD542
TRTD5A3
672 FORMAT
*
*
*
*
*
C
C
8000 RPAP (
570 FORMAT
cecc
GO TO
C
C
CO* 15X, •
• • 20X, •
• • 20X, •
• • 20X, •
• • 20X, •
•
5t57C» KHCUP
(2151
9959
TREATMENT BY CHLORINE CONTACT TANK (LEVEL 7)'
•NUMBER OF DOSING UNITS =', 110, /,
•DOSING RATE PER UNIT =•, F10.2, ' LB/DAY',
•MAXIMUM DEMAND RATE =•, F10.2, • LB/DAY',
VOLUME OF CONTACT TANK =', F10.0,
CU.FT, AT 15 MIN. DETENTION TIME')
TRT0546
TRT0547
INITIAL CONOITIONS-
TRTD550
TRTD551
-TRTD552
TRTD553
MESSAGES
9000 WR1TE<6,690) L, ITREAT(L)
690 FORMATCC*** ITREATC, II, •» = •, 12,
* • IS OF A TYPE NOT PRESENTLY MODELED.
STUP
901 IF (KFLAG .EG. 10) GO TO 902
HRlTfc(6,691)
691 FORKATCO *** TERMINATE - INPUT
*OWEST VALUE CN CURVE (IN SUBRT.
STOP
TO INTERP
TRTOAT)')
902 HRITE(6,692)
692 FORMATCC *** TERMINATE - INPUT TO
*N LARGEST VALUE ON CURVE (IN SUBRT
STOP
903 WRITE(6,693) QDSMGD, CMODI19)
693 FORMAT!'0***', 5X, 'QOESYN =«, F10.2,
*
*
TRTD555
TRTD556
TRT0557
TRTD558
TRTD559
TRTD560
TRTD561
TRTD562
EXECUTION STOPPED') TRTD563
TRTD564
TRTD565
TRTD566
TRTD567
PROCEDURE IS LESS THAN LTRT3568
TRTD569
TRT057D
TRTD571
TRTD572
IS GREATER THATRTD573
INTERP PROCEDURE
TRTDAT)1)
MOD IS LARGER THAN
AVAILABLE COMBINATION OF MODULE SIZES =', F10.2, • MGl). • , /,
'OS SX, 'MCDEL IS INADEQUATE, SO TERMINATE EXECUTION.')
STOP 653
C
C
9999
RETURN
END
TRTD575
TRTD576
MAXIMJMTRTD577
TRT0578
TPTD579
TRTD580
TRTD581
TRTD582
TRTD583
TRTD58*
139
-------
c
c
c
c
SUBROUTINE TRCHEK
COMMON CONVERfKHOUR.KMIN,L,KMOD,NFLAG,BI(i,HEADl,HEAD2,
QOESYN,CQIF,WAOU(7),WAIN(7),QQOU(7),QQIN(7),WARM(7 I,QQRL,
BOIF,CCRM17),BDOU(7) ,BOIN(7),BCOU<7)tBCIN<7),BDRL»
SSIF,SSIN(7},SSCU(7)fSCOJ{7),SCIN<7i,SSRM(7l,SSKL,COIF,CORL,
ADEPTS(11>,AASURF(H),I TREAT(7),ISTOR,I PR INT,ICOST,HRFD,
MOOSIZ,ICHEM,ICL2,SCREEN:,QOIFMX,DESF,IRANGE,KNTOF,TRIBA,SED4,
SQM,SREFFH,BREFFH,NUNlTH,UAKEAH,L>PRArtA,ICHEHH,HM,VOLDAF,ITABLE,
MUDCST,TCTCST,RECIRC,OVRDAF,TSURFA,OVRSED,NSED,JH(7),WTRMT5,
NSCRN,SCRCAP,SUARF.A,FAREAB»NMS,AREAMS,VULCON,VOLSE[),ALJMUT,
BOINT(7),SSINT( 7) ,WAINT(7) ,BDOUT(7) ,SSt)UT (7) ,WAOUT(7),
HARMT17»,BDRMT(7),SSRMT(7).CHEMUT(8),CL2UT(8 I,QMOD( 20J,WTRMT1,
QQRMT<7),OQOUT(7>,QCRMMX(7) ,QOUUMX(7),QQRMMN(7),QQOUMN(7),
* BCR ."T < 7 ), SCC'JT {7 > r £C ?.".••!>' (T 5 , ".CC'J:',X( 7) , BCF^.MN(71, BCOUMN( 7 I,
* SCRMT(7),SCOUT(7),SCRMMX(7>,SCOUMX{7>tSCR«MN(7),SCUUM^(7),
* BDRM(7J.BCRMI7),SCRM(7)
DIMENSION NOCOKB(15I . NOECON(IO)
KNCOHB = NO. OF ILLEGAL COMBINATIONS
NOCOHB = AN ILLEGAL COMBINATION PAIR
NFLAG = 1
KrtCCPB = 0
NNCCK8 = 11
NOCCMB(l) = 2211
NUCOMB(2) =3111
NOCCK613) = 3211
NOCCMB14) = 3311
NOCOKE(5) = 3411
NOCCM8<6» = 4211
NOCCKB(7) = 4311
NOCCM6(8I = 7211
NUCC»'e(9) = 5233
NOCCKEdOl = 5234
NOCCVB(li) = 5243
C
1000 00 4200 I=1,NNCOHB
2000 00 4100 K=lf7
ITR100 = ITREAT(K
ITR = NOCOMBd
3000 00 4000 KK=1,7
»*100
) - ITR1CO
IF (ITREAT(KK) .NE. ITRJ GO TO 4000
KNCCMB = KNCOKB + 1
IF (KNCCKB .EQ. 1) WR1TE(6,630J
630 FORMAT(«0 THE FOLLOWING COMBINATIONS OF TREATMENT OPTIONS HAVE '
* 'BEEN SPECIFIED AS INADHISSABLE*,
* • * SIMULATION WILL THEREFORE BE DISCONTINUED', /,
* «0
WRITE(6,631)
C
C
631
4000
4100
4200
5000
25
FORMAT (« «
CONTINUE
CONTINUE
CONTINUE
IF UNC08
NFLAG =
IF (ISTOR
GO TO 60CC
, 9X
• EQ
0
.EO.
ITREAT
ITREAT(K)
, 12
. 0)
2 .
, 6X,
GO
AND.
WITH
, ITR
•WITH',
TO 5000
ITREAT(3)
WRITE (6, 610)
I TREATS
6X, 12)
.NE. 351 GO TO 25
TRCH
TRCH
TRCH
TRCH
TRCH
TRCH
TRCH
TRCH
TRCH
TRCH 10
TRCH 11
TRCH 12
TRCH 13
TRCH 14
TRCH 15
TRCH 16
TRCH 17
TRCH 18
TRCH 19
TRCH 20
TRCH 21
TRCH 22
TRCH 23
TRCH 24
TRCH 25
TRCH 25
TRCH 27
TRCH 28
TRCH 29
TRCH 30
TRCH 31
TRCH 32
TRCH 33
TRCH 34
TRCH 35
TRCH 36
TRCH 37
TRCH 38
TRCrt 39
TRCH 40
TRCH 41
TRCH 42
TRCH 43
TRCH 44
TRCH 45
TRCH 46
TRCH 47
TRCH 48
TRCH 49
TRCH 50
TRCH 51
TRCH 52
TRCH 53
TRCH 54
TkCH 55
TRCH 56
TRCH 57
TRCH 58
TRCM 59
TRCH 60
140
-------
610 FORMATCOISTOR * 02 IN THE INPUT DATA REQUIRES THAT ITREATO)
* •BE SET TO 35 * NOT SOi SO SIMULATION IS DISCQNTINUED1»
NfLAG - 0
NNECON = NO. OF UNECONOMIC COMBINATIONS
NCECON = AN UNECONOMIC COMBINATION PAIR
C
C
C
C
6000
KNECCN =
NNECCN =
NOECCN(l)
NUECCM2»
NOECCM3I
NOfcCON(4)
NOECON15)
NOECCM6I
NOECCM7J
Notcoraai
NNECl
NCECi
0
8
= 4233
= 4234
= 5232
= 5235
= *>2')'
= 7232
= 7233
= 7235
00 820C I=1,NNECC
DO 8100 K=
1,7
ITR100 = ITREAT(K»*100
ITR = NUECONU) - ITR100
00 8000 KK=1,7
IF UTREATUKJ .NE. ITR) GO TO 8000
KNECON = KNECCN * 1
IF (KKECCN .EC. 1) WRIT£|6,640)
640 FORMAT CO**** WARNING ****«, /,
* «0 THE FOLLOWING CCMBINATIONS OF TREATMENT «,
* 'CPTIONS ARE CCNSIDEREO ECONOMICALLY INAOVISEA3LE•,
* • - SIMULATION CONTINUES't /,
* 'C ITREAT WITH ITREAT', /)
HRITE(6,631) ITREAT(K), ITR
8000 CONTINLE
8100 CONTINUE
8200 CONTINUE
IF CITREAT(4» .NE. 43) GO TO 9999
.LT. E)
.LT. E)
.LT. E>
.LT. E)
.LT. E)
.LT.'EI
GO TO 8500
GU TO 8500
GO TO 8500
GO TO 8500
GO TU 8500
GO TO 3500
C CHECK FOR OT-SIZE KITH HIGH RATE FILTERS
E = C.OOOl
IF UBS(CT-O.S)
IF (ABS(CT-l.O)
IF (ABS(CT-2.0»
IF (ABS(CT-2.51
IF (ABS(DT-5.C»
IF UBSCCT-IO.J .LT.
WRITE(6,650I DT
650 FORMAT<«0«, 5X, • DT =«t F10.2i ' MIN. IS AN UNACCEPTA3LF1t
* • VALUE WITH HIGH RATE FILTERS', /,
* • ', 10X, '(REQUIRED TU BE CITHER 0.5, 1.0, 2.0,',
* • 2.5, 5.0, OR 10.0 MIN.P »
NFLAG = 0
8500 HRFD = 10.0/OT
C AGO CHECK FOR CL2 ADDED AT ONE LOCATION ONLY
C
9999 RETURN
END
TRCH 61
TRCH 62
TRCH 63
TRCH 64
TRCH 65
FRCrl 66
TRCH 67
TRCH 68
TRCH 69
TRCH 70
TRCH 71
TRCH 72
TRCH 73
TRCH 74
TRCH 75
TRCH 76
TRCH 77
TRCH 78
TPCH 79
TRCH 80
TRCH 81
TRCH 82
TRCH 83
TRCH 84
TRCH 85
TRCH 86
TRCH 97
TRCrl 88
TPCH 89
TRCtt 90
TRCH 91
TRCH 92
TRCH 93
TRCH 94
TRCH 95
TRCH 96
TRCH 97
TRCH 96
TRCH 99
TRCH100
TRCH101
TRCH102
TRCH103
TRCH104
TRCH105
TRCH106
TRCH107
TRCHIOB
TRCH109
TRCH110
TRCHlll
TRCH112
TRCHU3
TRCH114
TRCHU5
TRCH116
= =TRCHU7
141
-------
SUBROUTINE STRDAT
COMMON CCNVERtKHOURtKMIN.L,KMOO,NFLAG,BlG,HEADl,HEAD2,
QDESYN,CCIF,WACU(7) ,WAIN(7 » ,QQUU(7 » ,QQ IN (7 ) ,WARM( 7 ) ,QQ*L,
BDIFtCCRM7ltBDCU(7» ,BOIN(7 > ,BCOU(7 1 ,BC1N (7 ) , BDRL ,
SSIF,SSIN(7lt SSOU(7lfSCOU(7J,SCIN(7),SSRM(7),SSRLtCOIF,CORL.
ADEPlH(ll),AASURF(m,ITREAT(7),ISTOR,lPRINT,ICUST,HfFD,
HODSIZiICfrEMf ICLZtSCREEN,QQIFMX,DESF,lRANGE,KNTOF,TRIBA,SEDA,
SQM.SREFFH.BREFFH.NUNITH^AREAhtOPRAMA^CHEMHtHM.VOLDA-.ITAaLE,
MUDCST,TCTCST,RECIRC,UVRDAF,TSURFA,UVRSED,NSED,JM(7),WTRMT5,
NSCRNtSCRCA(>tSUAREA,FAREAB,NMS,AREAMS,VOLCON,VOLSCD,ALUMUT,
BOINT(1I,SSINT(7) ,WAINT(7 ) ,BDOUT (7) ,SSUUT (7 ) ,WAOUT (7) ,
HARMT(7)tBCRMT(7J,SSRMT(7l,CHEMUT(8),CL2UT(8»,QMOD(20)rWTRMTl,
QQRMT(7),QQOUT(7) , QGRMMX (7 1 , QQOUMXt 7 ) ,QQRMMN (7 ) ,QQOUMM( 7 ) ,
BCRMT ( 7 1 tbC OU 1 ( 7 ) t BCRKMX ( 7 I tBCCUMX ( 7 J , bCRrtrtN ( 7 ) , BCuUMN( 7 ) ,
SCRKT(7l,SCOUT(7J ,SCRMMX(7l ,SCOUMX(7) ,SCRMMN(7» ,SCOUM^(7I ,
BDRM(7) tECRf (7) ,SCRK(7I
COMMON /STBK/QIN(l50)tBODlN(150)tSUSlNU50) ,COLIN(150),
flINST,CCUST,CINSTL,QOUSTL,STORLtQOUTOtSTORO,
ISPRINfIPCL,DEPMAX,CGMAX,DEPTH,
ATERM(ll),A02DT2(ll),BDEPTH(ll).BSTOR(ll),
DUMSIR(ll) ,DUMDEP(11I,
VOLINC150) ,VOLOUT( 1501, STOR, CUMIN, CUKOUT,
SBOD,SSS,SCCL,BOOOUT,SUSOUT,COLOUT,
I STMCD, ISTTYP, I STOUT,
QPUHP.CSTARTtCSTOP,
DTON,STORMX,DTPUMP,DTMOREtSTORF,APLAN,
CLANCtCSTORtCPStCTOTALtCPCUYDtCPACRE,
LP rJPtLPREV, LABEL, DETENU 150), FRAC< 150)
COMHf*N /TBLK/OT,NDT,KDT
DIMENSION NUEC3)
DT=OT*60.C
C
REAO(5,501) ISTMOD, ISTTYP, ISTOUT
501 FORMAT! 1CI5)
C
C NOTE.. OPERATIONAL OPTIONS INDICATED BY • *•
C
C ISTMOD * STORAGE MODE (ROUTINGt HOLDINGt ETC)
C * * 1 = IN-LINE
C • » 2 « OFF-LINE
C = 3 = INTRASYSTEM
C » 4 = REROUTING
C ISTTYP » STORAGE STRUCTURE (NATURAL, TANK, BAG»
C * « 1 = IRREGULAR (NATURAL) RESERVOIR
STRD
STRD
STRD
STRD
STRD
STRD
STRD
STRO
STRD
STRD
STRO
STRO
STRD
STRD
STRD
STRD
STRD
STRD
STRO
STRD
STRD
STRD
STRD
STRD
STRO
STRD
STRD
STRD
STRD
STRD
STPD
STRD
STPD
STRD
STRD
STRO
STRO
STRO
STRD
STRD
STRO
STRD
STRO
STRD
C * * 2 = GEOMETRIC (REGULAR! RESERVOIR - COVERFDSTRO
C * * 3 = GECMETRIC (REGULAR! RESERVOIR - U^COVERSTRD
C » 4 = INTRASYSTEM
C = 5 = RUBBER BAG
STRD
STRD
C-EXCLUDED I STEXS » EXCESS FLOW HANDLING (BYPASS, BAC<-UP, FL3USTRD
C-EXCLUDED * 1 = BYPASS FRACTION CONTINUOUSLY, UNDE* GRASTRO
C-EXCLUDED * 2 = BYPASS FRACTION CONT IHUUUSLY , CUNTRULl E STkU
C-EXCLUDED « 3 = BYPASS ALLt AFTER SURCHARGE BEGINS (CONSTRU
C-EXCLUDED = 4 - BACK UP
C-EXCLUDED » 5 = PASS THROUGH (UNDER HEAD)
C-EXCLUDED * = 6 = FLOODS (AND SIMULATION TERMINATES)
C I STOUT = OUTLET TYPE (GRAVITY, PUMP)
C * « 1 = GRAVITY WITH FIXED ORIFICE
C * * 2 = GRAVITY WITH FIXED WEIR
C * 3 = GRAVITY WITH FIXFO SIDE-HEIR
C - 4 = GRAVITY WITH FIXHO SIPHON
STRD
STRO
STRO
STRD
STRD
STRD
STRD
STRO
1
2
3
<»
5
6
7
B
9
10
11
12
13
l<*
15
16
17
18
19
20
21
22
23
2v
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
142
-------
c
c *
c
c
C-EXCLUOEO
C-EXCLUDEO
C-fcXCLUDED
C-EXCLUOEO
C
WRITE(6,602)
5
6
7
8
NEW PUMPS
EXISTING PUMPS
ADJUSTABLE VALVE WITH GRAVITY
SLUICE GATE WITH GRAVITY
BACK-UP EFFECTS (YES/NO)
1 - NU
2 = YESt UPSTREAM OF INLET POINT
3 = YESt UPSTREAM UF OUTLET POINT
*
*
C
C
c
c
c
c
c
c
STRO 61
STRD 62
STRD 63
STRD c.4
ISTBUP * BACK-UP EFFECTS (YES/NO) STR3 65
STRD 66
STRO 67
STR3 66
STRO 69
STRD 70
STRD 71
I3f STRD 72
I3i STRD 73
135 STRO 7^
STRD 75
SCLIOS PRESENT (100? EFFICIENT PLUG FL3STRD 76
= 2 = SOLIDS PRESENT (1005 EFFICIENT MIXING) STRD 77
IPRINT = 0 = NO PRINTOUT EACH TIME-STEP (SUMMARY POSSTRD 78
PRINTOUT ALL TIME-STEP SOLUTIONS (EACH STRD 79
ISTOUT, ISTMOO, ISTTYP
602 FOKMATC •, 2CXt 'CHARACTERISTICS UF STORAGE UNIT ARE't
'. 25X,
', 25X,
'. 25X,
IPOL
•CUTLET TYPE = ',
•STORAGE MODE -' ,
•STORAGE TYPE -« ,
I COST
ICOST
1
0
1
NO COST SUMMARY
CUST SUMMARY INCLUDED
READ(5,502) IPOL, ISPRIN
502 FORMAT(2110)
HRITE(6,603) IPOL, ISPRIN
603 FORMAT(«C«. 20X, MPOL =',
12
PRINT CONTROL (ISPRIN)
12)
C— — — —
c
c
c
c
100.0
cc
cc
c
c
c
READ RESERVOIR P-
BRANCH TC STORAGI
IF
IF
IF
IF
IF
CO
(ISTTYP
(ISTTYP
(ISTTYP
usmp
(ISTTYP
TO 904
.EC.
.EQ.
.EQ.
.EQ.
.EQ.
A)
1)
2)
31
4)
5)
GO
GO
GO
GC
GO
FOR i
TO
TO
TO
TO
TO
IRRE
1100
1200
1200
iGULAI
1100 READ(5,511) DEPMAX, ICL2
511 FORMAT(F10.2t 110)
: OEPMAX = MAX. ALLOWABLE DEPTH IN RESERVOIR (FT.)
HRITE(6i611) OEPMAX
611 FORMATCC't 20X, 'NATURAL RESERVOIR, WITH MAX. DEPTH =• , F7.2,
*• FT.«,ICX, • 11 DEPTH/*REA PARAMETERS ARE1, /,
* ' «, 25X, 4('QEPTH(FT| AR£A( S!J .FT ) • , 4X) 1
READ(5f512) ( ADEPTH(I), AASURFC I 11 1 = 1,11)
512 FORMAT(4(F10.2, F10.0J)
: AOEPTH = DATA DEPTH (FT), 0 - DEPMAX.
STRD 80
STRD 81
STRD 82
STRD 83
STRD 8
-------
APLAN * APLAN*1.25
60 TO 20CO
C
C
C
1200
513
C
C
C
RE ADO, 511)
READ(5,513)
FORMAT (2F 10
AOEPTH(1)=0
B) FOR REGU
OEPMAX, ICL2
BASEA, BASEC,
.0, F10.5I
BASEA * BAS
BASEC = BAS
COTSLO « COT
.0
AASURF(1)=BASEA
(MAN-MADE) RESERVOIR
COTSLO
E AREA UF RESERVOIR (SQ.FT.)
• CIRCUMF. OF RESERVOIR (FT.)
kN OF SIOESLOPE ANGLE (HORIZ/VERT)
;PTH(1)=0.0
;URFU)=BASEA
00 I ! !'!
AOEPTH(HMM)-
AASURF(HMM)=
1 CONTINUE
APLAN * (BASEA + BASEC*COTSLO*DEPMAX)*1. 25
WRITE(6,613> DEPMAX, BASEA, BASEC, COTSLO
613 FORMATCC', 15X, 'MAN-MADE RESERVOIR, WITH MAX. DEPTH =', F7.2,
* 'FT., AND CHARACTERISTICS', /, • ', 25X,
* 'EASE AREA =', F10.0, • SQ.FT.,', 7X,
* 'BASE CIRCUMF. =', F10.0, • FT.,', 6X,
* 'COT(SIDESLOPE) =•, F10.5)
ADEPTH(MMM-U+DEPMAX/10.0
BASEA
C
C
C
C
2000
CC
CC
cc
cc
cc
C
C
C
2100
521
READ OUTLET CONTROL DATA
BRANCH TO OUTLET TYPE (ISTOUT)
JF
IF
IF
IF
IF
IF
IF
IF
GO
(ISTCUT
(ISTCLT
(ISTCLT
(ISTCUT
(ISTCLT
(ISTOUT
(ISTCIT
(ISTCUT
TO 906
READ(5,52i)
FORMAT (F 1C.
.EQ.
.EQ.
.EQ.
.EQ.
.EQ.
.EQ.
.EQ.
.EQ.
A)
1)
2)
3)
^ )
5)
6)
7)
8)
GO
GO
GO
GC
GO
GO
GO
GO
TO 2100
TO 2200
TO
TO
TO
TO 2600
TO
TO
OUTLET BY GRAVITY WITH FIXED
CDAOUT
3)
ORIFICE
CCAOUT .= OUTLET ORIFICE AREA * DISCHARGE
WRITE(6,6211 CDAOUT, DT
621 FORMATC ', 20X, 'RESERVOIR OUTLET CONTROL
*RIFICE't /, ' '» 20X, 'ORIFICE AREA*CD =',
*F10.2, • SEC. (FROM INPUT HYDRUGRAPHJ•, /,
STRD121
STRD122
STRD123
STRDL25
STRD126
STRDL27
STR0128
STRD129
ST1013D
STRD131
STR0132
STRD133
STRD135
STRD136
STRD137
STRD138
STRD139
STRD140
STRD141
STRD143
STRDl't't
STR0145
STRD146
STPDl^S
STR01«t9
STR0150
STR0151
STRD152
STPD153
STR0155
STK1U56
STRD1S7
STRD15B
STR0159
STRD160
STRD161
STRD162
STRD163
*' ', 23X,
*AGE = 0'I
QOrlAX =
GO TO 3000
C
C
C
•ORIFICE CENTERLINE ASSUMED AT TANK DEPTH = 0, WHEN
CDAOUT*SORT(64.4*DEPKAX)
B» OUTLET BY GRAVITY WITH FIXED WEIR
2200
522
FORMAH2F10
C
C
WEiRhT,
.3)
WEIRHT
WEIRL
WEIRL
= RES.
= WtIR
DEPTH (FT> WHEN
LENGTH (FT)
STRD165
BY GRAVITY WITH FIXED OSTRD166
F10.3, • SQ.FT, DT =',STRUi67
1 ', 20X, 'MJTE..', /» STR016B
STDRSTRD169
STRD170
STRIH71
STRD172
STRD173
STRD174
STRD176
STPD176
STRIH77
STRD17B
STROI79
STRDL,90
SURF. AT WfllR
144
-------
WUTE<6,622)
622 FORMAT<• 'i
WEIRQ » 3.33*(DEPTH-WEIRHTI**1.5
HEIRHT, WEIRL, OT
(CFS/FT)
20X, 'RESERVOIR OUTLET
', 2CX, "WEIR HEIGHT =',
CONTROL BY GRAVITY WITH FIXED
F6.2, • FT, WEIR LCN3TH =',
* F7.2f • Fir OT = •t F10.2, • SEC. (FROM INPUT HYDkOGkAPH)•)
QUMAX * WEIRL*3.33*(DEPMAX-WEIRHT)**1.5
GO TO 3000
C
C
C
F) CUTLET BY EXISTING PUMPS
2600 REAC(5t526J 8PUMP,DSTART,DSTOP
526 FORMAT(3F10.3)
QPUMP = COKSTV.'T PUMPFD
OSTART = RESERVOIR DEPTH
STRD181
STRD182
WSTRD183
STRIU84
STRD185
STPD186
STRD187
STRD188
STRD189
STR0190
STRD191
STR0192
STRD193
OUTfV.n-f RATE (CFS)
AT START OF PUMPING
DSTOP = RESERVOIR DEPTH AT END
HR1TEI6.626I QPUMP.DSTART,DSTOP
OF PUMPING
(FT)
(FT)
626FORMATC ', 20X, 'RESERVOIR OUTFLOW BY FIXED-RATE PUMPING', /,
* • «t 20X, 'PUMPING RATE =•, F7.2, • CFS, PUMPING START',
* • DEPTH = ', F6.2, • FT, PUMPING STOP DEPTH =', F6.2, • FT'
QGMAX = QPUMP
IF (DSTART .GT. DSTOP} GC TO 3000
OSTOP = DSTART - 0.&
HRITE(6,fcZ7)
627 FORMAT CO****** WARNING.
* » DEPTH', /, • ',
GO TO 3000
STOP DEPTH SHOULD BE LESS THAN START',
10X, 'RESET STOP DEPTH TO', F6.2, ' FT')
C
C
C
C
c-
c
C
C
C
C
C
END OF INPUT PARAMETERS FOR STORAGE UNITS
COMPUTE DEPTH/STORAGE RELATION (ARRAY)
NOTE
RUBBER BAG AND INTRASYSTEM DO NOT HAVE 'DEPTH'
BRANCH TO STORAGE TYPE (1STTYP)
3000 IF
IF
IF
CC
cc
IF
IF
(ISTTYP
(ISTTVP
(ISTTYP
(ISTTYP
(ISTTYP
.EC.
,EQ.
.EQ.
,EQ.
.EQ.
1)
2)
3)
4)
5)
GO TO 3100
GO TO 3200
GO TO 3200
GO TO
GO TO
Al FOR 'NATURAL' RESERVOIR
GO TO 904
C
C
3100 ODEPTH ~ DEPMAX/10.0
IF (ISTCUT .EC. 2 .OR. ISTOUT .EQ. 31
* DDEPTH = WEIRHT/3.0
OJMCEP(l) =0.0
DEPTH = 0.0
C
CALL INTEFP(ADEPTI), AASURF, 11, DEPTH, AREA, KFLAG)
IF (KFLAG .NE. 0)
AREA2 = AREA
DUKSTRC1) =0.0
DO 3150 1*2,11
GO TO 901
STRD195
STRD196
STRD197
STRD198
STR0199
JSTRD200
STRD201
STR0202
STRD203
STR0234
STRD205
STRD206
STRD207
STR0208
STRD209
STRD210
STRD211
STRD212
-STK0213
STRD214
STRD215
STRD216
STRD217
STRD218
STRD219
STRD22D
STR0221
STRD222
STRD223
STRD224
STRD225
STPD226
STRD227
STKD228
STRD229
STPD230
STRD231
STK0232
STKD233
STRD234
STR0235
STROH36
STRD237
STRD238
STRJ239
145
-------
C
C
AREA1 * AREA2
IF ((ISTCUT .EQ. 2 .OR. I STOUT .EQ. 3) .AND.
* (I .EC. 5IJ DOEPTH = (DEPMAX - WEIRHT)/7.0
DUHDEPU) = DUMDEPU-ll + DDEPTH
DEPTH - DUMDEP(I)
CALL 1NTEPP(ACEPTH, AASURF, 11, DEPTH, AREA, KFLAG)
GO TO 901
IF (KFLAG .NE. 01
AREA2 = AREA
3150 DUMSIR(I) = DUMSTR(I-l) + 0.5*DOEPTH*(AREA1+AREA2)
HRITE(6,6211
631 FORMAT!' ', 20X, 4('DEPTH(FT) STOR(CU.FT) », 4XM
KRITE(6,632i (CU/'-DEP (I I .- DUKSTF.(I), 1 = 1,11)
632 FORMAT! • •, 16X, F9.2, Fll.O, 5X, F9.2, Fll.O, 5X,
* F9.2, Fll.O, 5X, F9.2, Fll.O)
CO TO 33CO
C
C B) FOR KAN-MADE RESERVOIR
C
3200 DOEP1H » DEPMAX/10.0
IF (ISTCUT .EQ. 2 .OR. ISTOUT .EQ. 3)
* ODEPTH = KEIRHT/3.0
OUKDEP(l) = 0.0
DEPTH = C.O
DUHSIR(l) - 0.0
DO 325C 1*2,11
IF ((ISTCUT .EQ. 2 .OR. ISTOUT .EQ. 31 .AND.
* (I .EC. 5» DDEPTH = (DEPMAX - WEIRHU/7.0
DUMDEP(I) » OUMDEP(I-l) + ODEPTH
3250 DUMSTR(I) = (BASEA + 0.5*BASEC*DUMDEP( I) *COTSLO)*DUMDEf>( 11
HRITE(6*631)
MRITEie,£32> (OUNDEP(I), DUMSTR(I), 1=1,11)
C
3300 DO 3350 1=1,11
BSTOR(I) - CUMSTR(I)
3350 BDEPTH(I) = DUMDEP(I)
C
C CALL INT£RP(BOEPTH,BSTOR,11,DEPMAX,STORMX,KFLAG)
STORMX=BSTOR(11I
IF (KFLAG .NE. 0) GO TO 901
END OF DEPTH/STORAGE CUMPUTATIONS
C
C
C
C
C
C BRANCH TO STORAGE MODE (ISTMOD)
C
IF (ISTPCC .EQ. 1) GO TO 4000
CC IF (ISTKCD .EQ. 2) GO TO
CC IF (ISTMOD .EQ. 3) GC TO
CC IF (ISTMCC .EQ. 4) GC TO
GO TO SC5
C
C COMPUTE AND PRINT ROUTING PARAMETERS
C
C BRANCH TO OUTLET TYPE (ISTOUT)
C
4000 IF (ISTCtT .EQ. 1) GO TO 4100
IF (ISTCUT .EQ. 2) GO TO 4200
CC IF (ISTCLT .EQ. 3) GO TU
STRD241
STRD2-+2
STR0243
STRD244
STRD245
STRD246
STRD247
STRD248
STR0249
STR[)?50
STR0251
STRD252
STRD253
STPD254
STR0255
STRD256
STRD257
STRD256
STRD259
STRD260
STRD261
STRD262
STRD263
STRD26
-------
IF (ISTCLT .EQ. 41
IF USTCCT .EQ. 51
IF (1STCUT .EQ. 61
IF (ISTCUT .EQ. 7)
If (ISTOLT .EQ. 81
GO TO 906
cc
cc
cc
c
c—
c
4100 DT2
00 4150
DEPTH
STOft
QOUT
GO TO
GC TO 8000
GO TO 4600
GO TO
GO TO
CCMPUTE AND PRINT ROUTING PARAMETERS
A) FOR ORIFICE OUTLET
= 0.5*DT
I=lt11
= CUMOFP(!)
= OUMSTR(I)
a COAOUT*SQRT(64.4*OEPTH)
A02CT2(I) * QOUT*DT2
4150 ATERM(I) = COUT*DT2 + STOR
HRITE(6t6360
147
-------
GO TU
F12.2,
EOCO
• TIMES (QPUMP*DTI»)
cu,
CD.
CU.
4650 HRITE(6,647) STORHI, STORLO, STORDV, PUMPDV
647 FORMAT('0«,20X, 'AT LEVEL DSTART, STORAGE =', FIO.O,'
' S20X, 'AT LEVEL DSTOP, STORAGE =', FIO.O,1
• ',20X, "DIFFERENCE -= BUFFER STORAGE =', FIO.O,'
«0',16X, 'CF. VOLUME PUMPED / TIME-STEP -•, FIO.O,'
'0',10X, «A RELIABLE MODEL REQUIRES THE VOLUME PUMPED
'STEP TC BE LESS THAN THE BUFFER STORAGE', /,
«,10X, 'THEREFORE ONE OF THE FOLLOWING AMENDMENTS SHOULD
PRCEAELY BE MADE TO THE INPUT DATA -'t /,
tl5X, 'Al REDUCE QPUMP RATE', /,
'ti! I^kJCC DSTtif LLVCL', /,
•C) INCREASE DSTART LEVEL', /,
•0) INCREASE RESERVOIR PLAN AREAS', /,
•0 , 2X, •**** FOR THE ABJVE REASONS, THE FOLLOWING OUTPUT',STR0377
NECESSARILY RELIABLE*) STRD378
tl5X,
,15X,
, 2X,
STRD361
STRD362
STRD363
STPD364
,FT',/,STR0365
.FT',/,STP0366
,FT',/,STR0367
CU.FT',/,STRD363
/ TIME-'.STRD369
STRD370
STR0371
STRD372
STRD373
STPD37%
STRD375
STRD376
' IS NOT
GO TO 80CO
C
C
C
C
8000 READ! 5, 551)
551 FORMAT(2F10
C
READ RESERVOIR INITIAL CONDITIONS
STORO
QCUTO
STORO,
2)
= STORAGE
= OUTFLOW
QOUTO
(CU.FT.I AT T
RATE (CFS) AT
READ STORAGE UNIT UNIT COSTS
READ(5,561) CPCUYD
561 FORMAT(F10.2>
KRITE(6,661) CPCUYD
661 FORMAT(• ', 20X, 'ASSUMED
* F5.2, ' S/CU.YD.1!
8888 CONTINUE
C
C—
C
GO TO 5999
ERROR MESSAGES
901
691
IF (KFLAG .EQ
WRITE(6,691)
FORKAT.CO ***
*OWEST VALUE ON
STOP
10) GO TO 902
TERMINATE - INPUT
CURVE (IN SUBRT.
TO INTERP
STROAT)')
STRD379
STRD38C
— STRD381
STRD382
STRD383
STRD384
STRD385
STR035fa
STRD387
— STRD339
STRD389
STRD390
STR0391
STRD392
'.STRD393
STR!139
-------
SUBROUTINE TREAT
COMMON CCNVERtKHOUR»KH|N»L,KyCD,NFLAG,BIO,HEADl,HEAD2,
* QDESVN,CQIF,WAOtj{7) ,V»AIN(7) ,QQOU(7) ,001N< 7 ) i WARMJ 7) t QQRLt
* B01F.CCRMm.BDOUm,BDINm,BCOU(7»,BCINm,BDRL,
* SSIFtSSiM7l,SSOUm.SCOU(7l,SCINm,SSKMm,SSRL,CQIF,CORL,
* ADEPTH{H)iAASURF,SSRMT(71,CHEMUT(8),CL2UT{8» t QMOD(20) , WTRMT1,
* CQRKK7) ,QQOUT(7),QCPMMX(7),OQUUMX(7> ,QQRMMN(7),QQUUMN(7),
* BCRMTm«BCOUTl7« ;*CRMM.xm DCTUXXm ( RCR"«'.'( 7) ,RCOUMM 7 ),
* SCRKT (7 ) ,SCOUT (7 ) , SCRMMX(7 J , SCOUMXt 7» , SCRMHN ( 7 » .SCOUMNl 7) ,
* BORf.m,BCRM7) ,SCRM<7)
COMMON /T8LK/OT,NDT,KCT
COMMOM /BLKl/NAME(4f21)
COMMON /STBK/QIN(150 I ,BDDIN(150),SUSIN(150),COL INC 1501,
* QINST,CCUST,QINSTL,COUSTL,STORL,QOUTO,STORO,
* ISPKIN,IPOLfDEPMAX,CCMAX,OEPTH,
* ATERK(11I,AU2UT2(11»,8DEPTH(11),BSTOR{11),
* DUMSTR(ll) tOUMOEPdllt
* VOLINU50»,VOLOUT(150>,STOR,CUMIN,CUMOUT,
* SBOO.SSS,SCOLtBODOUT,SUSOUT,COLOUT,
* ISTMOD,ISTTVP,ISTOUT,
* QPUKPtOSTART,CSTOP,
* OTUNtSTCRMX,DTPUMP,OTMUREtSTGRF,APLAN,
* CLANOtCSTOR.CPSfCTOTAL.CPCUYO.CPACRE,
* LP-,JP,LPREV,LABEL,OETENTJ150J .FRAC1150I
OIMEKSION NM(ll),MHOUR(11),MMIN(11»,BORDC11),SSRD( 111,C3RD(11) ,
* BDCIF(11),BOCRL(11I,SSCIF(11),SSCRL(11),COC1F(11),
* COCRL(11),QAV(11)
IF (KOT .GT. II GO TO 10
c
c
c
IN1T
BIG = 10.0**12
CORfT * 0.0
Jl = JM1»
J3 = JM(3I
J4 = JM4)
J5 * JM5)
J7 = JM7)
DU 5 K=lt7
BOINT(K) = 0.0
SSINT(K) = 0.0
WAINT(K) = 0.0
WARMT(K) = 0.0
BORKT(K) = 0.0
SSRMTtKJ = 0.0
BOCl>T= O.C
BCOUKX(K»= 0.0
SCUU^X(K)= 0.0
1
2
3
4
5
6
7
8
9
GO TO 5
0.0
TREA
TREA
TREA
TREA
TREA
TREA
TREA
TREA
TREA
TREA 10
TREA 11
TREA 12
TREA 13
TREA 1*
TREA 15
TREA 16
TREA 17
TREA IB
TREA 19
TREA 20
TREA 21
TREA 22
TREA 23
TREA 2%
TREA 25
TREA 26
TREA 27
TREA 28
TREA 29
TREA 30
TREA 31
TREA 32
TREA 33
TREA 3*
TRfcA 35
TREA 36
TREA 37
TREA 38
TREA 39
TREA 40
TREA
TREA 47
TREA 48
TREA 49
TREA 50
TREA 51
TREA 52
TREA 53
TREA 54
TREA 55
TRCA 56
TREA 57
TREA 58
TREA 59
TREA 60
150
-------
BCRKMX(K)= 0.0
SCRMNX
-------
QQIFKV = BIG
BCIF^N = BIG
SCIFf-N = BIG
CCIFMN = BIG
QQOFf-K = BIG
BCUFMK = BIG
SCOFMN = BIG
CCDFMN = BIG
QQINfN = BIG
BCINMK = BIG
SCINKN = BIG
CCINMN = BIG
ttQRLMN a BIG
8CRI "
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
* 2(» TOTAL BOD SS'), • TOTAL BOO COL1FORMS',
* « TOTAL BOD SS CCL1FORMS1)
IF ({PRINT .EQ. I) WRITE(6,460)
460FOKMATI* HR:MIN CF LB LB MPN', 4X,
* 2C CF LB LB'Jf • CF LB MPN1,
* • CF LB LB MPN', // )
IF (IPRINT .EQ. 2) HRITE(6,461)
461 FORMATC HR:MIN CFS MG/L MG/L MPN/100ML', 4X,
* 2C CFS MG/L MG/L'), ' CFS «G/L MPN/100ML',
* • CFS KG/L MG/L MPN/100ML')
COMPUTE CLOCK TIME
10 M11N = KMIN + DT
20 IF (KMIN .LT. 60) GO TO 30
KHIN = KM IN - 60
KHOUR « KHOUR + I
IF (KHCUR .GT. 23) KK)UR = KHOUR - 24
GO TO 2C
30 CONTINUE
QQ. . » WATER FLOWRATE (CFS)
flC.. = BOD FLOVJRATE (LB/DT)
SS.. » SS FLOWRATE (LB/OTI
CO.. = COLIFORM FLOW RATE (KPN/DT)
WA.. = WATER QUANTITY (CU.FT)
BC.. = BOD CONCENTRATION (MG/L)
SC.. = SS CONCENTRATION (MG/L)
CC.. 3 CULIFORMS CONCENTRATION (MPN/IOOMLI
..IF = INFLOW (TO WHOLE MODEL, INCL OVERFLOW)
..OF = OVERFLOW
..IN = INFLOW (BY LEVEL)
TREA181
TREA182
TREA183
TREA1B4
TREA185
TREA186
TREA187
TREA188
TREA189
TREA190
TREA191
TREA192
TREA193
TREA194
TREA195
TREA196
TPEA197
TREA190
TREA199
TREA200
TREA201
TREA202
TREA203
TREA2D4
TREA205
TREA206
TREA2D7
TREA208
TR6A209
TREA210
TREA211
TREA212
TREA213
..RM = REMOVAL (BY LEVEL) FROM EFFLUENT (OJTFL3TREA214
..OU « OUTFLOW (BY LEVEL)
,.RL = RELEASE (OUTFLOW FROM WHOLE MODEL, INCL
..RS = REMOVAL BY SCREENS (SUBTOTALS FOR MODE
..RD * REDUCTION (PERCENT, OF A QUANTITY)
....T * TOTAL (CUMULATIVE)
....TT = UVERALL TOTAL (FOR ALL LEVELS)
....RF = REMOVAL FRACTION
....MX = MAXIMUM (THROUGHOUT STORM)
....MN = MINIMUM (THROUGHOUT STORM)
NOTF: INPUT TO TREATMENT IS INPUT TO LEVEL 1
MG/L * 16050*(LB/CU.FT. )
TREA215
OVETREA216
TREA217
33 OTREA218
TREA219
TREA22D
TREA221
TREA222
TREA223
TREA224
TREA225
TREA226
TREA227
TREA228
TREA229
TREA23^
TREA231
QDESYN = DESIGN THROUGH FLOWRATE FUR WHOLE TREATMEMTTREAZSZ
CCMPUTE CVF.RFLOW
CtiOF = 0.0
ODOF = 0.0
SSUF - C.O
COOF = 0.0
WAOF =0.0
TREA233
TREA234
TREA235
TREA236
TREA237
TREA238
TREA?39
TREA240
153
-------
BCOF * 0.0
SCOF * 0.0
CCGF > C.O
IF (ITREAK3I
C
C
.EQ. 35) GC TO (40. 35), ISTUR
FLOW FIRST THROUliH ASSOCIATED STORAGE
35 IF(ISTOR.KE.02)GO TO 40
QIN(KDT) = QQIF
BOOIN(KOTI = BDIF
SUSIMKDT) - SSIF
COLIMKOT) = COIF
C AEOVE MAY NEED TU BE REDUCED BY
C TO PREVENT FLOODING IN STORAGE
IF (DEPTH .LT. LtPHAXI GC 10 39
IF (QQIF .IE. 0.0) GC TO 39
NU-FLOOD FL3W
FR2ST
QIN(KDT)
BODIN(KDT) =
SUSIMKDTI =
COLIMKDTJ *
QQOF =
BDOF *
COMAX/CQIF
FR2ST*CQIF
FR2ST*BDIF
FR2ST*SSIF
FR2ST*CUIF
U.O-FR2STXCQIF
(1.0-FP2ST)*BDIF
39
SSOF = tl.O-FR2ST)*SSIF
CCOF » (1.0-FR2ST)*COIF
UINST = QIK(KOT)
CALL STRAGE
50
QQIF » COUST
801 F » BCOCUT
SSIF * SUSOUT
COIF » CCLOUT
NO FLOW THROUGH
IF (QQIF .GT. 0.0) GO TO SO
HAIF « 0.0
BCIF = 0.0
SCIF = 0.0
COIF = 0.0
CCIF * 0.0
QQINUI - 0.0
WAINdl - 0.0
BDIK(l) = 0.0
COIN = 0.0
SSIN(L) = 0.0
BCIN(I) = 0.0
SCIN(l) = 0.0
CCIN = 0.0
GO TO 80
QQI.N(l) = QOESYN
IF (QQIF .LT. QDESYN) QQIN(l)
QQOFK * CCIF - CQIN(l)
QCuF > CCGF + CQOFR
OFACT * CQOFR/QQIF
ASSUMES BCD, SS
BOCIF = CFACT*BOIF * BDUF
SSOF = CFACT*SSIF + SSOF
COOF « CFACT*COIF + COCF
WAOF * QQOF*DT*60.0
KAOFT = kAOFT I- K'AUf
HAIF « CQlF*DT*fcO.O
ASSOCIATED
» QQIF
£ COL I FORMS
TREA241
TREA242
TREA243
TREA244
TREA245
TREA246
TPEA247
TREA248
TREA249
TREA253
TREA25L
SPLITTTRE4252
TRFA253
TREA254
TREA255
TREA?56
TREA257
TREA258
TREA259
TREA260
TREA261
TREA262
TREA263
TREA264
TREA265
TREA266
TREA267
TREA269
TREA269
TREA270
TRFA271
TREA272
TREA273
TREA274
TREA275
TREA276
TREA277
TREA278
TRFA279
TREA280
TREA281
TRtA282
TREA283
TRFA264
TREA2S5
TREA286
TREA287
TREA238
TREA289
TREA29D
TREA291
TREA292
FRFA293
ARE THOROUGHLY MIXED ON TRFA294
TREA29i>
TREA29b
TREA297
rREA238
TREA299
TREA300
STORAGE
154
-------
60
70
BCIF * 16050, 0*BOIF/WAIF
SCIF * 16050. 0*SSIF/WAIF
CCIf = COIF/(WAIF*28. 32*10.0)
IF (CCOF .LT. O.OC1) GO TO 60
BCOF = 16050. 0*8DOF/WAGF
SCOF » 16050. 0*SSOF/WAOF
CCUF -= COCF/(WAQF* 28. 32*10.0)
KNTOF = KNTOF +• I
GO 10 ?C
BCOF *
SCOF »
CCOF =
BDOFT =
SSOFT -
COOFT =
BOIFT =
SSIFt =
HAIFT =
COIFT *
BOIN'(l)
SSIN(l)
COIN
CCINT
WAINJl)
BCIN(l)
0.0
0.0
0.0
EDOFT
SScFV
CCCFT
BOIFT
SSIFT
HAIFT
COIFT
BOOF
COIN
COOF
60IF
SSIF
WAIF
CUIF
(1.0-CFACT)*BCIF
(1.0-OFACT)*SSIF
(1.0-OFACT)*CCIF
CCINT *• COIN
OCIM 1)*DT*60.0
BCIF
SCIF
CCIF
80
(IRANGE .EQ. 0) GO TO 1000
(QUIF .CT. QQIFMX) Q01FHX = OQIF
•QQCF .GT. QCOFMX) QQOFMX = QQOF
(gQIN(l) .GT. CiQINMX) QQltWK = QQ£N BCJFMN = BCIF
(BCQF .LT. BCOFMN) BCOFMN = BCOF
(BCIN(U .LT. BCINMN) BCINMN = BCIN(l)
(SCIF .LT. SCIFMN) SCIFMN = SCIF
(SCCF .LT. SCUFMN) SCOFHN = SCUF
(SCtNdl .LT. SCINMNJ SCINMN = SCIN(U
(CCIF
(CCCF
(CCIN
QOIFT -
QCOFT -
QUINT =
BCIFT =
BCOFT =
BCINT -
SCIFT =
.LT.
.LT.
.LT.
CCIFMN)
CCOFMN)
CCINMN1
CCIFMN
CCOFMN
CCINMN
CCIF
CCOF
CCIN
flOIFT
CQOFT
QQINT
BCIFT
BCOFT
BCINT
SCIFT
QQIF
QQOF
QQIN(l)
UCIF
BC'JF
BCIN(l)
SCIF
TREA301
TPEA302
TREA303
TREA304
TREA305
TREA306
TRE4307
TREA308
TRF.A309
TREA311
TREA312
TREA313
THtA3l«t
TREA315
TREA316
TREA317
TREA318
TREA319
TREA320
TREA321
TRF.A322
TREA323
TREA325
TREA326
TREA327
TREA328
TKEA329
TREA330
TRCA331
TREA332
TREA333
TREA335
TREA336
TREA337
TREA333
TREA339
TPEA34J
TREAM3
TREA345
TREA'i-ifa
TREA347
TRt~A3<+8
TKEA349
TREA350
TREA351
TREA352
TRKA353
TREA355
TRFA356
TREA357
TREA358
TREA359
TRCA360
155
-------
SCOFT = SCOFT + SCOF
SCiNT = SCINT f SCIN(l)
CC1FT = CCIFT * CCIF
CCUFT = CCCFT * CCCF
CCUT = CCINT * CCIN
IFUSTOR.NE.02)GO TO 1000
IF (QOUST .EQ. 0.0) GO TO 9998
START REMOVALS. IN CASCADING LEVELS
LEVEL 1 BRANCH (FOR TREATMENT BY BAR RACKS)
IF(QQIF.LE.O.O) GO TO 9998
K - ITPE.ATfl» - 1C
L = 1
BOINT(l) = BDINT(l) + BOIN(l)
SSINT(l) = SSINT(l) + SSIN(I)
HAINTUI = WAINT(l) + WAINUI
GO TO (llCC,12CC)t K
c
c
c
1100
c
c
c
1200
c
c
1220
1230
1240
1250
C
1900
C
CALL BYPASS
GU TO 19CO
HARK(l) =
QQRM1} =
SSRM(l) =
BDRM(l) ^=
QUCU(l) =
HAUUC1) -
BDOU(l) -
SSOU(l) =
IF «}CCU(1I
BCOU(l) =
SCOU(l) =
GO TO 1240
BCUU(l) =
SCCU(l) =
IF (QQRK(l)
BCRH(l) =
SCRMU) =
GO 10 1900
BCRK(l) =
SCRM(l) =•
CALL IRLIKK
— ™—
C
20 QO
lit FOR NO BAR RACKS
12) FOR BAR RACKS
6. 0*QQ1N( 1)*0. 646*OT/ 1440.0
HARf(l)/(DT*60.0)
SCREENINGS (65? MOISTURE)
WAR*M1)*50.0*0.15
0.05*SSRM(1)
CQIN(l) - QQRM(l)
WAIM1) - WARK(l)
BDlN(l) - BDRM(l)
SSIN(l).- SSRM(l)
.EQ. 0.0) GO TO 1230
BDOUl 1 ) *CCNVER/OCOU ( 1 )
SSOK1I*CCNVER/CQCU(1)
0.0
0.0
.EQ. 0.0) GO TO 1250
BDRM( 1) *CCNVER/QQRH( 1)
SSRH(1)*CCNVEP/OORM( 1)
0.0
0.0
LEVEL 2 BRANCH (FOR INLET P
K = ITPEAT(2I - 20
AT 6 CU.FT/MG, t 50
PUMPING)
L = 2
BDIKT(2) = BDINT(2) + BDIN(2)
SSINTJ2) = SSINTJ2) * SSIN12)
WAINTI2) = WAINT(Z) t WAIN12)
GO TO (21C0.2200)t K
TREA361
TREA362
TREA363
TREA364
TREA365
TREA366
TREA367
TREA368
----- TREA369
TREA370
TREA371
TREA372
TREA373
TREA374
TREA375
TREA376
TREA377
TREA378
TREA379
TREA380
TRE&381
TREA382
TREA383
TREA384
TREA385
TREA386
TREA337
T RE A 3 88
TREA389
LB/CTREA390
TREA391
TREA392
TREA393
TREA394
TREA395
TREA396
TREA397
TREA39B
TREA399
TREA400
TREA401
TREA402
TREA403
TREA404
TREA405
TREA406
TREA407
TREA408
TREA409
TREA41D
TREA411
TREA412
TPEA413
TRCA414
TREA415
TPEA416
TREA418
TRFA419
TREA420
156
-------
c
c
c
2100 CALL BYPASS
GO TO 29CO
C
C
C
2200 CALL BYPASS
C
2900 CALL TRUNK
C
C-
C
21) FOR GRAVITY INLET (NO PUMPING. = BYPASS)
22) FOR INLET PUMPING (STATION)
LEVEL 3 BRANCH (FOR PRIMARY TREATMENT)
3000
K = ITREATO) - 30
L = 3
BD1KH3) = BOINT(3) + BDINO)
SSINT(3) = SSINT(3) «• SSINO)
HAINT13) = HAINTO) + HAINC3)
GO TO (3100,3200,3400,340C.350C), K
TREA421
TREA422
TREA423
TREA424
TREA425
TREA42&
TREA427
TREA428
TREA429
TREA430
TREA431
TKEA432
TRE.A433
TREA434
TREA435
TREA436
TREA437
TREA43B
TREA439
3100 CALL BYPASS
GO TO 390C
31) FOR NO PRIMARY TREATMENT (BYPASS)
32) t 33) FOR DISSOLVED AIR FLOATATION
(WITH OR WITHOUT CHEMICALS)
TREA4-U
TREA442
TREA446
SELECT CONTINUATION THRU PROGRAK DEPENDING ON USE OR NON-USE OF
CHEMICAL CCAGULANTS
3200 OVFRA = QQIN(3)*1000000.0*(1.0*0.01*KECIRC)/(1. 547*! SJRFA)
C OVFRA OVERFLOW RATE, GPD/SF
TREA451
TREA457
C *** COMPUTE REMOVALS IN FLOTATION CHAMBER ASSUMING NO FLOC. CHEMICALS TREATS
C
IF (UVFRA .LT. 1000.0) OVFRA = 1000.0
BREFF = 0.59 + 0.05*BCIN( 3) / LOO. 0 - 0. 36*< OVFR4-1000.0) /7000.D T<*EA<,58
SREFF = 0.656 + 0.06*SCI N( 3) /190. 0 - 0.40* (OVFRA-1000.0) 77000. OTRt A453
IF (ICH.EM .NE. 1) GO TO 3205 TREA460
C TREA^61
C *** COMPUTE REMOVALS IN FLOTATION CHAMBER ASSUMING FLOC CHEMICALS ARE TREA462
C TREA463
TREA464
TREA465
TRLA466
TRFA467
TREAA63
3205
BREFF = BREFF + 0.02
SREFF = SREFF + (20000.0-OVFRA)/100000.0
CHEMU=QQIM3)*DT*60.0*7.48* 100. 0/1000000.
CHEMUTO) -= CHEMUTO) + CHEMU
IF (ICL2 .NE. I) GO TO 3210
BREFF = BREFF * 0.15
ADDED CL2 REDUCES
IF (BCIM3) .GT. 130.0) CL2U
IF (BCIN(3) .LE. 130.0) CL2U =
(1.547*60.0*24.
OQIN(3>*10.0*8.34*DT/
(1.547*60. 0*24.0)
TP.FA469
BOD C COLIFDRMS BUT DOES NOT AFFECTREA470
QQIN(3)<-15.0*8.34*DT/ FRFA471
.0) TKE4472
TRFA473
TRFA474
CL2UTO) = CL2UTO) * CL2U TKEA475
CALL KrLL(VCLDAF,SClF,SCINOI,QQlN(3),CClN,CC01J) TREA476
3210 COiMTIKLF TREA477
IF (BKEFF .GE. 0.60) 8REFF = 0.60 TPEA478
IF (BREI:F .LE. C.18) OREFF = 0.18 TKEA479
IF (SREFF .GE. 0.82) SREFH = 0.82 TREA480
157
-------
IF (SREFF .IE. 0.20) SREFF = 0.20
BDRMC3) - BREFF*BDIN(3)
SSRMO) = SREFF*SSIN(3J
QQRHO) = O.C15*QGIN(3)
: QCRM(3) IS FLOATED SCUM VOLUME
GO TO 3220
3203 QOUS = QQINI3I - QQRS
OVFRA = QQUS*1000000.0*(1.0+0.01*RECIRC)/(1.547*TSJRFA)
IF (OVFRA .LT. 1000.0) tJVFRA = 1000.0
: NC CHEMICALS USED
BOGUS = BOIN(3) - BORS
BCOLS *• 0.0
IF (COLS *G7. 0.0) BCOUS = BOGUS*CONVER/aOUS
SSIN(3) - SSRS
= 0.0
SSUUS
SCCUS
IF (QOUS .GT. 0.01 SCOUS = SSOUS*CONVER/QOUS
SREFF = 0.528 - 0.486*(OVFRA-1000.0)77000.0 * 0.06*SCOUS/190.
BREFF > 0.475 + 0 ,05*BCOUS/100.0 - 0.405*(OVFRA-10C0.0)/7000.
IF (ICJ-EH .NE. 1) GO TO 3215
: CHEMICALS USED
SREFF = SREFF * 1.37*120000.0-OVFRA)/100000.0
BREFF * BREFF * 1.30*0.02
CHEMU .« QOUS*DT*60.0*7.48*100.0/1000000.0
: CHEHU IS CHEMICALS USED PER TIMESTEP BASED ON USE AT 12 HG/L
CHEKUTO) = CHEMUTOI + CHEMU
3215 IF (ICL2 .NE. 1) GO TO 3219
BREFF - BREFF * 0.15*1.30
: CL2 REDUCES BOD £ COLIFORMS, BUT NOT SS
IF (BCOUS .GT. 130.0) CL2U = QOUS*15.0*8.34*DT/
* (1.547*60.0*24.0)
IF (BCCUS .LE. 130.0) CL2U » QOUS*10.0*8.34*DT/
* (1.547*60.0*24.0)
CL21TOI = CL2UH3) + CL2U
CALL K1LL(VCLOAF,SCIF,SCIN(3),QQIN(3),CCIN,CCOU)
3219 CCNTIME
IF (8REFF .GT. 0.481 BREFF = 0.48
IF (BREFF .LT. 0.15) BREFF = 0.15
IF (SREFF .GT. 0.75) SREFF = 0.
IF (SREFF .LT. 0.15) SREFF = 0,
BDRH(3) « BORS * BREFF*BOOUS
SSRS + SREFF*SSOUS
QORS * QGUS*0.010
QCIM3) - CQRM(3)
QQOU(3>*DT*60.0
BDINO) - BDRM(3)
,75
.15
3220
SSRM(3)
QQRMC3)
GQOU(3)
HAOU(3)
BOOK(3)
SSCUOI
= SSIN(3) - SSRK(3|
WARM! 2) = WAIM3) - UAOt(3)
IF (QQCU(3) .EQ. 0.0) GO TO 3230
BCUliO) = BDOU(3)*CCNVER/QQCU(3)
SSOU(3>*CONVER/OQOU(3i
SCCU(3) ••
GO TU 324C
3230 BCOU(3I
0.0
scoum = o.o
3240 IF (OQRM(3) .EQ. 0.0) GO TO 3250
BCRM3I = UORM(3)*CCNVER/OQRM(3)
SCKH13) = SSRM(3)*CCNVER/UQRM3)
GO TO 39CO
TRFA431
TREA482
TREA433
TPEA484
TREA485
TREA486
TREA487
TRFA48B
TREA489
TREA490
TREA491
TREA492
TREA493
TREA494
TREA495
TRRA496
TREA497
OTREA498
OTREA499
TREA50D
TREA531
TREA502
TREA503
TREA504
TREA505
TREA506
TREA507
TREA5D3
TREA?D9
TREA510
TREA511
TREA512
TREA513
TREA514
TREA515
TREA516
TREA517
TREA518
TREA519
TREA52D
TREA521
TREA522
TRFA523
TREA524
TRKA525
TREA526
TPCA527
TREA528
TREA529
TREA530
TREA531
TRCA532
TREA533
TREA534
TREA535
TREA536
TREA537
TREA&38
TREA539
TPEA540
158
-------
3250 BCKPI3) = 0.0
SCRMC3J = 0.0
GO TO 3900
C
C 331 £ 34) FUR FINE SCREENS
f.
3400 BDR«<3» - 0. 2200*60 IN( 31
SSKM3) = 0.2700*SSIN<3)
QCJRM13) = O.OC75*QQIN(3I
WARM(3) = QQRM13)*OT*60.0
WARS = MARH(3)
BORS = BDRM(3)
SSRS - SSRM<3)
QCKS = «*M.J)
IF UTRE/»T(3I .EQ. 33) GO TO 3440
QCOUOI = CQIM31 - QQRM<3)
WAUCK3) = CCOliJ3)*DT*60.0
BDGU(2J = BDIN(3) - OORMI3)
SSUU(3) * SSIN(3) - SSRM(3)
IF caecum .EC. c.oi GO TO 3410
BCOU(3) = BDOU(3)*CGNVER/QQGU(3)
SCOIH3) = SSOU(3)*CCNVER/OQCU(3)
GO TO 3420
3410 BCUU<3) = C.O
SCCUO) = 0.0
TREA541
TREA542
TREA543
TREA544
TREA545
TREA546
TREA547
TREA548
TREA549
TREAS50
TREA551
TREA552
TREA553
TREA554
TREA555
TREA556
TREA557
TREA558
TREA559
TREA560
TREA561
TREA5o2
TREA563
TREA564
TREA565
C BCRM(3) AND SCRH(3) ARE THE CONCENTRATION OF BOO G SS IN THE SCREENIMTREA566
342C IF (QGRMC3) .EQ. 0.0) GO TO 3430
BCRM(3) = BCR^(3)*CCNVER/QQRM(3)
SCRM13I = SSKf (3)*CCNVEP/i}QRM(3)
GO TO 3440
3430 BCRi-CSI = 0.0
SCRMOI = 0.0
3440 SLOAD = SSIN( 3 )/( DT*SCREEN>
C SLOAD = SULIOS LOADING UN SCREENS ( LB/M IN/SO. FT )
IFISLCAC .GT. 0.14) IA=1
IF (ITREATO) .NE. 33) GO TO 3900
WARST = KARST + WARS
BDRST = UDRST * BORS
SSRST = SSRST * SSRS
GO TO 3203
C
C 35) FOR SEDIMENTATION
C
3SOO CALL SEOIH
C
3900 CALL TRLIKK
C
C — — LEVEL 4 BRANCH (FOR SECONDARY TREATMENT)
C
4000 K - ITKEAK4) - 40
L = 4
BDIM<4) = BDINTK) + BDIN(4)
SS1NT(4) = SSINTU) * SSIN(4»
WAIi^T(4) = UAINT(4) 4- MAINI4)
GO TO (410Ct420C,4300), K
C
C 41) FOR NO SECCNDARY TREATMENT (BYPASS)
C
4100 CALL BYPASS
GO TO 49CO
TREA567
TREA568
TREA569
TREA570
TREA571
FPEA572
TREA573
TREA574
TREA575
TREA576
TREA577
TREA578
TREA579
TREA580
TREA581
TREA5B2
TREA?93
TREA584
TRFA585
TREA585
TREA587
TREA588
TREA589
THEA59D
TREA591
TREA592
TREA593
TREA594
TREA595
TREA596
TPEA597
TREA593
TKEA599
TREA60D
159
-------
c
c
c
4200
421 FOR MICRQSTRAINERS
FMS = SQRTC400.0/TRIBA)
IF iFfS .GT. 1.0) FMS = 1.0
IF CSCIN(4) ,LE. 70.01 SCRM1 = SCIN(4)*SCIN<4 )/140.0
IF BCRrtl = BCINC4I - 10.0
IF !BCtN(4) .IT. 27.01 BCRMl = BC IN ( 4) *l7.0/27. 0
PBDTR = CFSTR2*(OCIN{4)-BCRM1)*0. 646*8. 35*OT/1440.0
CFSCF*3CIM(4)*C.646*8.35*OT/1440.0
PBDTR •«• PaCCF
BOINI4I - BDUU(4)
BOOU(4)/(QQCU(4}*0.646*8.35*OT/1440.0)
BCRM(4)/(0.10*NMS*0. 646*8. 35*DT/ 1440.0)
43) FOR HIGH RATE FILTERS
C
c
c
4300
C
4900
C
C
C
5000
PBDOF =
BOUUU) =
BDRH<4)=
BCUU<4)-
BCRM(4)=
GO TO 4900
CALL HIGHPF
CALL TRLUK
K = ITREA
LEVEL 5 BRANCH FOR EFFLUENT SCREENS
L = 5
BOINT<5) = BDINT(S) * BDIN(5)
SSINT<5) = SSINT(5) + SSIN(5)
WAINT(5) = HAINT(S) + HA1N(5)
GO TO (ElCCt52CC)f K
C
C
C
5100 CALL BYPASS
GO TO 5SCC
C
C
C
C
C
51) FOR NO EFFLUENT SCREENS (BYPASS)
52) FOR EFFLUENT SCREENS
SCREENINGS VOLUME AT 0.05 CU.FT/M.G.
TREA601
TREA6D2
TREA603
TREA604
TREA605
TREA606
TREA607
TREA608
TREA609
TREA610
TREA611
TREA612
TREA613
TREA614
TREA615
TREA616
TPEA617
TREA613
TREA619
TREA620
TREA621
TREA622
TREA623
TREA624
TREA625
5200 WARM(5)
TREA627
TREA628
TREA629
TREA630
TREA631
TREA632
TPEA633
TREA634
TREA635
TREA636
TREA637
TREA638
TREA639
TRCA640
TREA641
TREA642
TREA643
TREA644
TREA645
TREA646
TREA647
TREA64B
TREA649
TREA650
TREA651
TREA652
TREA653
TREA654
TREAb55
TRFA656
TREA657
TREA658
TREA659
TRFA660
160
-------
5220
5230
5240
5250
C
C
5900
C
C
C
6000
SSRM(5) =
BDRH(5) =
QCRM(5) =
WAUU(5) =
BOOU(S) =
SSOU(5) =
QQOU15) =
IF (QCOLI5)
BCOU(£) =
SCOU(5) =
GO TO 5240
BCOU<5) =
SCOUt 5) =
ir (Qc^fff)
BCRM5) =
SCRM(5) =
GO TO 59CO
BCRM(5) =
SCRM(5J =
CALL TRLINK
— —
WARM(5)*50.0*0.15
0.05*SSRM(5)
WARK5)/(DT*60.0)
WAIM5) - MARM(5)
BDIM5) - fiCRM(5)
SSIN(5) - SSRM(5)
QQIM5) - QQRM<5)
.EQ. 0.0) GO TO 5230
BDOU(5)*CCNVER/QQOU(5)
SSOU(5)*CCNVER/QQOU(ii)
0.0
0.0
»FQ. 0. 0) GO TQ 5?50
BORK(5)*CCNVER/QQRM(5)
SSRK(5)*CCNVER/QQRM(5)
0.0
C.O
LEVEL 6 BRANCH (FUR OUTLET PUMPING)
K = ITREAT(6) - 60
C
C
C
L » 6
BOINK6) = BDINT(6) + BOIN(b)
SSINT<6) = SSINT(6) + SSIN(6)
WA1NT(6) = WAINT(6) + WAIN(6)
GO TO (6100,6200), K
6100
CALL BYPASS
GO TO 6900
C
C
C
6200
C
6900
C
C
7000
CALL BYPASS
CALL TRLINK
61) FOR GRAVITY OUTLET (NO PUMPING, = BYPASS)
62) FOR OUTLET PUMPING (STATION)
LEVEL 7 BRANCH (FOR CHLORINE CONTACT TIME)
C
C
C
K = ITPEAT17) - 70
L = 7
BDINT(7) = BDINT(7) * BDIN(7I
SSINT(7) = SSINT(7) * SSIN(7)
WAINT(7) = WAINT(7) + WAIM7)
GO TO (7100,7200), K
71) FOR NO CONTACT TANK (BYPASS)
7100 IF (ITREATO) .EQ. 32 .OR. ITREATU) .EQ. 33 .OR.
* ITKEATO) .EQ. 35) GC TO 7110
GO TO 7120
7110 IF (ICL2 .GT. 0) GO TO 7150
- IF NU CHLORINATION ELSEWHERE,REDUCE CULIFO^MS SY
7120 IF (SCIF .EQ. 0.0) GO TO 7130
TREA661
TREA662
TREA663
TREA66b
TREA666
TREA667
TREA668
TREA669
TREA670
TRFA671
TREA&72
TREA673
TPEA674
TREA675
TREA676
TREA677
TREA678
TREA679
TREA630
TREA681
TREA632
TREA6U3
TRFAf-35
TREA686
TPEA6B7
TREA688
TREA689
TREA690
TREA691
TREA592
TREA693
TREA695
TREA696
TREA697
TRFA698
TREA699
TREA700
TREA701
TREA7D2
TRFA703
TREA705
TREA706
TREA707
TRGA708
TRCA709
TPEA710
TREA711
TRFA712
TRf:A?13
SS
TREA715
TP.EA716
TRLA717
TRFA719
TREA719
TREA720
161
-------
7130
CCOU = CCIN*SCIN(7I/SCIF
GO TO 7150
CCOU => CCIN
7150 CALL BYPASS
GO TO 7900
C
C
C
721 FOR CHLORINE CONTACT TANK
7200
CL2CEM =• BCIN(7t/10.0
IF (CL2DEM ,LT. 6.01 CL20EM - 6.0
IF (CL20EM .CT. 25.OJ CL2DEM = 25.0
PCL2CM = CL20EM*QQIN(7)*0.646*8.35
CL2UC - PCL2Dri<:&i/lii4C.C
CL2UTI7) = CL2UTC7I + CL2UC
BCREOU = 2.0*CL2DEM
IF (BCRECU .GT. BCIN(7)I BCREOU = 0.50*BCIN(7)
BCOU(71 = BCIM7J - BCREOU
0.0
coium
0.0
WAINC7)
SSIN(7»
0.0
SCIN(7)
0.0
WAOUm*BCOU(7l/16050.0
8DIN(7> - BOOU(7)
0.0
CALL KILL(VOLCCN,SCIF,SCIN(7JfQQINm,CCIN,CCOU)
790C CALL TRLIMC
C
C
Qooum
WARN(7I
MAOUm
ssoum
SSRH(7)
SCQUC7)
SCRH(7I
BOCU(7)
BORH(7»
BCRH(7I
CALL KILL
s
a
=
=
s
z
s
=
=
C
(VI
9998
GO TO BOOu
OQOU(7)=0.0
$CRM(7I=C.O
BCRM(7»=C.O
SCO'J(7>=C.O
BCOU(71=0.0
HAUJ(7)=0.0
QQRH(7I=0.0
hARM(7t-C.O
SSOU(7)-C.O
SSRM(7I=0.0
BDUJ(7J=0.0
ccou=o.o
C
8000
COMBINE LEVEL 7 OUTFLOW WITH OVERFLOW, TO COMPUTE
QQRL = CCCU(7J * QQOF
BORL = BOOU(7) * BOCF
SSRL = SSOU(7) * SSOF
WARL = ViAuU(7l *- HAGF
COOU » CCCU*OT*60.0*CQOU(7)*28.3*10.0
CORL = CCCU * COOF
IF (4QRL .LE. 0.01 GO TO 8 LOO
BCRL = BCRL*CCNVRR/CCRL
SCRL » SSRL«CLNVER/CQki.
TREA721
TREA722
TREA723
TREA725
TREA726
TREA727
TREA728
TREA729
TREA730
TREA731
TREA732
TREA733
rREA73^»
TREA735
TREA736
TREA737
TREA738
TREA739
TREA741
TREA743
TREA746
TREA747
TREA743
TREA750
TREA751
TREA752
TREA753
TREA75*
TREA755
TREA756
TREA757
TREA759
TREA759
TREA76D
TREA761
TREA762
TREA763
TREA765
TREA766
TRE4767
TREA763
TRPA769
RETREA770
TREA771
TREA772
TRtA773
TREA775
TRCA776
TREA777
TREA778
TW;A779
TREA780
162
-------
CCRL = CORL/(DT*60.0*QQRL*28. 32*10. 0»
C??
GO TO 8200
8100 BCRL = 0.0
SCRL =0.0
CCRL = 0.0
C
8200 WARLT - KARLT * WARL
BDRLT = BDRLT + BDRL
SSRLT = SSRLT * SSRL
CORLT =* CCRLT + CORL
C
CORM -*• COIF - CORL
COKfT - COK-f.r ^ l,UUf-
COOUT - COOUT + CCJOU
CCCUT = CCCUT + CCOU
8Z40 IF (IRANGE .EQ. 0> GO TO 8300
IF (OQRL .GT. QQRLMX) QQRLMX = QQRL
IF (BCRL .GT. BCRLMX) BCRLHX = BCRL
IF (SCRL .GT. SCRLMX) SCRLMX = SCRL
IF (CCRL ,GT. CCRLMX) CCRL IX = CCRL
IF (0«RL .LT. QCRLMN) QQRLMN = QQRL
IF (BCRL .LT. BCRLMN) BCRL MM = BCRL
IF (SCRL .LT. SCRLMN) SCRLMN = SCRL
IF (CCRL .LT. CCRLMN) CCRLMN = CCRL
IF (CCCU .GT. CCOUMX) CCOUMX = CCOU
IF (CCCU .LT. CCOUMN) CCOMN = CCOU
CQRLT = CQRLT «• QQRL
BCRLT = BCRLT * BCRL
SCRLT - SCRLT + SCRL
CCRLT = CCRLT * CCRL
C,
C COMPUTE POLLUTION REDUCTION
C
8300 IF (KDT .EC. NM(M)) GO TO 8^00
GO TO 9000
8400 MHOUR(H) = KHOUR
MMIN(M) = KMIN
C HATER
QAV(K) = 0.5*»QQIF*QQRL)
C BCD
BOCIF(f) = BCIF
8DCRL (M) = BCRL
IF (BOIF ,LE. 0.0) GO TO 8500
BDRD(M) - 100.0*(BDIF - BDRD/BOIF
GO TO 8600
8500 60RD(P) =0.0
C SUSP. SOLIDS
8600 SSCIF(f) = SCIF
SSCRL(P) = SCRL
IF (SSIF ,L£. 0.0> GO TO 8700
SSRO(M) = 100.0*(SSIF - SSRL1/SSIF
GO TJ 8800
8700 SSRD(P) =0.0
C CCLIFORfS
8800 COCIF(^) = CCiF
COCRL(^) = CCHL
• IF (COIF »LE. 0.0) GO TO 8900
•'!. CURD(f<) = IOO.O*(COIF-CO«L)/COIF
GO TU e?s<;
TREA781
CHLORINATE OVERFLOW ?? TREA782
TREA783
TREA784
TREA785
TREA786
TREA787
FREA783
TREA789
TREA790
TPEA791
TREA792
TREA793
T RE A 7 9',
TREA795
TREA796
TREA797
TREA793
TREA799
TREA800
TREA801
TREA802
TREA803
TREA804
TREA805
TREA806
TREA807
TREA80B
TREA809
TREA610
TREA811
TREA812
AT 11 SELECTED TI MESTEPSTREA8 13
TREA614
TREA815
TREA816
TREA817
TREAQ 13
TREAB19
TREA620
TREA821
TREA822
TREA823
TREA824
TREA825
TREAS26
TREA827
TREA823
TREA829
TREA830
TREA831
TREAR32
TREA833
TREA834
TREA335
TREA836
TREAG37
TREA838
TREA839
TREA840
163
-------
8900 CORO, SSOU(3),
HAOU(4J ,BDOU(4I ,SSOU(41,
WAGU(T) , DOOiU 7J ,COGU,
MARL, BORL.SSRL, CURL,
HAOF,BDOF,SSOF,COOF,
WARM(3),BDRM(3),SSRM(3),
WARM(4) ,BDRK(4),SSRM(4),
W«RM(7) ,BDRM(7I ,CQRM
691 FORMATCO', 12, •:*, 12, • ARR', F7.0, 2F6.1, E10.2, • OUT',
2IF7.0, 2F6.U, F7.0, F6.1, E10.2, F7.0, 2F6.1, E10.2, /,
• », 5X,« OVF«, F7.0, 2F6.1, E10.2, • P.EM' , 2(F7.0, 2F6.1I
F7.0, F6.1, £10.21
GO TO 9 SCO
C
C B) ON A CONCENTRATION BASIS (IPRINT = 2)
C
9200 WRITE(6,692) KHOUR ,KMIN,QQIF ,BC IF ,SCI F ,CCIF,
* QCOU{3I,BCOU(3),SCOU(3»,
QQOU(4i ,BCOU(4) ,SCUU(4) ,
QQOU(7»,BCOU(7J,CCGU,
QQRL,BCRL,SCRL,CCRL,
QQOF,BCCF,SCOF,CCCF,
QQRM(3»,BCRM(3),SCRM(3),
QQRM{4) ,BCRM(4) ,SCRM(4) ,
QQRK«7l,BCRf»m
692 FORMATCO', 12, •:', 12, ' ARR', F7.2, 2F6.0, E10.2, • OJT«,
2CF7.2, 2F6.01, F7.2, F6.0, E10.2, F7.2, 2F6.0, E10.2, /,
• ', 5X,1 OVF', F7.2, 2F6.0, E10.2, • REM«, 2(F7.2, 2F6.0)
F7.2, F6.0»
9500 CONTINUE
IA=0
IF (KOT .LT. NOTJ GO TO 9999
C
CWMM^ ••••••.*•• • v tllMMftDTTF
H_H >j -ui ML* «*_*»-_.«* oUnriAKi t,c
c
IF (KNTOF .LT.ll KNTOF = 10**12
MAIFT = WAIFT*7.48/IOOCOOO.O
WAUFT = WAOFT*7. 48/1000000.0
WARMTT = C.O
BDRMTT * 0.0
SSRMTT = 0.0
00 9600 L=l,7
MAINT(L) = WAINT(L)*7. 48/1000000.0
HARMT(L) = HARMT(L)*7. 48/1000000.0
WARMTT = hARMTT * MARMT(LI
BDRMTT = BDRMTT + BC«MT«L>
9600 SSKMTT = SSRMTT + SSRMT(LI
WARLT = WARLT*7. 48/1000000.0
HTRMT1 * WARMT(U*lCOOOOO.O/7.48
TREA841
TREA842
TREA843
T I)C A Q A /.
1 Kt A r •f-'fr
TREA845
TREAB46
TREA847
TREA3^3
TREA849
TREA850
TREA851
TREA652
TREA853
TREA854
TREA855
TREA856
TREA857
TREA853
TREA859
TREA86)
TREA861
,TREA862
TREA863
TREA86
-------
KTRMT5 =
HAIFRF =
BOIFRF =
SSIFRF *
COIFRF =
HAINRF =
BDIKRF *
SSINRF =
COINRF =
CL2UTT
CHEMTT
00 9700
CL2UT
9700 ClltHTT
WARMT(5)*iCOOOOO.O/7.48
100.0*WARrtTT/WAIFT
100.C*BDRMTT/BDIFT
0*SSRKTT/SSIFT
0*CORMT/COIFT
0*WARMTT/WAINT<1)
0*BORMTT/flOINT(l)
Q*SSRMTT/$SINT(1)
C*CORMT/COINT
* 100
= 100
= 100
= 100
= 100
= 100
= 0.0
= 0.0
L=l,8
= CL2UTT
- CMeavr
TREA901
TREA902
TREA903
CL2UT(LI
Ci-c;-.uKU
TREA905
TREA906
TREA907
TREA908
TREA909
TREA910
TREA911
TREA912
TREA913
WRITE<6,697)
WAIFT,BDIFT,SSIFT,COIFT,WAOFT,BDOFT,SSOFT,:OOFT,
WAINT<1),BDINT(1I,SSINT(1),COINT,
WARMTT, BDRMTT , SSRMTT ,CURi1T , W ARLT, BDRLT, SSRLT.CO^LT t
WARMT(1I,BORMT< H,SSRMT
-------
* • «, 22X« 'LEVEL AS 13X, F10.lt F12.1* 30Xf •= 't 4A4, /«
* • », 22Xt 'LEVEL 7«, 13X, F10.1, F12.1, 30X, •= «, 4A4, /,
* • «. 22Xt 'TOTAL', 15X, F10.lt F12.ll
KRITE<6t693) fMHOUR(M),HHIN(M), M=l,ll), (QAV(M), M=l,ll»,
* CBDCIF(K), «=1,11),
* (BDCRL(M), M=l,m, (BDRD(M), M-lYll)t
(SSCIF(H», M=l,ll»t CSSCRL(M), M=l,lli,
(SSRO(H)t M=ltll)f (COCIF(M), H=l,ll),
(COCRL(K), M=l,ll)t (CORD(H), M=l,ll)
693 FORHATCO'i 15Xf 'REPRESENTATIVE VARIATION OF TREATMENT PERFORM",
•ANCE WITH TIME (OVERALL».', /,
•O't
i.
11X, 'TIME', 15X,
, 11X, 'WATER', /,
. 14X,
QQINT/U.547*NDTJ
QQRLT/(1.547*NDT»
QQIFMN/1.547
QQCFMN/1.547
QQINMN/1.547
QQRLHN/1.547
QQRKMX(3» = QCRMMX( 31/1.547
QQRKMX(4t = QCRMMX(4)/1.547
QQRKMX(7) - QCRHMXm/1.547
QQOUMXO) = QCOUMX( 31/1.547
QQOUMX(4) - QQQUKX(4)/1.547
QQCUfX(7) = QCCiUMX(T)/1.547
(1URMTO) = QQRHT(3I/(1.547»NDT»
QQRMT(4) = QCRMT(4I/(1.547*NDT>
OQRMT(71 * QORMT(7»/(1.547*NDT)
OQOUTOJ * QQOUT(3»/(1.547i'NDT)
QQCUTC4) = QCOUT(4J/(1.547*NOTI
QOOUT(7) * QCOUT(7»/(1.547*NDT»
QQRKMNC3) - QGRHMN(3»/l.547
QCRHMN(4»/1.547
CCRWHN(7»/1.547
QQCU*
-------
BCINT
8CRLT
SCIFT
SCO FT
SCINT
SCRLT
CCIFT
CCUFT
CCINT
CCRLT
BCRMTI3)
BCRMT<4I
BCRKT(7I
BCINI/NOT
BCRLT/NDT
SCIFT/NDT
SCOFT/KNTOF
SC INT/NOT
SCRLT/NDT
CCIHT/MJT
CCOFT/KNTOF
CC I NT/NOT
CCRLT/NDT
= BCRMTC31/NDT
= BCRMT(4»/iNOT
= BCHHT(7I/NOT
SCRMT<4)
SCRMTC7)
BCOUTO)
BCOUTI4)
BCOUTC71
SCOOT(3I
SCOt1(4)
SCUUTI7)
CCOUT *
= SCRMT<4)/NDT
= SCRMTm/NDT
= aCCUT(3J/NOT
= BCCUT(4)/NDT
= BCCUT<7)/NOT
= SCOUTC3I/NOT
= SCOUT(4J/NDT
= SCCUT(7)/NOT
CCCUT/NOT
WRITE(6,698)
HRITE(6,694)
QQIFMX,QQDFMX,QQ1NMX,QQRMMX(3> iQQUUMXOI tQQRMMX(4),
QQOUMX(4)fQQRMMX(7),QQOUMX(T),QQRLMX,
QQIFTtQQOFTtQQINT,OQRMT(3»,qOUUT(3»,OQRMT Ct],
CCCUT{ 4 I , QQRHT < 71 , CQOUT < 7 I, QQU T t
QCIFMN,CCOF MN,QQINKN,QQRMMN(3)t QQOJMN(3 I,QQRMMN(4 >,
QQUUMNCt)iQQRMMN(7)tv3QUUMN(7) .QQRLMNf
BCI FMX,BCOFVXfBCINMX,BCRMMX(3)»BCOUMX(3),B;«MMX(4),
BCOUMX(4)tBCRMMX(7)fBCOUMX(7) .BCRLMX,
BCIFT,BCCFT,BCINT,BCRMT(3I,BCOUT(3J,BCRMT(4»,
BCOUT(4)fBCRMTt7)fBCUUT(7),BCRLTf
BCIFMN,BCOFHN,BClNMNfBCRMMN(3)tBCOUMN(3),BCRMMN(4),
BCOUMN(41,BCRHMNC 7), BCOUMN(7 >,BCRLMN
SCIFMX,SCOFMXiSCINMXf SCRMMX(3),SCOUMX(3),SCR MMX(4 J,
SCCRJMX(4lt SCRMMX<7),SCOUMX(7) .SCRLMX,
SCIFT»SCOKT,SCINT,SCRMT(3),SCOUT(3),SCR.^T (4),
SCOUT(4),SCRHT(7),SCOUT(7),SCRLT,
SCIFMN,SCOFKN,SCINMN,SCRMHN(3).SCOUMM3)t
SCOUMN(4»,SCRf^N(7)tSCOUMN(7).SCRLMN,
CCIFMX,CCOFMX,CCINMX,CCOUMX,CCRLMX,
CCIFTtCCOFT.CCIKT.CCUUTtCCRLT
TP.EA022
TREA023
TREA024
TRE4025
TREA026
TREA027
TREA026
TRCA029
TREA030
TREA031
TREA032
TREA033
TRCAC34
TRCA035
TRE4D36
TRPA037
TREA038
TREA039
TREA040
TREA041
TREAU42
TREA043
TREA044
TRt:A045
TPEA046
TREA047
TREA048
TRFA049
IF ICCOFHN .LE. 0.0) 1
-------
694
* • KINIHUM
* »C«t 5X,
* 'OMAXIMUK
• AVERAGE
• HINIMUK
FORMAT<»C't 5X,
•CMAXIMUH
• AVERAGE «, 10F12.1, /,
• MINIMUM •t LOF12.lt ///t
«0«, 5X, 'COLIFORM CONCENTRATIONS
•CMAXIMUM '» 1P3E12.2, 60X, 2E12
•t 10Fl2.3t ///t
•BOO CONCENTRATIONS (MG/LMi /,
1i 10F12.lt /i
•f lOF12.lt /•
•, 10F12.lt ll\
•SUSPENDED SOLIDS CONCENTRATIONS (MG/L)'
•t lCF12.lt /t
i,
9999
1 AVERAGE •
QQIFKX = QQIFWX*1.547
RETURN
END
3E12.2. 60X, 2E12
,2t
,2)
/t
TREA082
TREA083
TREA085
TREA085
TREA087
TREA083
TREA089
TREA09D
TRFA091
TREA092
TREA093
TREA094
FREA395
TRFAC96
TREA097
TREA098
168
-------
SUBROUTINE BYPASS
COMMON CCNVERtKHCURf KMINfL, KKOD,NFLAGt BIGt HEADl i HEAD2t
QOESYNtQQIFtWAOUm tWA!N(7) fQQOU(7) ,QQI N( 7) ,WARM< 7 ) , QQRL f
BDtF,CCRM7) ,BOOU(7),BOIN(7),BCOU(7),BCIN(7I,BDRL ,
SSI Ft SSIN<7) fSSOUm tSCOum.SCINm.SSRMm tSSRLtCOIF.CORlt
ADEPTH(11),AASURFI111,ITREAT(7>, ISTOR, I PR INT, ICOST ,H^FD ,
MODSlZ»lCHEM,ICL2tSCREENfQQIFrtXtDESF, I RANGE t KNTUFf TR IBAtSEOA ,
SQMtSREFFHfBREFFH,NUN£TH,UAREAH,OPRAMA,ICHEMH,HM,VOl.r)AF,ITABLE
MODCST,TOTCST,RECIRC,OVROAF,TSURFA,OVRSED,NSEO,JM<7) .WTRMT5,
NSCRNt SCRCAPf SUAREA iFARGABi NMSt ARE AMS .VOLCONtVOLS EOi ALJMUT,
BOINT(7JlSStNT(7J,WAINT(7>,BOOUT{7),S?OUT(71,WAOlJT(7) ,
HARMT(7)fBORKT(7) tSSRMT(7l t CHEHUT ( 6 1 ,CL2UT ( 81 ,QKOD< 20 1 , WTPMT 1 ,
QaRMT(7JtQQOUT(7»,QQRMMX(7l ,QUOUMX(7J ,QQRMMN( 7 1 ,QQOJMN( 7 ) ,
* CCrl" i (7) .iJCiJJl (7 i fBCii:-i;-i/C{ / . t L,obO.-i/; ( . i t LCK.h;ii\( 7 1 tUCGJ .•!:'•;( ?) t
* SCRMT(7)tSCOUTl7) tSCRHHX(7) iSCOUMX(7) ,SCRMMN(7) ,SCOUMN(7),
* BORM(7)teCRM(7),SCRM(7»
C
HAOU(L) - WAIN(L)
CQOUU) = QQIN(t)
HARH(L) = 0.0
QQRf(L) a o.O
BDUU(L) - BOIM(L)
BCOU(L) = eCIN(L)
BORM(L) - 0.0
bCRM(L) = 0.0
SSOU(L) = SSIN(L)
SCCU(L1 = SCIN(L)
SSRH(L) = 0.0
SCRH(L) = 0.0
C
9999 RETURN
END
(•========; = = = = ===== = = === = = = = = == = = = === = == = = = = = = = = = ===== = = = == = == = = = == = = = =
3YPA
BYPA
BYPA
BYPA
BYPA
BYPA
BYPA
, BYPA
BYPA
BYPA
BYPA
BYPA
BYPA
3YPA
BYPA
BYPA
3YPA
BYPA
BYPA
BYPA
BYPA
BYPA
3YPA
BYPA
BYPA
BYPA
BYPA
BYPA
BYPA
BYPA
BYPA
BYPA
==BYPA
1
2
3
t,.
5
6
7
3
9
ID
11
12
13
1
-------
c
5000
C
C
9999
SUBROUTINE TRUNK
CCHHON CCNVER,KHOUR,KMIN,L,KMODfNFLAG,BIG,HEADl,HEAD2,
QUESYN.QQ1F,K«GU(7) ,WAIN{7» ,QQOU( 7 ) i OQIN (7 ) ,WA*M( 71 • QQRL »
BDIF,CCRM7»,eDOUC7»fflDINmiBCOUm,BClN(7),BDRL,
SSIFtSSINm»SSOU(7)tSCOUmtSCINm iSSRMC7l fSSRLtCUIF,CURLt
AO£PTH(lllfAA5URF(ll),ITREATmtISTORfIPRINT,ICOSTtHRFDf
MODS I Zf ICHEHt ICLZf SCREENtOQI FMX, DESF f IR ANGE tKNTOF t TR I BA , SEDA ,
SQMfSREFFHtBREFFHtNUNITHtUAREAHrOPRAMA.ICHEMHtHMfVOLDAF.ITABLE
MOOCST,TOTCST,R£CIRC,OVROAF,TSURFA,OVRSED,NSEO,JM(7),WTRMT5,
NSCRNiSCRCAPtSUAREAiFAREABiNMSfAREAMStVGLCUNtVULSEDtALJMUT,
B01NT(7)»SSJNT|7ltHAINT(7}tBDOUT(7l,SSOUT(7) ,WAOUT(7I ,
WARHT(7I,BORHT(7),SSRMT(7),CHEMUT(8J,CL2UTI8) ,QMQD( 20) , WTRMT1 ,
QQRHT{7J,QQOUT(71,QORMMXI7I,QQOUMX(7I,QQRMMN(7>,QQOUMN(7) ,
8CKM I ( 7i , bCuU i \ 'it * BC«««X i f 1 . bCUUrtX (VI, bCkMMN t 7 i t BCD JrtM 7 1 ,
SCR«T(7JtSCOUT|7)tSCRMMXI7J tSCOUMXC71 tSCRMMN<7) .SCOUMM 7> ,
5DRM(7)fBCRM7ltSCRMm
BDRMTUI - BDRHT(L) + BDRM(L)
SSRHT(L) = SSRfT(LI •»• SSRM(L)
WARMTU) = WARMT(L) «- WARH(L)
BDOUT(L) = BCOUT(L) 4- BOOU(L)
SSOUT(L) » SSUUT(L) * SSOUfL)
MAOUT(L) = WAOUT(L) * WAOU
-------
SUBROUTINE SEDIf
COMMON CCNVF.RtKHOUR,KMInl,L,KMOD,NFLAG,BIG,HEADl,HEAD2,
QOESYN,QQ1F,HAOU(7),WAIN(7),QQ(1U(7) ,QQIN< 7) , WARMJ 7 ), QQP.L,
BDI F,CC RP(7),BDOU(7J,ODIN(7J,BCOU(7)iBCIN (7 I,BOR L f
SSlFtSSIM7)tSSOU(7)»SCOUm,SCIN(7),SSkM(7l,SSRLtCOIF.COfcLt
ADEPTHdl).AASURF(ll), I TREAT ( 7 ) , ISTOR, I PR INT , ICOST.HRFO ,
MODSlZ»IGHE«tICL2,SCREENlClQlFMX,DeSF,IkANGF,KNTUF,TRIBA,SFD4,
SQMiSREFFH,8KEFFH,NUNITH, UAKEAH.OPRAMA, ICHEMH,MM,VOLDAF, I TABLEi
MJOCSTfTOTCSTtREClRCtOVRDAF,TSURFA,UVRSEDtNSEO,JM<7),WTRMT5,
NSCRN«SCRCAP,SUAREA,FAREAB,NMS,AREAMS,VOLCON,VULSED,ALJMUT,
BDI NT (7) tSSlNT(7),WAINT(7) , BDOUK 7) , SSOUT (7 ) , WAOUK 7 J >
WARHT(7)tBDRMT(7) ,SSRMT (7) tCHEMUT(S) ,CL2UT(8) ,av.OD( 20 J, WTRMT 1,
QQRKT<7»,QQOUT(7l,QQRMMX(7»taQOUMX<7),QQRMMN(7),QQOUMN(7),
6CRMTC7) ,CCrjT(7; t nCRM'-'.X (7) ,'JCiJ'j:J.A IT ; .DCRi^l^iT } , BCUJHI417 ) t
SCRMTl7)tSCOUT(7JtSCRMMXm,SCOUKX(7).SCRMMNl7),SCOUMN{7),
BDRM m,BCRM<7),SCRM(7)
COMMON /TBLK/OT,NDT,KOT
COMMON /STBK/QIN(150)tBOD£N(150)fSUSIN(150ltCOLIN(150» t
QINST,QCUST,QINSTL,COUSTL,STORL,QCJUTO,STORO,
ISPRIN. IPOL fOEPMAXtCCMAX, DEPTH,
ATERH(11),A02DT2(11 ) ,BOEPTH(11),8STOR(11),
OUMSTRdll tDUMOEPdHf
VOLIN(l50>,VOLOUTd50)tSTOR,CUMIN,CUMOUT,
SBaO.SSS,SCGL»BODOUTtSUSUUT,CULUUT,
ISTMCC,ISTTYPrlSTOUTt
QPUMFtCSTART.DSTOPt
OTONiSTCRKXfOTPUMP,DTMOREfSTORFfAPLANv
CLANDtCSTCR,CPS,CTOTAL,CPCUYO,CPACRE,
LP,JPtLPREV,LABELfDETENTd50>,FRAC(150)
C
GO TO {36CC.3700J, ISTOR
C SED TANKS TO BE INSTALLED (NO ASSOCIATED STORAGE*
3600 AREA = SEOA*NSED
GO TU 38CC
C SEDIMENTATION IN ASSOCIATED STORAGE UNIT
C
3700 CALL INTERPtADEPTHtAASURF,11,DEPTH,AREA,KFLAG)
C
IF (KFLAG .EQ. -10) GO TO 901
IF {KFLAG .EQ. 10) GO TO 902
3800
- 0. ** ( OVFRA-300. 0) /2000 .0
C?
CC
3805
3810
VOLSEC = ??
OVFRA = QQIN(3)*646000.0/ARF.A
IF (OVFRA .LE. 300.0) OVFRA = 300.0
SREFF = 0.656 * 0. C6*SCIN( 3 ) /190. 0
IF (SREFF .GE. 0.76) SREFF = 0.76
IF (SREFF .LE. 0. 30 > SREFF = 0.30
FACTOR = 0. 646*8. 35*DT/1440.0
SSRM(3) = SREFF*SCIN(3)*OQIN(3)*FACTOR
BREFF = 0.55*SREFF
IF (ICL2 .NE. 1) GO TO 3805
BREFF = BRF.FF*1.15
CALL KILL(VOLSED,SCIF,SCIN(3) ,QQ IN( 3) ,CCI N,CC OLJ)
SOME UF ADOVF ARGUMENTS ARE NEEDED IN COMMON
BORM(3) = BREFF*BCIN(3)*QQIN(3)*FACTOP
SSGUm = SSIN(3) - SSRM(3)
BOCU(3) - BDIN(3) - BORN (3)
QQRM(3) = SSRM(3)*20.0/(8
GO TO (3810,3820), ISTOR
IF (QOrtimi .LT. O.I) UQRMO)
1
2
3
4
5
6
7
3
9
0.1
SEDI
SEOI
SED I
SEDI
SEDI
SEOI
SEDI
SEDI
SEDI
SEDI ID
SEDI 11
SEDI 12
SEDI 13
SEDI !'•
SEDI 15
SEDI 16
SEDI 17
SEDI 16
SEDI 19
SEDI 20
SEOI 21
SEDI 22
SFDI 23
SEDI 24
SEDI 25
SEDI 26
SEOI 27
SEDI 23
SEDI 29
SEDI 30
SEDI 31
SEDI 32
SFDI 33
SEDI 3^t
SEDI 35
SEOI 36
SEDI 37
SFDI 38
SEDI 39
SEOI <»0
SF.DI U
SEDI 42
SEOI 43
SEDI 44
SEDI 45
SEDI 46
SEDI 47
SEOI 48
SEOI 49
SEDI 50
SEDI 51
SEDI 52
SEOI 53
SEDI 54
SFDI 55
SEOI 56
SEOI 57
Stni 58
SEDI 59
SFDI 63
171
-------
C
C
C
C
C
C
C
C
(
fi
HARM(3) = QQRK(3)*DT*60.0
WAOUm = WAIN(3) - WARM(3)
CQOUm - QQIM3) - CQRM(3)
GU TO 3850
3820 IF (QURH3) .LT. 0.1 .AND. DEPTH .NE. 0.0) QQRMI3)
IF (DEPTH .EQ. 0.0) QQRM(3) = 0.0
HARM(3) » QQRM(3)*DT*60.0
WAOU<3) =« HAIN(3) - WARM{3)
QQOU(3) = QCIM3) - QQRMC3)
IF (HACUI3) .LT. 0.0) KAGU13) = 0.0
IF (QGOU<3> .LT. 0.0) QQGU(3> = 0.0
MASS BALANCE INEXACT IN THIS CASE
3850 SCRM(3) - SSRM(3)/< CC«M( 3) *FACTOR)
UCRM(3J - UDit;n3>/{iU.\i.iJJ*i-ACTUi
-------
SUBROUTINE HIGHPF
COMMON CCNVER,KHCUR,KKIN,L,KMOD,NFLAG,BIG,HEAD1,HEAD2,
* QUESYN,CQIF,WAOU(7) ,WAIN(7) •QQOUl 7) , QQIN< 7 ) ,WARM( 7 I , QQRL ,
* BOI F , CCRK 7 > , BDO'J ( 7 ) , BD IN < 7 ) , BCOU ( 7 J, BC IN (7 ) , BORL ,
* SSIF,SS1N(7) , SSUUm ,SCUU<7),SCIN(7)fSSRM(7),SSRL,COIF,CORL,
* ADEPTh(ll),AASURF(ll),ITRE ATC 7 ) , I STC1R, I PRINT, ICOST, HKFD,
* MODSIZ.ICHEM,ICL2,SCREEN,QCIFMX,DESF,I RANGE.KNTOF,TRIBA,SE04,
* SOrt,SREFFH,&REFFH,NUMTH,UAREAH,OPRAMA, ICHEMH.HM,VOIDAF , ITABLE,
* MULJCSTtTCTCST,RECIRC,OVROAF,TSURFA,OVRSED,NSF.D, JM<7) ,WTRHT5,
* NSCRN,SCaCAP,SUAREA,FAREAB,KMS,AREAMS,VULCUN,VOLSED,ALUMUT,
* BUINT<7),SSINT(7)»WA1NT(7),BDQUT(7),SSOUT(7),WAOUTt7),
* WARMT<7),BCRMT(7),SSRMT(7 I.CHEMUT<8),CL2UTC8).QMODf20 I,WTRMT1,
* CQfcrtT(7),QQOUT(7),QCRMMX<7) ,QQOUMX(7),QQRMMN(7I,QQUUMN(7),
* BCRf'T<7?l3-a>jT:7: f 3CF"".x<7', rccc;.nx(7: .rcr^m ,QCOUMN( 71 ,
* SCRKT(7),SCGUT<7),SCHMMX<7),SCGUMX(7),SCRMMN(7),SCOUMN(7 ),
* BDRK(7),BCRM<7),SCRM(7)
COMMON /TBLK/DT,NOTfKDT
ACCORDING TO AJBt THIS SUBROUTINE
IS ONLY VALID FOR OT = 10 MIN.
FIX UP FOR TIME GIVEN IN SUBRT. TRCHEK
«00
IF (KCT .GT. 1) GO TO 43CO
ASSIGN 4210 TC LABEL
NOTBK = HRFD*NUNITH - 1.0
SBOO = 0.0
S * 0.0
S = SOLIDS HELD IN FILTER
GO T'u LABELt (4310,4320,4330,4340,4350)
INITIALLY, BEFORE ANY BACKWASH
FACTOR = S*20.0/SQK
IF (FACTCR .GT. 1.01 FACTOR = 1.0
SREFF = 0.5*SREFFH*(1.0 * FACTOR)
BREFF = 0.5*3REFFH*<1 .0 + FACTOR)
SCOU(4» = SCIN(4)*< 1.0 - SREFF)
BCOU(4) * BCIM4)*( 1.0 - BREFF)
QOCU<4) = CCIM4)
OPRA = 449.0*QQIN(4)/(NUNITH*UAREAH)
OS = SCIN(4)*SREFF*(OPRA/695.0)*8.35*(
S = S + DS
HO = ( (OPRA/OPRAMA»**1.18»*0.40*HM
hCL = (OPRA/OPRAMA)*(S/SQM)*0.60*HM
H = HO + HCL
HI = HM*C.90*(NUNITH - 11/NUNITH
IF
-------
BCOU<4) =
4325 QQRH(4) =
QQOU1M '
SCRM(4) =
OBOO
SBQO '
BCRM(4) =
GO TO 4390
"4330 KDTBW
BCIN(4)*<1.0 - BREFF)
(UAREAH*15.01/449.0
QQIK(4) - QQRM(4)
UAREAH*S*l440.0/<10.0*QQRM(41*0.646*8.35)
BCIN(4)*BREFF*(OPRA/659.0)*8.35*(10.0/1440.0)
SBOO * OBGD
UAREAH*S80D*1440.0/(10.0*QQRM(4)*0.646*8.35)
SUBSEQUENT TIMESTEPS OF BACKWASH
KOTBW + I
IF (KOTBM .GE. NOTBH) ASSIGN 4340 TO LABEL
SREFF2 =
BREFF2 *
SCCU(4J *
BCJUI4) =
OS
S
FACTRl =
IF (FACTRl
SREFFl =
OSl *
SI
GO TO 4325
\340 ASSIGN 4350
SREFF2 *
BREFF2 *
SCOUt4» =
BCOU(4) =
QQRM(4) =
OQOU(4) ~
DS1 =
Si
SCRMI4I =
BCRH(4) =
CO TO 4390
(0.5 * NUNITH - 1.0)*SREFF/NUNI TH
<0.5 * NUNITH - 1.0)*BREFF/NUNITH
4350
FACTCR
SREFF
BREFF
SCOU(4)
BCOU(4)
QCOIH4)
OPRA
OSl
SI
QQRM(4)
SCRM(4)
BCR«(4)
HO
HCL
H
IF (H .LT
SBOD
S
BCIN(4)*(1.0 - BREFF2)
SCIN(4)*SREFF*(OPRA/695.0)*8.35*(10.0/1440.0)
S «• OS
S1*20.0/SQK
.GE. 1.0) FACTRl = 1.0
0.5*SREFF*(1.0 * FACTRl)
SCIN(4)*SREFF1*(OPRA/695.0)*8.35*(10.0/1440.0)
SI + OSl
FIRST T'MESTEP AFTER BACKWASH COMPLETED
TO LABEL
(0.5 * NUNITH - 1.0»*SREFF/NUNITH
(0.5 + NUNITH - 1.0)*BREFF/NUNITH
SCIK(4)*(1.0 - SREFF2)
BCIN(4)*(1.0 - BREFF2)
0.0
QQ1N(4I
• SCIN(4)*SREFF1*(OPRA/695.0)*8.35*(10.0/1440.0)
• SI 4- DS1
•• BIG
•• BIG
SUBSEQUENT TIMESTEPS AFTER BACKWASH COMPLETION
-• 1.0
= 0.5*SREFFH*(1.0 * FACTOR)
= 0.5*BREFFH*(1.0 * FACTOR)
= SCIN(4)*(1.0 - SREFF)
= BCIN(4)*(1.0 - BREFF)
= QQIN(4)
' 449.0*QUIN(4)/(NUNITh*UAREAH)
-- SCIN(4)*SREFF1*(CPRA/695.0)*8.35*(10.0/1440.D)
• SI * OSl
• 0.0
= BIG
= BIG
; I(OPRA/UPPAMA)**1.18)*0.40*HH
= (OPRA/OPRAMA)*(S1/SQM)*0.60*HH
= HO «• HCL
HM) GC TO 4390
= 0.0
• SI
ASSIGN 4320 TO LABEL
C
C
AUL TIMESTEPS
4390 BOOU(4) = QQOU(4)*BCOU(4)*0.646*8.35*OT/1440.0
SSUU(4) = QQOU(4)*SCOU(4)*0.646*8.35*DT/1440.0
HIGH 61
HIGH 61
HIGH 63
HIGH 64
mGH 65
HIGH 66
HIGH 67
HIGH 68
HIGH 69
HIGH 70
HIGH 71
HIGH 72
HIGH 73
HIGH 74
HIGH 75
HIGH 76
HIGH 77
HIGH 78
HIGH 79
HIGH 80
HIGH 81
HIGH 82
HIGH 83
HIGH 84
HIGH 85
HIGH 8b
HIGH 87
HIGH 88
HIGH 89
HIGH 90
HIGH 91
HIGH 92
HIGH 93
HIGH 94
HIGH 95
HIGH 96
HIGH 97
HIGH 98
HIGH 99
HIGH100
rilGHlOl
HIGH102
H1GH103
HIGH104
HIGH 105
HIGHlOb
HIGH107
HIGrilOB
HIGH109
HIGH11U
HIGHlll
HIGH112
HIGH113
HlGHl14
HIGH115
HIGHU6
HIGH117
HIGH118
HIGH119
HIGH120
174
-------
I H1GH121
SSRMK) = SSINU) - SSUU(41 HIGH122
HAkhU* - QQRM4)*DT*60.0 HIGH123
WAOUm = WAINU) - WARMU) HIGH124
DOSE POLYMEKS AT 4 MG/L AND ALUM AT 150 MG/. HIGH125
CHEMLH = QQIN(4>*0.64b*8.35*4.0*OT/1440.0 H1GH126
ALUMUh = QQIN(4)*0.646*8.35*150.0*DT/14^0.0 HIGH127
CHEMUT(4) = CHEKUT(4) * CHEMUH HIGH128
ALUMUT = ALUMUT * ALUMUH HIGH129
HIGH130
RETURN HIGH131
END HIGH132
B==========================*======================================HIGH133
175
-------
SUBROUTINE KILUCONVOL.SCIF, SCIN,QQIN,CCIN,CCOU» KILL 1
f. KILL 2
C GIVEN THE FIRST 5 ARGUMENTS. KILL 3
C CCMPUTES COLIFORM MPN IN OUTFLOW = CCOU KILL 4
C KILL 5
C COMPUTE FRACTION F DOSED (ASSUMING 15 MIN DETENT. TIKILL 6
C <1LI 7
QK1LL * CCNVOL/(15.0*60.0) KILL 8
IF (QKILL .GT. COIN) CKILL = QQIN KILL 9
F » CKILL/QCIN KILL 10
C COMPUTE MPN COLIFQRMS AFTER REMIXING OF DOSED F^ACTIKILL 11
CCIN * CCIN*SCIN/SCIF KILL 12
CCTR = CCIN*0.001 KILL 13
CCOU - F*CCTR -> «'»C-rj*rCIM KILL 1^
C KILL 15
RETURN KILL 16
END KILL 17
176
-------
SUBROUTINE STRAGE
COMMON /STBK/CHN(150),BODIN(i50),SUSIN<150),COLIN( 150) ,
Q1NST,CCLST,QINSTL,CCUSTL,STURL,QOUTO,STORO,
1 SPR1N,IFCL,DEPH AX, CCMAX, DEPTH,
ATERM 1 1 1 , AQ2 DT2 (11) .BDEPTH (11), BSTOR (11),
DUMSTR(11),OUMDEP(11),
VOL I N(150),VOLOUT< 150), STOR, CUMIN, CUMOUT,
S8uD,SSS,SCCL,GGDOUT,SUSaUTtCOLUUT,
1STMCC,ISTTYP,ISTOUT,
QPUMP,CSTART,DSTOP,
OTON»STORMX,DTPUMP,DTMURE,STORF,APLAM.
* CLANC,CSTOR,CPS,CTOTAL,CPCUYD,CPACRE,
* LP, JP,LPREV, LABEL, DETENT( 150) ,FRAC( 150)
CCf'"C\ /THLK/ CT t MOT, !"CT
C
DT=DT*60.0
IF (KCT .GT. 11 GO Tt 1300
C
IF (ISPRIN .GT. 0) GO TO 1100
GO TO 1200
C
1100 WRITE(6,601) NDT
601 FORMATC1STORAGE SOLUTION FOR', 14, ' TIME-STEPS FOLLOWS1,
* ', CN A STEP-BY-STEP BASIS', //)
HRITE(6,602)
602 FORMAU'OU STP TIME INFLOW OUTFLOW STORAGE DEPTH', 2X, 'IN: BOD'
* sx, «ss STOR: BOO', 7x, «ss'f 4X, 'BOD«, 5x, «ss OUT: 300*
* 5X, «SS', 4X, 'BOD', 5X, «SS«, 2X, ' J L« f /,
* ' N NC (MIN) (CFS) (CFS) (CU.FT) (FT.)', 5X,
* MLO) (LB)«, 6X, MLB)', 5X, '(LB) (MG/L) (MG/L)', 5X ,
* MLB) (LB) (NG/L) (MG/L)', 2X, • P P« , /)
C
1200 STORKX = 0.0
LPREV = 1
SHOO = 0.0
SSS = C.C
SCOL - 0.0
STOR = STCHO
DO 1230 1=1,11
DUMSTRJ II = BSTORU )
1230 DUMDEP(II = BOEPTH(I)
C
CALL INTEPP(DUMSTR,DUMDEP»11, STOR, DEPTH, KFLAG)
C
IF (KFLAG .EQ. -10) GO TO 901
IF (KFLAG .EQ. 10) CO TO 902
C
DEPTI-L = DEPTh
IF (ISPRIN .LT. 1) GO TO 1250
WRITE(6,603) QOUTO, STORO, DEPTH
603 FORMAT!' 0 0.0 0.0', F7.1, F10.0, F6.2I
1250 CONTINUE
HRITE(6,604>
604 FORMAT ( • ')
1300 DO 1350 1=1,11
DUMSTR(I) = BSTCRU )
1350 DJMOfcP(I) - BDEPTH(l)
RKTSTP * KDT
TlME2f = CT*RKTSTP/60.0
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
,STRA
,STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
STfcA
STRA
STRA
STRA
STRA
STRA
STRA
STRA
t Tr> *
;> 1 K A
STRA
STRA
STRA
STRA
STRA
I
2
3
4.
5
b
7
8
9
10
11
12
13
1 4
15
IS
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
_ ...
P P
56
57
59
59
60
177
-------
BODOUT
SUSOUT
COLOUT
0.0
C.O
0.0
IF (ISTCU .EO. 5 .OR. ISTUUT .EQ. 6) GU TO 2COO
CO TO 3000
2000 IF (KDT .GT. 1) GO TO 2100
QINSTL - 0.0
QJUSTL » COUTO
STORL = STORO
CUMIN = 0.0
CUHOUT - 0.0
STOR « STORO
LP =0
JP * 0
OTON ~ 0.0
2100 VOLIMKCT) = 0.5*OT*(QI NSTL *• QINST)
VOLOUZ = OT*QCUSTL
STORZ = STORL * VOLIN(KDT) - VOLOUZ
CALL irkTERP(DUMSTR,DUMDEPtll,STORZtDEPTHZ,KFLAG)
IF (KFLAG .EQ. -10) GO TO 901
IF {KFLAG .EQ. 101 GO TO 902
C
C
C
C
C
***
THE FOLLOWING STATEMENTS, ABOVE 2150,
IF (OUST .GT. QPUMP .AND. QCU5TL .EQ. 0.0)
* GO TO 2120
GO TO 2150
2120 FON = (QINST-GPUMP)/(QINST-QINSTL)
OSTART = DEPTHZ* U.O-FON) + FON*DEPTHL
OTON = OTON * FON
URITE(6t£C5) OSTART
605 FORMAT(• », 60X» 'NEW DSTART =', F6.2, • FT." I
2150 IF (QOUSTL .EQ. 0.0 .AND. OEPTHZ .GT. DSTART)
* GO TO 2200
IF (QOUSTL .GT. 0.0 .AND. OEPTHZ .LT. DSTOP )
* GO TO 2300
QOUST = COUSTL
VOLOUT(KOT) = VOLOU7
STOR = STORZ
DEPTH = OEPTHZ
GO TO 25CO
C
2200 FCN = (DEPTHZ - DSTARTJ/(DEPTHZ - DEPTHL)
QOUST * QPUMP
GO TO 2400
C
2300 FON * (OEPTHL - OSTOP)/(DEPTHL - DEPTHZ)
QOUST = 0.0
C
2AOO IF (FON .LT. 0.0) GO TO 8100
VOLOUT(KCT) = FON*UT*QPUHI>
SIOR = STCRL * VOLIN(KDT)-VOLOUT(KOT)
STRA 61
STRA 62
STRA 63
STRA 6
-------
CALL IM£RP(OUMSTR,OUKDEP,llf Si UK,DEPTH.KFLAG)
IF (KFLAG .EG. -10)
IF (KFLAG .EQ. 10)
GO TO 901
GO TO 902
•2500 CUMIN = CUMIN + VQLIN(KDT)
CUMUUT - CUMCtT * VCLOUT(KDT)
QINSTL = O.INST
QOUSTL * COUST
OEPTHL = DEPTH
STORL = STCR
IF (KOT .EC. NOT) STCRF = STCR
IF (STCR .GT. GTORMX) S.~Usf-:X = STUR
IF (QOUS1 .GT. 0.0) OTON = DTON + 1.0
GO TO 4000
c
3000
C
CALL SRCUTE
CALL IMERP(DUMSTR,DUMDEPtll,STCR,DEPTHtKFLAG)
t
C
C
c-
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
IF (KFLAG .EQ. -10)
IF (KFLAG .EQ. 10)
COMPUTE
DETERMf
CUMIN
CUMOUT
SSIN
BCDIN
S600
SSS
BODOUT
SUSOUT
BODCOT
SSCOUT
SBODC
SSSC
MG/L
GO TO 901
GO TO 902
SEDIMENT AND BOD OUTFLOW
NE PLUG FRACTIONS AND DETENTION TIMES
= CUMULATIVE INFLUW (CU.FT.) SINCE T = 0
"CUMULATIVE OUTFLOW (CU.FT.) SINCE T = 0
= SS INFLOW (LB) IN THIS TIME-STEP
* BOD INFLOW (LB) IN THIS TIME-STEP
= BOC
-------
A 000
c
IF(VOLOlJT(KDT> .LE. 0.0) GO TO 4200
CALL PLUGS
IF (LABEL .EC* 5000) GO TO 4200
C
C
C
C
C
C
C
C
c
c
c
c
NOW HAVE, FCR EACH PLUG (FOR KP=JP,LP), ..
FRAC(KP),OETENT(KP)
MODEL ASSUMES..
NO SCOUR WITHIN BASIN
BRANCH ruR I.ft Ur BASIN FLu* (IPuLJ
K * IPCL
GO TO (4100,4180), K
IPOL=1 ASSUMES 100% EFFICIENT PLUG FLOW
C
C
C
C
C
C
C
4100 DO 4150 KP=JP,LP
BUD (JUT = BOOOUT * BODIN(KPI*FRAC(KP)
COLUUT = COLOUT » COLIN(KP)*FRAC(KP)
4150 SLSOUT = SUSOLT * SUSIN(KP)*FRACIKP)
BOOCCT * BODCUT*16050.0/VOLOUT(KOT)
SSCUUT « SUSOUT *16050.0/VULCUTUDT)
COLCOT = COLOUT/(VOLOUT(KDT)*283.2»
GO TO 4300
IPOL-2 ASSUMES 100? MIXING
FOR THIS CASE, DON'T REALLY NEED SUBROUTINE PLUGS,
OR (KOT) ON VOLIN, VOLUUT, SSIN, BOUIN.
4160
4200
4300
4350
BODCCT = SBCDC
SSCOLT * SSSC
COLCCT = SCOLC
BODOUT = BCDCCT*V
-------
sssc
SCOLC
0.0
0.0
4400 IF (ISPRIN .LT. 1) GO TO 5300
5000 WRITE (6, 606 1
*
*
*
606 FORMAT (' ',
* FS.l,
PRINT SOLUTION FUR THIS TIME-STEP
KDT,TIME2M,QINST,QCUST,
STOR,DEPTH,BODIN(KDT).SUSIN(KDT),
SBOD,SSS,S15COC,SSSC,BOOUUT,SUSOUT,
BOOCOT.SSCOUT,JP,LP
14, F6.1, 2F7.1, F10.0, F6I.2, 2X, 2F7.
2F7.1, F9.1, 3F7.1, 214)
COLIN(KOT), ?rn':. r "v^OLC ,rn!.n»T r.Dt.COT
•SCQL(MPN)=',
666 FORMAT <• ', 40X, »COLIN= 'f 1PE9.2,
1, F10.1,
E9.2t
STRA241
STR6242
STRA243
STRA244
STRA245
STRA246
STRA247
STRA248
STRA249
STRA250
STRA251
STRA252
STRA253
GO TO
'CONC=«,
52CO
E9.2i «COLOUT=', E9.2i 'CONO' , H.9.2)
5100 HRITE(6,606l
* '
520C WRITE (6,6041
5300 IF (KCT .LT.
KOT,TIME2M,QINST,QOUST,
STOR,DEPTH
NOT)
IF (ISPRIN .LT. 1)
HRITE<6,6C7) NOT,
GO TO 5400
GO TO 5400
CUMIN, CUHCUT
607
5400
C
C"
— -
c:
FORMAT
*
*
GO
TO
CO',
1 ',
' * •
9999
/, '
36X,
36X,
«, 26X, 'FOR THESE',
'CUMULATIVE
•CUMULATIVE
INFLOW =•
OUTFLOW ='
14,
» i"
, F
• TI
12.0,
12.0,
ME
i
,
STEPS
CU.FT,
CU.FT.
1 / ,
' , ft
t )
STRA255
STRA256
STRA257
STRA258
STRA259
STRA260
STRA261
STRA262
STRA263
STRA264
STRA265
STRA266
STRA267
STRA263
-STRA2S9
STRA270
STKA271
SSTRA272
STRA273
STRA274
STRA275
STRA276
STRA277
STRA278
PROCEDURE IS LESS THAN LSTRA279
STPA280
STRA2S1
STRA282
STRA283
THASTRA234
STRA285
STKA286
STRA287
9999 DT=OT/60.0 STRA288
RETURN STRA239
END STRA290
8100 WRITE (6, 692)
692FORMATC ', 14X, 'BUFFER VOLUME
* 'IS TCU SMALL,1, /,
* ' ', 14X, 'RESULTING IN NEGATIVE
GO TO 9999
BETWEEN LEVELS DSTART AND DSTDP
VOLOUT (AND FON).1)
901
693
IF (KFLAG .EC,
HRITE(6,693)
FORMAT!'0 ***
10) GO TO 902
TERMINATE - INPUT
*OWtfST VALUE
STOP 901
ON CURVE (IN SUBRT.
TO INTERP
STORAG)')
•902 WRITE(6,694)
694 FORMATCC *** TERMINATE- INPUT TO INTERP PROCEDURE IS GREATER
*N LARGEST VALUE ON CURVE (IN SUBRT. STORAG)1)
STUP 902
181
-------
c
c
c
c
c
c
SUBROUTINE PLUGS
COMMON /STBK/QIN(150)»BODIN(150),SUSIN(150)iCOLINC150)t
QINST, CCUST, CINSTL t COUSTL tSTORLi (JOUTOt STORO•
ISPRIN»IPOL»DEPMAX,CCMAXrDEPTH,
ATEKM(ll),A02CT2(ll),BDEPTH(ll),BSTOR(ll),
DUMSTR(ll),DUKD£PUll,
VOLIN(150)t VOLOUT(15011 STQRtCUMIN.CUMOUT t
SBOO,SSS,SCOL,BODOUT,SUSOUT.COLOUT,
ISTMODtlSTTYP.ISTaUTt
OPUMP.CSTARTiCSTOP.
DTON,STORKX,OTPUMP,CTMQRE,STORF,APLANt
CLAMO,CSTCR,CPStCTOTAL,CPCUYD,CPACRE,
LP,JPfLPREV,LA8ELtDETENT(1501,FRAC(150)
COMMON /TCI.K/OT.NnT.KpT
GIVEN KOTt VOLINt VOLOUT £ STORE ARRAYS, KDT C
FINOS JP AND LP (NUMBERS OF FIRST AND LAST PART
COMPUTES CETEN1 AND FRAC ARRAYS (KP=JP,LP)
(SUBPROGRAM BY G.T.)
1000
1100
1200
1300
1400
601
DT*OT*60.0
LABEL -
LP
JP =
VIKK
VOKK
SUM1 -
SUM
SUM
SUM1 =
0.0
SUM
* KDT
* LPREV
VOL IN(KDT)
VCLOUT(KDTI
0.0
SUM + VOLIMLP)
* VOKK - VIKK
= SUH1 - STOR
VOKK) GO TO 1100
BACK
IF (BACK .GT.
GO TO 1200
BACK = VCKK
IHBACK) 1300,1400,2000
LP = LF - I
IF(LP-l) 5000t1000,1COO
WRITE(6,601)
FORMAT(«C A PART-PLUG
STOP 1400
0. EXECUTION TERMINATED.1)
C
C
C
C
200.0 IF(ViKK .IE. 0.01 GO TO 4000
IF(LP .EC. KDT) GO TO 3000
2050
IFlLP .EQ. 1)
IFIJP .GT. 1)
NN * JP
IF(NN .EC. LP)
SOUT
H
NN
DO 2050
SOUT
SOUT
STOT
GENERAL CASE
A NUMBER OF PLUGS AND PART-PLUGS LEAVE
GO TO 2500
GO TO 2800
* I
GO TO 2600
= 0.0
= LP - I
« JP * 1
L=KNtM
= SOUT * VOLIN(L)
BACK
SOUT
SCUT
VQL1NUP)
IFtSTGT .GE. VOKK) GO TO 2400
PLUG I
PLUG i
PLUG 3
PLUG 4
PLUG 5
PLUS 6
PLUG 7
PLUG 8
PLUG 9
PLUG 10
PLUG 11
PLUG 12
PLUG 13
PLUG 14
PLUG 15
LPREVPLUG 16
-PLUGPLUG 17
PLUG IB
PLUG 19
PLUG 20
PLUG 21
PLUG 22
PLUG 23
PLUG 24
PLUG 2i>
PLUG 26
PLUS 27
>LUG 28
PLUG 29
PLUG 3D
PLUG 31
PLUS 32
PLUG 33
PLUS 34
PLUG 35
PLUS 36
PLUG 37
PLUG 38
PLUS 39
PLUG 40
PLUG 41
PLUS 42
PLUG 43
PLUS 44
PLUG 45
PLUG 46
PLUS 47
PLUG 43
PLUS 49
PLUG 50
PLUG 51
PLUG 52
PLUG 53
PLUG 54
PLUG 55
PLUG 56
PIUS 57
PLUG 59
PLUS 59
PLUG 60
182
-------
2100
2200
2300
FRAC(JPI= 1.0
RIJP = KOT - JP
OETENT(JP) - RIJP*DT
DO 2200 L=NN,M
FRAC(LI= 1.0
RIL * KDT - L
DETENT(L) = RIL*OT
FRAC(LPJ= BACK/VOLIN(LP»
RILP = KDT - LP
DETENT(IP) = RILP*OT
LPREV = LP
60 TO 9999
FRONT =
FRAC(JP)=
60 TO 2100
2850
VOKK - SOU1
FRQhT/VOLINUP)
2500
2600
2700
FRONT - VOKK - BACK
60 TO 23GO
SOUT * BACK + VOLINUP)
1F(SOUT ,GE. VOKK) GO TO 2700
FRAC(JFI= 1.0
RIJP = KDT - JP
DETENTUP) = RIJP*DT
60 TO 23CO
FRONT * VOKK - BACK
FR^r.(JPI= FRONT/VOLINUP)
RIJP - KDT - JP
OETENTUP) = RIJP+DT
60 TO 2300
2800
IF (LP .Ed. JP)
NN = JP +
IFCNN .EC. LP)
GO TO 4100
GO TO 2700
SOUT
H
DO 265C
SOUT
SOUT
= 0.0
= LP - 1
L=NN,M
= SOUT *
= SOUT *
VULIN(L)
BACK
60 TO 2400
C
C
C
C
3000
3050
IFCLP .EC
IF(JP .01
NN
IF(NN .EC
SOUT
M
NN
DO 3050
SOUT
SOUT
STOT
1F(STUT .
FRAC(JP)
*
ss
•
=
L=
^
GE
S
SPECIAL CASE
INFLOW PLUG
1) GO TO 3700
1) GO TO 3800
JP * 1
LP) GO TO 3500
0.0
LP - 1
JP * 1
NN.M
SOUT * VOLIN(L)
SOUT + BACK
SCUT * VOLINUP)
. VCKK) GO TO 3400
1.0
3100 RIJP
KOT - JP
PLUG 61
PLUS S2
PLUG 63
PLUG 64
PLUG 65
PLUG 66
PLUS 67
PLUG 68
PLUS 69
PLUG 70
PLUG 71
PLUG 72
PLUG 73
PLU3 'ft
PLUG 75
PLUG 75
PLUG 77
PLUG 73
PLUS 79
PLUG 80
PLUG 81
PLUG 82
PLUG 83
PLUG 8
-------
3200
3300
3400
3500
OETENT(JP) = R1JP*DT
00 3200 L=NN,M
F-RAC(L)* 1.0
RIL = KOT - L
OETEKKL) = RIL*OT
FRAC(LP)= BACKXVOLIN(LP)
OETENT(LP) = OT*STOR/VIKK
LPREV = LP
GO TO 99S9
FRONT =
FRACUP)=
GO TO 3100
VOKK - SOUT
= FRONT/VOLIN(JP)
SOUT = BACK * VOLIN(JP)
RIJP = KDT - JP
DETEMUP) = RIJP*DT
JFCSOUT .G£. VOKK) GO TO 3600
FRAC(JP)= 1.0
GO TO 33CO
3600
FRONT =
FRACUPI
GO TO 3300
VCKK - BACK
= FRONT/VOLIN(JP)
3700
FRONT = VOKK - BACK
FRAC
-------
GO TO 9999
ft,
4200 FRONT * VOKK - BACK
FRAC(JP)= FRONT/VOLINUP)
R1LP = KOT - LP
DETENT(JP) = RILP*DT
GO TO 23CO
C
5000 LABEL » 5000
GO TO 5999
C
9999 OT=OT/60.0
RETURN
END
PLU3181
PLUS 182
PLUG183
PLU5184
PLUG185
PLUG186
PLU5187
PLUG188
PLUS189
PLUG190
PLUG191
PLU3192
PLUG193
=PLUG195
185
-------
SUBROUTINE SROUTE
COMMON /STBK/QIN(150),BODIN(150),SUSINU50),COHN< 150) ,
QINSTtCCLST,QINSTL,COUSTL,STORLtQUUTO,STOROt
ISPRIK.IPOL.DEPFAX.CCMAX.OEPTH,
ATERKni).A02DT2(ll },8DEPTH< 11» tBSTOR «11),
OUMSTRU1),DUHDEP< 11),
VOLIN<150),VOLOUT(150),STQR,CUMIN,CUMOUT,
SBOO.SSS,SCOL,BOOOUT,SUSOUT,CQLUUT,
ISTMOD,ISTTYP,ISTOUT,
QPUMP,CSTART,OSTOP,
OTON,STORKX,DTPUMP,OTMORE,STORF,APL AN,
CLAND,CSTOR,CPS,CTOTAL,CPCUYO,CPACRE,
LP.JPtLPREV,LABEL,DETENTi150).FRACC150)
CCMMGN /TBLK/OTi^nTvKrT
OIMEMSfCfk OUMTRM
-------
c-
c
ERROR MESSAGES
901 IF (KFLAG .EQ. 101 GO TO 902
WRITE(6,691)
691 FORMATCO *** TERMINATE - INPUT
*OWEST VALUE CN CURVE (IN SUBRT.
STOP
902 WRITE(6,692)
692 FORMAT!«0 *** TERMINATE - INPUT
TO INTERP PROCEDURE
ROUTE)1»
TO INTERP PROCEDURE
*N LARGEST VALUE ON CURVE (IN SUBRT. ROUTE)1)
STOP
9995 DT=UT/6C.O
RETURN
END
SROJ 61
SRQIJ 62
SROU 63
SROU 6
-------
SUBROUTINE SPRINT
C COPIED BY EJF FRCf RUN.AND.TRAN OF 17 AUG 70
COMMON /TBLK/DT,NDT,KOT
COMMON /BLK2/CQARR(150),BDARR(150)
COMMON /BLK3/JS* JNS tNPOLli SSARRU50)tCOARR(150),POLL(160*5 t 5 )t
* 0.0(160, 5)
DIMENSION DUMU50I
C PRINT INFLOWS
HRITE(6tS2l)
WRIT£{6,511)( IfI = ltlO)
HRITE(6,912) JNSt(QQARR(KDT),KDT=1,NOT|
WRITE<6,922>
WRITE(6,911)(1,1=1,10)
DO 21V K'ltiiPULL
GO TO (30*33,36), K
30 HRITE(6,960)
DO 31 KDT=1,NDT
31 DUM(KDT) = BDARR(KDT)/DT
32 WRITE(6,912) JNS,(DUM(KDT),KOT=1,NOT)
GO TO 217
33 WR1TE(6,961J
DO 34 KCT=1,NDT
34 OUM(KOT) = SSARR(KOT)/OT
GO TO 32
36 HRITE(6,9t3)
00 37 KCT=1«NDT
37 OUM(KCT) » COARR(KDTI/DT
WRITE(6,967) JNS,(DUM(KDT),KDT=1,NDTI
217 CONTINUE
C " PRINT OUTFLOWS
29 HRITE(6,S23I
KR1TE(6,911)(I,I=1,10)
WRITE(6,912) JNS»(QOIKDT,JS),KOT=1,NOT)
300 WRIT£(6,924)
HRITE(6,911)(1,1=1,10)
00 219 K=1,NPOLL
GO TO (4C«
161 CON'TINLE
hRITE(6,912) JNS,(PULL
-------
56
234
GO TO 234
HRITeU,Sfc6)
CONTINUE
00 235 KOT=
=1,NDT
IFt«0!KCT,JS).EQ.O.O) GO TO 237
237
238
235
236
CC
CC965
CC
CC
311
911
IF(K.N6.3)
IFU.EQ.3)
GO TO 238
OUM(KDTJ=C.
CONTINUE
CONTINUE
IFIK.NE.3)
IFU.EC.3)
COi'iTlNUil
OUM!KOT) = POLL(KDT, K, JS ) *267. 5/QO (KOT, J S 1
DUM(KDT) = POLL(KDT,K,JS)/
44X, '*** SUSPENDED SOLIDS IN MG/L ***' )
I=S = S=— 3S====SS= S= =S^ = = 3;=== = S=:S==t==S! = 3SSS = S = =S=-= =S =
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
FROM ELSPRI
OJTPUTSPRI
SPRI
SPRI
SPRI
SPRI
SPRI
c n n T
SPRI
SPRI
) SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
SPRI
=======SPRI
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
68
89
90
91
92
93
94
95
189
-------
601
C
C
C
501
502
603
SUBROUTINE TRCOST
COMMON CCNVER.KHOUR.KMIN.L,KMeD»NFLAG,BIb,HEADl,HEAD2,
* QDESYN,CQIF,WAOU(7>,WAINm,QQOU(7),QQIN(7),WARM(7),QQRL,
* BDIF.CCRM7I .BDOIM7) ,80IN( 71»BCUUC7 11 BC IN (7 ) t 60RL.
* SSIF.SSIM7),SSOUm.SCOUm.SCINm.SSRMm.SSRL.COIF.CORL,
* AOEPTH(111tAASURF(11)11TREAT(7)11STOR11 PR I NT,1 COSTiHRFDi
* MOCSIZ,ICtiEM,ICL2»SCREEN.QQIFMX,DESF,lRANGE,KNTOF,TRIBA,SEDA,
* SQM.SREFFH.BREFFH.NUNITH.UAREAH.OPRAMA,ICHEMH,HM,VOLDAF, I TABLE ,
* MODCST.TGTCST.RECIRC.UVRDAF.TSURrA.OVRSED.NSED.JMm.wrRMTS,
* NSCRJ*. SCRCAP.SU AREA, FAREABtNUSrAREAMS.VULCON.VOLSEn.ALJMUT,
* BDINT(7),SSINT(7) ,WA INT (7 » ,BDOUT( 7) , SSUUT (7 ) , WAUUT (71 ,
* MARHT(7),BCRHT(7I,SSRHT(7),CHEMUT<8),CL2UT<8),QMOD<20), WTRMTl,
» QQRMT(7),QQOUTm,QQRMMX(7),QQOUMX(7),QORMMN(7),QQOUMN<7),
* BCKiiT (75, SCCUTC 7i ,SCK?
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
HfUTE(6,605) KYEAR, IENRU)
605 FORMAT (• «, 21X, 16, 5X, 16)
700 CONTINUE
READ GENERAL UNIT COSTS
READ (5,504) UCLAND,UCPOWRtUCCL2,UCPOLY tUCALUM
504 FORMAT(FIO.O,F10.5,3F10.2»
UCLAND = UNIT COST OF LAND, t/ACRE
UCPOWR = UNIT COST OF POWER, t/KWH
UCCL2 = UNIT COST OF CHLORINE, $/LB
UCPOLY = UNIT COST OF POLYMERS, t/LB
UCAuUh - UM J' CuSV Ur ALUii, $/Li3
TRCO 61
TRCO 62
TRCO 63
TRCU 64
TRCa 65
TRCD 66
TRCO 67
TRCO 63
TRCO 69
TRCO 73
TRCO 71
TRCO 72
TRCO 73
TRCJ 74
RATEPC ~ INTEREST RATE FOR AMORTIZATION, PERCENT TRCQ 75
NYRS - AMORTIZATION PERIOD, YEARS
KODYR = YEAR CF MODEL, FOR COSTS
SITEF = AN ENR FACTOR FOR GEOGRAPHIC LDCATIO*
L « LEVEL NUMBER
ENR = ENG. NEWS RECORD COST INDEX, FDR YEAR
DEFAULT VALUES
IF IUCLAMD .EQ. 0.0) UCLAND = 20000.0
IF (UCPOKR .EQ. 0.0) UCPOWR = 0.02
IF (JCCL2 .EQ, O.OJ UCCL2 - 0.20
IF IUCPOLY .EQ. 0.0) UCPOLY = 1.25
IF (OCALUM .EQ. 0.0) UCALUH = 0.03
WRITE(6,602) RATEPC, NYRS, CRF, MOOYR, SITEF
602 FORMAK 0 , ISXt 'COST PARAMETERS . .', /
20X, 'INTEREST RATE =• F10.2, • PERCENT1,
20X, 'AMORTIZATION PERIOD *• 110, ' YEARS', /
20X, 'CAP. RECOVERY FACTOR =• F10.4, /,
20X, 'YEAR OF SIMULATION =« 110, /,
20Xt 'SITE LOCATION FACTOR =• F10.4)
WRITE (6, 604) UCLAND, UCPOWR, UCCL2, UCPOLY, UC ALUM
604 FORMAT! *0' 15X, 'UNIT COSTS . .', /,
* 20X, 'LAND = F10.2, ' $/ACPE', /,
* 20X, 'POWER = F11.3, ' S/KWH', /,
* 20X, 'CHLORINE = FH.3, ' $/LB', /,
* 20X, 'POLYMERS = F11.3, ' $/LB', /,
* 20X, 'ALUM = F10.2, ' $/LB»)
INITIALIZE
DO 900 L=l,7
CAPCST(L) = 0.0
ALANC(L) * 0.0
CLACST(L) * 0.0
ANNCST(L) - 0.0
ALACST(L) = 0.0
BASICM(L) * 0.0
CL2CSTU) = 0.0
CHCOST(L) = 0.0
900 OTHCST(L) = 0.0
CAPCST = CAPITAL COST OF INSTALLED EQUIPMENT,
ALAND = AREA CF LAND REQIREO FOR THIS EQUIP,
CLACST = CAPITAL COST OF LAND REQUIRED, $
ANNCST = AKORTIZEC COST Of IIJSTALLED EQUIPMENT
TRCO 76
TRCi) 77
OF STRCJ 76
TRCO 79
E LOTRCO 80
TRCU 81
TRCO 32
TRCO 83
TRCO 84
TRCO 85
TRCO 86
TRCD 87
TRCO 88
TRCO 09
/, TRCO 90
, TRCO 91
TRCO 92
TRCO 93
TRCO 9
-------
c
c
c
c
c
c
c
c
c
1000
c
c
c
ALACST
8ASICM
CL2CST
CHCOST
OTHCST
Q = CMCO(KMOO)
QMGD = Q
IF (Q .LT. 12.01 Q - 1
LEVEL 1 8
K = ITPEAT(l) - 10
L = 1
GO TO (2000,1200), K
12) FOR
AMORTIZED CUST OF LAND REQUIRED, $/YEAR
COST OF MINIMUM MAINTENENCE (NO STORMS),
COST OF CHLORINE, t/STQRM
COST OF POLYMERS AND ALUM, t/STORM
ALL OTHER STORM COSTS, 5/STORM
12.0
BRANCH =
IF (QMGD .GT.
* CAPCST(2) =
IF (UMGO .GT.
* CAPCSTU) =
H = KEAU1
IF (H .LT. 10.0)
CAPCST(2)
25000.0*(QMGD**0.58)*SITEF*ENR(KENR)71314.0
20.0)
16000.0*(QMGD**0.73)*S!TEF*ENR(KENR)/1314.3
1CO.O)
QfGD*(16000.0/(100.0**0.27))*SITEF*ENR(KENR)/1314.
H = 10.0
CAPCST12) + (H-10.0)*(0.0017 <-
(ALOG10(QMt,D)-0.778)*0.00095/l.824»
ALAND(2I = QNGD*(975.0-QMGD)*6.0/{475.0*43560.0)
CLACSTI2) = ALANIM2)*UCLAND*ENR(KENRI/ENR<1 )
ANNCST(2) = CAPCST(2I*CRF
TRC3121
$TRC0122
TRC0123
TRC0124
TRC0125
TRC3126
TRC0127
TRC0128
TRC0129
TRC0130
TRCJ131
TRC0132
TRC0133
TRC313'.
TRC0135
TRC3136
TRC0137
TRC0138
TRC3159
TRC0140
TRC3141
ENTRC0142
TRCU143
TRC0144
TRC0145
TRC3145
TRC0147
TRC3148
TRC0149
TRC0150
TRC3151
TRC0152
TRC3153
TRC0154
TRC0155
TRCJ156
TRC0157
TRC315S
TRC3159
TRC0160
TRC3161
TRC0162
TRC0163
TRC0164
TRC0165
TRC3166
TRC0167
TRCD168
TRC0169
TRC0170
TRCU171
TRC0172
0 TRCU173
TRCiU74
TRC0175
TRCU177
TRC0178
TRC0179
TRC0180
192
-------
c
c-
c
3000
ALACST<2) = CLACST(2)*0.01*RATEPC
BASICHC2I = CAPCST<2)*0.02
CL2CSK2I •= 0.0
CHCOST(2» = 0.0
OTHCSTJ2J = 15.00 «• UCPOWR*62.4*QDESYN*H/(550.0*1.341*0. 7)
LEVEL 3 BRANCH (FOR PRIMARY TREATMENT)
30
L =
GO TO
ITREATO) -
3
<4000.3200t3200f3400,3500>, K
32) 6 33) FOR DISSOLVED AIR FLOATATION
ADJUSTED
BASED ON BAKER ST, SAN FRANCISCO,
3200 IF (QMGO .LE. 15.0) CAPCSTO) = 1.35*QMGD* .
* EXP(2.3026/(Q.2C75 + 0.0114*ALOGIO(QMGD)))
IF
C
C??
(QMGD .GT. 15.0 .AND. QMGO .LE. 100.0)
* CAPCSTO) = 1.35*QMGD*EXP(2.3026*(4.6032 -
* 0.0559*ALOG10(QMGD)»)
IF (QMGD .GT. 100.0) CAPCSTO) = 28000.0*1.35*QMGD
BASED ON 20 CITIES AV, 1967 (ENR = 1098)
CAPCST(3» = CAPCSTO)*SITEF*ENR(KENR)/1098.0
ADD FOR MECH. SCRAPERS IF NOT PRECEEDED BY FINE
.EQ. 33) CAPCST(3» » CAPCSTO) * 500.0*QM3D
ADD FOR CHLORINATOR (GAS FEED ASS'D) IF CHLORINE
0) CAPCSTOI = CAPCSTO) + 500.0*QMGD
ACD FOR DOSING EQUIP IF POLYMERS ADDED
> ))
10000.0*GMGD/(25.0*43560.0)
RQLAKD = 2.0*TSURFA/43560.0
IF (ALANDO) .LT. RQLANDi ALANU(3) = ROLAND
ALANOO)*UCLAND*ENR(KENR»/ENR(1)
CAPCST(3>*CRF
CLACST(3>*0.01*RATEPC
CAPCSTO)*0.02
CL2UT(3)*UCCL2
CHEMUTO)*UCPOLY
WAINTO )*LOOO.O*0.004 + 15.00
.EQ. 33) GO TO 3400
IF (ITREATO)
IF (1CL2 .GT.
IF (IChEK -i€T-
ALANDI3)
CLACSK3)
ANNCSTO)
ALACSTO)
TRC3181
TRC0182
TRC0183
TRC0184
TRC0185
TRC3186
TRC0187
TRCU188
TRC0139
TRC0190
TRC0191
TRC0192
TRC0193
TRC0194
TRC0195
TRC0196
TRC0197
TRCD198
TRC0199
TRC0200
TRC0201
TRC0202
TRCa203
SCRETRC0204
TRC0205
CL2CSK3) =
CHCOSTO) =
OTHCSTO) =
IF (ITREATO)
GO TO 40CO
C
C
c
33) £ 34) FOR FINE SCREENS
.0
3400 CAPSC = QMGD*12000.0*SITEF*ENR(KENR)/1314.
CAPCSTO) = CAPCSTO) + CAPSC
ALSC = (Q/6.C)*3000.0/(43560.0*SQRT(Q/6.0M
ALANDO) = ALAND(3) * ALSC
CLASC = ALSC*UCLANO
CLACSTO) = ALAND(3)*UCLAND*ENR(K.ENR)/ENR(1»
ANNCSTO) = CAPCST(3)*CRF
ANNSC = CAPSC*CRF
ALACSTO) = CLACST(3)*0.01*RATEPC
ALASC = CLASC*'J.01*RATEPC
BMSC = CAPSC*0.02
BASICMO) = BASICM(3) *• BMSC
CL2CSTO) = 0.0 * CL2CST(3)
CHCOSTO) = 0.0 * CHCOSTO)
OTttSC = WAINT(3)*1000.0*0.006 * 15.00
OTHCSTO) = OTHCSTO) * OTHSC
TRC0207
TRCJ208
TRC0209
TRC0210
TRC0211
TRC0212
TRCJ213
TRC0214
TRC0215
TRCD216
TRC0217
TRCn218
TRC0219
TRC0220
TRCD221
TRC0222
TRCU223
TRC0224
TPCD225
TRC3226
TRC0227
TRC3228
TRCU229
TRC0230
TRC323)
TRC0232
TRC0233
TRC0234
TRC0235
TRC0236
TRC0237
TRCJ238
TRC0239
TRC0240
193
-------
c
c
c
3500
C
3600
C
C
3700
C
3800
I
C
c •
c
4000
C
C
c
4200
C
C
C
c
c
4300
C
GO TO 40CO
351 FOR SEDIMENTATION
CO TO (3600,3700), IS TOR
IN NEW SEO TANKS
CAPCSTC3) » 43000. 0*(QMGD*700 .0/OVRSED 1 **0. 91
IF (QMGD .GT. 100. 0) CAPCSTO) = 430. 0*QMGD*( 70000. /OVRSED)**0.
CAPCST<3» = CAPCST(3)*SITEF*ENR(KENR)/1000.0
BASED ON 20 CITIES AVt 1967 (ENR = 10981, ADJUSTED
ALAMOS) * Q*ICOOOOO.O*2.0/IOVRSED*43560.0)
OTHCST(3) = WAINT(3)*1000.0*0.004 * 15.00
GO TO 3800
it, rro^AC-r
CAPCSTC3) = CPCUYD*(STORMX/27.0)*SITEF*ENR(KENR)/1314.0
ALANOOI = APLAN/43560.0
OTHCSTO) = HAINT(3)*1000.0*0.005
IN EITHER
CLACSTC3) = ALAND(3)*UCLAND*ENRIKENK)/ENR11)
ANNCSTO) = CAPCST(3)*CRF
ALACST(3» = CLACST(3I*0.01*«ATEPC
BAS1CMO) = CAPCST{3)*0.01
CHCOSTOt * 0.0
CL2CSTC3I = CL2UT(3J*UCCL2
LEVEL 4 BRANCH (FOR SECONDARY TREATMENT 1
K = ITREAK4) - 40
L = 4
GO TO (5000,4200,4300), K
42) FOR MICROSTRA1NERS
CAPCSTI4) = 20000.0
IF CQKGD .LT. 25. 0> CAPCST(4) = 30000.0
CAPCSTC4I » CAPCST(4)*QMGD*SITEF*ENR(KENR)/1314.0
BASED ON 20 CITIES AV, 1970 (ENR = ENRUM
ALANDUI = 0.50*Q*3COO.O/(A356C. 0*SQRT (Q/12.01)
IF CtJKGD .LT. 25.0) ALANO(4) = ALANOl A)*1.333
CLACST(4) = ALAND(4)*UCLAND*ENR(KENR»/ENR(1 »
ANNCST(4) = CAPCST«4|*CRF
ALACSTC4) = CLACST(4I*0.01*RATEPC
BASICM4) = CAPCST(4)*0.02
CHCCSTC4) = 0.0
CL2CST(4I » 0.0
BASED ON HANOVER PARK
OTHCSK4) = WAINT(4)*1000.0*0.006 * 15.00
GO TO 50CO
43) FOR HIGH RATE FILTERS
CAPCST(4) * 0. 6*90000. 0*QMGC**0. 67
CAPCSTC4) = CAPCST(4)*SITEF*ENR(XENR)/1058.0
BASED ON 20 CITIES AV, 1967 (ENR = 10581
ALANC(4) = 0*1000000.0*?. 57(1440.0*20. 0*43560. 01
CLACST(4) - ALANDi4MUCLAND*ENR(Kr:NR)/ENR(l)
ANNCSK4) = CAPCST(4)*CRF
ALACSTU) = CLACST(4)*O.Ol*RATEPC
BASICK( = CAPCST(4)*0.02
CHCOST(4t = CHFMUT(4)*UCPOLY
TRC3241
TRC0242
TRC0243
TRC0244
TRC0245
TRCD246
TRC0247
91TRC0248
TRC0249
TRC0250
TPC0251
TRC0252
TRC0253
TRcnzr-'v
TRCD255
TRC0256
TRC0257
TRCD258
TRC0259
TRCU260
TRC0261
TRC0262
TRCD263
TRC026^
TRCU265
TRCD266
TRC0267
TRCU268
TRC0269
TRC0270
TRC3271
TRC0272
TRCU273
TRC0274
TRC0275
TRC:i276
TRCU277
TRC027B
TRC0279
TRCU280
TRC0281
TRC3282
TRC0233
TRCC1784
TPC0285
THC0236
TRC0287
TRC0268
TRC0289
TRC0290
TPC0291
TRC0292
TRC0293
TRC329
TRC0297
TRC0298
TRC0299
TRC3300
194
-------
CL2CSTC4) « 0.0
OTHCST(4) = WAINT(4)*1COO.O*0.010 + 15.00
C
C LEVEL 5 BRANCH (FOR EFFLUENT SCREENS)
C
5000 K = 1TPEAT(5) - 50
L = 5
GO TO (6COOt5200), K
C
C 52) FOR EFFLUENT SCREENS
C
5200 IF (QMGD .GE. 100.0) GG TO 5210
CAPCST(5I = QfGO*(5000.0/QMiiD**0.7)*SITEF*ENR(KENR)/1314.0
C P-r-T,V! A.Tjnf,; ?\Crr; r-»l ->r\ r-^rf.r iy joy1)
CAPCST(S) = CAPCST15) «• 0. 7*1000. 0*10. 0*(QMGD**0. 625 1*
* SITEF*ENR(KENR)/1034.0
C CHANNEL WKS BASED ON 20 CITIES AVi ASSUMED 1966
GO TO 5220
5210 CAPCST(5) = CHGD*200.0*SITEF*ENR(KENR 1/1314.0
C INSTALLATION BASED ON 20 CITIES AVt 1970
CAPCSTI5I = CAPCST(S) * 0. 7*1000. 0*( QMGD/1 00. 0) *1 78. 0*
* SITEF*ENR(KENR)/1034.0
C CHANNEL WKS BASED ON 20 CITiES AVf ASSUMED 1966>
5220 ALANC(5» » (2700.0 * 3.0*QDESYN j/43560.0
CLACST(5) - ALAND(5)*UCLANO*ENR(KENR)/ENR(1I
ANNCST(S) = CAPCST(5)*CRF
ALACST(5I = CLACST(5)*0.01*RATEPC
BASICHC5) = CAPCST( 51*0. 015
CHCOST<5) - 0.0
CL-<:CST(5) = 0.0
OTHCST(5I = 15.0 * 0.30*WTRMT5*1000. 0/250.0
C BASED ON WORCESTER, 1940 (ENR = 250)
GO TO £CCC
C
C LEVEL 6 BRANCH (FOR OUTLET PUMPING)
C
6000 K = ITPEATI6) - 60
L = £
GO TO (7CCO,6200)t K
C
C 62» FOR OUTLET PUMPING (STATION)
C
6200 CAPCST16) = 25000. 0*(QMGD**0. 58) *SI TEF*ENR(KENR ) / 131 4. 0
IF (QMGD .GT. 20.0)
* CAPCST(6) = 16000. 0*(QMGD**0.73J*SITEF*ENR(KENR)/1314.D
IF (QMGC .GT. 100.0}
TRC03DI
TPCJ302
TRC0303
TRC0304
TRCD305
TR"C0306
TRCU307
TRC0308
TPC0309
TRC3310
TRC0311
TRCU312
TRC0313T
T D C m. 1 L.
\ Ki, U J i t
TRC0315
TRC0316
(EN^TRC0317
TRC0318
TRC0319
TRC0320
TRC0321
TRCU322
(ENRTRC0323
TRC0324
TRCD325
TRC0325
TRC0327
TRC0323
TRC0329
TRC0330
TRC0331
TRC0332
TRCCJ333
TRC033't
TRC0335
TRC0336
TRC0337
TRCU338
TRC0339
TRC0340
TRC0341
TRCU342
TRC0343
TRC0344
TRC0345
TRC0346
* CAPCST(6l = QHGD*(l6000.0/( 100.0**0.27) ) *S I TEF*ENR (KENR )/ 131 4.0 TPC0347
H = HEAD2
IF (H .LT. 10.0) H » 10.0
CAPCST(6) = CAPCST(6) 4- ( H-10 .0)*(0.0017 *•
* ( ALOG10 ( QMCOJ-0. 7 78 )*0. 0009 5/1.824)
ALANC(fc) = QKGO*(975.0-QMGO>*6.0/(475. 0*43560.0)
CLACSK6) = ALAND<-6)*UCL4ND*ENR(KENR)/ENR(1)
ANNCST(6) = CAPCST(6)*CRF
ALACST(6) = CLACST(6)*O.Ol*RATEPC
BASICK(6I = CAPCST(6)*0.02
CL2CSH6) = 0.0
CHCOST(6) = 0.0
OTHCST(fc) = 15.00 *• UCPOWR*62.4*QDESYN*H/(550.0*1.341*0.8)
C
TRC0348
TRC0349
TRC0350
TRCU351
TRC0352
TRC0353
TRCH354
TRC0355
TRCJ356
TKC0357
TRC0353
TRC0359
TRC0360
195
-------
C LEVEL 7 BRANCH (FOR CHLORINE CONTACT TIME)
C
7000 K « ITREATJ7) - 70
L * 7
GO TO (8000,7200), K
C 72) FOR CHLORINE CONTACT TANK
C
7200 CAPCSTJ7I = 18350. 0*QMGD**0. 628*SITEF*ENR = CLACST(7)*O.Ol*RATEPC
BASICM7) = CAPCST(7)*0.02
CL2CST(7) = CL2UT(71*UCCL2
CHCOST(7) = 0.0
OTHCST(7) = 15.00
C
C PREPARE AND PRINT COST SUMMARY
C
8000 CPCSTT = 0.0
ALANCT = 0.0
CLCS1T = 0.0
ANCSTT = 0.0
ALCSTT = C.O
BS1CMT = 0.0
C2CSTT = 0,0
CHCSTT = 0.0
OTCSTT = 0.0
OO 81CC L=i,7
CPCSTT = CPCSTT + CAPCST(L)
ALANCT •= ALANOT +• ALAND(L)
CLCSTT = CLCSTT «• CLACST(L)
ANCSTT = ANCSTT + ANNCST(L)
ALCSTT = ALCSTT + ALACST(L)
BSICfT » BSICKT * eASICK(L)
C2CSTT = C2CSTT * CL2CST(L)
CHCSTT = CHCSTT * CHCOST(L)
8100 OTCSTT = OTCSTT + OTHCST(L)
CAPTGT - CPCSTT + CLCSTT
ANNTGT = ANCSTT * ALCSTT + 8SICMT
STMTOT = C2CSTT * CHCSTT * CTCSTT
WRITE (6, 68 11
681 FURMAU'C', 39X, 'CAPITAL COSTS', 13X, 'ANNUAL COSTS', 16X,
* 'STORM EVENT COSTS')
WRIT£(6,682»
682 FORMAT (• ', 26X, ' .
* , -- - ,-
WRITE(6,683)
683FORMATC •, 11X, 'TREATMENT', 8X, 'LEVEL', 6X, 'INSTAL ',
* «LA^ INSTAL LAND MIN MAINT CHLORINE ',
* * CHEM OTHER')
WRITE (6, 684)
684 FORMATC «, 24X, 9( • 'I )
DO 82CO L=l,7
TRC0361
TRC0362
TRC0363
TRC0364
TRCD365
TRC0366
TRC0367
TRCD368
TRC0369T
TRC0370T
TRC337LT
TRC0372T
TRC0374
TRCG37S
TRC33 76
TRC0377
TRCO37B
TRC0379
TRC3330
TRC0381
TRC3382
TRC0383
TRC0384
TRCCI385
TRC0386
rRC.1387
TRC0388
TRCU389
TRCC1390
TRC0391
TRC3392
TRC0393
TRC3395
TRC0396
TRC3397
TRC0398
TRC0399
TRC0400
TRCJ401
TRCQ4D2
IRC3404
TRC0405
TRCJ406
TRCO^D?
TRC04D8
TRCa409
TRCO'tlO
TKCLJ4L2
TRC0413
TRCCltl4
TRC0415
TRCT417
TRCO^IB
TRC.!141 q
8200 WRITF.(6,685) (NAME(I.J), 1 = ]
L, CAPCST(L), CLACST(L(,
TKC3420
TRC342J.
196
-------
*
*
ANNCSTU), ALACST(L), BASICM(L), CL2CST(L),
CHCOST(L), OTHCST(L)
685 FORMAT(' •» 8X,
5X, 12, F14.0, 7F11.0)
TRC0422
TRCUA23
IF
-------
SUBROUTINE INTERPCX, ,V, L, XEt YE,
DIMENSION X(L),Y(LI
C
C
C
C
C
C
C
GIVEN XEt INTERPOLATES LINEARLY FOR YE
FLAGS M/PROG WITH K-VALUE, IF XE OUTSIDE RANGE
( FROM MCCRACKEN, PP. 61-64 >
IF (XE .GE. X(L) ) GO TO 2000
1000
XE IS .LT. LOWEST VALUE ON CURVE
K * -10
GO TO 9999
C
C
SEARCH FOR SMALLFST XU) .ST. XT
20QO 00 2050 J-2«L
IF CXE-X(JI )
205.0 CONTINUE
C
C
K =» 10
GO TO 9999
C
C
3000
YE = YUI
GO TO 5000
C
C
C
C
4000
5000
YE
K
= YU-1)
« 0
9999
RETURN
END
Kl INTE I
INTE 2
INTE 3
INTE 4
INTE 5
INTE 6
INTE 7
INTE 6
INTE 9
INTE 10
INTE 11
INTE 12
INTE 13
INTE 14
INTE 15
INTE 16
INTE 17
INTE 18
INTE 19
INTE 20
INTE 21
INTE 22
XE COINCIDES WITH AN X(J), SO INTERPOLATION UNNECESSINTE 23
INTE 24
INTE 25
INTE 26
NOW X(JI IS THE SMALLEST VALUE .GT. XE. INTE 27
CCMPUTE YE BY LINEAR INTERPOLATION. INTE 28
INTE 29
+ (Y
-------
= = === = == _ x_.._
BLOCK CATA
-—
— — — -- —
____ __ __ —
:=
*— — —
COMMON /BLK1/NAME»4.21)
DATA NAfE /
AH STO, AHRAGE
AH 8, AHAR R
AH INLt AHET P
AHOISS, AH AIR
4H Fit AHNE S
AH BYP, AHASS
AHHIGHf AHRATE
AHEFFLt AHJENT
* AH OUT, AHLFT
* AH Clit AHN1AC
END
,
i
t
t
t
t
,
f
,
i
AH ROU,
4HACKS,
AHUMP I ,
AH FLO,
AHCREE,
AHLEVE,
AH FILi
AH SCRi
4HPIIMP.
AHT TA,
AHNO S
AHTED
AH
4HNG
AHAT 'N
AH.MS
AHL A
AHTERS
AHEENS
AH ING
AHNK
AH NO
AHNJ I
AH BYP
AHFINE
AH SED
AH MIC
4HNU E
AHNO 0
AHNO f.
AH
t
t
i
t
i
t
t
i
t
»
i
AHEP. ,
AH BAR,
AHNLET,
AHASS ,
AH SCR,
AHIMEN,
AHROST,
AHFFL.,
AHUTLE,
AHONTA,
AHSTOR,
AHSTOR,
AH RACi
AH PUM,
AHLFVEi
AH * D,
4HTATI,
AHRAIN,
AH SCR,
AHT PU,
AHCT T,
AHAGE ,
AHAGE
AHKS
BLOC
BLOC
,BL3C
»BL0C
AHPINGiBLOC
Ahl 3
AH. A.F
AHDN
AH5RS
AHEfcNS
AHMPS
AHANK
AH
,8LOC
,BLOC
1 BLOC
i 3L02
,BLOC
,BLOC
,BLOC
/BL3C
3LOC
= RI or.
i
2
3
A
5
b
7
B
9
10
11
12
13
14
15
is
199
-------
Section 5
RECEIVING WATER BLOCK
Page
Subroutine INDATA 203
Subroutine INQUAL 209
Subroutine LOOPQL 215
Subroutine OUTPUT . 220
Subroutine PRTOUT 222
Subroutine QPRINT 225
Subroutine RECEIV 227
Subroutine SWFLOW 228
Subroutine SWQUAL 240
Subroutine TIDCF 243
Subroutine TRIAN 247
201
-------
SUBROUTINE INDATA
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
INPUT DATA
HYDRODYNAMICS PROGRAM
SPECIFICATION STATEMENTS
CONTROL
COMMON /CCf\TR/ N5 »N6 , N20 ,N21, NTCYC t NQCYCi NHCYC. NT.NQSWRT
It OELTU.DELTtTZEROt ISWCH(IO)
COMMON ALPHAOO), NJ,NC,
It PRECP(50),NEXIT
ICYC.KCYC.NCYCt WINO,WDIR,EVAP
JUNCTIONS
COMMON HdOOIf HN(100),HT(100),HBAR{ 100),HAVE( 100)
It NCHAM100,8)»I POINT(100,8),AS(100),VOL(100),X(100),Y(100)
2, DEP(10C),COF(100),CIN(100),QOU(100),01NST(100)
3, UINBAR(lOC)tCOUBARdOO)
CHANNELS
CCKMCN LEN(225),NJUNC(2Z5,2),B(225) ,R<225),A(225),AT(225),AM 225)
It QC225),QBAR(225),CAVE<225), V(225),VT(225),V8AR(225)
2, FHINC(225)tNUKCH(225l,NTEMP{8)
3,NCLOS(225)
PRINTOUT AND PLOTTING
COMMON NPRT.IPRT, NHPRT,JPRT(50),PRTHC30,50)
I, NQPRT,CPRT(50),PRTV<30,50),PRTQC30,50), IDUM(12),1COL(10)
2, LTIKE, NPLTtNPDEL,JPLT(50),HPLT(50)
STAGE-TIME COEFFICIENTS
COMMON YYI50) tTT(50) ,AA(10),XX<10),SXX(10,10!,SXY{10)
1,A1,A2,A3,A4,A5,A6,A7,PERIOD,JGW
STORMWATER
COMMON TITLE(30),NJSW,QE(20,2),JSW(20)
2t RAIN(1CO),INTIME<100),INRAIN,JROUND(20),JJ30UN
TAPES
COMMON /TAPES/ INCNT, IOUTCT,JIN(10),JOUT( 10),NSCRAT(5)
DATA AS1ERK,BLANK /4H****,4H
INTEGER CPRT
REAL LEK.UTIME
TYPE DESIG?4ATIUNS
OPTION SWITCH, ISWCH(I)
1
2
3
INOA 15
INDA 16
INDA 17
INDA 18
INDA 19
INDA 20
INDA 21
INDA 22
INDA 23
INDA 2
INDA 57
INDA 58
INDA 59
INDA 60
203
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
N6=6
REWIND K20
ISrtCHUI
IF lt WILL CALL TIDAL
COEFFICIENTS PROGRAM
ISWCW2I
IF It SUPPRESSES CHANNEL AND
NODAL INFORMATION PRINT
STEP ONE
INITIALIZATION
N20 ASSIGNED IN RECE1V
STEP TWO
TITLESi GENERAL CONTROL DATA,
AND JUNCTION AND CHANNEL INFOR-
MATION
READ TYPE A CARDS
(FIRST TWO CARDS CONTAIN HEAD-
INGS FUR HYDRODYNAMICS* SE3DND
TWO CARDS CONTAIN HEADINGS
FUR IDENTIFICATION UF STORMrfATER
INFORMATION!
READ(N5tlOQJ ALPHA
READ(N5,ICO) TITLE
IOC FORMATU5A4J
HRITECN6.102I ALPHA
102 FURMAT(lhll5A
65
66
67
6B
69
70
71
72
73
7',
75
76
77
78
79
80
61
82
S3
8
READ (N5,106) NTCYC,PERIOD,01 NT,DELT,TZERO,NHPRT,NBPRT,NPLT,EVAP INOAlDfc
ltWIND,VsDIR,MQSKRTtfvJSW,INRAlN,JGW INDA 107
106 FORMAT (IE.4F5.C,315,3F5.0.4I51 INDA106
IPER1D = PERIOD + O.I INDA109
IQINT=QINT*3600.+0.1 INDA11D
IOELT = CELT + 0.1 IKDAlll
NQCYC^CIPERID *3600)/IQINT INL>A112
NHCYC = ICINT/IDELT INOA113
NINT = (IPERID*3600)/IOELT INDA114
NPOEL * (NINT+501/100 INPA115
IKDA116
READ TYPE D CARDS 1NOA117
PRECIPITATION IS READ AT THIS IMDA11B
POINT, RATE IS INCHES ?FR HJUR, INDA119
TIME IS READ IN MiUJHiS • ROM INDA123
204
-------
c
c
210
110
215
112
114
116
118
120
122
124
126
216
127
218
128
START OF STORM
DO 210 K=l,100
RAIN
-------
READ(b5,134)(JPRT(I I , I = 1,NHPRT)
134 FORMAT IB 110)
WRITECN6.136INHPKT,(JPRT(II,1=1tNHPRTI
136 FORMAT C32HOPRINTED OUTPUT AT THE FOLLOWINGtI3t10H JUNCTIONS*//
1 (10X.1616))
C
C
C
C
C
C
C
C
C
C
C
C
C
C
READ TYPE F CARDS
CHANNEL NUMBERS FDR DETAILED
PRINTOUT
READ(N£,134HCPRTU) »I-lfNQPRT)
HR1TE(K6,138)NCPRT,(CPRT(I),1=1,NQPRT)
138 FORMAT(//15X,21HAND FOR THE FOLLOW INGI3.9H CHANNELS//!10X,8110))
READ TYPE G CARDS
READ THE JUNCTION NUMBERS IF
PLOTS ARE REQUESTED! OTHERWISE
SKIP THIS READ
IF (NPLT.NE.OJ READlN5tl34) (JPLT(N),N=lfNPLT»
TIDAL OPTION AT THIS POINT
1*0
C
C
C
C
560
144
580
166
620
640
C
C
IF (ISWCH(l).NE.l) GO TO 560
READ (N5.140) KOtNI ,MAXIT, NCHTID
FORMAT 1415)
READ (N5,142) ( TT ( I ) , YY( I ), 1=1, NI )
FORMAT (BF10.0)
CALL TIDCFUOtNItMAXIT, NCHTID)
GO TO 560
CONTINUE
READ (N5*142) A1»A2,A3
WRITE (N6.144) A1,A2,A3
FORMAT (3F10.1)
CONTINUE
READ CARDS FOR
NODAL INFORMATION
DO 620 1=1,100
READ! N5 1 166) J »HEAD t SURF ,CF1 ,CF2 1 DT ,CF ,X1 , Yl
FORMAT(I5,F5.0,-6PF10.0,OP2F5.0,2F10.0,20X,-3P2F5.0)
IF( J.GT.iCOGO TO 640
IF(J.GT.NJ>NJ=J
H(J)=HEAC
AS(J)=SURF
QIN(J)=QF1
QINSTt J)=CF1
QOU(JI=QF2
X(J)=X1
YIJ)=Y1
DEP(JI=OT
COF(J)=CF
CONTINUE
CONTINUE
NC=0
READ CARDS FOR
INDA175
INDA176
INDA177
IND4178
INDA179
INDA1QO
INDA131
INOA182
INDA1B3
INDA134
INOA185
INDA186
1NDA187
INDA1B8
INDA1B9
INDA19D
INDA191
INDA192
INDA193
INDA194
INDA195
I.NDA196
INDA197
I NOA198
INDA199
IND4200
INDA201
INDA202
INDA203
INDA234
INDA205
INDA206
INDA239
INDA210
INDA211
IN04212
IMDA213
INDA214
INDA215
INDA216
INDA217
IND/V218
INDA219
INDA220
INDA221
INDA222
IND4223
INDA224
INDA225
INDA226
INUA227
IMDA228
1NDA229
INDA230
1NDA231
INDA232
INOA233
206
-------
c
c
CHANNEL INFORMATION
172
643
646
648
00 660 1=1.225
REAO(N5,172)NttNT£MP(K),K=l,4),ALEN,WIDTH,RADtCOEF,VEL
FORMAT(5I5,5F10.0)
IF (N.GT.225I GO TO 670
IF(NTEPP(3).NE.O) GO TO 655
NC=NC+1
N=NC
LEN(NI=ALEN
B(N)=WIOTH
A(N)=RAO*WIDTH
R(N*=RAD
AKfM=CCEF
V(N)=VEL
NJUNC(N»ll = KINO
00 643 J=l,8
JF(lPOINT
-------
INDA294
INDA295
1NDA296
INDA297
INDA298
INDA299
INOA300
INOA301
INDA302
INDA303
INDA30«t
INDA305
INDA306
INDA307
INOA308
JNOA309
INOA310
INDA311
INDA312
INDA313
681 CONTINUE
682 CONTINUE
683 CONTINUE
K=NJUNC(N,2)
00 684 J*l*8
JF/SQRT(32.2*(R(N)«-2.)1
XMK=BLAM<
IF
-------
SUBROUTINE INQUAL
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
INPUT DATA SUBROUTINE
C
C
C
SPECIFICATION STATEMENTS
GENERAL AND CONTROL
COMMON /TAPES/ INCNTt IOUTCTtJIN(10),JOUT(101tNSCRAT(5»
COMMON JGWfNTCfNQCYCtDELTQfQEtQFtALPHA(30),TITLSW(30),ICOL(IO)
1 t ISVnCh(lO) t ivcAEr* (o /, CwCA't 11>) t *K(6i » M'-'.L{t.) i XliF ( £>) ,XMi- 0{ £>)
2 iN5iN6fNlOtN20iN30tN40,NSTART,XRQD
JUNCTIONS
COMMON NJ,KCHAN(100,8>,Q!N(100),QOU(100),VOL(100),VCJLO(100»
1 tASUOOJ
CHANNELS
COMMON KCtNJUNC(225i2)tQ<225),LEN(225),U(2251
STORMWATER
COMMON NJSHtJSW<20)
1,MJSH,ISW(20),TT(2>,CT(6,20,2),INSTM
QUALITY
COMMON KCCN,KCONO,C2<6).CS(6)tICON<6),CSAT(6) tC<100f61,SJMC
1 iCMAX(lOO|6l,CMIN(100fo)tMADD(100,6),DCDT(100,6),Ct(6,20,2)
2 tTE( 6I,TEP( 6),SLOPE(20),CSPINUOO,6),TITL£(6,6> ,TEU(6I
PRINTING
COMMON NCPRT,ITCPRT,LCCPRT,NSTPRT,NQCTOT,ISKIP,MSTPRT,NPRT,KP*T
DATA CISOXY /AHCDOI /
REAL MACCtLEN
N5=5
N6=6
READ NlOfN30tN40 NIO SHOULD BE
DRUM OR DISC STORAGE, N30 AND
NAO SHUULD BE MAGNETIC TAPE
IF USED.
NIC = NSCRATC2J
N30 = NSCRAT(3)
NAO = NSCRAT(^»
REWIND NIO
REWIND N20
REAf> - - ISWCH VALUES
IN1U
INQU
INQJ
INQU
I NQJ
I NQU
INQJ
INQU
INQU
INQU
INQU
INQU
INQU
INQU
IN3J
INOU
INQJ
INQJ
INQU
INQJ
INQU
INQJ
INQU
INQU
INQU
INQU
INQU
INQU
INQJ
INQU
INQU
INQU
INQU
INQJ
INQJ
INQJ
INQU
INUJ
INQU
INQU
INQJ
IMQU
INQJ
INQU
INOJ
INQU
INQU
INQJ
I NQU
INQJ
INQU
INQJ
INQJ
INQU
INQU
I NQJ
INQU
INQJ
INQU
INQU
I
2
3
4
5
6
7
P
9
ID
11
12
13
1*
15
16
17
18
19
23
21
22
23
24
2!>
25
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
4f>
47
48
49
50
51
52
53
54
55
56
57
58
59
60
209
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
THEN
555
11
C
C
C
5090
5100
5140
5150
c
c
c
c
IF THE SWITCH VALUE IS 1,
THE STATEMENT OF ACTION
CONTROLLED BY THE SWITCH WILL
OCCUR.
INQJ 61
INQU 62
INQJ 63
INQU 64
INQJ 65
SWITCH 1 - INPUT INITIAL COVCEN-INQJ 6fe
TRATIONS FROM TAPE N30. INQU 67
SWITCH 2 - SKIP PRINTING MAXIMUMIN3J 68
AND MINIMUM CONCENTRATIONS INQJ 69
SWITCH 3 - WRITE CuNCEMTP^TIONS INQU 70
ON TAPE N40 FOR A RESTART. INQJ 71
(ALSO WRITES HYDRAULIC INFORMA- INQJ 72
TIONI INQU 73
SWITCH 4 - BUVUO IS AT LEAST INQJ 74
ONE OF THE CONSTITUENTS. INO'J 75
SWITCH 5 - RECEIVING WATER IS INQ.f 76
TIDALLY INFLUENCED. INQU 77
SWITCH 10 - THIS SWITCH IS SET INQJ 78
BY N30 IF A RESTART TAPE IS USEDINQJ 79
OR IT CAN BE READ IN IF THE
FIRST TIDAL CYCLE ONLY IS
REPEATED
RE«D(5,555) ISWCH
FORMAT (1015)
IFlIShCHm.EQ.il REWIND N30
IF(ISWCH(3I.EQ.1I REWIND N40
00 11 I'l.lO
ICOUUM
WRlfE(6,6J ICOL,ISWCH
FORMAT(•1SW1TCH SETTINGS'/i101101
00 510C 1=1.6
ICONm-0
DECAY(I)=0.0
INITIALIZATION
INQU 80
INQJ 81
INQJ 82
INQJ 83
INQU 84
INQU 85
INQJ 86
INQU 87
INQJ 88
INQU 89
INQJ 90
INQU 91
INQU 92
INQ'J 93
INQJ 94
INQJ 95
INQU 95
INQU 97
INQJ 98
INQJ 99
INQU100
INQJ101
1N3U102
INQJ103
INQU104
1
CSAT(I)=0.0
REAER(I>=0.0
DO 5090 J=l,100
C«J,I)=0.0
HAOO(Jtl) =0.0
CONTINUE
CONTINUE
00 515C 1=1,6
TE(I) =0.0
TEPm=O.G
00 5140 L=l,20
CE(I,L,1)=0.0
CE(liL,2)=C.O
CONTINUE
CONTINUE
SYSTEM DATA IS RFAD FR3M
RECEIVING WATER QUANTITY PRDCiRAMINQJl 16
INOJ117
READ (N2C) TITLSWfALPHA.NJiNC.NQCYCtOELTQtI(NCHAN(J,K).K=l,8), I.
ASUI tJ=l,NJ». (LEMNi ,(NJUNC(NrKI,K=l,2>,N = l,NC» I!
INQ'.ll^O
INQJlOb
INQU107
INQJ108
INQU109
INQU110
I NQJ111
INQU112
210
-------
c
c
c
c
90
C
C
C
C
00 90 I=1,NQCYC
READCN2C) NQ»{Q(N),U(M,N*1,KCI
WRITE(NIC) NQ,(C(NI,U(NJ,N=1,NC
REWIND NIC
IFUSWCH(l).NE.l) GO TO 95
IS UCH( 10 » '• 1
FLOW INFORMATICS IS TRANSFERRED
TO FAST STORAGE, DRUM OR DISC.
, (VOLUI ,QIN(J),QC)U( JI,J = 1,NJ)
),(VOL< J),QIN(J),OOJ( J) ,J=i,NJ>
RESTART OPTION - ALL DATA READ
FROM TAPE N30.
READ (K30) JGK,KCON,KCOr40,NTC,NPRT,NJSW,TITLE,C2,CS,ICOM,CSAr,
1 REAER, DECAY, XR, XME, XMF.XMEO, (VOLO< J.) ,(C(J,K) ,SUMC(J,K>,
4285
C
C
C
95
C
C
C
C
C
C
C
C
c
c
c
c
c
c
c
c
c
c
c
2 HADO( J,K) , CMAX(J,K)
DO 42£5 J=ltNQCYC
READCN30) KG, { Q(N» ,U (N » ,N=1,NC )
WRITE(MO) f\Q,
»,(VUL(J),QIN(J),QOU( J) , J=1,NJ»
THIS IS A READ ONLY ON RESTART
NJSW - NUMBER OF STURM WATER
INPUT JUNCTIONS.
ITCPRT - DAY CYCLE FOR START
OF DETAILED QUALITY CY2LE
PRINTED INFORMATION.
NQPRT - QUALITY CYCLE INCREMENT
BETWEEN PRINTED CYCLES.
LQCPRT - TOTAL NUMBER OF QUALITY
CYCLES PRINTED (PRESENTLY
LIMITED TO 50)
READ PRINT INFORMATION FOR
DETAILED QUALITY PRINTING.
.LQCf'RT
4100 F(1RMAT(1H15A4,15A4)
101
WRITE (6,1011 ALPHA
FGRMAT(1HC15A4,36X,32H *!ATER RESUURCCS FNGINEERS, INC./
1 l»- 15A4.36X.25H WALNUT CREEK, CALIFORNIA/
2 1H 96X,1 DYNAMIC STURM WATER QUALITY •//)
C
C
c
RLA!) GENERAL CONTROL PARAMETERS
AND DATA.
INQJ121
INQU122
INQJ123
INQJ124
INQU125
INQU126
INQJ127
INQJ12B
INQJ129
INQU130
IN3J131
INQJ132
IN3J133
INQJ134
INQJ135
1NQJ136
INQU137
INQU133
INQU139
INQJl^O
INQJ141
INQUU2
INQJ143
INQJ144
INQ'J1<»5
INQJU5
INQU147
INJJ148
INQ'Jl't9
INQU150
INQJ151
INQJ152
INQJ153
INQJIS^
IN-5J155
INQJ156
INQU157
1NQJ158
INQU159
INQJ160
irUJ161
INQJ1&2
INQJ163
IMQU164
INQJ165
INQU166
INQU167
IN3J163
INQU169
I NO J I 70
INQU171
INQJ172
INJJ173
INOU174
INQJ17D
INQJ17f)
INQJ177
INQJ173
INQJ179
INQJ180
211
-------
READ (N5.556I NTC,KCON,NPRT ,XRQO
556 FURMAT (3I5,F5.0I
WRITE (6,1100) NJ
1100 FURMAT (24HOMAXIMUM JUNCTION NUMBER, 15)
WRITE (6.1102) NC
1102 FORMAT (23HOMAXIMUM CHANNEL NUMBER, 15)
WRITE (6,1104) NQCYC
1104 FORMAT (33HONUMBER OF QUALITY CYCLES PER DAY, 15)
WRITE (6,1105) NTC
11"5 FCRMAT(15HOMMBER OF CAYS, 15)
WRITE (6,1101) KCON
1101 FORMAT (23HONUMBER OF CCNSTI TUENTS, 14 )
WKITJL (C.llOui U-LT^
1106 FORMAT (45HOLENGTH OF QUALITY INTEGRATION STEP ( SECONDS) ,F7. 0)
WRITE (6,1110) NPRT
1110 FORMAT (16HOPRINT INTERVAL, , I*, 5H DAYS*
WRITE (6,1112) XRQD
1112 FORMAT (3CHOEXCHANGE REQUIREMENT AT OCEAN, F7. 2)
WRITE (K6t4200) NJSW
4200 FORMAT (10HOTHE RE ARE,13,27H STORMWATER INPUT JUNCTIONS)
MTOTAL = LQCPRT*NQPRT
WRITE (N6,50AO) ITC PRT.NQPRT, MTOTAL
5040 FORMAT (6CHOQUALITY CYCLE CONCENTRATIONS, PRINTOUT STARTS IN TIME
INQJ182
INQJ133
INQU134
INQJ185
INQU186
INQJ137
INJJ133
INQU189
INQJ190
INQU191
INQJ192
INQU193
INQU19i>
INQU1Q6
IN3J197
INQU198
INQJ199
INQJ200
INQJ201
IN3J2D2
1N3U203
INQU204
1CYCLE.I3.16H
2 HOURS)
C
C
C
C
, PRINTED EVERY,13,25H HOUR(S), FOR A TOTAL
READ QUALITY BOUNDARY DATA
KCONO IS NUMBER OF CONSTITUENTS
KCQMO=KCCN
DO 103 KC=1,KCONO
READ (5,9) JGW,CS(KC),CSAT(KC),REAER(KC),DECAY(KC),
1 (TITLCd.KC), 1-1,6)
9 FORMAT(I5,F1C.O,3E5.0,5X,6A4)
WRITE (6,14) KC, (TITLEU.KC) ,1 = 1,6),CS(KC)
14 FORMAT(19H1CONST1TUENT NUMBER,12,20X,6A4//,19H SINK
1F8.2)
C
C
C
C
c
c
c
CONSERVATIVE/NUNCUNSFRVATIVE
TAGS ARE SET UP.
KCON IS KCONO PLUS D.O. CONSTI-
UENTS.
IF(DECAY(KC).LE.O.) GO TO 1130
OF,I3,6HINQJ205
INQU206
INQJ2D7
1NQU208
INQJ209
INQJ210
INQU211
IN3J212
INQU213
IN3U214
INQJ215
INQJ216
CONCENTRATION, INQJ217
INCJU218
INCM219
INQJ220
IN3J221
IN}J222
INQJ223
IN3J224
INUJ225
IN(JJ226
INQJ227
INC',1223-
INOU229
INQJ23D
1COM(KC)=KCCN
IC=ICOMKC)
WRITE (6,1113) CSAT(KC)
1113 FORMAT(24HOOXYGEN SATURATION (MGL),P6.2) 1NOJ231
WRITE (6,1114) REACR(KC) INQU232
1114 FORMAT (37HCRE AERATION COEFFICIENT (1/SQ FT/DAY) ,E 10 . 3) IN"}'J233
REAER
-------
00 1117 I=lf5
1117 TITLE(I,IC)=TITLE(I,KC)
TITLE(6,1C) = 01SOXY
CS( ICMCSAHKCI
C2(IC)=CSAT(KC)
DO 1120 J=1,NJ
C(J»IC)=CSAT(KC)
IF(NCHAMJ,1).EQ.O) C(J,IC)=0,
1120
1130
MADDCJ.IC)'
CONTINUE
'CSAT(KC)
C
C
C
READ IN JUNCTION DATA
DO 102 J=l»100
READ (5,12201 JTT.CTT,CPP.CTTOX.CPPOX
1220 FORMATU5.4F10.0)
IF UTT.GT.100) GO TO 1021
C(JTT,KC)=CTT
MADD(JTT,KC1=CPP
imCGNCKO.EQ.CI GO TG 102
C(JTT,IC)=CTTCX
MADD(JT1,IC)=CPPOX
102 CONTINUE
1021 CONTINUE
C
C
C
PRINT WATER QUALITY ARRAYS
CONCENTRATIONS
-------
IfMISMCH(4).NE.l> GO TO 2290
c
c
c
c
THIS FOUR CARD
FOR BOD-DO
SEGMENT IS
229
2290
KSTART
00 229
00 229
MAOD( JtKCt
CONTINUE
KCCNO1
KC=KSTARTtKCON
MADD(JtKCi*QIN(J>
C
C
C
c
c
READ AND INITIALIZE ST3RMWATER
INPUT CONCENTRATIONS.
IF(NJSW.EQ.O) GO TO 4370
READ (N5,42801 (JSM(L ) tL-ltNJSW)
4280 FORMAT (1615)
DO 4300 K«1,KCCNO
C
C
C
READ CN5.4320I TE(Kl,,43401 JSH(L I,CE(K,L,2)
4380 FORMATI 5,10E10.4I
4360
4370
C
C
C
C
C
CONTINUE
CONTINUE
N START *
KPRT - 1
INQJ301
INQJ332
1NQU303
INOJ304
IN3U305
INQJ306
IMQJ307
1NQU308
INQJ309
INQU31D
INQU311
INQJ312
INQU313
INQJ314
READ STORMWATER JUNCTION NUMBERS INQU315
INQU316
INQJ317
INQU318
INQJ319
INQU320
INQU321
INOJ322
INQU323
IN1J324
INQU325
INQU326
INQJ327
INQU328
INQJ329
INQJ330
IN3U331
AT ,F5.2tl7H HOURS FROINUJ332
INQU333
INQJ334
INQJ335
INQU336
READ TIME AND LOADING RATE
=1,NJSH)
NQCTOT AND ISKIP ARE COUNTERS
FOR QUALITY CYCLE, JJN:TION
CONCENTRATION PRINTOJT.
NQCTOT = 1
ISKIP - 1
00 230 J-1,NJ
VOLO(JI=VCL(J»
DO 2301 KC = l.KCONO
2301 MAODlJfKC)=MADO(JiKC)*0.1857
CO 230 KC * ItKCON
CSPIN(J,KCI=KADC(J,KCI
SUMC(JtKC)=0.5*C(JfKCI
CMAX(J,KC)=0.
230 CMIN(J,KCI=C(JtKC)
39 CONTINUE
RETURN
END
INQU333
INOJ339
INQU340
INQU34I
INQU342
INQU343
IN3U344
INQU345
INQU346
INQU347
INQU343
INQU349
IN1U350
INQU351
INQJ352
INQJ3S3
INQJ356
INQU357
214
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
SUBROUTINE LOOPCL
QUALITY CYCLE LOOP
SPECIFICATION STATEMENTS
GENERAL AND CONTROL
COMMON /TAPES/ INCNT t IOUTCT tJI NdO »i JOUT (10 I
CCHMON JGW.NTC.NQCYC,DELTQ,QE.QF,ALPHA<30),TtTLSWt30).ICOLdO)
1 tISHCHdC) ,REAER(6) .DECAYC6) ,XR(6) ,XME(6) ,XMF(6) ,XMEO( 6)
2 tN5»N6tN10fN20,N30tN40,NSTARTtXRQD
JUNCTIONS
COMMON NJ,NCHAN(100,8) tQIN(100),COU(100),VOL(1COI.VOLOI 100)
1 tAS(lCO)
CHANNELS
COMMON NC,NJUNC(225,2),Q(225l,LEN(225)tU(225)
STORMWATER
COMMON NJSK,JSW(201
l,MJSH|ISW<2C)iTT(2),CT(6,20,2J,INSTM
QUALITY
COMMON KCCNfKCCNO,C2<6)tCS(6|fICON16),CSAT(6)»C(100,6)tSJMC(130
1 tCMAX(lOCt6),CMIN(10C,6),MADD(100,6>,DCDTtlOOi6),CL(6,20,2)
2 «TE( 6ltTEP( 6I,SLOPE(20),CSPIN(100,6).TITLE(6,6)tT£0(6)
PRINTING
COMCCK KCFRTtITCPRT,LQCPRT,NSTPRT,NQCTOT,ISKIP,MSTPRT,NPRT,KP*T
COMMON /ST1/ TITELC.O)
REAL MADDtLEN
IFLG=0
GO TO 190
IFdNSTM.tT.il
IFdNSTK.NE.il
N21=JIM INCNT)
1F(N21.EC.O) GO TO 190
REWIND N21
READ (N21I TITEL
WRITE (6,7093) TITEL
7093 FORKATdH,20A4)
REAOCN2H NSTEPSiMJSWtNCON
,TDELT,TZERO,TAREA
WRITE (6f 70911 NSTEPS , ^ JSW ,NCCN, TOELT, TZ ,TAREA
7091 FORMATdKO,' CATA TRANSMITTED FRO>I INPUT FILE'/
1' NUKBER OF STEPS
2« NUMBER CF INPUT POINTS
3' NUMBER OF CONSTITUENTS
*• TIME INCREMENT
5« INITIAL TIHE
I5/
I5/
F8.0.' SHCSV
F10.2,' MRS'/
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
L30P
LOOP
LOUP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
i 6) LOOP
LOOP
LOOP
LOOP
LOUP
LOOP
LOOP
LOUP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOUP
LOOP
LOOP
LOOP
LOOP
LOUP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
LOOP
1
2
3
4
5
6
7
8
9
10
11
12
13
1*
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52*
53
5'tX
55
56
57
58
59
60K
215
-------
6* TUTAL AREA =«
REAO(N21I (1SW
STED BELOW, /( 10X, lOIfO) )
READ(N2I) TT(1),(D,L=1,MJSW),«CT(K,L,1),K=1,NCON),L=1,MJSW)
TH=TT( D/3600.
WRITE(6,f5C3)
6503 FORMAT (1HC.1 LOADINGS FROM DATA
1/MIN1)
WR1TE(6,6502) TH, ( ( CT I ,K~
NINREC=2
11 = 1
12=2
TIME=TZERO
TTP=TIPE
190 CONTINUE
C
C
DO 548 ICYC=1,NCCYC
MSTPRTMCYC
C
C
C
C
REAO(NIO) NO,(Q(N)»U(N),N=1,NC)
DO 200 J=l,NJ
IFCQ1N( Jl.LT.O.t QINU)=0.
200 CONTINUE
C
C
C
C
C
IFCINSIM.EQ.OI GO TO 4470
TIKE=TIHE*DELTQ
IFCN21.EC.CI GO TO 2050
DO 2010 L=l,fUSW
J=ISW(L)
DO 2010 K=l,NCON
1 .NCONJ tt-l,MJSV/>
MAIN LOOP
L30P 60A
LOOP 61
LOOP 63
LOOP 64
LOOP 65
LOOP 67
LOOP 58
LBSLUOP 69
LOOP 70
LOOP 71
LOOP 72
LOOP 73
LOOP 75
LDOP 76
LOOP 77
L30P 78
LOOP 79
LOOP 8D
LOOP 81
LOOP 82
LOUP 83
LOOP 84
LOOP 85
LOOP 86
LOOP 37
READ HYDRAULIC INFORMATION FRO* LOUP 88
FAST DRUM(DISCI
t(VCLIJ) ,QIN(J)«QOU(J),J=1,NJ)
VARIABLE FLOW INTERPOLATION
OR AVERAGING
201.0 MADDU,K)=CSPIN(J,K)*OELTQ/.1857
WRITE (6, 6503)
2012 IFCTIME-TTtm ) 2040,2015,2015
2015 00 2020 L=1,MJSK
J=ISW
-------
2030 Tr165
LOOP16&
LOOP! oT
LOCJP168
LOOP169
LOUP170
LDOP171
LOOP172
L30P173
LDOP174
LDUP175
LOOP 176
LOOP177
LOOP 176
LOOP179
LOUP130
LDOPl^l
LOOP132
LOOP 183
217
-------
223 XMEO(KCC)>0.
226 IFUC.EC.O) GO TO 227
XHE(1CI-XMEI1C J *QOU(JGH>
XMEO(IC)=XMEOUC»*GOU(J(iWI*(C(JGW,IC)-CSAT(KCn
227 XME(KCI=XKE(KCI+QGUStKC*ABS(Q(N)I
00 250 KC=ltKCGN
250 DCDT=OCCT(J,KC)*ABS(Q(N))*(U(N)*(C(JL,KC)-C(JH,KC))/LEN(N))
260 CONTINUE
265 CONTINUE
00 270 KC=1,KCON
IF (SUMC.EQ.O.» GO TO 270
OCOT(J,KCI=(OCDT(JtKC)/SUKO)*DELTQ
270 CONTINUE
280 CONTIME
260
260
"SIGNtLENlNI/OELTQtUtNJ)
C
C
C
C
C
UPDATE CONCENTRATION AMD CHECK
DEPLETION
C
C
C
C
DO 285 J»ltNJ
IF(NCHAN(J,1).EQ.O) GO TO 285
00 284 KC-liKCCN
C(J,KC)=CU,KC»+DCDT(J,KC)
IF(C(JiKC).LT.O.) CUfKC)=0.
284 CONTINUE
285 CONTINUE
SOURCE CONTRIBUTION
DO 289 J=1,NJ
IF CVCLU) .LE. 0.0) GO TU 28«)
DO 286 KC=ltKCON
288 C(J,KCI = C(J,KCH-(KACO(J,KC)/VOL( J)I*DELTO
289 CONTINUE
LOOP184
LOOP185
LOOP186
LOOP187
LOOP 188
LOOP189
LOOP190
LDOP191
LOOP192
LOUP193
LOOP194
LOOP195
LOOP196
LOOP197
LOOP198
LOOP199
LOOP200
LOOP201
LOOP2D2
LOOI'203
LOOP204
LOOP205
LUUP 206
LOOP207
LDOP208
LOOP209
LOOP210
L30P2L1
LOOP212
LOUP213
LOOP214
LOOP215
L30P216
LOOP217
LJOP213
LOOP219
LOOI'220
L30P221
LPOP222
LUUP223
LOOP224
LOOP225
LOOP226
LOOP227
LOOP228
LOOP229
LOOP23D
LUCP231
LOOP232
LPOP233
LOOP234
LOOP235
LOOP236
L30P237
LOOP238
LiJUl'239
LOOP240
LOO ('241
LDOP242
L00?243
218
-------
c
c
c
DECAY AND REAERATION
290
295
300
IFUShCh(4).NE.l) GO TO 300
00 295 J=1,NJ
IF(NCHAMJ,1I.EC.O) GO TO 295
00 290 KC=1,KCCNO
IO1CGMKCI
IF(IC.EC.O) GO TO 290
CLOSS=C(J,KC)*DECAY(KC)
IF(CLOSS.GT.C(J,IC)) CLOSS=C
320 SUMC"( J t KC) =SUMC < J tKC) +C ( J ,KC )
IF (NCPRT.EQ.O) GO TO A500
IF (NSTPRT.LT.ITCPRT) GO TO 4500
IF (LQCPRT.LT.NCCTOT) GO TO 4500
CALL CPRINT
4500 CONTINUE
C
C
c
c
548
END QUALITY CYCLE LOOP
CONTINUE
RETURN
END
L30P244
LOOP245
LUOP246
LOOP247
LOOP248
LOOP249
LOOP250
LOOP251
LOOP252
LOOP253
LOOP254
LOOP255
LOOP256
L30P257
LOOP25B
LJOP259
LCKIP260
LOOP261
LOOP262
LOOP263
LOOP264
LOOP265
LOOP266
LOOP267
LOOP263
LOOP269
LOOP270
LOOP271
LODP272
LDOP273
LOOP27
-------
SUBROUTINE OUTPUT(NT I NTI
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
r
C
C
C
C
C
C
C
C
C
OUTPUT SUOROUTINE
HYDRODYNAMICS PRPGKAM
SPECIFICATION STATEMENTS
CONTROL
COMMON /CONTR/ N5.N6,N20.N21, NTCYC,NQCYC.NHCYC, NT.NQSWRT
IT OELTQ,OELT»T2ERO, ISWCH(IO)
GENERAL
COMMON .'-LPHAOOt f.J«NC, 1CYC.KCYC,NCYC, V.'IND .WD 1R ,LVAf>
It PRECP(5C),NEXlT
JUNCTIONS
COMMON H(100),HN(100),HT(100I,HBAR(109),HAVE(100)
1, NCHAM1CO,8),IPOIUT(100,8) ,AS(100),VUL(100),X(100), Y(100)
2» DEP(10C),COF(100),CIN(100)tQQU(100),QINST(100)
3, QINBAR(100),COUBAR(100)
CHANNELS
COMMON LEM225),NJUNC(225,2 I,B(225),R(225),A(225),ATI 225), AK(2251
It Q(225),CBAR«225I,QAVE<225), V(225),VT(2251,VBAR(225)
2, FWIKO(225;,NUMCH(225),NTEMP(81
3,NCLOS(22t>)
PRINTOUT At4D PLOTTING
COMMON NPRT,IPRT, NHPRT,JPRT(50),PRTH(30,50)
I, NQPRT,CPRT(5C),PRTV(30,50l,PRTQ(30,50)t IOUM(12),1COL(10)
2. LTIMEt NPLT,NPDELtJPLT(50),HPLT(50)
STAGE-TIME COEFFICIENTS
COMMON YY (50) ,TT(50) , AA( 10 ) ,XX (10 ) , SXX< 10 , 10) , SXY ( 10 )
ltAl,A2.A3«A4,A5.A6,A7»PER100,JGW
STORMHATER
COMKQN TITLE(30),NJSH,QE(20,2),JSW(20)
2t RA1NI ICOt INTIME< 100) t INRAIN, JBJUNO(20) , J JBOUN
TAPES
COMMON /TAPES/ 1NCNT , IOUTCT , JI N( 10) , JOUT ( 10) .NSCRAT ( 5 )
N /LAB/ TITL(lfl) ,XLAB( 1 1 ) , YLAB (6 ) ,HUR 1 1 ( 20) ,VERT ( 7, fr I , I T
COMKafv/PLCT/T(5),N£(5),AX.(101,50),AY(10l,50),NPT(5C)
IF(MTlNT.EC.l) GO TO 210
READ(5,1C21 TITL
READ(5,1C2) HORI2
IT=1
REAO(5,IC2)
102 FORMAT ( 20 A4)
Rfc TURN
210 CONTINUE
OUTP
OUTP
DUTP
UUTP
OUTP
OUT?
DUTP
DUTP
OUTP
OUTP
OUTP
JUTP
DUTP
OUTP
DUTP
OUTP
UUTP
DUTP
OUTP
JUTP
DUTP
JUTP
DUTP
OUTP
DUTP
DUTP
OUTP
OUTP
OUTP
DUTP
OUTP
JUTP
3UTP
OUTP
OUTP
OUTP
OUTP
DUTP
OUTP
OUTP
OUTP
OUTt>
OUTP
OUTP
OUTP
OUTP
OUTP
UUT?
DUTP
OUTP
OUT P
nUTt>
JUTP
DUTP
OUT !•
DUTP
OUTP
OUTP
DUTP
OUTP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
IB
19
20
21
22
23
24
25
26
27
23
29
3D
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
SIX
52
53
5
-------
OUMMY=O.
TMAX-ICOCC.
N22 = JCLT(IOUTCT)
HRITE4N22I TMAX, < DUMMY, J= l.NPLT )
N=0
REWIND N22
220 N=N+1
IF («>» .GT. I0l» GO TO 225
REAO AX(N,n,(AY(N,J),J = l
IFUXCNt D.LT.1000.J GO TO 220
225 CONTINUE
NCURVE=N-1
NPTM=0
N-0
240 N=N*1
NDC=N
250 IF( JPLT(NOC).GE.OI GO TO 270
NOC=NDC+1
GO TO 250
27C CONTINUE
00 290 J*N,NDC
NPT(Kl=NCURVE
00 290 I=ltNCURVE
AYdtK)-AY(ItJ)
290 CONTINUE
NX=NOC-N*1
NPTN=NPTN+1
CALL*CURVE(AXtAY,NPT,NXfNPTN>
DO 300 J=N,NDC
K=J-K+1
NPT(K)=I*BS(JPLT(J) >
30C CONTINUE
WRITE(6,50) (NPT(K) ,K=1,NX)
50 FGRMATClHOf4CX,20H PLUT LEGEND ,
X,I5,4H =
N=NOC
IF(M.LT.NPLT)
RETURN
END
GO TO 240
OUTP 60
OUTP 61
3UTP 62
3UTP 63
OUTP 64
OUTP b
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
SUBROUTINE PRTOUT
PRINTING OUTPUT ROUTINE
HYDRODYNAMICS PROGRAM
SPECIFICATION STATEMENTS
CONTROL
COMMON /CCNTR/ N5,N6,N20,N21, NTCYC.NQCYC.NHCYC , NT.MQSWRT
It DELTCiDELT.TZERO, ISWCHUO)
GENERAL
COMMON ALPHAOOI, NJ,NC( ICYCtKCYC.NCYCf WIND tWDI R.EVAP
It PRECP(50)tNEXIT
JUNCTIONS
COMMON H(100), HN< 100) ,HT( 100), HBAR< 100), HAVE (100)
1, NCHAMlCOt8)»IPOINT(100»8» t ASC 100 ) , VUL < 100 1 , X( 100) , Y< 100 »
2, OEP( 100) tCOFt 100) , CIN( 100) , COU( 100) ,QINST( 1001
3, QINBAR(IOO) tCOUBARUOO)
CHANNELS
COMMON LEN< 225 ) tN JUNC (225 ,2 )t 8(2251 , R(225) , A( 225) , AT ( 225 ) , AK ( 225 )
It 0(225), QBAR(225),CAVE<225), V(225 ) , VT< 225 ) , VBAR ( 225)
2t FHIMD(225) ,NUKCH(225) ,NTEMP(8>
3,NCLCS(225)
PRINTOUT AND PLOTTING
COMMON • NPRTtlPRT. NHPRT , JPRT(50) ,PRTH(30,50)
.'., NGPRTtCFRT(50),PRTV(30,50),PRTQ(30,50), IDUMC12 I , ICOL (10)
2t LTIKEt KPLT»NPDEL,JPLT(50I»HPLT(50)
STAGE-TIME COEFFICIENTS
COMMON YY(50) ,TT{50) , AA( 10) , XX( 10) ,SXX( 10,10) , SXY( 10 )
1,A1,A2,A3,A4,A5,A6,A7,PERIOD,JGW
STORM WATER
COMMON T1TLE(30),NJSW,QE(20,2) ,JSW(20)
2* RAIN(100)»INTIME(100),INRAIN,JBO'JND(20)t JJBOUN
TAPES
COMMON /TAPES/ INCNTt IOUTCT , J IN( 10) > JOUTt 10) , NSCRAT ( 5)
TYPE DESIGNATIONS
INTEGER CPRT
REAL LEN
100 FORMAT(1H115A4,20X,31HWATER RESOURCES ENGINEERS, IMC./1H 15A4.20X,
PRTO 1
PRTO 2
PRTO 3
PRTO 4
PRTO 5
PRTU 6
PRTD 7
PRTO 8
PRTJ 9
PRTO 10
PRTO 11
»RT3 12
PRTO 13
PRTD 14
PRTD 15
PRTO 16
P*TU 17
PRTO IB
PRTJ 19
PRTO 20
PRTO 21
'RTO 22
PRTO 23
PRTD 2*
PRT3 25
PRTO 26
PRTD 27
'
-------
IS, 14)
WRITE 16,100) ALPHA
WRITE (N6,102) TITLE
FORMAT(1HO,30A4)
WRITE (N6,104) NT
FORMAT <7HCDAY
WRITE (6,106)
FORMAT (125HO
1H 1 S T C R Y
2* * *)
WRITE(6,1C8)
1 JPRT(I*5)
108 FORMAT (1HO,23X,9H JUNCTION,15,13H
102
104
106
STAGE
**********
t *
* *
JPRT(I»,JPRT(H-l),JPRT(H-2),JPRTt I +3), JPRTt I +4 ),
JUNCTION, 15, 13H
PRTO
PRTO
PRTD
PRTO
PRTJ
PRTO
PRTtl
PRT3
PRTO
PRTU
PRTO
JUNCTIOPRTO
TIME
<--*** *
1N,I5,13H JUNCTION,15,13H
2,15/12!- Knif.,! "MOTH ''r
3EAD(FEET) HEADJFEETI
T*TZERC-CELT*FLOAT(NHCYC)
LT=MINO< t+5,KHPRT)
DO 220 L=1,LTIME
T=T+DELT*FLOAT(NHCYC)
HOUR=I/36CC.
220 WRITfc(6,110l HOUR.(PRTML.K),K=
110 FORMAT(1H ,F10.2,8X,F 14.4,5F18.
C
C
C
ANC VELOCITY
00 240 1=1.NQPRT,6
WRITE (6,1001 ALPHA
WRITE (N6.102) TITLE
WRITE (N6.104) NT
WRITE (6,112)
112 FORMAT (125HO * * *
1 Y OF F L C
2* * *)
00 230 IC-1,6
JC=i-l+IC
NX=CPRT(JC)
IF(JC.GT.NCPRT) NX=CPRT(NQPRTI
IOUM{2*IC-1)= IABS(NJUNC(NX,1)»
IDUM(2*1C) = UBS(NJUNC(NX,2)»
230 CONTINUE
WRIT£(6,114) (JCUH(1C ),IC=lt12)
114 FORMAT(1HO,18X,6(10H CHANNEL,I 3,I4I/
2,6X,114H HOUR FLOW VEL.
3 VEL. FLOW VEL. FLOW VEL.
4 ,97H (CFS) (FPS) (CFS) (FPS)
5S) (CFS) (FPS) (CFS) (FPS),/)
T=TZERO-CELT*FLOAT(NHCYC)
JUNCTION,15,13H JUNCTION PRTO
ADirrrT, HF.AOlFEtTI hPRTO
HEAO(FEET) HEAD(FEET)/) PRTD
PRTH
PRTO
PRTD
PRTO
PRTJ
I.LT) PRT3
*) PRTO
»RT3
PRTO
PRTCJ
PRTO
PRTO
PRTO
PRTO
PRTD
RPRTO
PRINT FLOWS AND VELOCITIES
* *
* *
H I S T 0
******
61
62
63
65
66
67
68
69
70
71
72
73
Tt
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
96A
97
98
99
FLOW VEL. FLOW
FLOW VEL.,/,24X
(CFS) (FPS) (CFS)
DO 2n3 L=1,LTIME
T=T*OELT*FLOAT(NHCYC)
HOUR=T/360C.
240 WRITE(6,116) HOUR,(PRTCHL,K),PRTV(L,K),K=I,LT)
116 FORMAT (1H ,F10.2,8X,6(F10.0,T7.2)»
IF (NEXIT.EQ.l) STOP 3333
00 260 I = l.NHPRT
PRTHd, I) = PRTMLTIME,!)
260>CONTINUE
DO 280 I = 1,NQPRT
PRTUtl.I) = PRTO(LTIME.I)
PRTVd.I) --• PRTV(LTIHE,I)
PRTO
PRK)
PRTO
PRTO
PRTO
PRTO
PRTJ
PRTO
PRTU
PRT0100
PRTP101
PRT3102
PRT0103
(FPPRTUIO^
PRTiUOS
PRTD106
PRKJ107
PRT0103
PRT0109
PRT0110
PRT0111
PRT0113X
PRTOll'.
PRTUL15
PRTiH16
PRT3117
PRT011B
PRT0119
223
-------
280 CONTINUE PRT0120
NTINT=1 PRT0121
CALL OITPUT(NTINT) PFUU122
IFJNJSh.GT.O) PRT0123
lHRlTE(Ne,lie» (JSW(L> ,L = ltNJSWJ PRTDIZ^
118 FORMAT(33hlHYDROGHAPH INPUT NODES TO SYSTEM,//(6X,LOI10)) PRTD125
RETURN PHTU126
END PRT3127
224
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
SUBROUTINE CPRINT
PRINT ROUTINE FOR QUALITY
CYCLE OUTPUT.
SPECIFICATION STATEMENTS
GENERAL AND CONTROL
CCMMON JGW,NTC,NQCYC,DELTQ,QE,QF,ALPHA<30),TITLSW(30»,ICDL{
1 tlSWCHdC) ,REAER(6) , DEC AY (6) ,XR(6 ) , XME ( 6 ) , XMF ( 6) , XMEU ( 6)
2 tN5,N6,MO,N20,N30,N40,.MSTART,XRQD
JUNCTIONS
COMMON K J , NCHA.N (100,8 > t QI N( 100 »,QJU( 100 If VOL ( ICO) i VOL 0< 100)
1 »AS< ICC)
CHANNELS
COMMON NC,NJUNC(225,2),Q(225),LEN<2251,U<225)
STORMWATER
COMMON NJSW,JSW(20)
l,MJSHrISM20l,TT(2),CT<6,20,2), INSTM
QUALITY
COMMON KCCN,KCONO,C2(6) ,CS( 6 ) , 1CONC6) t/CSAT (6) ,C( 100,6) tSJMC
1 ,CMAX(10G,6),CKIN(100,6) ,MADD( 100, 6) ,OCDT ( 100,6 ) ,CE( 6, 20 , 2
2 ,TE( 6),TEP{ 6),SLUPE(20),CSPI.«H100,6l,TITLE(f>,6) ,TEO(6>
PRINTING
COMMON KCPRT, ITCPRT.LQCPRT, NSTPRT,NQCTOT, ISKIP, MSTPRT, NPRT,
REAL MACC
IF (ISKIF.NE.NQPRT) GO TO 5020
NQCTOT = NCCTCT + 1
4100 FORrtAT(lh015A4,15A4)
WRITEtNo, 101) ALPHA
WRITE (N6,4100) TITLSW
101 FORMAT(1H115A4,36X,32H FWQA STORMHATER MODEL /
1 U* 15A4,36X,25H /
2 1H 96X.28H RECEIVING WATER QUALITY //)
HRITE(N6,32l) NSTPRT, KSTfRT
OPRI
QPRI
QPRI
QPRI
QPRI
QPSI
QPRI
QPRI
QPRI
3PRI
10) QPRI
3PKI
3PRI
QPRI
QPRI
QPRI
3PRI
QPRI
QPRI
QPRI
QPRI
3PRI
QPRI
QPRI
QPRI
QPRI
QPRI
QPRI
QPRI
QPRI
<100,6)QPfU
) QPPI
3PRI
QPRI
QPRI
QPRI
KPRT 3PR1
QPRI
QPRI
QPRI
QPRI
QPRI
QPRI
QPRI
QPRI
QPPI
QPRI
QPftI
QPRI
321 FORMAT(43HOJUNCUCN CONCENTRATIONS, DURING TIME CYCLE, I4.15H .QUALQPR1
1ITY CYCLE, IA//)
DO 322 KC=1,KCON
WRITE(N6,325) KC, (T ITL!?< I I ,KC) , I 1 = 1 ,6 ) , ICOL
325 FORMAT! //15X»20h CUN STiTUtNT NUMBER, I 3 , C.A4/9X, 101 1 0/12H
ION)
00 110 I=l,NJ,10
L=MINO( 1+9, NJ)
110 WRITE(N6,H1) I,Lt
-------
ISKIP = l OPRI
00 T° 501°
5020 CONTINUE
ISKIP = ISKIP * J
501.0 CONTINUE
RETURN
END
^^ QPRI 67
226
-------
SUBROUTINE RECEIV *ECE 1
COMMON /TAPES/ INCNT, IOUTCT, JIN( 10) , JOUT( 10 I , NSCRAT < 5) RECE 2
DIMENSION CUAN(2),QUAL<2I,ANAME(4) *PCE 3
DATA QUAN/4hQUAN,4riTITY/ *ECE 4
DATA CUAL/4HQUAL,4HITY / *ECE 5
N5=5 *ECE 6
N6=6 HECE 7
IMCNTMNCNT+1 ^ECE 8
READ (N5,1CO» (ANAME( I),1 = 1,4) *ECE 9
100 FORMAT K/»
-------
SUBROUTINE SWFLGW
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
HYDRODYNAMICS PROGRAM
TIDAL OPTION
SPECIFICATION STATEMENTS
CONTROL
COMMON /CCNTR/ K5,N6,N20,N21, NTCYC.NQCYC,NHCYC, NT.NQSWRT
1, DELTCfCELT.TZEKO, ISWCH(IO)
GENERAL
COMMON «LPhA(3C), NJ,NC, ICYCfKCYCtNCYC, WIND,WDIR, F.VAP
It PRECP(50),NEXIT
JUNCTIONS
COMMON H(100)thN(100)fHT(100),HBARllOO),HAVE<100)
It NCHAMlOOtO) tIPUINTUOO,8),AS(lOO),VOL(100),X(100)tY(100)
2t OEP( 100),CUFUCO)»QIN( 100) ,QOU( 100) ,QINST(100»
3. QINBAP(IOO)tCOUBAR(lOO)
CHANNELS
COMMON LEN<225),NJUNC(225,21,6(225),R(225),A(225), AT(225) , AK(225)
It 0(225),QBAR(225)tCAVE(225), V(225),VT(225),VBAR{225)
2t FWIN01225),NUMCH(225I,NTEMP(8)
3,NCLOS(225)
PRINTOUT AND PLOTTING
COMMON NPRT.IPRT, NHPRT»JPRT(50),PRTH(30,50I
1. NQPRT»CPRT(50),PRTVI30,50),PRTQ(30,50), IDUM(12), I COL(10)
2t LTIKEt NPLT,NPDELtJPLT(50»rHPLT(501
STAGE-TIME COEFFICIENTS
COMMON YY(50) ,TT(50) ,AA(10),XX(10),SXX(10,10),SXY(10)
1,A1.A2,A3,AA,A5,A6,A7,PERIOD,JGH
STORMWATER
COMMON TITLE(30),NJSW,CE(20,2),JSW(20)
2, RAIN(100),INTIME(100),INRAIN,JBOUND(20),JJBOUN
TAPES
COMMON /TAPES/ INCNT, IOUTCT,J1N(10),JOUTl10),NSCRAT<5)
CCMHON/ST2/ TITEL2(40)
DIMENSION ENDER12I
CCKMJN QT(20,2)tISW(20)
DATA ENDER / 4HENDQ, ^HUANT /
SWFL
SWFL
SHFL
SWFL
SWFL
SWFl
SWFL
SWFL
SHFL
SWFL 10
SHFL 11
SHFL 12
SHFL 13
SWFL 14
SWFL 15
SWFL 16
SWFL 17
SWFL IB
SWFL 19
SHFL 20
SWFL 21
SWFL 22
SWFL 23
SWFL 24
SWFL 25
SWFL 26
SHFL 27
SHFL 28
SHFL 29
SHFL 30
SHFL 31
SWFL 32
SWFL 33
SWFL 34
SKFL 35
SWFL 36
SHFL 37
SKFL 38
SWFL 39
TYPE DESIGNATIONS
INTEGER CPRT
RLAL LENtlNTIME
SWFL 41
SHFL 42
S.VFL 43
SWFL 44
SHFL 45
SWFL 46
SWFL 47
SKFL 48
SWFL 49
SWFL 50
SWFL 51
SKFL 52
SWFL 53
SWFL 54
SHTL 55
SWPL 56
SWFL 57
SHFL 58
SKFL 59
SWFL 60
228
-------
c
c
INITIALIZATION
204
205
209
210
C
C
C
C
C
C
C
N20 = NSCRATU)
NEXIT=0
DO 205 1=1,100
DEPiI)=0.0
AS(J)=C.
QINd )=0.
QUUUI=0.
DO 204 J = l,8
IPOINT(ItJ)=0
NCHAN = C.O
NSTEPS = 0
MJSH
NQUAL
TOELT
KEIR1
HEIR2
WEIK3
A2
A3
IF (NPLT.GT.C)
DO 220 1=1,10
CALL OUTPUT(NTINT)
220
1,20
0
= C.O
= C.C
= C.O
= 0.0
DO 222 1 =
ISW(I) =
QT ( I , 11
QTU.2)
CE(I.l)
222 QE(I,2)
TE = 0.
TEP=0.
DELT2=CELT/2.0
TZE«0=TZERO*36CO.O
W=6.2832/(3600.*PER10D)
EVAP=EVAP/(12.*30.*86400.
TOLO=0.
KRAIN=1
PREC = 0.0
SKFL 61
SWFL 62
SWFL 63
SWFL 64
SWFL 65
SWFL 66
SWFL 67
SWFL 58
SWFL 69
SWFL 73
SWFL 71
SWFL 72
SWFL 73
SWFL 74
SWFL 75
SWFL 76
SWFL 77
SWFL 78
SWFL 79
SWFL 60
SWFL 81
SWFL 82
SWFL 83
SWFL 84
SWFL 85
SWFL 86
SWFL 87
SWFL 83
SWFL 89
SWFL 90
SWFL 91
SWFL 92
SWFL 93
SWFL 94
SWFL 95
SWFL 96
SWFL 77
SWFL 98
SWFL 99
SWFL100
SWFL101
SWFL102
SWFL103
SWFL104
SWFL105
SWFL106
SWFL107
SWFL10B
SWFL109
SWFL110
SrfFLlll
SWFL112
SWFL113
SWFL1U
SWFL115
SWFL116
SWFL117
229
-------
223
224
225
C
c
C
c
7097
7091
7092
230
ICO
102
235
C
C
C
C
T^TZERC
00 224 I = l.NHPRT
MJPRT * JPRTdl
PRTH (1,11 = HCFJPRTI
CONTINUE
00 225 I * l.NCPRT
MCPRT - CPRT(l)
PRTJU.I) = Q(MCPRT)
PRTVUtI) = V(MCPKT)
CONTINUE
READING OF INITIAL HYOHOGRAPH
INFORMATION FROM INTERFACING
IF(N2l.E(;.CI
REWIND ft21
READ (fv21»
WRITE
READ(N21) (ISWm ,L=1,MJSW)
WRITEC6,70921 (JSW{L),L=L,NJSW)
REAO(N5,104> TE,(QE(L ,2J,L=1,NJSW)
WRITEIN6fI02» =32.l739*A«(NJ**2/2.208196
NL=NJUNC(Ntl)
NH=NJUKC
R(N)=RtN)*(H(NL)*H{NH))/2.
SWFL135
SHFL137
SWF LI 38
SHFLl^O
SWFLl^l
SWFLU2
SWFLU3
SWFLl^V
SWFL145
SWFL146
SWFL1<*7
SWFLl^S
SKFL150
SWFL151
SWFL152
SWFL153
SWFL155
SWFL156
SWFL157
SWFL153
SWFL158A
SWFL159
SWFL1&D
SWFL160A
SWFL161
SWFL162
SWFL163
SKFL165
SWFL165
SrfFL167
SWFL168
230
-------
A(N)-B(NI*R(N) SWFL17D
IF (HIKD.LE.O.OJ GO TO 270 SWFL171
FHIND(NI-=-WIND**2*COS(hDIR/57.-ATAN2((X(NHJ-X(NLI»f )
HPLT(J»=HUI
HUUR=TZERU/3600.
HRITEU22) HCURi (HPLT(J) ,J*l,NPLTJ
NPTOT*!
CONTINUE
LTIME - I
00 1240 NQ=1.NQCYC
SWFL173
START OF QUALITY DO LOOP
INITIALIZATION UF ARRAYS USED
FOR HYDRAULIC OUTPUT TO BE USED
BY THE SWQUAL SUBROUTINE
IF (NT.LT.NQSWRT)
DO 360 N-ltNC
VBAR(N)*0.
QBAR(NI=0.
DU 370 J=ltNJ
HBAR(J)=C.
QINf)AR(J)=0.
QOU3AR(J)=0.
GO TO 380
SWFL175
SWFL176
SWFL177
SWFL178
SWFL179
SWFL180
SWFL131
SWFL182
SWFL183
SWFL184
SWFL185
SHFL136.
SWFL187
SWFL188
SWFL189
SWFL190
SWFL191
SWFL192
SWFL193
SWFL195
SWFL19S
SWFL197
SWFL198
SWFL199
SWFL200
SWFL2D1
SWFL202
SWFL203
SWFL20't
SWFL205
SWFL207
SWFL 208
SWFL209
SWFL210
SWFL211
SWFL212
SWFL213
SWFL21S
SWFL216
SWFL21T
S rlt- i 2 1 8
SWFL219
SWFL220
SWFL221
SWFL222
SWFL22-.
SWFL225
SWFL226
SWFL227
SWFL 228
SWFL229
231
-------
370 CONTINUE
380 CONTINUE
C
C START OF HYDRAULIC DO LUG*,
C INNERMOST 00 LOOP OF 3 NESTED
C DO LOOPS
C
DO 10-40 NHH=1,NHCYC
IF(NT.LE.NQSHRT) GO TO 520
TIME=TINE+DELT
C
C PRECIPITATION COMPUTATIONS FOR
C EACH TIME STEP
C
PREC=0.
390 IF(KRAIN-INRAIN) 395,410,410
395 IF{TIME-INTIME(KRAIN+1H 405,400,400
400 PREC=PREC*RAIN(KRAIN)*(lNTim:(KRAIN + U-TOLD)/(12.*3600. »
KRAIN=KRAIh+l
TOID=INTIME(KRAIN)
GO TO 390
405 PREC=(PREC*RAIN(KRAIN)*(TIME-TOLD)/(12.*3600.) I/DELT
TOLO=TIKE
410 CONTINUE
IF(N21.EC.O» GO TO 445
DO 418 L=1,MJSW
J=ISW(L)
418 QIN(J)=CINST(J»*DELT
420 IF(TIME-TT(I2H 435f425,425
425 00 43C L=l,MJSfc
J=ISW(L»
430 QIN(J) = CIMJ)+QT*(TT(I21-TTPI
TTP=TT(I2»
ITEMP=I2
12=11
I1=ITEPP
IFCNIrtREC-KSTEPS) 431 ,432,432
431 R£AO(N21) TT ( I 2» , (QT( L 1 1 2 ) , L = l, MJSW)
NINREC=MNREC*1
7C93 FORMAT(FlC.l»6F15,2)
WR1TE(6,7094) TTt 12 » , (QT { L, 12 I , L=l ,MJSW) rNINREC
7094 FORrtAT(F10.1»F10. 1,110)
GO TO 420
432 TTU2) = 1CCOOOO.
00 433 'L=1,HJSW
433 QT(L, 121-0.
GO TO 420
435 DO 440 L=1,MJSW
J=ISW(L)
440 QlN(J» = (QIK(J»-»-QT{L,l 1 » + ( TI ME-TTP) I/DELT
TTP = TI*-E
445 CONTINLE
IF(NJSW.F.Q.O) GC TO 520
C
SWFL230
SWFL231
SWFL232
SWFL233
SWFL234
SWFL235
SWFL236
SWFL237
SWFL238
SWFL239
SWFL240
SWFL241
SWFL242
SWFL243
SWFL244
SKFL245
SWFL246
SWFL247
SWFL248
SWFL249
SWFL250
SWFL251
SWFL252
SWFL253
SWFL254
SWFL255
SKFL256
SWFL257
SWFL253
SWFL259
SWFL260
SWFL261
SKFL262
SWFL263
SHFL264
SWFL265
SHFL266
SWFL267
SWFL269
SWFL273
SWFL271
SWFL272
SWFL273
SWFL274
SWFL275
SWFL276
SWrl.277
SWFL278
SWFL279
SWFL280
SWFL281
SWFL2H2
SHFL283
SWFL284
C KUAO HYOROGKAPH INPUT 3R AVERAGESWFL235
C OR INTERPOLATE FUR TIME STE3
C
IF(TIME.LE.TE) GO TO 480
TEO=TE
DO 460 L=l,NJSW
SWFL266
SWFL237
SWFL28B
SWFL289
SWFL290
232
-------
460 QE{Ltl»=CE(L,2)
C
C
C
C
C
C
C
C
C
C
READ HYDROGRAPHS
C
C
C
READ (N5t104l TE,(QE(JJ,2J,JJ=l,NJSWI
104 FORMAT (8F10.0J
470 CONTINUE
TEP=TE/3600.
WRITE(N6.1C6) TEP,(QE(L,2>,L=l,NJSWI
106 FORMAT** -F7.2»IOFIO.\/(8X,10F10.1))
INTERPOLATE HYDROGRAPH
'.EO
C
C
C
DO 500 l_-l,KJ$W
J=JSW(L)
SLOP£==UKSTU»+QE(L.mSLUPE*( TIME-TED J
520 CONTINUE
INITIALIZATION
T2=T+OELT2
T=T+DELT
DO 525 N=ltNC
NCLOS(N»=0
DO 525 Ml, 2
525
DO 530 J=ltNJ
AS( J)=ABS(AS( J) )
00 530 KMt8
530 NCHAN( J, K J=l ABS (NCHAN { J,K ))
NTIMS=0
COMPUTATIONS OF VELOCITIES AT
HALF TIME STEP, AND FLOWS AT
QUARTER TIME STEP
540 CONTINUE
NDRY=0
NTIMS=NTIMS+1
DO 580 K=1,NC
IF(NJUNC(K,1).LE.O)GO TO 580
SWFL291
SWFL292
SWFL293
IF(R(NJ.GT.O.U GO TO 560
VT(N)=C.O
Q(N)-0.0
GO TO 5flO
560 CONTINUE
NH=NJUNC(N»2)
DELV2=V(N»*( l.-AT(N)/A(N) )
1 +OELT2*«V(NJ**2*B(NI/A(N) »-32. 17391 *< H(MHI-H( NLJ
2+FWlND(NJ/R(M*DELT2
V2=V<^MCELV2
TEMP=DELT?*AK(N)/R(N)**1. 3333333
DELV1=0.5*(( l./TEMP+2.*AB$(V21 »-
lSQRT((l./TCMr'+ABS(2.*V2))**2-4.*V2*<'2l)
DELV1=-SIGN(OELVI,V2I
SWFL295
SWFL296
SWFL297
SWFL293
SWFL299
SWFL300
SWFL301
SWFL302
SWFL3D3
SVJFL3Q4
SWFL305
SWFL306
SWFL307
SWFL30S
SWFL309
SWFL310
SWFL311
SHFL312
SWFL313
SWFL314
SWFL315
SWFL316
SWFL317
SWFL318
SWFL319
SWFL320
SKFL321
SWFL 322
SWFL323
SWFL324
SWFL325
SWFL326
SWFL327
SWFL323
SWFL329
SWFL330
SWFL331
SWFL332
SWFL333
DRY CHANNEL CHECK (UNDER 0.1 FT)SWFL334
SWFL335
SWFL336
SWFL337
SWFL338
SWFL339
SWFL340
SWFL341
SWFL343
SWFL34&
5WFL346
SWFL347
SWFL348
SWFL349
SHFL350
233
-------
580
C
C
C
C
VTCN)=V(M*DELVH-OELV2
Q(NI=VT(N)*A(N»
CONTINUE
DO 660 J-ltNJ
SUMQ*0.
DO 620 K=l,8
IFINCHAM J,K).LE.O) GO TO 620
N*NCHAMJfKI
1F(J.NE.KJUNC(N,1))GO TO 600
COMPUTATION OF NODAL STAGE AT
HALF TIME STEP
60 TO 62C
600 SUMQ=SUKC-C(N)
620 CONTINUE
640
645
650
655
660
IFUSUKLE.O.) GO TO 660
SUMU=COU(J)-Q1N(JH-(EVAP-PRECI*AS(J»+SUMQ
IF (J.EC.JGW.ANO.ISVJCHUI .NE.l) GO TO 650
HT( J1=H(J)-OELT2*SUMQ/AS( J)
IF(HT(J)+DEP{J).GT.O. J GO TO 660
HT(JI=-OEP(J)
VOL(JI=0.
AS(J)=-AS(J)
00 645 K-1,8
NX=NCHAMJ,K)
IF(NX.LE.O) GO TO 645
NCLOS(KX)-!
CONTINUE
NDRY=NDPY+l
6O TO 66C
CONTINUE
DELHH=0.
DO 655 ICT=1,3
DELHH=DELT2/A$(J)*{-SUMQ-WEIRl*(H(JGW)-WEIR2*DELHH/2.)**rfEIR3l
CONTINUE
HT(J)=KJ)*DELHH
CONTINUE
IF(NDRY.EQ.OI GO TO 675
IF(NTI»'S.GT.2I GO TO 675
DO 670 K=l,NC
IF(NJUNC(Ntl>.LE.O) GO TO 670
IF5
SWFL366
SWFL367
SWFL363
SWFL36Q
SWFL37D
SWFL370T
SWFL371
SWFL372
SWFL373
SWFL374
SWFL375
SWFL376
SWFL377
SWFL378
SWFL379
SWFL380
SWFL331
C
C
SWFL382
SWFL3S3
SWFL384
SKFL385
SHFL386
SKFL3S7
SHFL38B
SWFL389
SWFL39D
SWFL391
SWFL392
SWFL393
SWFL394
SWFL395
SWFL396
SKFL397T
SViFL399
SWCL399
SWfL'OO
SWFL^Ol
BOUNDARY STAGE CONDITION AT
234
-------
c
c
676
IF (ISkCMl).NE.l) GO TO 676
HT(JGW)=A1*A2*SIN(K*T2)+A3*SIN(2,
L *A5*COS(W*T2)«-A6*COS<2.
CONTINUE
HALF TIME STEP
*W*T2H-A4*SIN( 3,
*W*T2J*-A7*COS(3.
*W*T2)
*W*T2>
SWFL403
SWFL404
SWFL4D4T
SWFL405
C
C
C
C
C
C
C
C
C
COMPUTATION OF CHANNEL CROSS-
SECTIONAL AREAS AT HALF TIME
STEPi FLOWS AT HALF TIME STEP,
AND VELOCITIES AT FULL TIME
00 740 M=1,NC
IF(NJUNC(r;»l!.LE.O)GO TO 74C
NL=NJUNC(K,H
NH=NJUKC(fv,2)
DELH=0.5*-
iSQRT((l./TEMP*2.*ABS(V2))**2-4.*V2**2) I
DELVl=-SIGN(DELVltV2>
VCN)=V(NHCELVl + OELV2
CHANNEL FLOWS SUMMED
7CC CONTINUE
IF (NT.LT.KCSWRT) GO TO 720
QBAR(N)=CBAR(N)+Q(N>
VBAR(N)=VBAR(N>+V(NJ
720 CONTINUE
C
C
C
EXCESSIVE VELOCITY CHE2K
IF(ABS(V(N)).LE.20.0IGO TO 740
WRITE(6f1C8) ^T,NC,NHHfR d\) tV(N)fN
108 FORMATCO V OVER 20 FPS, TIOAL CYCLE'tI4,« QUAL CYCLE1,
iCYCLE1 114,* DEPTH*,E10.4,« V'tElO.4,' CHANNEL',I 5>
NfcXlT=l
740 CONTINUE
IF (NEXIT.EQ.lt GO TO 1260
HYDRO
C
C
C
C
COMPUTATION OF
VOLUME AT FULL
NODAL STAGL
TIKE STEP
SWFL422
SWFL423
SWFL424
SKFL425
SWFL426
SWFL423
SWF 1429
SWFt.430
SWFL431
SWFL432
SWFL433
SWFL434
SWFL435
SWFL43f.
SKFL437
SWFL433
S-JFL439
ShFL440
SWFL441
SWFL442
SWFL444
SWFL445
SWFL446
SWFL447
SWFL448
SWFL449
SWFL450
SWFL451
SWFL453
SWFL454
SWFL455
SWFL45b
SU'Fl 457
760 DO 900 J*ltNJ
SWFL459
SWFL460
2 as
-------
SUMQ=0 .
HN(JI=-DEP(JI
IFIAS(J).LE.O.) GO TO 900
DO BCD K=l,8
IF(NCHAMJ.K).LE.O) GO TO 800
N*NCHAN(JtK)
IFU.NE.NJUNC(N,1) JGO TO 780
60 TO 800
780 SUM(}=SL'KC-C(N»
800 COUTINUE
IFU.NE.JGW) GO TO 820
IF (ISWCHm.NE.U GO TO 802
802
808
814
815
c
c
c
c
820
1 +A5*CCS(W*T )+A6*COS(2.*W*T)+A7*COS(3.*W*T)
GO TO 814
CONTINUE
OELHH=OELHH*2.
00 808 ICT=l,3
DELHH=OELT/ASNC
IF(NJUNC(N,1).EQ.O)
NL=IAOS(KJLNC)
NHMABS(tvJUNCOB
SWFLf.09
SHFL510
SWFL511
236
-------
980
OELH=0.5*(HN CNH J-H(NH » +HN(NL)-H(NL))
R(N)=R(NI*CELH
A(N)=A(M*B(N)*DELH
dONTINLE
C
C
C
NODAL STAGE ARRAYS SHIFTFD
IOOC 00 1020 J=1,NJ
1020 HU)=HN(J)
IF(NT.LT.NQSWRT» GO TO 1040
IFJNPTOT.NE.NPDEL1 GO TO 1030
DO 1025 J=1,NPLT
I=IA*S(JPLT(J))
1025 HPLT{J)=H»!)
HOUR=HCUR+DELT/3600.*NPDEL
HRITEIN22* HOUR,(HPLTtJ),J=l,NPLT)
NPTOT=0
1010 NPTGT=NPTOT*1
C
C
C
C
]
C
C
C
C
1040 CONTINUE
END OF HYDRAULIC OR INNER DD
LOOP
AVERAGING OF FLOWS AND
VELOCITIES
IF (NT.LT.NCSWRT) GO TO 1100
DO 1060 N=ltNC
IF(NJUNC(N,1).LE.O) GO TO 1060
QBAR(N)=CBAR(N)/FLOAT(NHCYCI
VBAR(N)=VBAR/FLOAT(NBCYCI
QAVE(NJ=GAVE(N)+OBAR(N)/FLUAT(NOCYC)
1060 CONTINUE
00 1080 J-l.NJ
QINBAR(J)=QINBAR(J)/FLOAT(NHCYC »
QOUBAR(J J =QCUBAR(J)/F LOAT(NHCYC >
HBAR(J)=HBAR(J»/FLOAT (iMHCYC)
IF(QIN8AR(JJ.EQ.O.) GOTO 1080
IF(QOUB/!R(J).EO.O.) GOTO 1080
QINBAR(J)=QIKBAR(J)-QCUBAR(JJ
QOUBAR(J)=0.
IF(giNBAR(J).GT.O.I GO TO 1080
OOU6AR(J)=-QINB/SR(J)
QIN8AR(J>=0.
1080 CONTINUE
SWFL512
SWFL513
SWFL51*
SWFL51&
SWFL516
SWFf517
SWFL518
SWFL619
SWFL520
Sr(FL521
SWFL522
SWFL523
SWFL524
SWFL525
SWFL526
SWFL527
SWFL520
SWFL529
SWF1.530
SWFL531
SWFL532
SWFL533
SWFL534
SWFL535
SWFL536
SWFL537
SWFL533
SWFL539
SWFL54D
SHFL541
SWFL542
SWFL543
SWFL544
SWFL545
SWFL5
-------
c
c
c
PRTH (1,11 a HfMJPRTI
1140 CONTINUE
00 116C I = l.NQPRT
MCPRT = CPRT(I)
PRTQdtl) * (HMCPRTI
PRTVd.I) = V(MCPRT)
1160 CONTINUE
GO TO 1240
1180 IF(NT.LT.NCSWRT) GO TO 1240
LTIHE - LTIHE * 1
STORE STAGE INFORMATICS
DO 1200 I=1rNMPRT
MJPRT=JPRTd)
1200 PRTri
-------
1400 WRITE CN6tll4) SWFL632
114 FORMAT (33HOCOMPLETICN OF RECEIVING QUANTITY) SWFL633
1420 CONTINUE SWFL634
C SWFL635
C RETURN TO SUBROUTINE RECEIV SHFL635
C SWFL637
RETURN SWFL638
END SWFL639
239
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
SUBROUTINE SHQUAL
RECEIVING WATER QUALITY
SPECIFICATION STATEMENTS
GENERAL AND CONTROL
CCMHON JGW.NTC,NQCYC,DELTQ,QE,QF,ALPHA{30),TITLSW(30I,ICDLt101
1 tISWCM10)tREAERC6l,DECAY(61,XR(6),XME(6),XMF(6),XMEOt6)
2 (N5tN6tNia.N20tN30tN40»NSTART.XRQD
JUNCTIONS
COMMON NJtNCHAN(lOO,8J,QIN(100)tGOU(100l,VOL(100),VOLO(100»
1 ,AS(1001
CHANNELS
COMMON NCtfUUNC(225,2)tQ(225)tLEN(225»iU(225»
STORMWATER
COMMON hJSW,JSM(20)
ltHJSHtISK20)tTT(2) tCT(6 ,20,2 J, IMSTM
QUALITY
COMMON KCON«KCCNO,C2(6),CS(6»,ICCN(6J,CSAT(6),C(100,6),SUMC( 100
1 tCMAX(lCO,6l,CMIN(100,6),MAOD(100,6),OCDT(100,6 I,CE(6,20,2)
2 ,TE( 6),TEP( 6l,SLOPE<20),CSPIN(100,6l,TITt.E<6,6),TEO(6)
PRINTING
COMMON NCPRT,ITCPRT,LCCPRT,NSTPRTrNQCTOTtISKIP,MSTPRT,NPRT,KPRT
TAPES
COMMON /TAPES/ INCNT,IOUTCT,JIM 10),JUUT(10 I.NSCRAT(5)
START PROGRAM
INPUT ROUTINE
REAL MACDtLEN
N20 = NSCRAT(l)
INSTM=C'
CALL 1NCLAL
00 751 NTAG=NSTART,NTC
REWIND MO
NSTPRT = tTAG
CALL TO SUBROUTINE INQJAL
MAIN QUALITY LOOP
1
2
3
4
5
6
7
8
9
SWQU
SWQU
SWQJ
SWQJ
SWQ'J
SWQJ
SWQU
SWQJ
SWQJ
SWQU 10
SWQJ 11
SWQU 12
SWQ'J 13
SWQU 1*
SWQU 15
SWQ'J 16
SWQU 17
SWQJ 18
SWQU 19
SWQU 20
SWQJ 21
SWQU 22
SWQ'J 23
SW3U 2^
SWQU 25
SWQJ 26
SWQU 27
SWQJ 29
SWQ'J 29
,6»SW3U 30
SWQJ 31
SWQU 32
SWQJ 33
SWQ'J 34
SWQU 35
SWQU 36
SWQU 37
SWQU 38
SWQU 39
SWQJ 40
SWQU 41
SWQU -V2
SWQU 43
SWQ'J 44
SWQJ 45
SWQJ 46
SWQJ 47
SWQU 40
SWQJ 49
SWQU 50
SWQU 51
SWQJ i2
SWuV) 53
SWQJ 54
swyu 55
SWS'J 56
SWQ'J 57
SWQU 5U
SK'QU 59
SWQU 60
240
-------
c
c
c
c
c
CALL LCCPCL
INSTM=INSTK+1
359
00 359 J = l,NJ
00 359 KC = l,KCON
SUMC(J,KC)=(SUMC{J,KC)-0.5*C(J,KC))/NQCYC
IF (NTAG.LT.KPRTJ GO TO 3220
(NTAG.GT.KPRT.AND.KPRT.EQ.l) CO TO 1600
IF
GO
TO 4300
1600
3030 FORHATI42K
STOP 5555
4300 CONTINUE
KPRT=KFRT*NPRT
752 CONTINUE
DO 322 KC-UKCCN
WRITE (N6,4100) TITLSW
4100 FORMATJ1H115A4,15A4)
WRITE(6,101) ALPHA
FORMATC1H015A4,36X,32H
U- 15A4,36X,25H
1H 96X.28H
KPRT IS ALWAYS GOING TO BE LESS THAN NTAG)
101
WATER RESOURCES ENGINEERS, INC./
WALNUT CREEK, CALIFORNIA/
DYNAMIC STORM WATER QUALITY//)
WRITE (6,321) NTAG,KC,(TITLE(II»KCI,11=1,6),ICOL
321 FORMATOO'lOX,'AVERAGE JUNCTION CONCENTRATIONS DURING TIDAL CH TIMSWQJ
IE CYCLE«I4,«, CCNSTITCENT NUMBER*13,5X.6A4//9X,10110/' JUNCT10NSWQJ
CALL TO QUALITY CYCLE SUBRCJUTINESWQU
SWQJ
SWQU
SWQU
SWQU
PRINT DAY AVERAGE CONCENTRATIONSSWQU
SWQJ
SWQU
SWQJ
SWQU
SWQU
SWOU
SWQU
SWQLI
SWQJ
SWQU
SWQJ
SWQU
SWQJ
SWQU
SWQU
SWQJ
SWQU
SWQJ
SWQU
SWQJ
SWQU
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76X
77
73
79
80
81
82
83
84
85
86
87
88
39
2*1
00
110 I=1,NJ,10
110 WRITE (6,111) I,L, (SUHC(J.KC) ,J=I,L)
111 FORMAT(I4,5H TC , 13, 1 Xtl OE10.4 )
IFUSWCM2).EQ.1) GO TO 322
WRITE (6,112)
112 FORMATCC'SOX.'MAXIMUMS'/' JUNCTION")
OO 113 I=i,NJ,10
t=MINO(I*9,!vJ)
113 WRITE (6,111) I,L,(CMAX(J,KC) ,J=I,L)
WRITE (6,114)
91
92
93
94
95
95
97
98
99
114 FORMATCO'SOX.'MINIMUMS'/1
JUNCTION')
115
322
OO 115 I=1,NJ,10
C=MINO
-------
IF (ISfcCH(lO).EG.ll GO TO 4140
DO 4120 I = UNCCYC
READ(N2C) NQt(Q(N)(U(N)»N
WfUTE, J=1,NJ)
C
C
C
C
END OF MAIN DO-LOOP
751 CONTINUE
IF :iS«Chm.EO.l)
RETURN
GO TO 4160
C
C
C
WRITE A RESTART TAPE
4160 CONTINUE
WRITE (N40> JGW,KCON»KCCNC,NTCtNPRT,NJSW,TITLE, C2tCStICON.CSAT,
1 REAERtOECAY,XR,XME,XMF,XMEOt (VOLOUIt(C< JtKJ,SUMC( J,K),
2 MADD
DO 4465 I»1,NQCYC
REWIND N10
REAO(NIO) NQt(QtN=ltNC>t(VOL(J>iQlN(J>,QOU
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
SUBROUTINE TIOCF,PRTV(30,50),PRTQ(30,50), I DUM( 12 ) , IZl'.l ( 10)
2t LTIKEt NPLTtNPDELtJPLT(50)fHPLT(50«
STAGE-TIME COEFFICIENTS
COMMON YYC50) ,TT(50» , AAU 0 ), XX (10 ), SXX< 10, 10 ), SXY( 10 )
lrAl,A2tA3tA4,A5tA6,A7 ,PERIUOiJGk
STORMWATER
COMMON TITLE(30),NJSW,QE(20,2),JSW(20)
2t RAIN(ICO),INTIME(100JtlNRAIN,JBOUND(20)fJJBOUN
TAPES
COMMON /TAPES/ INCNT, IOUTCT , J INUO ), JOUT( 10 ), NSCRAT( 5)
TIDE COEFFICIENTS
TYPE DESIGNATION
INTEGER CPRT
RtAL LEN
TID:
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIOC
rioc
TIOC
TIDC
TIDC
rioc
TIDC
TIDC
TIOC
TIOC
TIOC
T10C
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIOC
T1CC
TIDC
TIDC
TIDC
TID;
T IOC
TIDC
TIDC
TIDC
TID:
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIOC
TIDC
TIDC
TIDC
1
2
3
4
5
6
7
e
9
10
11
la
13
i^
15
16
17
IS
19
20
21
2Z
23
2
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
TIDAL CURVE FIT, 7 TEPM TIDC
SINUSOIDAL EQUATION TIDC
TIOC
WRITE (N6tl40) KO.NI,PAXIT,NCHTID TIDC
140 FORMAT I7HO KG IS,I3,19H NUMDER OF TERMS IS,I4,32H MAXIMUM NUMDERTIDC
1 OF ITERATIONS ISfI4,21H TIDE CHECK SWITCH IS,12) TIDC
IF KO EQUALS ONE, PROGRAM WILL TIDC
READ FOUR POINTS OF INFORMATION
220
225
146
148
240
260
280
AND EXPAND THEM FOR A FULL TIDE
NT IS THE NUMBER OF INFORMATION
POINTS
MAXIT IS THE MAXIMUM NJMBER OF
ITS NATIONS
IF NCHT10 EQUALS ONE, TIDAL
INPUT-OUTPUT WILL BE POINTED
DELTA
LIMIT
IS THE ACCURACY
IN FEET
DELTA = C.005
NTT=7
M = 2. *3. 14159 /PERIOD
IFCKO.EQ.O) GO TO 225
TT(50) =TT(1)+PERIOD
YY(50I=Y\UI
DO 220 1=1,4
IF (J.GT.4) J=50
TT(NI»=<3.*TTU)*TTU))/4.
YY(NI)=0.e535*YY(n+0.1465*YY(J>
NI=NI+1
TT(NI »=(TTUJ*TT(Jll/2.
YY(NI)=(YY(II+YY(Jl)/2.
NI=NI+1
300
YY(NI)=C.1465*YY(I)+0 ,8535*YY(J»
CONTINUE
CONTINUE
IF (NCHTIO.NE.U GO TO 240
WRITE (N6.146I
FORMAT (29HO NO. TIME VALUE
WRITE (N6.148) (I,TT(I), YY(I), 1=1,NI)
FORMAT (14, 2F12.3 )
CONTINUE
DO 280 J=l»NTT
DO 260 K=1,NTT
SXX(K.J) = 0.
AACJ) = 0.
SXYUJ = 0.
NJ2 = NTT/2 4 1
DO 360 I = 1,M
DO 320 J = I,NTT
FJi = FLCATU-1)
FJ3 = FLCAI ( J-NJ2 )
IF I J.LE.NJ2 ) GO TO 300
XX(J) = COS(FJ3*W*TT(IJ)
GO TU 320
XX(J) = SIN{FJ1*W*TT(1)}
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
32
83
84
85
86
87
88
89
90
91
92
93
94
95
96
TIDC 97
TIDC 98
TIDC 99
TIDC100
TIDC101
TIDC1D2
TIfO103
TIDC104
TIDC105
TIDC106
TIOC107
TIDC.108
TIOC109
T1DC110
T I DClll
TIOC 112
TIDC113
TIDC114
TIDC115
TID:IIS
TIDC117
TIDC118
TIDC119
TIDC120
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIOC
TIDC
TIDC
TIOC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIDC
TIOC
TIDC
TIDC
TIDC
244
-------
320
340
36C
380
400
420
44 C
150
460
152
480
5OC
52C
154
156
540
IF< J.EC.l )XX(J> = 1.
SXY(J) = SXY(J) +XX(J) *YY(t)
00 340 J = ItNTT
DO 340 K = l,NTT
SXX(K.J) = SXXCK.JJ 4-XXIK) *XX(J)
CONTINUE
IT = 0
IT = IT + 1
DELMAX = 0.
DO (420 K = i.NTT
SUM = 0.
DO 400 J = l.NTT
IF -(J.EC.K) GO TO 400
SUM ~ rijM -'.At J J ' ?vv( K,J)
CONTINUE
SUM = (SUK+SXY(KM/SXX
FORMAT (69HCANNOT REACH DESIRED
L AND TRY AGAIM
STOP 6666
CONTINUE
Al ^ AMI)
A2 = AA(2|
A3 = AA(2)
A4 = AA(4)
A5 = AA(5I
A6 = AA(6)
A7 - AA(7)
IF (NCHTIC.NE.l) GO TO 540
WRITE (N6.152)
FORMAT (46HO TIME OBSERVED
RES = 0.
CO 520 I = ItNI
SUP = 0.
DU 500 J = 2,NTT
FJl = FLOAT ( J-l )
FJ3 = FLOAT ( J-NJ2 )
IF ( J.LE.NJ2 ) GO TO 480
SUM = SUK *AA(J) *COS(FJ3*W*TT TT( I)tYY(I),SUM,0IFF
FORMAT ( 4F12.4 )
WRITE (N6.156J RES
FORMAT (6HCTCTAL , 30X, F12.4 )
CONTINUE
DELTAt INCREASE EITHER NI OR
C
C
C
COMPUTED
DIFF )
TIDC121
TIDC122
TIDC123
TIOC124
TIOC125
T I DC 126
TIDC127
TIDC128
TIDC129
TIDC130
TIDC131
TIDC132
TIDC133
TIDC134
TIDC135
TIDC136
TIOC137
TIOC138
TIDC139
TIDC140
TID2141
TIDC142
TIDC143
DELTAT I DC 14<>
TIDC145
TIDC146X
TIDC147
TIDC148
TIDC149
T1DC150
TIDC151
TIOC152
TIDC153
TIOC154
TIDC155
TIDC156
T10CI57
TIDC158
TIDC159
TIDC160
TIDC161
T IDC162
TIDC163
CONSTANTS FOR INPUT HAVE FORM
HRiTEUfc,158»JGW,Al,A2,A3,A4,A5,A6,A7,PER£OD
TIDC165
TIDC166
TIDC167
TIDC168
TIDC169
TIDC170
TID^171
TIOC172
TIDC173
TIDC17<*
TIDC175
TIDCL7&
T IDC177
TIOC178
TI DC 179
TI DC 180
245
-------
158 FORMATC///46H COEFFICIENTS FCR TIDAL INPUT WAVE AT JUNCTILNI6//85HTIOC 181
1 Al A2 A3 A4 A5 A6 TIOC182
2A7 PERiaD(HRS)//7F10.3,F12.2///31H WHERE THE WAVEFORM IS GIVFTIDC183
3N B1T//92H H(JJ = Al + A2.SINCWT) * A3.SINJ2WT) * A4.SIN(3WTI * A5.TIDC18^
«COS(WT> 4 A6.COSJ2WT) » A7.COS(3WT)» TinC185
RETURN TID:i86
END TIDC187
246
-------
SUBROUTINE TRIAN( 11. JJtKK.LU
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
SUBROUTINE TRIAN
HYDRODYNAMICS PROGRAM
SPECIFICATION STATEMENTS
CONTROL
COMMON /CCNTR/ N5tN6tN20tN2It NTCYCtNQCYC.NHCYCt NTiNQSWRT
1. DELTC.CELT.TZEBO, ISWCH(IO)
GENERAL
COM/.f.N £LPHA(*Q?; N'J»NC» If. YC tKCYC nMCYC « MI NO »HDI R.EVAP
It PREfP(50)tNEXJT
JUNCTIONS
COMMON H(lCC)fHN(100),HT(100),HBAR(100)tHAVE (1001
It NCHANdOOt 8)t JPO INT (100,3 ),AS< 100), VOL ( 100) , X( 100), Y( 100)
2, DEP<100»tCOF<100),CIN<1001,QOUC100),QINSTC100)
3t QINBAR(lOO)tCOUBARdOO)
CHANNELS
COMMON LEN<225l,NJUNC(225i2»,B<225),R(225)iA<225),AT<225),AM 225)
It Q(225l»OBAR(225)iQAVE(225)t V(225),VT(225).VBAR(225)
2i FWINO(225»,NUMCH(225),NTEMP(8I
3,NCLOS(225)
PRINTOUT AND PLOTTING
COK.MCN KPRT,IPRT, NHPRT, JPRT{ 50 I ,PRTH( 30t 501
1, NQPRTtCPRT(50),PRTV<30t50),PRTQ<30,50)f IDUH(12 11ICUt(10)
2r LTIKEt NPLTtNPDELtJPLTJ50),HPLT(50)
STAGE-TIME COEFFICIENTS
COMMON YY(SO) fTT(50) fAA<10)tXX(10)tSXX(10,10),SXY<10)
ItAl.AZiA3tA4,A5tA6,A7fPERIODiJGW
STORMWATER
COMMON TITLE(30)iNJSWiGE(20t2) tJSW<20)
2t RAIN(100)tINTIME(100)tINRAIN,JBOUND{20lfJJBOUN
TAPES
COMMON /TAPES/ INCNT,ICUTCT•J1N(10)fJUUT(10)tNSCRAT(5)
tNX(5)
TYPE DESIGNATIONS
INTEGER CPRT
REAL LEN
IF(II.NK.O) GO TO 300
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TPIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TPIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TRIA
TR IA
TRIA
TRIA
TRIA
TRIA
TIUA
TRIA
TRIA
1
2
3
-------
C
C
C
C
C
C
C
C
C
C
C
C
C
C
ZERO POINTER ARRAY
00 250 1=1, NJ
DO 250J=1,8
IPQINTU ,J)=0
NCHANt l,J)=0
250 CONTINUE
RETURN
SET UP TRIANGLE PARAMETERS
300 CONTINUE
NX(1)=II
NX(2»=JJ
NX{ 3 >=KK
NX(4)=II
NX(5)=JJ
TUI = (X(JJI - X(KKM**2 * (Y(JJ> - Y(KKI)**2
T(2» = (X(KKI - X(IIJI**2 * (Y(KK> - Y(Il>)**2
T(3) = (X(II) - X(JJM**2 * (Y(II) - Y(JJM**2
T( 4)=T( 1)
T(5)=T{2)
00 ALL THREE SIDES
NB=2
IF(LL.EC.O) NB=1
DO 600 N=1,3,NB
LOCATE CHANNELS ON POINTER
I=MINO (f*X(N4l),NX(N+2))
J = MAXO(NX(N*-1 1 i NX(N+2 ) )
DO 350 KM, 8
IF(IPCIfad.K).EQ.J) GC TO 370
IF(IPCIM(I.K).EQ.OI GO TO 360
350 CONTINUE
360 IPOINTU,K)=J
NC=NC-«-l
KCHAM I,KI=NC
370 H=NCHAMITK)
M IS CHANNEL NUM3ER JUST
ASSIGNED
NJUNC (M» 1 )=I
NJUNC(Ki2)=J
SUB=T ( N+ 1 ) +T ( N+2 ) -T ( N )
G=SURT(T(K)l/2.
LEN( H) = 2. *G
C=G/SQRT(4.*T(N*2)*T(N*1»-SUB**2)*SUB
G=ii/2.*C
AS(n = AS(U + G
AS( J)=AS(J)*G
IMC. LE. C.I WRITE(6,102) M,C
1O2 FORMAT <« NEGATIVE WIDTH CHANNEL NO.', 15,' WIDTH =»,E12.4I
E{M1=E -- < CO F < I > + COF ( J )) / 2 .
V(M)=C.
TRIA 61
TRI& 62
TRIA 63
TRIA 64
TRIA 65
TRIA 66
TRIA 67
TRIA 68
TRIA 69
TRIA 70
TRIA 71
TRIA 72
TRIA 73
TRIA 74
TRIA 75
TRIA 76
TRIA 77
TRIA 78
TRIA 79
TRIA 83
TRIA 81
TRIA 82
TRIA 83
TRIA 84
TRIA 85
TRIA 86
TRIA 87
TRIA 83
ARRAYTRIA 89
TRIA 90
TRIA 91
TRIA 92
TRIA 93
TRIA 94
TRIA 95
TRIA 96
TRIA 97
TPIA 93
TRIA 99
TRIA100
TRIA101
TRIA 102
TPIA103
TRIAlOi
TRIA105
TRI AI06
TRIA107
TRIAIOa
TRIA109
TRIAUO
TRIAlll
TRIA112
TRIA113
TRIA114
TRIAU5
TRIA116
TRItll7
TRIA118
TPIA119
TRIAJ.20
248
-------
6CO CONTINUE
IF(LL.EC.O) RETURN
00 750 KK=3,4
l=MINO(NX(NN) ,LL>
J*MAXO(NX(NN)iLL)
00 620 K-1,8
IF(IPOIM(ItK).EQ.J)
IF
-------
1
5
Accession Number
r\ Subject Field & Group
013B
SELECTED WATER RESOURCES ABSTRACTS
INPUT TRANSACTION FORM
°<6anization Metcalf & Eddy, Inc., Palo Alto, California
Water Resources Engineers, Inc., Walnut Creek, California
Title
STORM WATER MANAGEMENT MODEL
10
Authors)
Lager, John A.,
Pyatt, Edwin E., and
Shubsinski, Robert P.
16
21
Project Designation
EPA Contract Nos. 14-12-501. 502. 503
Note
Set of four volumes: Volume I - Final Report,
Volume II - Verification and Testing, Volume III
Usef's Manual, Volume IV - Program Listing
22
Citation
23
Descriptors (Starred First)
Water Quality Control*, Computer Model*, Storm Water*, Simulation Analysis, Rainfall-
Runoff Relationships, Sewerage, Storage, Waste Water Treatment, Cost Benefit Analysis
25
Identifiers (Starred First)
Combined Sewer Overflows*, Urban Runoff
27
Abstract
A comprehensive mathematical model, capable of representing urban storm water runoff,
has been developed to assist administrators and engineers in the planning, evaluation,
and management of overflow abatement alternatives. Hydrographs and pollutographs
(time varying quality concentrations or mass values) were generated for real storm
events and systems from points of origin in real time sequence to points of disposal
(including travel in receiving waters) with user options for intermediate storage
and/or treatment facilities. Both combined and separate sewerage systems may be
evaluated. Internal cost routines and receiving water quality output assisted in
direct cost-benefit analysis of alternate programs of water quality enhancement.
Demonstration and verification runs on selected catchments, varying in size from
180 to 5,400 acres, in four U.S. cities (approximately 20 storm events, total) were
used to test and debug the model. The amount of pollutants released varied
significantly with the real time occurrence, runoff intensity duration, pre-storm
history, land use, and maintenance. Storage-treatment combinations offered best
cost-effectiveness ratios. A user's manual and complete program listing were
prepared.
Abstractor
John
A
Lager
Institution
Project
Manager,
Metcal
f
-Si-
Eddy,
Inc.
WR:102 (REV. JULY 1S69I
WRSIC
SEND TO:
U.S. DEPARTMENT OF THE INTERIOR
WASHINGTON. O. C. 20240
* SPO: 1989-359-039
------- |