Seite 1 Institut für Hydraulik und landeskulturelle Wasserwirtschaft ...
Seite 1 Institut für Hydraulik und landeskulturelle Wasserwirtschaft ...
Seite 1 Institut für Hydraulik und landeskulturelle Wasserwirtschaft ...
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 6120 CONTINUEC -------------------------- BOUNDRY VALUES TIME (LEFT BOUNDARY)--DO 40 I=1,MTSTEP(I)=TSTEP(I-1)+DTCALL ITER (TSTEP(I),HH,K,TH,HT,ITAB)H(I,0)=HH40 CONTINUEC -------------------------- CALCULATE C AND WATERDEPTH ----------DO 60 I=0,M-1DO 60 J=1,NCALL ITER (H(I,J),CC,L,HC,C,ITAB)R=CC*DT/DXIF(R .GT. RMAX) RMAX=RIF(R .LT. RMIN) RMIN=RH(I+1,J)=(1-R)*H(I,J)+R*H(I,J-1)60 CONTINUEC ------------------------- OUTPUT -------------------------------WRITE(11,99993)WRITE(11,99994) RMAX,RMINWRITE(11,99995) (LINE,I=1,N+1)WRITE(11,99996)WRITE(11,99995) (LINE,I=1,N+1)WRITE(11,99997) (RR(I),I=0,N)DO 80 I=0,M,ITWRITE(11,99998) TSTEP(I),(H(I,J),J=0,N)80 CONTINUE99993 FORMAT(' FLOODROUTING - DISTANCE AND TIMETABLE',/)99994 FORMAT(' RMAX =',F4.2,' RMIN =',F4.2,' STABLE FOR 0
Change language