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.03. A HATÁRFELTÉTELEK SZÁMÍTÁSÁNAK BOUNDCON AZONOSÍTÓJÚ SZUBRUTINJA (8.1. PÉLDA)

LN

0001

SUBROUTINE BOUNDCON(EUQR , TX ,TM , Z , Z D)

08.«3

LN

00 02

c

PELÖA,EXAMPLE 0.1

LN

00 0 3

c

HAT'ARFELTETELEK S7AMITASA

LN

03 OA

c

COMPUTATION OF BOUNDARY CONOITTTON

LN

0ü 05

33 QR= Q* (2.25-1. 25*C0S (3.1 A*TX/TM) >

8.1-3

LN

00 06

IF(TX.ST.TM) OR=Q*(2.25-1.25*COS<3.1A*(ITX+TM>/<2.*TM>)))

8.1-3A

LN

0007

IF(TX.GT.3*TM) QR=Q

8.1-3B

LN

0j 0 8

Z=ZO

8.1-A

LN

00 09

RETURN

LN

ÚDIU

END

USASI FORTRAN 0IA5N0STIC RE SUL TS FOR BOUNDCON

NO ERRORS

376