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 - 6. fejezethez

06.031. FELSZÍNGÖRBE SZÁMÍTÁSÁNAK SZUBRUTINJA, HA A VÍZFOLYÁS ÉS A KOORDINÁTATENGELY IRÁNYA AZONOS(BCQURVI)

IN

1001

SUBROUTINE BCOURV1 (3,SEC ,OX )

UN

Oü 02 C

KEZOETI FEL TETEL SZÁMI T A SA

L N

00 03

INTEGER SEC

LN

00 09

DIMENSION 3 (SEC, 28)

L N

0005

DZ=B (SEC, 8) -B (SEC, 2)

UN

00 06

F = ( B(SEC , 3) +0.5*B(SEC,5> *OZ >*OZ*B (SEC , 9)

UN

00 07

R=F /(B (SEC, 7) «-0Z*SQRT(9.0*B (SEC. 5) »*2) )

LN

0008

AK=F»9(SEC, 6) *R**0.6666667

LN

0 J 09

I=SEC

LN

0010

B1=B (SEC, 8)

LN

Oú 11 1

J=I

LN

0012

i=r-i

LN

0013

B (I , 8) =B (J, 8)

LN

0019

G = B (J, 8) +(B (J,9) /F) •*2/19.62* (B(J,9)/AK)**2*OX*0.5

LN

0015 2

Z1= B1

L N

0016

0Z= Z1-B (1,2)

LN

0017

F = (8 (1,3) *B (I,5)»DZ*0.5> *DZ *311,1*)

LN

0018

R-F / (B(I ,7) + 0Z»SQRT(9. 0*9 (I ,5 )**2) )

LN

0019

AK=F*B (1,6) *R*»0.6666667

LN

00 20

B1=G- (8(1, 9) /F) **2/19. 62 MB (1,9) /AK)*»2»DX»0.5

L N

0J21

IF( ABS (Bl-Z 1) . GT. 0.0 00 1 ) GOTO 2

LN

0022

B (I ,8) =B1

LN

00 23

IF(I-l) 3,3,1

LN

002í* 3

CON TINUE

LN

0025

RFTURN

LN

00 26

END

USASI FORTRAN DIAGNOSTIC RESULTS FOR BCOURV1

NO ERROR?

344