L(790)
TEXT(Transient Counterflow  Heat Exchr.
TITLE
    User-defined variables:
 
    TIME = duration of process simulated
    INTVLS = number of time intervals
REAL(TIME,DELT,CAP1,CAP2,PORCON);INTEGER(INTVLS)
TIME=20.0;INTVLS=20;DELT=1.0;CAP1=0.5;CAP2=0.5
PORCON=1.E-5
 
    GROUP 2. Transience; time-step specification
STEADY=F;GRDPWR(T,INTVLS,TIME,1.0)
 
    A small volume porosity is used to nullify the effect of
    the built-in transient terms, which are replaced
    by the use of the special patch named NEOLD below.
 
STORE(VPOR);FIINIT(VPOR)=PORCON
 
PATCH(NEOLD,VOLUME,1,NX,1,NY,1,NZ,1,LSTEP)
COVAL(NEOLD,1STH,CAP1/DELT,LOCNE)
COVAL(NEOLD,2NDH,CAP2/DELT,LOCNE)
 
LSWEEP=25
OUTPUT(VPOR,N,N,N,N,N,N)
 
PATCH(TIMEPLOT,PROFIL,NX,NX,1,1,NZ,NZ,1,LSTEP)
PLOT(TIMEPLOT,1STH,T2IN,T1IN);PLOT(TIMEPLOT,2NDH,T2IN,T1IN)