L(794)
 
    CASE 6 As for case 5 but with allowance for heat
           capacity of metal
 
    GROUP 1. Run title
TEXT(Case 6; Allowance For Metal CP    
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)
 
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)
 
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(TIMEPLOT,METL,T2IN,T1IN)