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.23. HATÁRFELTÉTELEK SZÁMÍTÁSÁNAK BOUNCON1 AZONOSÍTÓJÚ SZUBRUTINJA

L,N U001 LM Ű002 C

L'J 5603 C

LN Ü004 tjN ŰÓ05 UN D606 UN 5607 UN J008

Uh üöor UN ÖQlt>

Un ion

UN Ű01?

LN ÖO13 UN 0014 UN iöl5 UN 5018

Un Sóit

SUBROUTINE BOUNCONlCB»OR.Q1,TX*TM.Z*ZD»DH*DZ»K1fK2.B1,B2»Q,V»SZ) 06.2

HATARFELTETELEK A B.4, 8.5. 8.6 PEUUAkHOZ 0OUNUARY CONDITIONS TO EXAMPLE. 8.4. 8.5, 8.6 REAL! Kl,KZ DIMENSION 8 (SZ.33)

UR»Ql*(5.-4.*C0Sf3.14*TX/TM)) 8.4«

IF(TX,QT.TM)QR=01«(5,-4.*C0S(3.14*UTX*TM)/(2,*IM)))) 8.4.

IF'(TX.GT.3.*TM) 0R"Q1 8,4Z»Z0 8.40Hb8(1,10>-B(1,2)

0e»8'(l,j 0) -B (1,3)

Rl»Kl*Bi*DH*<Bl*DH/lBl*2.*DH> >**0.666 R2»K2#B?*DZ*(B2*DZ/(82*2.*DZ>)**0.666 U«0R*R1/(Rl.RZ)

V«0R^R2/(R1.R2)

RETURN

END

USASI FORTRAN DIAGNOSTIC RESULTS FOR BOUNCONl

NO ERRORS

08.24. A TÖLTÉSSZAKADÁS HATÁRFELTÉTELÉT SZÁMÍTÓ DAMBREAK AZONOSÍTÓJÚ SZUBRUTIN

LN

0001

SUBROUTINE DAMBREAK (9 , QBR, BS,DX,TB,TX,

L N

0002

c

TOE LTE SS ZAK ADAS HATARFEL TET EL E, 8.5 PEL

LN

0003

c

BOUNDARY CONDITION OF O A MBREAK» EXAMPLE

LN

00 0 A

INTEGER BS

LN

00 05

OIMENSION B (SZ,33)

LN

0006

T3= 360 0.

LN

0007

T4= 720 00 •

LN

0008

T5= 68400 •

LN

0009

TB1=T3+T3

LN

0010

TB2=TB*T4

LN

0011

T B3 = T B4T5

LN

0012

B CBS,29) “8( BS, 30)

LN

0013

IF(TX.LE.TBl) QBR=3*Q1*CTX-TB)/T3

LN

0014

IFCTX. GT.TB1.AND. TX.LT.TB3) Q8R=3*Qi

LN

0015

IFCTX.GE.TB3) QBR = 3* Ql» C1.- CTX-T83) /T3)

LN

0016

B (BS , 30) =Q8R/DX

LN

0017

RETURN

LN

0018

END

08.2*

USASI FORTRAN DIAGNOSTIC RESULTS FOR DAMBREAK

NO ERRORS

402