paraffin wax deposition and fouling

C
C
0 11 = 1K I —
T
D T 2 -=1K o T —
W 0
W I
HK=(TKI—TKtJ)*1.8*CP*FI<
IF(flTI.NE.DT2) GOTO 88
ALID-=D11*1 .8
GO IC 89
88 ALTD=( (f)T1—0T2) /ALOG(CTI/flT2))*I .8
89 RF1=tHT*ALTD/HK
RFSI=RF1/J. C05678
C CALCULATES FRICTION FC1OR FOR CTA SET
C
C
DpTt=DPI/5. C
HEAD=144. 0CP14/DEN
CFHEAD*D/ (L*12.0)*(3 2.?/(VFPS*VFPS) ) /4.0
IF ( DPT.GE. 10.0) CF=9999.9
C WRIIE CUT RESULTS FOP DATA SET
C
C
WRITE(6,18) TIME,TWI,TWC,TKI,TKO,EPK,EPW,DPT,VMS,CF,RFST
18 FOfU’AT(lX,11X,F6.2,4(1X,F5.2,1X),2X,F4.I,4X,F4.2,3X,F3.1,X,4.2,2
5( 3X,F6.3))
RE=REAV+RE
PRA’=PRAV+ PR
NC=rC-’-l
GOTC 2
C CALCULATES AVERAGE REYNOLDS \IJMBEP AND PRANDTL NUMBER FOR RUN
C
30 FNC=FLOAT(NC)
REAV=PEAV/FNC
PRAV=PRAV/FNC
WRITE(6 ,31) REAV, PRA’I ,NC
31 FORrAT(lFIO,11X,8HMEA RE ,F1O.1,9H ME/’N PR ,F8.2,13H NO. PEADINS,
915)
N P P t’ GE 30
GOTC I
16 WRITF(6,17) A, r3
17 FOPMAT(1X.20UCECK A AND B A = ,Fl0.’!1 B = ,FlQ.)
GOIC 1
go s-Fop
[NE]