FLUENT UDF代码 - 颗粒（煤或生物质）床层多相流燃烧过程数值模拟-第2部分-完结

CX_Message(\ CX_Message(\ CX_Message(\

CX_Message(\

CX_Message(\ CX_Message(\ CX_Message(\ CX_Message(\

CX_Message(\ CX_Message(\ CX_Message(\ CX_Message(\ CX_Message(\ CX_Message(\

CX_Message(\ CX_Message(\ CX_Message(\ CX_Message(\

CX_Message(\

CX_Message(\ CX_Message(\ CX_Message(\ CX_Message(\

CX_Message(\

CX_Message(\ CX_Message(\ CX_Message(\

CX_Message(\

CX_Message(\ CX_Message(\ CX_Message(\ CX_Message(\ CX_Message(\= %f\\n\

CX_Message(\ CX_Message(\ CX_Message(\

13

CX_Message(\ CX_Message(\= %f\\n\

CX_Message(\ CX_Message(\ CX_Message(\

CX_Message(\

CX_Message(\ CX_Message(\

CX_Message(\ CX_Message(\ CX_Message(\

CX_Message(\

CX_Message(\ CX_Message(\

CX_Message(\

CX_Message(\

/* f_ep_a is used in shrinking core model, in coal combustion model */ double ep_a = 0.25 + 0.75*(1-ash_ar/100.); f_ep_a = pow(ep_a,2.5); }

/* pan c3m start */

static void SetBooleanValue(char * var , char * svalue) /* pan : Oct 2012 ... new function */ { cxboolean value; if ( strcmp(svalue,\ /* pan2 : Oct 2012 : correction */ value = TRUE; else value = FALSE;

if (strcmp(var,\ == 0) PCCL_Devol = value; if (strcmp(var,\ == 0) MGAS_Devol = value;

14

if (strcmp(var,\ == 0) CPD_Devol = value; if (strcmp(var,\ == 0) FGDVC_Devol = value; if (strcmp(var,\ == 0) HPTR_Devol = value; if (strcmp(var,\ == 0) MGAS_Moisture = value;

if (strcmp(var,\ == 0) PCCL_Moisture = value; if (strcmp(var,\ == 0) MGAS_TarCracking = value;

if (strcmp(var,\ == 0) PCCL_2nd_Pyro = value; if (strcmp(var,\ == 0) MGAS_Gasif = value; if (strcmp(var,\ == 0) PCCL_Gasif = value; if (strcmp(var,\ == 0) PCCL_TarCracking = value; if (strcmp(var,\ == 0) MGAS_WGS = value;

if (strcmp(var,\ == 0) PCCL_soot_gasif = value; if (strcmp(var,\ == 0) MGAS_char_combustion = value;

if (strcmp(var,\ == 0) PCCL_char_combustion = value; if (strcmp(var,\ == 0) PCCL_soot_oxidation = value; if (strcmp(var,\ == 0) TAR_oxidation = value; if (strcmp(var,\ MGAS_gas_phase_oxidation = value; }

static void SetValue(char * var , char * svalue) /* pan : oct 2012 ... replace entire function */ { char * pEnd; double value = strtod(svalue,&pEnd); if (strcmp(var,\ == 0) fc_ar = value; if (strcmp(var,\ == 0) vm_ar = value; if (strcmp(var,\ == 0) ash_ar = value; if (strcmp(var,\ == 0) moist_ar = value;

/* NOTE:

If the two stage devolatilization model is not used, A2 and E2 have to be set to zero */ if (strcmp(var,\ if (strcmp(var,\ if (strcmp(var,\ if (strcmp(var,\

/* if (strcmp(var,\ should not be used pan : Oct 2012 */

15

if (strcmp(var,\ if (strcmp(var,\ if (strcmp(var,\ == 0) A_steam_gasification = value; if (strcmp(var,\ == 0) E_steam_gasification = value; if (strcmp(var,\ if (strcmp(var,\ == 0) K_steam_gasification = value; if (strcmp(var,\ == 0) N_steam_gasification = value; if (strcmp(var,\ == 0) A_co2_gasification = value; if (strcmp(var,\ == 0) E_co2_gasification = value; if (strcmp(var,\ if (strcmp(var,\ == 0) K_co2_gasification = value; if (strcmp(var,\ == 0) N_co2_gasification = value; if (strcmp(var,\ == 0) A_h2_gasification = value; if (strcmp(var,\ == 0) E_h2_gasification = value; if (strcmp(var,\ if (strcmp(var,\ == 0) N_h2_gasification = value; if (strcmp(var,\ == 0) A_soot_steam_gasification = value; if (strcmp(var,\ == 0) E_soot_steam_gasification = value; if (strcmp(var,\== 0) Annealing_soot_steam_gasification = value; if (strcmp(var,\ == 0) K_soot_steam_gasification = value; if (strcmp(var,\ == 0) N_soot_steam_gasification = value; if (strcmp(var,\ == 0) A_soot_co2_gasification = value; if (strcmp(var,\ == 0) E_soot_co2_gasification = value; if (strcmp(var,\== 0) Annealing_soot_co2_gasification = value; if (strcmp(var,\ == 0) K_soot_co2_gasification = value; if (strcmp(var,\ == 0) N_soot_co2_gasification

16