Seite 1 Institut für Hydraulik und landeskulturelle Wasserwirtschaft ...

HYDRODYNAMIK SEITE 58Defenition 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 Hydraulik und landeskulturelle Wasserwirtschaft Version 1.0