ML20126C031
Text
{{#Wiki_filter:' k
/ %g.
UNITED STATES _g
! ') 3 c.f 'g NUCLEAR REGULATORY COMMISSION WASH WGTON,0. C. 20555 p* ..7 of July 27,1983 '
\; +.' .3..
~ Docket No.' 50-289 MEMORANDUM FOR: H. Denton T.' Speis J. Carter R. Vollmer E. Case D.~ Eisenhut R. Mattson S. Varga R. Purple H, Thompson D. Vessallo T havak' ' J. Sniezek R. Clark G. Lainas i T. Iplolito D. Crutchfield F. Miraglia.
C. Heltemes
.THRU: John F. Stolz, Chief, Operating Reactors Branch #4, ,
~
Division of Licensing , p~ ROM: James Van Vliet, Project Manager . - Operating Reactors Branch #4,' Division of Licensing
SUBJECT:
' DAILY HIGMLIGHT TMI-l Steam Generator Repair Program ;
GPU Nuclear has' recently completed an analysis predict'ing that steam generator tube thermally induced tensile loads ~ tend to be smaller than previous analyses have indicated. In addition, GPU Nuclear has also observed a loss of initial . tensile prestress in a few hundred tubes during the course of the? kinetic expansion in adjacent tubes as a . result of separation in the defective area of these tubes within the upper part of the tubesheet. These tubes were subsequently kine.tically sealed to the tubesheet below the defective area to restore tube integrity. , GPU Nuclear is evaluating the effects of reduced tube tension and~ loss of prestress on through-wall crack-leakage inonitoring sensitivity. GPU
. Nuclear presently expects to submit its evaluation and findings the
~ week of August 8,1983. This new infomation will need to be l evaluated as part of the staff's Safety Evaluation and will likely
' delay its issuance by about three weeks.
N ames Van Vliet Project Manager Operating Reactors Branch #4, DL I .cc:
- JStol z. -
t JVan Vliet
- OR8#4 File -
.f8506140287 B50125 1
l l PDR FOIA DETJENB4-B97 PDR . s .
, 4 ' ' '. - - SAPC # 152 Inter-Office Memorandum t-Data August 3, 1983F Subject Iechnical Review of Calc. 1101X-5450-014 duc ear To N. G. Trikouros, Location Manager - Safety Analysis & Plant Control A technical review has been performed on the subject calculation. The { governing equations are given in the calculatLon and also in a prior calculation 11011-5450-010. The equations were digitally simulated using CSMP ) and are given in data sets N1564.ADV4. DATA and N1564.ADV. DATA. J A review of the equations and assumptions given in the suoject calculation indleates that they are reasonable. The prior calculation,1101X-5450-010, has already been reviewed (see Ref 1). Following are pertinent comments-for the two computer programs. A. N1564.ADV4.DAIA
- 1. A review of this program Lndicates that the equations are coded as written in the calculations, except as noted in A.4 below. A random check was made on the value of constants, and none were found incorrect.
- 2. The MACR 0 HEM is essentially developed from the prLor calculation.
- 3. This program uses a fixed time step. Io check if this time step is sufficiently small, the reviewer halved the step size. Ihe resulting integrated mass flow rate through the AJV was within 1%
at the end of the run (10,000 sec); IAVG was within 3%; the reactor sfstem pressure was within 4%; and the pressures of the secondary side were within 13%.
- 4. The algorithm for controlling the ADV (page 7 of subject calculation) is, in practica, impractical since it maf occur too often for an operator to handle. Further, the code logic states the switching algorithm is not to be performed LE EAVE is greater.
than 5500F; this is not stated in the calculations. Changing the time step in A.3 above changed the switching times, and was the primarf cause for the different results. Nonetheless, the algorithm appears to be adequate for this study in determining the cooldown rate and integrated mass flow rate. A00o0648 1 Schuler, E. J., Letter to N.G.T.
Subject:
'OA of calcialartaa /[b
r. 2-r
- 8. N1564.ADV. DATA v
- 1. A review indicates that the equations are coded as written in the calculation. All constants were checked; small variances were found, and they were less than 45;
- 2. -The fLxed time step was replaced by a variable time step for a check.' A comparison of results indleate that they are almost LdentLcal.
. fi C. FunctLo's a and Subroutines Appended to Above Two Programs.
Both programs use 20iLIAAN functions and subroutlnes; these are appended to the mala program. Most of them are used to calculate
' water and steam properties.
These functLons and subroutines have not been reviewed by the undersigned. E. J. Schuler, Engineer - SAPC EJS/ar-cc: f. G. S'oughton, r Director - Systems Engineering L. C. Pwu, Engineer - SAPC l
\
l
. - E N: clear cate,uo. 8.0/d f @ .Q / @
saerr so. ..../... or . A.%. .... sumacr . . . . .Th. L -l. . . . dealdrw>t . . kk. . (Aw'f . C.s. . . . . .24-. . COMP. BY/oATE . . . .. . . ..
. . . . . . . . . . .Im M . . .)y. . . Vd.f. . . . . . . . . . . . . . . . . . . . . . . . csx o.
5 Aac's3 f Shb d , 19e i k p A % + asno Les.vf,5ka O~ w M+ri .o m (Loe,uL mcxw g .. io Y wdedq & ud dm&d M uk- - . Baw psw %
<h/ _fu , -7 i d M o 7 f 6< ', - ,(
o,,.-4d 4k Covlw 4 nA / av T-% y,n h IA AW'e. %p Vbt v& C7%v'). l '+D V ).
-Acd-(A 4 <su i O kb ~ A M $
cc,,id_ m ,(
.Wg 4 /fw It T &_.
d~,w % 9 n A0v & .
.+ n e O d .
$ F~-awle z(y c-supw & a nwza a r p- i, s.rF-m z~
% . q x ,; A r 4 a w n GC4c_ s r& D %pk M A4 cr
.ooo oo,. .....
. & N2 lear cate.so...iIO...l..K.[..V..$.0.Cf ssEET so. .. ..L . or .&....
SU8 JECT............................................................................ D ATE . . . . . . . . h. ." .39. I. . h. . . COMP. SY/DATE., ...%.C.l.$ .
..............................................................................CHK'D.BY/DATE.. . 3.&d-63 y
P i acs ' VV W-4 5 L - 'L 7 W/c 6 k st-QL -
< 3A .-
4 kk D : ~
- PA n ,
l itcs ', w
<N Sw A A 3 & f A -
q.-- w- n h-Y,h > A Y , m L ,% W i V, W I4 *i , gutz Q F.V 1 twc' T=~ Neds C.SH f w s
\
\
400o oon . . . . .
m .
.- N lear cac. NO....(.h.[..i.:.E.).k.~ 0W SHEET NO. ~. . . . b. . . OF . 1 :7L SuoEcr....................................................................... DATE........2.!.20..'.D.. ..
coup. swoATE. .M .G. .f. . .
.. . ...... .. . . . .... ........ .. ..... . . ................................ ..... csx D. sY/DATE . .. 3 . M b b
_ ,, O k tr % - fr % A 4 - L Jlc k Itc[x-s w e (sa. Jk u a @ j u .( 1 6ed debr. .r( O. Oi E , a MAc R. o h c.sM f W h SztyaL- % (e<A : PO T, D P D T, L f 6 . ALF4 = #EN (x', P, WFW, U s Nb o $f Y r) bV Tax br= fl .
= A s PJh % ;,orre.
DPT) T'- 'iP P'
- at
'Ih = 6tw y % M blFA = d -.
. & c4-%e % : +%.bTSh x ff% %
? : pr e 9p .= r = Fa W %&
ifW = k Fu M $ ") b wsT = Sf w % A
% = h<t= y rf w [ >- % fLJry J t .S . . EfY 'C L
C $6. L wa) AOOO 0018 s a.e o
c. N: lear cAtc.uo.,,,f(,qfX,,,@ @ O W SHEET NO. . . . . h. . OF . W. . . . SUBJECT . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . D ATE . . . . . COMP. SY/DATE . . . . . . .Y .C. .d
. ..... .... ...................................................................CHK'D.SY/DATE. . 3..m.c- 6 3 h7 -= U L O T[l,
= uAq
- c. u. -4 C Ta.c5 - Trc, )
v = fM rh ~ orf c, u o7. pet , staA MF c. . p th b qd%i -
'+ -, X % of
? pk b e,.~.~ % w a + % Wpv, h r w . Wi r, 4 cv cm A c2 r - 5 ' A ~ ' Co ca.A %(~i 'L - n-JDi i N % cA h. ' b G.S M P ii w2e 4
-t; f& A %4 f cJ 4L. %fLsy, YSo . Of , l gs % o( K W A f<.rdts { 5 .4 g T-
- T-{d' c %m 6 o TR, xy y ,o-x) v.g H p- M r . O -x ) - y d m M LOGb d = xW ko) + o-x Nf-L Sta z Me%
C.6 c can sutur W
. n.- 6 (b u( 6w t,'k.
A s. 6 s A ==. t p . 4 P ( u A i L% L't b[ aooo ooi. . . . . .
1 uusi.ar cuc.....H#./.6..:BA?.:o/ k ss.ET = ..... r . or.. w.... SUBJ ECT . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . D ATE . . . . . . . comp. BY/DATE . . . . . . . . . .I .(. .
...... ....... ..... . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . CH K'D. B Y/D ATE . . .. 3.. O N m
[ f .' , $h h A L Lyu k ~ w s ag. Lx FL ca.g + pc.us +L A 66 kN q w A. e = _ dM' ,. L~ A m-u & u w a . w. i Q, C,9 V . L ; f hpm M rv @ Yvac[ 9sAMa. - l
- +0ncf NgC p "CS
_- h c.^ - O ' - S-' ' d t-L ) t m 1% : -trrrd %4% A rt c 3 rMato+ M
%ob Cy SCS E -
h , hC C "E , S Q ace .Rcp g Q Q _ tw y
==- VT MR'$C 3Rc5 P3 i
~ l AOOO 0018 a.s o
Nuclear cuc.no....L{.y/.k. .@).h- Q ssser no. .... 9. or . 7.h.... sumeer.................................................................................. o Are . . . . . . . . . . . . . . . d.,2 R. :.8 COMP. B Y/ oats . . . . . . .N .( j.h. . cxxo.sYeoare g3.m8 A Vr = $ U A c s v A c a , J . r e s e.)
~
l' TO
- W Coeuh @ )
1h k :s RCf 0 a @ . 5 na ie ,, W w% %.ps% ,~:-+ fu = l ac s + gT4%c Q Ic Titer - O/J W.2c -(g IF -L. n.cr m._ %Q , tk rz cf m'tl L e. 3 +@ G wo N.C. W ). N , ~ b/' 4 4 c-( W J d b % N W ho ) Audt- a Ta.c = TL =- ie , 8ew u d L g - p h s L
- 6.e. A, fro Ac.s4 a su c.sme p p ~t: ul 4p wpd
% < % L :F A
(
. ik.a ce sd+, will b e. op & Q fM d re.c - (. vcw cis w J, .
ux eLru J ofdb-da. & mck , et .. m n a u u a a a r c e ,.a f2.C 5 pre ss u +6erF.6J & A a2 s u. 6 % AOOO OOts s a-s o S $ . OW Y Y $ ( H = l @ ' S-
N Ioar cAtc.uO.../.G./.Y...l.9..@. C/ V SHEET NO. . .. 2. . OF , k. .. suBascr..................................................................... DATE . . . . . . . 7.,2.o. . U. . . . . . . COMP. SY/DATE . . . . . . .(I. .
....................................................................CHK'D.SY/DATE .3.M.PO kYh r~$ & kN L AL $ 3 lb/n (N b7 )
cJ rit- p rh C t o n f' A. ) ~ -t d% s e c ,~ Tk 'A f c'l
. L OT-l 6 pen, .
Yr L ADV ;< ~ or! f a.td~- < L M hut. O a. S $ w a + k '} hA hk N udc(m
%.A f ai k TO'F-/ A 4k .pt stat.9 ce -b l L-3%a tLJith L sov m T.- yu .
W .L w
% ri dc,.L .4 LL .{.,. y g+g M b % mTA .
P% =2r6f Me, Ty = r 79'P. 4 RtP - oT1h l ce ( * ) :- I 2. c" . o( tv:p 4 a.m h (L 4 d 2co", w 'g E F W . m L q- k ,r 3 e '3g m
= (33 O/ue ( 9 fC )P* ) .
e at
}.) .
W F*d ( {c( b, ($ fot ~t- { 07 g- fI k . TISV h 31IC "/'g
^ " '"'
frW -SDV4.De f& a g L( ,
GPU Nuclear c,tc. go,,,,,,j],4,/,3,,g, yp.yy sserr uo. .... .f.. or ..& . . suB;:Cr............................................................................. Dars . . . . . . . . . . . . . . .g. .7.9. .: /.5 COMP. SY/DATE . . . . . . . d .E[. .
.............................................................................CHK'D.BY/DATE, ..b.M 63 dev h h- % . /
A Ig/e trL i u DVlf y [k '( Lf {
- l O' a O$AC C4 a. 2L.wbv 4 pClopu( sd bu114d.)
(k W M!.D&T& sla.d rerM evt Dorg
& tom ri c. da cirf6 pren ;, n e gp,,; .
e
-Q.
~
U 4. El 2 n o ' b., , fg m To find 6 [ is ap;wy;dh hern . d 11 a s y AD t/ 6 clg nG a esiu v G ( G L ' r "'N g 0r56 p ras ~ .
<:o -
9 9, d i 4f
= s cv - wa -(y (P e;w f4 = $(( %MS
'[:. l2.c C t-f 2 67Ib T"P
= Tre .
h rLL<$ d T ded C &E *P- 6 nY tun ase~a. . .. . . . . .
Nuclear cate.no......./.[0//...!T4.33-O sweer so. . . . ./. . . . or . .W. . . . suBascr. . ........... ... ... . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 04T s . . . . . . . . . . . .g. p. - . S. COMP. SY/DATE . . . . . 8. fr./.
. .... . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . C H K'D. S Y/D A TE . .. 3.1% F6- 6~b
$ - rdh og L CSMP W s Apv's D/b Th aJ rb Ab v, bn in- p m(,% 4 _
,4D v oM Q %
w Tm Ltp%I &~h% ( h r) (*F) OL) . F79 0 o
/ u <w
- 2. 2 * 'Y Z }$7 & /o f 3 73/ 4. D #
C 2fr 6. g x i o '~
/4 21.s- / 5 x to '
'\
\.
AOOO 0016 :z so
, <. y it //0/x-A d<
O TITLE PROGRAM 70 STUnY TMI-1-C00LOOWN USING ONE ADV ... N n08
, A0v6.0ATA CREATED FROM ADV2 4. DATA ON 6 3=83 000 Ie im-WiiLED_.L iv GGssss-n kais GF iv Fine ai iihe eius= swv F v6v
- CLON e C00LOOWN RATE (F/MR), ADV AREA WILL SE HALF IF EXEEDING THIS 000
?
w TAVG=TSG FOR 0TSG HEAT TRANSFER DURING TRANSIENT (N0 LOG MEAN) _ 000 6 INV bVWP 'VULL UUU
- STEAMING A OTSG, 9 0750 CONTROLLEO AT 1025 PSIA AND 30 IN LEVEL 000
- A GTSG ADV-STUCK OPEN, Flow a 93 Ld/SEC AT 1050 PSIA, SQRT(DRESS) DEP 000
-
- Auf*&*ttC-742R "GGEL -
GGG e VERY LARGE RCS LOOP FLOW = 1.te(L9/SEC) ASSUME 0 (ALL RCPe5 0FF) 000-
- TO EQUATE TH AND TCO PUMP HEAT a 0 009
"-; V5E MAC;G TG CALCULATE din 4MIC V4RIs5LE5 666j
- 5.G. CROSS SECTTON AREA = AR.9 FT**2(PER OTSG) 009
- SIMPLE HU40 GENE 005 STEA" GENEoaTOR N00EL 70 STUDY HEAT PFM9 VAL 000
*- DE Caret f I *E s- AMt- Decay ME st -taste - -- - - - - - - - - - - - - - ----
On@
- ASHE STEAM-TABLE USED 000; 0001
- iis C 40 0 xO T . D PftfitVG e AT.Firir nf. H i x (PTwN. Mwiwit, n5 7 , G T , V i --
0CE VGsVGA5(p) vFsVFlo(P) 000j 0 0 0w Meskv&M(Pr - 000q HFsHLIQ(P) 000' MGPs(HVAP(D+10.)=HVAP(P=10.)l/20. 000
-vers cvn As(nro. rmas tw=r 0. rr/2a. - -- - -
oom MFPs(HLIO(P+10.)=HLIQ(P 10.)l/20. 000( vFPs(VFLO(P+10.)=vFLO(P=to.11/20. 000 MfsV/(**VGerl.=1)*VF) ---
-00th "FsMietl=x) 000 "Hs4*wG*(1=x)*HF ALFaux*VG/(XavG+(t=r)*VFr -- - ~ 000
= 6 6 01 LSGsMF*VF/HB.Q*12=A 000 asMT*(VG=VF) 000) 8sMTe(**VGP+(1.0=R)*VP9t* - - - -
GGW CatwST=dFwl*(X*VG*(l=X)*VF) 0004 OsHG=HF 0004 Fr(xFt*(HFw=ket-wSTr(MST==Mt*0Tl/MT @@M Fsx*MGP6(1.=x)*=FP=.lR5*(x*VG+(1=x)*VF) 000i DXOTa(C*E=4*F)/(A*E=H+0) 000d DPUTa(A*F=CeO)/(A*E=0*01- - 000d ENOMAC 0000 CONSTANT _VRCSs1080n., A0=1 32E5. Powers 2560. , wPCS=1.E8,CLONs 50 000c CONSTANT PCPac., V m3307.. MMPws400.,MEFwa60., WMFwit *MR. ,wEFww13TT --- 0091 IVPRise00. VP42stvPpl 000h ps930. 0009
-- 000t, COPSu-CLON/3600 000$
IPap 0000 Q*(RCP*P0wEP)*3.A13f6/3600. --- 0000 LSGal20 0000 OTLa=ITAVG=ITSG 4000 OTsG/1.34/wRCS -
- - 0000 ITAVGs579. 0000 Usu/2/ AREA /DTLM 0000 A RE A * (L S 6 **.1/12. /5 7. * *0- -- - --- 0 0 0 0 (TCs!TAVG=OT/2 000o ITMelTAVG+0T/2 Onni TS6sITSG- -
-- 4001 ITSGs535.85 000%
IPRCSs2160 0006
-,-........,FFOct; --
-- ^^^'
qq,_ ALFAal-MFovF/V VGaVGAS(P) jf 4,g g.gg,go600 IXcALFA/VG/(ALFA /VGo(le= ALFA)/VF) 000 (J TAVGo!TAVG 000 MPe!MR 000 t vi ( . .tv l 42n!X 000 1 PleP 000 as.s e - bbb l OYNAMIC 000
. e. . _ . .
0Sa GRCSs(PowERe0ECAYtTIME)+RCPl*3.413E6/3600
- 000 PROCEDURE WHPIsHPI(PRCS) 000' Irtance;Lv;3gla;3 go 70 va nani
*HRIso. 000' 00 TO 79 000 TE 4HPinPutiP(PMCSI#2 -
000( IF(SCM.GT.120.) WHPIs0 000( 79 CONTINilE 000c _ lugaPa_. .. -_ ._. .. . Osas HSisHvAP(P) 00iv
-JT l s U*aAEAl*071 000t uT2s U9AHEA2#0T2 . . _ -
000C CPsSPHT(TAVG,PPCS) 000t THPsTAVG+QI/WRCS/CP/2. 000r
..___. _ ..___IC.tasTAVG-CT_l /wsCS/c9 .. - - - - - _ _ _ . - _ . . _ _ _ _ .. . . . . . _ _
Aant TC2PsTAVG-GT2/wRCS/CP onor TMs4FALPL(ITH,3.,THP) 000c TC1dWEALPL(ITCS3.sTCIPl -
- onut TC2=REALPL(ITC,3. TC29) 000c VAsvl(TAVG,ppCS) 000(
.f1Il m tIh*.TC.Lil2=1SGI-- - - - - - - - - -
--Ca&C GT?s(TH+TCP)/2=TSG2 000i.
GTs0TI+QT2 0001 UTOTs(ORCS-0T)/hR/CP 0000 AREAls(LSGl*63/12*AC/52 0000 AREA 2s(LSG2+6)/12*A0/52 0000 v,5 Tm93eSuR T (P L/105g1. . .__ __ _ __.._..anot PROCEUt'RE wFwleHFW1 wST) sErW1(LSG1,TAVG,OTOT) 0000 IF (TAVG.GT.SS0) GO TO 30 0 0 0 IF (UTDT.LT.CDPSI GO TO 40 0000 30 *SflaaSr 000e bu TO S( 0000 40 W S l.).a m S T / 2 , _.
- _0400 50 CONTINUE 0006
- HFntsHErw 000@
l IF (LSGl.GT.200,1 GO TO 77 000@ wFalawEFW 0001 GO TO 76 0000 _ 7_7. WFwIag,_ _ _ . _ . . ..__ gaO(E 76 CONI t tlVE 4004 ENOPW 00nu e 000g PROCEDURE aFW2,HFw?,wST2 s EFW2(PR,LSG2) 000@ ' IF(P2.GT.1025) GO TO 15 0000
. _ k S.T a s 4 . _ . . __ . _. _ _ .
3000 GO 70 16 0000 15 *ST2s280 0000 14 IF(LSG2 GT,30,1 GO.TO 17. - - - -
- 0000 wFWawEFW 000n GO TO 18 0000
','^ anno ia e n a i n..ie
VP3ZcM30VP=10000, PPo!C2CSO(700/(11500 =M30VR))oolel . ((O[)( p p.p/p000C 0000 SCM3TSS TM 0000 0 OUMMY VARIABLE TO AVO!D VF REING WIPED OUT BY TSS / 1(lb 0000 e TSStsTSS ____ __. _. ___ __ - - _. 0000
- r. en... . 6rsiar-ussa.ver-,
66v6 OXOT1,0 POT 1 LSG1, ALF AleMEM(X1,P1,WFW1,HFW1,WST1,HST,QT1,V) 0000
, DXDT2 DPOT2,LSG2, ALFA 2WMEM(X2,P2,WFW2,HFW2,wST2,HST,072,V) 0000
-- = vi s u m. i 4 - , = n- a s g veG6 ZAls I N TGRL-( ! X ,0X O T i l -~- 0000 ZA2s INTGRL(!X,0XDT2) 0000 gPtr- jiiiGEL g iF,DPQii j -- -
0$ 0 0
, 2P2s INTGRL(IP,OPDT2)
F TAVGs!NTOPL(!TAVG,DTDT) 0000 00001
-~;EOCEUv e E 41,i5Gi o i55, ac, 5G2=LIMi i i241,2X2,P C5i 0050:
IF(ZLt.GF.1.0) ZX1s1 0 00001 IF(ZPl.LT.15) ZPis)S. 00001
- tP tZr2.LE.O. D.OR.TX7.GE.1. )~ Calls F INISW" -- -- - - -
---$O001 IFILSG2.GT.300.04.LSG2.LT. 05) CALL FINISH 00001 X1sZAl
.. . - . .m 7 g7 .--. - - --- . .- ... ...-- --
00001 y 91s7P1 P2s272 00001 00001 CAtL'T4ATr2Pt,TSSPt) -- - ---- -~ e Otttri CALL ~TSAT(ZP2,TSf5P2) TSGisTSG81 00001 00001
- TStt 2s Tt0-c U EI U U &
CALL TSAT(pRC9,TSS) ,
, MST=INTGRL(O.,WADV) 00001 -F. .
00001 sA0vswST!*wSTF- -
- - ~ - - " " -- - - - -
Otett ENQPWU NOS0di 00001' 00001 CALL ot eutt(2 0. r - - - 000er o:wp!rE(21,991 TINE.TAVA,PRCS,LSGL,LSG2,wST1,HST,pleP2 00001
' 99 FOWMa T (1 X ,10F61 11 i TERMINAL 00001
- Otetrr
' METHOD RECT TIMER FINTIMs10000,PROELal0, OEL Ts2. , OUT0FLs20 00001'i Pp ! W T a vtt, '#CS , VPRT, PT , *T. C SG t , vs 71, ws T 2. M4 T -
000010 DAGE xYpl0T
- n00tt N 0 OUTpVT T!4E , P2(0,12001,91(0,12001 000010 o ourPUT TIME,wMp! 000010 0000 t
- OUTPUT T!>E MST
[ OUTPUT TTME, ppt's 0000181 o-OU T Ptt? ? f rw Tk( 20 0'. , A&tti T e TCFTP00. ,6 00. ) e T SG2 ( 2 0 0. 6 0 0.1 00001t) o JUTPUT T I ME , TH t 2 0 0. 6 0 0. 3 . T c l (2 0 0. ,6 3 0.1. T SG I ( 20 0. ,6r.0.1 0000 to
-o OUTPUT TIME, vpW2 00001Qj o 0000!p 00TPui T IME ,LSol ( 0,30 0 ) ,LSG2 ( 0,3001 QUTPUT TIMEewST1(0,200),wST2(0,200) 00001d ENU 00001@
S TOP- 00001Q C FUNCT!uN OF Hpl HF40 CURVE 0004 tQ FUNCTION sqMP(p) 00001@ O!MENst0N Pito),P*t6f 000010 000019 OATA p!/15. 615.,1015.,1515.,2015.,2415./ 000019 OATA-DM/69.7,63.5,55 6,51.3 41 9,33.1/ 000019 CALt TNTP(PT,PM,6.P.FP7 PUMeerp 0407t9 bETURN 000019 E40 - 000017 000&lQ C FUNCTION TO CALCULATE SUSC00 LED FLUID ENTHAL'PY 000017! FUNCTION HFLu(T,P) C=iL EidiwzPTtTG,nwi 000017l L we. n u. J
r FUNCTION-SPHT(T,P) . _ _ _ /[d h[khd 00001: CALL CSUS;F(TePeCP) 00001 SPHTcCD 00001
! PETURN O lhh 00001' END 73 f 73,, 00001.
rguerteu veute!.3 ;;e93
) OIMENSION S!(12),W!(12) 00001 OATA SI/=10.e=8.,=4.e=2.so.e2.eA.e6.e8.e8.Ae8.Se10./ 00001
.- n*TA w!'????::1?'5;:1?^4;;1?t*:e!!*!;-1980;:***;: ea9al C 663.e208.e88.,54.5e34.5/ 00001:
CALL INTP(SI,Wie12 SIG,w) 00001: Tis vas._ . . _ _ . _ . _ _ . . . _ -- 0eae! RETURN 00001 ENO 00001' Ca___.rgscyteu 'O C^LCUL ATE ViaOS Euvuitow egna3 FUNCTION MVAp(P) 000019 CALL TSAT(pet) 0000l* CALL EMTHAt(T,P.HV) " 00002 MVAPsHV : 00002 RETURN 00002
. .. ... . . Eso.
_ _ _ . . _ . _ _ . . _ - - . _ _ _ _ . _ __ . _ . _ aeea! C FUNCTION TO CALCUL ATE L IOulo ENTHALPY .000n2 FUNCTION HLIu(P) 00002 CALL.TSAT(9,T) . 04nuL CALL ENTMAF(T P ML) 00002 MLIQsHL 00002 _ . . . HE.T.I 19 " - .- - . _. .. _._- _ - . . 99^92 LNO 00002 C FUNCTION TO C4LCULafE SuuCuGLED SPECIFIC VOLUME 00002 FUNCTION VL(TeP) - __.44D02 CALL'SPVOLF(T,PeV1 00002 VLav 00002 RETURh_ . . . . __. - - - - . --. 900a2 ENO 00007 C FUNCTION TO CALCULATE LIQUIO 90ECIFIC VOLUME 00002 FUNCTION VFLU(P) . _ . 00002 CALL TSAT(P.7) 00002 CALL SPVOLF(TopeVF) *- 00002 V FLaaME - 00092 GETUR4 00002 E r10 00002 ( SUhR0UI!NE trit P (x!,Yl e !O A e f) __00002 OIMENSION A!(InieY!(IO) 00002 , Jul . 00002 l 1 n IF (1,GE.11 (J) ; A MO M ; L 7 ,.s.! t J + 1.3 1 GO.TO 5 . _ . nean2 ! IF(J.dQ.!O=t) Go TO 15 00002 ! JsJ+l 00002 l 60 Ta 10 - 40002 5 ysVI(J)+(Y!(J+1)=y!(J))/(x!(J+1)=XI(J)le(K-XI(J)) 00002
'HETURN 00002,
.. 15. ..Y aY t (1014.( Y T.(In L= y I.(40=1 L L/ ( A.I.t tal =JLI.( ID. I 1 ) e ( x =x I.t iD L 1 . e0002 HETUWN 00002 END 00002 FQNCTIUM VGA$(P) _ 434Q2 CALL-TSAT(P,T) 00002 y CALL SPVOLV(TopeVG) 00002
...._ vaae=ue _ _ _ _
aaaq-PETURN 00002 tNO 00002 l REAl FUNC.T10N.M000Y(PStato_ - _ . - .__ ._ . _. . __--. 0unad 01 MENS!0N FLG(13).FGS(13), PRS (13) . 00002 0ATA PRS /100. 200.e400.e600.e800.e1000.e1200.e1400.e1600.e 00002 _ rin== _s... ssa. _s an 2 .nans
',1 ; ; ; ' ;T ;'. '. ; ; ; ' ' ; ! ; * ~ ' ' ! ' . .- . .. _. _ -. - - -
~ ~ ~ ~ ';
" vvv C3922.ecoJ5 ,o979.e5566./
m' IF(19KeEQ.2)GO TO 20 000(
/ [Oh ~
J CALL INTP(PR$eFLQe13ePeYP1 000( M000Yav8 Q g h ttL 000G r RETURN I 000( 20 c0Lc 2araires.res. 3. M000VuY8
..:; /<4 f W 000(
es.e b_ URN 000@ 6'WW 000g
' FUNCTION DECAY (T) UyWU OIMENSIGN Tr(28),0!(?8) 000@
'ATA J 000@
T-190TrtTv2. ,4. ,6. rd r,10. 2 0. 4 0. 6 0. ,0 0. ,10 0. . C200.e400.e600.e600.,1000.,2000.e4000.e6000.e8000.e10000.e 00 %
'-- C2.E4e6.E4 6.E4e8.E4,1.E5 2.E5/ 0000l OATA 0000' D I/. 0 0 75. . G o25. . G";9, . 0 "52, . 0 33 3. 0 512, . 0 5, C.045. 0396,.036,5. 0346,.0331. 0275. 0235. 0211,.0196. 0185s.0157. 0000{ 0000 C.0128,.Oll2,.0105,.00965,.00795,.00625,.00566,.00505.
C Att- I N T P-t T t e 0 f ,267 e f a tn t- - - - - - - - 0n475,,004/ 0000 DECAYnDY -- - -- - - -- -- 00 0 0 RETURN 0000j
..______.y__. . . _ _ . _ _ _.
_. .. 00004 SUadotiffNE uSaT (DEGFe PSIAI gg C 0000$ C- 0000J C C4tCuta TFS SATURA ttOM- PPESSt1Rt G-tVEN TEM 9tR*-tuRt"---- -- cr000s C (d DEGREES F IN RANGE 32 70 662 OEGREES. 00002 C-- 00002 C metrir ASME STEAat TKBI.TS~- F00*Tet EtTTT TON-- - - - --- C SECT. 5 (P. 17) 60004 00002
~ R t41.*8 DE G ro T#EDUe ASIA FTHCPAe BET 8T ttRfAlt -- -
0000c C " -
'00002 C CONVERT 00002 e _. TEMPERATURE TO REQUCEO TEMP 00005 THETA a TWEOU (OF.GF) gqqq C 00006
C- 00002 C GET REDUCEO SATURATION PRESS- (4E T A (M t = Tr.E n FUNc t!OM - - -- - 000tr2 WETA = RErak (THETal 00002 C --
- 00002 C CONVEpi TO A850LUTF PRESSURE.
.yg C 00002 SSta = 00002<
C (HE T A
- 2. 2120
- 7*0 025 =0
- o * *21/ ( 9. ts ue650 + 0
- 0. 45 35923 0000@
C 809NORY CHECKS 00002c C- - 00002c CAL.L HOUN05 ('D9AT *30EGF,ASI&,11 -- Oc0172t C 00002G RtTUDN 00002c END ~ _. . . gg gg p C 00002G _. g.. - 00002G SUBHouTINE rsaT ;pi4 OEGF)
- 0000M C 00003t.
C- '- 00003c C HtETUstMS SA TURA T 10N TEMP (RATUNE OtVEN A PRESSURE ftfttre30 C IN PSIA IN THE dANGE O TO 2?98 22. 000030 C- 000030 C USES--A STMPtE Mf SECitett-METHOT 70- COMvE40t n00n30
- C 04 ON TSAT RY CALLING HETA (K).
000030 p . C--- - - --- - --
- - - - 000030 REALes p!No OEGF, TA, 78 THIO vvvv20 6 PRESS e' EPSLON, EMIN, AMAX, 000030 9 ETA, 8ETAF. TRE00, PREOU a,icus, ase, 000031
M 0/K - N @ 6/) TITLE CROGRAM TO C00LOOdN RATE BY USING ADV AT TMI ADV.04TA [. [2- 00000 00000
>= 00af!"9^'!0" O' 'w? LOO" "00EL 20Y^ 0 59" ceaae o AT 10000 SEC TOTAL STEAM LOSS THROUGH TSV AND ADV IS 4.412E5 L9M 00000 CONSTANT P0wtR = 2568., Vs 12000.,0ELAYs10000,HEFWs60 00000 8=!?^.6 aaaaa IPsP _
00000
, ! T = 150 000003 l _. Maya 50 _ _ _ _ _ _ _ . . . . . . _ _ _ _ _ _ _ . . . _ _ . . _ _ _ . _ _ _ _ . . . . _ . Sagac2 i CPal.25 000002 0
gyuaure 00000: aannac o bbbbbi HST = HVAP(P) 00000: 4ST. a QJ.* SORT (p/10501 00000: ym0ECAY(TIME +0ELay)*powEP*3.413E6/3600.-=STe(HST-HEFwl 00000c OTOT a 0/M/CP 00000c _ ._47 a. I4 T GD L t.3-2.+nT.n.T.3_ . . . . - - . . PDOCE00PE P e rsLIMt f (77) T ^^
.)n 0 0 0 q 4 Pan
!- CALL PSAT(ZP.ZT1 00000%
400005 IF(ZP.LT.20) CALL FINISH 00000f PsZP 00000G e-7 . _ _ - . . _ . . . . . . _ _ . . _ . . _ _. _. . . _ . . . _ . . . . . . . *a ENOD40 000000 MSTsINTOPL (4.4174E5,*ST ) 000000
-a ---
- 0400st NOS0df 00000Q CALL DEduG(2ep.) 000004l
-fE4*!kAL - - - - - - - -- -
^^^^^'q METM00 NECT 00000c f ir1ER FINTI9s10000n, PPOELs100., OELTalo, OUTOEls100. 00000t PPINT TIME,T, wST.Q,P,wST ---00000%
PAGE XYPLOT 00000c LAdEL TM! C00LOwoN USING ONE ADV 00000t o a u f n O T T i w E , 7-o
^^^^'; ,
OUTPUT TIME.D 0000lg o OUTPUT T!"F,a9T 00001( 0 OUTPui TIut. 4 000018 OUTPUT TIME,MST 00001G ENO 000010 Sion . . ._. _. a a, a a i; Co FUNerIno To CALCULATE VAP0R ENTHALPY 0000lG FUNCTION HvaP(D) 00001@ quALOG(P) '
. . _ 4444kB IF(P.LE.450.0)GO TO 2 000019 IF(P.LE.2190.)GO TO 3 000018 e e 7.,q.. . ._ .._.
_ _ (p p g .1_} HVAPs((((f0.37170*l600 leu-0.9111dl26001)*U-0.24447810021*0 000011 C-0 2721717en02)*H-0.4420e9960921*U=0.663516=2002)*U 000011 C+0 1167608200& 0000kl PETURN 000011 2 HVAPat(((((-0 36740-04*U=0 58620-03)*U+0.435075980-02)*U 000011
- - - C-4rl-44-394+00-41 I +4+4 r2+7-7'4140=W +4- - - - - ---
4044-1 D C + 0. bis 5i191700 ) *u
- n . I'* 22 R 3190 0 2 ) *U + 0.1105 96250 0 4 00001&
PETURN 00001& 3 Hv4 Pal .19251E3+6 416805E=a*P-9,9871952E-5*Pesa - - - - - - - - - esse-LS C **.5502391E-s*P**1-9.3721615E-12*Pe*4 000018 RETURN n00018 e c.mertna en e........, . .....- - -. -
m g y; pt pkosung I v N
._ ag - "
"3' "l
f (w ' gy9 R ieo J k *fC
' . s n , ._
Y* ' k k $ $s[$
.N 4
- Q u
y,, t Qt f - g
=
3, '1 l k 4
. 43 d T-3g l
I ' F t e s u
,w i .
= < - % %"e e :
xxo l
, Q w f*
w g d % O,
. - A v i 4 % 44:
4 1 (%- d D * - < y El I h jw falo) sa esta ,,; s, g-
% A 4 i
I - 5 }
~
. 1 . 4
?
1 d - e; 8 dnco . 4.Q-
-i t .
E 8 3 d~ n. k % < 3 ce Sb ' A Y s v <
\ E onode co str onodt oosdr oo oor oo st. oo os ' on u os p
(^9.c/22) ee.e
. -'N' l5 ,
~ \.: ;-
/f .
8
.8
r11aj) $ g
,' .' l(D[kd%SO ~dfW g g 8 l Id E.
S 8
, i 8
9 8 do i S 8 8 2 a f 8 4 8
.'4 97) 00*6 n'oh n'ok n'ok n'oh n'h ni n'edg
' n'adj
# #7 N J' @ f & Qft//yj l
4 //d/w?Go/4. j
~ ~4 ' g . j -
/ ? e/ 22-j s o l.
# d.
~
.h 9 $ p 3 8
- (yP o- .t i
~
45i 1 u i d I j h 6 b j Q O 3 O s>0 e o o $y f g
- l o C 0, a j c
<t y T- J f h t I
i 8
> ika 0 -
C = 8 W ia z O 8 o z e; u) D I 2 2 - O Z S U i _J - D O U I e -, E . 8 3$ coeds coeds 'co ens onsis coeds coede coede cose oneap '"' do) ^G $2)
ll0/K~$/To-OtY yg , n__ y 3 4
=%
d 4 8 o 3* l u 3- 1 i
, I 8 l 4
> o & :
O I t 3* tu Z E D 2 U sw Z gz
~
Z (n 3 8 2 Z - O Z 8 C d J t O O U 8 a
,- ./
I e g co's'd oo' sit cosdr oo'de co k osde oein onde os si d L? re s b,
, _ . _ . - . _ .-}}