Hydraulik II Skriptum - Department Wasser-Atmosphäre-Umwelt ...
Hydraulik II Skriptum - Department Wasser-Atmosphäre-Umwelt ...
Hydraulik II Skriptum - Department Wasser-Atmosphäre-Umwelt ...
- Keine Tags gefunden...
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
HYDRODYNAMIK SEITE 58Definition of VariablesINPUT OF DATA:TIMESTEPS(M), STEP Δx(N),RIVERLENGTH(RL)TIMERANGE,TIMESTEPS-OUTPUTTABLE:TIME BOUNDARY - DEPTHTABLE:C-VALUES - DEPTHINITALIZE:DX = RL/NDT = TIME/MRR(0) = 0H(0,0) = HT(1)TSTEP(0) = HT(1)RMAX = 0RMIN = 1BOUNDARY-VALUES RIVERRIDGEDO I=1,NRR(I) = RR(I-1)+DXH(0,I) = HT(1)BOUNDARY-VALUES TIMEDO I = 1,MTSTEP(I) = TSTEP (I-1) +DTCALL SUBROUTINE ITERH(I;0) = HHCALCULATE C-VALUES AND WATERDEPTHDO I = 0,M-1do J = 1,NCALL SUBROUTINE ITERR = CC * DT/DXCALCULATE RMAX AND RMINH(I+1,J) = (1-R)*H(I,J)+R*H(I,J-1)OUTPUT: RMAX, RMINFLOODROUTING:DISTANCE AND TIMETABLEENDInstitut für <strong>Hydraulik</strong> und landeskulturelle <strong>Wasser</strong>wirtschaft Version 1.7