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

1-17- A FELSŐ HATÁRFELTÉTEL SZÁMÍTÁSÁNAK BOUNDCON AZO- NOSÍTÓJÚ SZUBRUTINJA (8.3. PÉLDA)

0301

SU3R0UTINE 90UNDC0N <Q, OR , TX , TM , Z , ZD)

06.17

4

0UQ2

C

PEL OA,EXAMPLE 8.3

00 03

C

HATARFELTETELEK S7AMITASA

oooa

C

COMPUTATION OF BOUNDARY CONOITITON

N

0Ju5

33

QR=Q*(5.-A. »C0S(3.1A»TX/TM) )

N

03 06

TF(TX.GT.TM) OR=Q* (5.-A. »COS (3.1 A* ( (TX + TM) / (2 .*TM>)) )

N

00 07

IF(TX.GT.3*TM> OR=0

8.1-3B

N

03 06

Z=Z9

8.1-A

N

0009

RETURN

N

00 10

END

USASI FORTRAN DIAGNOSTIC RESULTS FOR BOUNOCON

NO ERRORS

393