|
Re: important comment on orifices with time history
The problem with the F2 lines was fixed by CDM last April. You need two
new variables with we call f2_line and f2_limit in subroutines
indat2.for and inflow.for. I am enclosing the code for anyone who wants
to be change the code themselves in their copy of swmm44h.
Code for indat2.for:
cred need a place holder for the F2 line orifices
cred otherwise they have to be at the top of the
cred order of orifices - 4/15/2002
f2_line(nvor) = i
f2_limit(nvor) = ntime
Code for inflow.for:
DO 9000 M = 1,NVOR
mm = f2_line(m) ---> this is a new
line
N = LORIF(mm)
JJ = NORPLC(m)
IF(JJ.EQ.0) JJ = 1
DO 8990 J = JJ,f2_limit(m) ---> this is a
changed
line
Code for the include file orf.inc:
cred add a place holder for F2 type orifice - 4/15/2002
integer f2_line,f2_limit
common/f2_orf/f2_line(neo),f2_limit(neo)
Wayne Huber does have this code but with the work being done on the SWMM
5 redevlopment I am not sure when a new version of the Fortran code will
come out.
Hazem, as I said in the other email - F3 and F4 are functionally the
same in SWMM.
Robert Dickinson
|