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

03.09. A FELSŐ HATÁRFELTÉTEL SZÁMÍTÁSÁNAK SZUBRUTINJA (BOUNDCON)

LN 0001

SUBROUTINE BOUNOCONÍ8,SEC,LOH,UPP,QO,TO,T,ZO)

LN 0002

C

A FELSŐ HATARFELTETEL SZAMITASANÄK SZUBRUTINJA

LN 00 03

C

SUBRUTINE FOR THE COMPUTATION OF THE UPPER BOUNOARV

LN 00 0L

INTEGER SEC,UPP

LN 0005

DIMENSION B (SEC.LO)

LN 0006

Q=Q0*tl3.-12.*C(>Sl3.1L*T/T0) )

LN 0007

IF(T.GT.TO) Q=QO*il3.-12.*COS(3.1«i*((TLTO)/{2.*TO)

LN 0008

IFtT.GT. 3*T0) Q=QO

LN 0009

B<LOH,13)=Q

LN 0010

B(UPP,12)=ZD

LN 0011

RETURN

LN 0012

END

USASI FORTRAN DIAGNOSTIC RESULTS FOR bOUNOCON

NO ERRORS

327