ML20126C031
Text
{{#Wiki_filter:' k / %g. UNITED STATES ! ') 3 c.f 'g NUCLEAR REGULATORY COMMISSION _g WASH WGTON,0. C. 20555 p* ..7 f July 27,1983 \\; +.'.3 o ~ 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 i T. Iplolito D. Crutchfield G. Lainas 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 - .f 1 8506140287 B50125 l l PDR FOIA DETJENB4-B97 PDR s
, 4 ' ' '. SAPC # 152 Inter-Office Memorandum t-Data August 3, 1983F duc ear Subject Iechnical Review of Calc. 1101X-5450-014 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. A review of the equations and assumptions given in the suoject calculation J 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 FunctLo's and Subroutines Appended to Above Two Programs. C. a 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-
- f. G. S'oughton, Director - Systems Engineering cc:
r L. C. Pwu, Engineer - SAPC \\ l
. - E N: clear cate,uo. 8.0/d f @.Q / @ saerr so...../... or. A.%. sumacr.....Th. L -l.... dealdrw>t.. kk.. (Aw'f......... COMP. BY/oATE... C.s 24- ...........Im M...)y... Vd.f........................ csx o. 5 Aac's3 f Shb d 1 i k A % + asno 9e p Les.vf,5ka O~ w M+ri.o m (Loe,uL mcxw g Y wdedq & ud dm&d io M uk- - Baw psw % <h/ _fu, i d M o 7 f 6< ', -,( o,,.-4d 4k -7 Covlw 4 h IA AW'e. %p Vbt l '+D V ). nA / av T-% y,n v& C7%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 -supw & a c 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.&.... D ATE........ h..".39. I.. h... SU8 JECT............................................................................ COMP. SY/DATE.,...%.C.l.. ..............................................................................CHK'D.BY/DATE.. . 3.&d-63 y Pi acs ' VV W-4 5 W/c 6 k st- 'L L 3 A 74 QL D PA kk ~ l n itcs ', w A A <N Sw n w-h- 3 f A q.-- Y Y,h m L A W i V, W *i, gutz I4 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 DATE........2.!.20..'.D.. ~ SuoEcr....................................................................... 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. a MAc R. o h c.sM f W h Oi E, SztyaL- % (e<A : PO T, D P D T, L f 6. ALF4 = #EN (x', P, WFW, U Nb $f Y o s r) bV Tax br= fl = A s PJh % ;,orre. DP ) T'- 'iP P'
- T at
'Ih = 6tw y % M blFA = d & c4-%e % : +%.bTSh x ff% % ? pr e 9p.= r = Fa W $ ") b ifW = k u M F wsT = Sf w % A % = h<t= y rf w [ >- % fLJry t.S.. EfY 'C L C $6. L J 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 h -= U L O T[l, 7 uAq =
- u. -4 C Ta.c5 - Trc, )
c. v = fM rh ~ orf c, u o7. pet staA MF
- c.. p th b qd%i
'+ X % of ? pk b e,.~.~ % w a + % W h r w. Wi r, 4 cv pv, m A c2 r - 5 ' A ~ ' Co ca.A %(~i 'L - n-Di i J c 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 T-{d' %m 6 o TR, g c T-y,o-x) v.g xy H M r. O -x ) - y d m M LOGb p-xW d = ko) + o-x N - f ( b t,'k. L Me% . n.- 6 z Sta u( 6w C.6 c can sutur W L% L't b[ A s. 6 s A==. t p. 4 P ( u A i 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 [ f.' $h h A m 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. +0ncf NgC p _- h c. - O - S- "CS ^ d t- ) m L t rt c 3 rMato+M 1% : -trrrd %4% A %ob Cy SCS E h h C C "E S Q ace.Rcp g Q Q y tw
==- V M R ' $ C 3Rc5 P 3 T i l ~ AOOO 0018 a.s o
Nuclear cuc.no....L{.y/.k..@).h-ssser no..... 9. or. 7.h.... Q sumeer.................................................................................. o Are............... d.,2 R. :.8 COMP. B Y/ oats.......N.( j.h.. cxxo.sYeoare g3.m8 A V = $ U A c s v A c a, J. r e s e.) r l' TO
- W Coeuh @ )
~ 1h k
- s RCf 0 a @.
5 na ie W w% %.ps% ,~:-+ gT4%c Q fu = l ac s + 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 m n a u u a a a r c e,.a et 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... DATE....... 7.,2.o.. U....... suBascr..................................................................... COMP. SY/DATE.......(I.. ....................................................................CHK'D.SY/DATE .3.M.PO kN L AL $ 3 lb/n (N b7 ) kYh r~$ cJ rit-p rh C t o n f' A. ) ~ -t d% Tk 'A f c'l s e c,~ L OT-l 6 pen, Yr L ADV ;< ~ o f a.td~- < L M r! hut. O
- a. S $ w a + k '} hA hk N udc(m
%.A ce -b L-f ai k TO'F-/ A 4k.pt l stat.9 3%a tLJith L sov m T.- yu W.L w ri dc,.L.4 L L.{.,. 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 } F*d ( {c( b, .) ($ W 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..&.. Dars...............g..7.9..: /.5 suB;:Cr............................................................................. 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' O$AC a
C4 a. 2L.wbv 4 pClopu( sd bu114d.) (k W M!.D&T& sla.d rerM evt Dorg tom i c. da cirf6 pren n e g,,; r p e -Q.
- 4. El 2 n o ' b.,,
fg m To find ~ U 6 [ is ap;wy;dh hern. d 11 a s y esiu v G ( G L ' r "'N AD t/ 6 clg nG a g 0r56 p ras ~ <:o - 9 9, d i s cv - w -(y (P = a e;w 4f f4 = $(( %MS '[:. l2.c C t - f 2 67Ib T"P = Tre. h rLL<$ d T ded C &E *P-nY 6 tun ase~a.
Nuclear cate.no......./.[0//...!T4.33-O sweer so...../.... or..W.... 04T s............g. p. -. S. suBascr.. 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 Tm Ltp%I &~h% w ( h r) (*F) OL) F79 0 o
- 2. 2 * 'Y
/ u <w 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 N TITLE PROGRAM 70 STUnY TMI-1-C00LOOWN USING ONE ADV 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
? TAVG=TSG FOR 0TSG HEAT TRANSFER DURING TRANSIENT (N0 LOG MEAN) 000 6 w 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) 00 000 "Hs4*wG*(1=x)*HF ALFaux*VG/(XavG+(t=r)*VFr ~ = 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. 000h VP42stvPpl 0009 ps930. -- 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 jf 4,g g.gg,go VGaVGAS(P) 600 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. GRCSs(PowERe0ECAYtTIME)+RCPl*3.413E6/3600 0Sa 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.. TC2PsTAVG-GT2/wRCS/CP Aant 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 TSStsTSS e 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 g = vi s u m. i 4 -, = n-a s 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) 0000 F TAVGs!NTOPL(!TAVG,DTDT) 00001 -~;EOCEUv E 41,i5Gi o i55, ac, 5G2=LIMi i i241,2X2,P C5i e 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 00001 ... -..m 7 g7.--. - - y 91s7P1 00001 P2s272 00001 CAtL'T4ATr2Pt,TSSPt) -~ Otttri CALL ~TSAT(ZP2,TSf5P2) e 00001 TSGisTSG81 00001 - TStt 2s Tt0-c U EI U U & CALL TSAT(pRC9,TSS) 00001 MST=INTGRL(O.,WADV) 00001 -F. sA0vswST!*wSTF- - - ~ Otett ENQPWU 00001' NOS0di 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 00001 i TERMINAL - Otetrr ' METHOD RECT 00001'i TIMER FINTIMs10000,PROELal0, OEL Ts2., OUT0FLs20 000010 Pp ! W T a vtt, '#CS, VPRT, PT, *T. C SG t, vs 71, ws T 2. M4 T
- n00tt N DAGE xYpl0T 000010 0
OUTpVT T!4E, P2(0,12001,91(0,12001 000010 o ourPUT TIME,wMp! 0000 t
- OUTPUT T!>E MST 0000181
[ OUTPUT TTME, ppt's 00001t) 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 0000 to 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 00001Qj -o OUTPUT TIME, vpW2 0000!p o 00TPui T IME,LSol ( 0,30 0 ),LSG2 ( 0,3001 00001d QUTPUT TIMEewST1(0,200),wST2(0,200) ENU 00001@ S TOP-00001Q 0004 tQ C FUNCT!uN OF Hpl HF40 CURVE 00001@ FUNCTION sqMP(p) 000010 O!MENst0N Pito),P*t6f 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 000017 E40 000&lQ C FUNCTION TO CALCULATE SUSC00 LED FLUID ENTHAL'PY FUNCTION HFLu(T,P) 000017! C=iL EidiwzPTtTG,nwi 000017l L we. n u. J
r . _ _ _ /[d h[khd 00001: FUNCTION-SPHT(T,P) CALL CSUS;F(TePeCP) 00001 O lhh 00001 SPHTcCD 00001' PETURN 73 f 73,, 00001. END ) 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 aeea! ........ Eso. 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 00002 CALL SPVOLF(TopeVF) 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 REAl FUNC.T10N.M000Y(PStato_ __--. 0unad l 01 MENS!0N FLG(13).FGS(13), PRS (13) 00002 0ATA PRS /100. 200.e400.e600.e800.e1000.e1200.e1400.e1600.e 00002 .nans rin== _s... ssa. _s an 2 ~ ~ ~ ~ '; ',1 ; ; ; ' ;T ;'. '. ; ; ; ' ' ; ! ; * ~ ' ' ! '. -
vvv C3922.ecoJ5,o979.e5566./ IF(19KeEQ.2)GO TO 20 J CALL INTP(PR$eFLQe13ePeYP1 / [Oh ~ 000( m' 000( M000Yav8 Q g h ttL 000G RETURN I 000( r 20 c0Lc 2araires.res. 3. /<4 f W 000( M000VuY8 es.e b_ URN 000@ 000g 6'WW FUNCTION DECAY (T) UyWU OIMENSIGN Tr(28),0!(?8) 000@ 'ATA T-190TrtTv2.,4.,6. rd r,10. 2 0. 4 0. 6 0.,0 0.,10 0.. J 000@ C200.e400.e600.e600.,1000.,2000.e4000.e6000.e8000.e10000.e 00 % C2.E4e6.E4 6.E4e8.E4,1.E5 2.E5/ 0000l OATA D I/. 0 0 75.. G o25.. G";9,. 0 "52,. 0 33 3. 0 512,. 0 5, 0000' C.045. 0396,.036,5. 0346,.0331. 0275. 0235. 0211,.0196. 0185s.0157. 0000{ C.0128,.Oll2,.0105,.00965,.00795,.00625,.00566,.00505. 0n475,,004/ 0000 C Att-I N T P-t T t e 0 f,267 e f a tn t- - -- - -- - - -- -- 00 0 0 0000 DECAYnDY RETURN 0000j ..______.y__. 00004 SUadotiffNE uSaT (DEGFe PSIAI gg C 0000$ C-C4tCuta TFS SATURA ttOM-PPESSt1Rt G-tVEN TEM 9tR*-tuRt"---- cr000s 0000J C (d DEGREES F IN RANGE 32 70 662 OEGREES. C 00002 C-- metrir ASME STEAat TKBI.TS~- F00*Tet EtTTT TON-- - - 00002 C SECT. 5 (P. 17) 60004 C 00002 ~ R t41.*8 DE G ro T#EDUe ASIA FTHCPAe BET 8T ttRfAlt 0000c C '00002 C CONVERT e TEMPERATURE TO REQUCEO TEMP 00002 00005 THETA a TWEOU (OF.GF) gqqq C 00006 C-GET REDUCEO SATURATION PRESS- (4E T A (M t = Tr.E n FUNc t!OM 00002 C - - -- - 000tr2 WETA = RErak (THETal 00002 C 00002 C CONVEpi TO A850LUTF PRESSURE. .yg C 00002 SSta = (HE T A
- 2. 2120
- 7*0 025 =0
- o * *21/ ( 9. ts ue650 + 0
- 0. 45 35923 00002<
C 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-HtETUstMS SA TURA T 10N TEMP (RATUNE OtVENA PRESSURE '- 00003c C IN PSIA IN THE dANGE O TO 2?98 22. ftfttre30 C 000030 C-USES--A STMPtE Mf SECitett-METHOT 70- COMvE40t 000030 C 04 ON TSAT RY CALLING HETA (K). n00n30
- C 000030 p. C--- - - ---
vvvv20 000030 REALes p!No OEGF, TA, 78 THIO PRESS e' EPSLON, EMIN, AMAX, 000030 6 9 ETA, 8ETAF. TRE00, PREOU a,icus,
- ase, 000031
M 0/K - N @ 6/ [. [ 2 - TITLE CROGRAM TO C00LOOdN RATE BY USING ADV AT TMI 00000 ADV.04TA 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 _ _ _ _ _ _ _.. i CPal.25 Sagac2 000002 0 00000: gyuaure aannac bbbbbi o 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 ^^ 4 Pan .)n 0 0 0 q 00000% CALL PSAT(ZP.ZT1 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.) 000004 -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 N ag "3' f (w ' v gy9 ie R "l J o . s n,._ k k *fC $ $s[$ Y* k Q y .N 4 = g 3, '1 Q u t k 43 d T-t f l F s u t e % %"e e : I 4 3g ,w i = xxo g d % O, f* Q w 1 (%- l w v i 4 % 44: A d D y El 4 h j falo) sa esta,,; g-s, w i I A 4 5 } 1 ~ 4 1 ? d 8e dn co 4.Q -i t E 8 3 d ~ n. k S 3 b A ceYs 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 8Id 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'edg n'ok n'adj n'oh n'h ni
- #7 N J' @ f & Qft//yj l
4 //d/w?Go/4. j ~ ~4 ' g j / ? e/ 22-j l. s o d. ~ .h 9 p 3 8 45i .t i - (y 1 o-u ~ i P d I h j j 6 b O 3 Q s>0 O $y f o g e o
- l o C 0,
j a y T-J f h t c <t I i 8 ika 0 C = 8 W i z a O 8 o e z 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 3* o 3 u i I 8 4 o O t 3 tu E Z 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 L re s d ? b, _ _ _. _}}