L(797)
 
    CASE 9 As for case 8 but with allowance for heat
           capacity of metal
    GROUP 1. Run title
TEXT(Case 9; Allowance For Metal Capac  
TITLE
 
    User-defined variables:
REAL(CAPM,COEF1O,COEF2O,COEFMO)
CAPM=0.1;COEFMO=CAPM/DELT
 
COEF12=COEF1*COEF2/(COEF1+COEF2+COEFMO)
COEF1O=COEF1*COEFMO/(COEF1+COEF2+COEFMO)
COEF2O=COEF2*COEFMO/(COEF1+COEF2+COEFMO)
 
    Arrange that metal temperature, named METL, occupies
    store with index 1 above 2NDH and 2 above 1STH.
 
SOLVE(C1);NAME(C1)=METL;TERMS(METL,N,N,N,Y,N,N)
FIINIT(1STH)=T1IN;FIINIT(METL)=0.5*(T1IN+T2IN)
COVAL(INLET1,METL,ONLYMS,SAME)
 
    Repeat the COVALs using COEF12, which has changed
    since it was calculated for case 8.
COVAL(NEPLUS,1STH,COEF12,LOCNE)
COVAL(NEMINUS,2NDH,COEF12,LOCNE)
 
    Connect shell fluid with old metal
PATCH(NEO2,VOLUME,1,NX,1,NY,1,NZ,1,LSTEP)
COVAL(NEO2,1STH,COEF1O,LOCNE)
 
    Connect metal with shell fluid
PATCH(NEM2,VOLUME,1,NX,1,NY,1,NZ,1,LSTEP)
COVAL(NEM2,METL,COEF1O,LOCNE)
 
    Connect tube fluid with old metal
PATCH(NEO1,VOLUME,1,NX,1,NY,1,NZ,1,LSTEP)
COVAL(NEO1,2NDH,COEF2O,LOCNE)
 
    Connect metal with tube fluid
PATCH(NEM1,VOLUME,1,NX,1,NY,1,NZ,1,LSTEP)
COVAL(NEM1,METL,COEF2O,LOCNE)
 
    Transient for metal
COVAL(NEOLD,METL,CAPM/DELT,LOCNE)
LSWEEP=50
PLOT(TABMAP,METL,0.0,10.0)
PLOT(TABYEQ3,METL,0.0,10.0)
PLOT(PASS1,METL,T2IN,T1IN)
PLOT(PASS2,METL,T2IN,T1IN)
PLOT(PASS3,METL,T2IN,T1IN)
PLOT(PASS4,METL,T2IN,T1IN)
PLOT(PASS5,METL,T2IN,T1IN)
PLOT(TIMEPLOT,METL,T2IN,T1IN)