AUTOPLOT USE

file
ghis 2

data
time tpar
pl
red
@
0.15252E+04 0.24165E+04 CR
Particle temperature vers time@
@
0.29479E+04 0.18238E+03 CR
Time (sec.)@
@
0.12817E+03 0.29181E+04 CR
t(part.)@
@
0.10189E+04 0.79466E+03 CR
pause
end
ENDUSE
TEXT(HEAT-EXCHANGING, 1-D : G302
TITLE
DISPLAY
Constant gas temperature, no slip.
The particle temperature as a function of time is
as follows:

(A + B.Tg).log((Tg-Tp)/(Tg-T0)) + B(Tp-T0) =
-alpha.t.mass

where: A     - constant in particle Cp formula
alpha - particle heat transfer coefficient
B     - gradient of particle Cp vs. T function
mass  - particle mass
t     - time
Tg    - continuous-phase temperature
Tp    - particle temperature
T0    - particle initial temperature
ENDDIS
REAL(WIN);WIN=100.0
GRDPWR(X,5,1.0,1.0)
SOLVE(P1,U1);STORE(TMP1)
TMP1=GRND1;TMP1A=500.0
FIINIT(U1)=WIN;FIINIT(P1)=RHO1*WIN;FIINIT(TMP1)=500.0
PATCH(GXIN,WEST,1,1,1,1,1,1,1,1)
COVAL(GXIN,P1,FIXFLU,RHO1*WIN);COVAL(GXIN,U1,ONLYMS,WIN)
PATCH(GXOUT,EAST,NX,NX,1,1,1,1,1,1)
COVAL(GXOUT,P1,FIXP,0.0)
LSWEEP=1
TRACE=F
#GENTRA
*-------------------------------------------------------
* GENTRA GROUP 1: Particle physics
*-------------------------------------------------------
* Particle type - 40 - HEAT-EXCHANGING_PARTICLES
GPTYPE=40
* Gravity components in GENTRA Cartesian system/buoyancy
GGRAX=0;GGRAY=0;GGRAZ=0;GBUOYA=F
* Stochastic model of turbulence
GSTOCH=F
* Data for particles with heat transfer
GDRAG=GRND1;GKONC=3.3400E-02;GNUSS=1.9060E+01
GCPLIQ=GRND2;GHLIQD=GRND1
*-------------------------------------------------------
* GENTRA GROUP 2: Boundary conditions for particles
*-------------------------------------------------------
* Inlet-data file-name
GINFIL=Q1
* Use this space for inlet-data table if GINFIL=Q1

*_XP_UP_DI_LDEN_MDOT_TEM_(NUM)
0.1 100 5e-5 8000 1e-6 1800

* Wall treatment, and rest coefficient if appropriate
GWALLC=3;GWREST=1
* Porosity threshold
GPOROS=0
*-------------------------------------------------------
* GENTRA GROUP 3: Numerical controls
*-------------------------------------------------------
* 1st GENTRA sweep; frequency of calls
GSWEP1=1;GSWEPF=1
* Maximum Lagrangian time-step; time step size multplier
GDTMAX=1;GRTFRC=1
* Min # of t-steps per cell; max # of t-steps; timeout
GLAGTS=5;GSTEMX=0;GTIMMX=0
*-------------------------------------------------------
* GENTRA GROUP 4: Output controls
*-------------------------------------------------------
* Restart-file, history-file and frequency for output
GRSFIL=NONE;GHFILE=GHIS;GOUTFR=1
* The identifier of the individual history and
trajectory files
GH1STC=NONE;GT1STC=NONE
* The first, last particles and the interval for
writing history and trajectory files
NGWSTR=0;NGWEND=0;NGWINT=1
* Particle number for residence-time calculation
GRESTI=0
*-------------------------------------------------------
* GENTRA GROUP 5: Provisions for the GENTRA-Earth run
*-------------------------------------------------------
* Storage for interphase sources of momentum
STORE(MOMX)
* Interphase sources of heat and momentum
PATCH(GENPAT,CELL,1,NX,1,NY,1,NZ,1,LSTEP)
COVAL(GENPAT,U1,FIXFLU,GRND)
* Relaxation of interphase sources
GLNRLX=1
RELAX(MOMX,LINRLX,GLNRLX)
* Activation of GENTRA GROUND-station
L(GENSET
* ----------------------------------------------------------
* GENTRA GROUP 7: GENTRA test
* ----------------------------------------------------------
* GENTRA auto test  RG(51)--RG(58) are reserved
RG(51)= 9.01E-03;RG(52)= 2.30E+01;RG(53)= 3.92E-04
RG(54)= 1.00E+00;RG(55)= 5.00E-01;RG(56)= 5.00E-01
RG(57)= 7.79E-01;RG(58)= 5.00E-02