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.05. A k SÍMASÁGI TÉNYEZŐ SZÁMÍTÁSÁNAK SZUBRUTINJA (KCOMP) LN 0001 IN 0002 LN 0003 LN 00 09 LN 0005 LN 0306 LN 0007 LN 0008 LN 0009 IN 0010 LN 0011 .N 0012 LN 0013 LN 0019 LN 0015 LN Új 16 LN 0017 LN 0018 LN 0019 LN 03 20 LN 0021 LN 0022 SUBROUTINE KCOMP (SEC.O.A) 06.05 C MANNING FELE K SIMASAGI TENYEZOE SZAMITASA C COMPUTAION OF MANNING,S K SMOOTNESS INTEGER SEC,O,J REAL OX,OZ,FE,RE,F,R,K DIMENSION A (SEC, 0 ) OZ=A (1,8) -A (1,2) FE=A(1,9> KA(1,3)+A(1,5)/2»DZ)*0Z 6.1-3 RE=FE/(A(1, 7) +DZ*SQRT (9f A (1,5) »*2)) 6.1-5 DO 1 J=2,SEC DX = A(J, 1)-A(J-1,1) DZ=A(J,8)-A(J,2) F=A < J,9) K A (J,3)*A( J,5)/2*DZ> *OZ 6.1-3 R=F/<A(J,7> *DZ*SQRT(4*A(J,5)**2)) 6.1-5 K=((A(J-l,9)/(FE*RE**(2/3>) ) **2* (A {J, 9) / (F*R**(2/3) ) ) **2)*0X/2 1/ (A( J,8) - A( J-1,8) KA ( J, 9) /F > **2/19.62-(A (J-l ,9) /FE) **2/19.62) 6.2-8 A (J-l,6) =SQRT (K) FE = F 1 RE = R A(SEC,6) =A(SEC-1,6) RETURN END USASI FORTRAN DIAGNOSTIC RESULTS FOR KCOMP NO ERRORS 347
