Kozák Miklós: A szabadfelszínű nempermanens vízmozgások számítása digitális számítógépek felhasználásával (Akadémiai Kiadó, Budapest, 1977)

Mellékletek. Programok, szubrutinok, nyomtatási sémák 313 - 8. fejezethez

08.15. A MEDERTÁROZÓN ÁTHALADÓ ÁRHULLÁMOT SZÁMÍTÓ FŐPROGRAM A 8.3. PÉLDÁHOZ

LN

0001

c

NEMPERMANENS VIZMOZGAS FOLYÓKBAN IMPLICIT MÓDSZER

08.

L N

0002

c

UNSTEA0Y FLOH IN RIVERS IMPLICIT METHOD

LN

00 03

INTEGER SEC ,P,R,TO,REK,0AY

LN

0001.

REAL KI

LN

0005

DIMENSION B (51,28) , A (10 0,5) .C (51,12) ,0(2,1*)

LN

0006

LOGICAL ITER

LN

0007

EXTERNAL RE SPRINT

LN

0008

COMMON /i0/ ITER

LN

00 09

CALL DATA(B,SEC,OAY,Bl,Ki,DH, OX, DT, RO,Zl, REK.TM, QERR,ZD1, KU,

08.

L N

0010

ILII, QL ,CC,W *E,TD,R1, JM,Q,KE K,DZ)

LN

0011

CALL BCOURVKB.SEC.DX)

06.

LN

0012

CALL CINPAR (B.ZD.SEC)

08.

LN

0013

IF ( REK.LT, 5 ) GO TO 31

LN

001A

CALL DAT A PR IN (3,SEC)

LN

0015

31 CONTINUE

LN

0016

c

DIRECTION OF PROGRAM BY TIME

LN

0017

DO 170 J = 1,JM

LN

0018

TX= (J-l) »TO

LN

0019

ITER=,FALSE.

LN

0020

KC= O

LN

00 21

CALL BOUNDC ON (Q, QR,TX„ TM ,Z, ZD)

0 3.

LN

0022

33 CONTINUE

LN

0023

CALL SECPARIMIB, SEC,OZ)

0 A .

LN

0021«

B (1,15) = QR

LN

00 25

8(1• 26) =QP

15

01

031

0A

03

01

390