As usual, one can access any field using the field_get_val_s_by_name function. cvar_*
(iel) is the value of this variable in cell number iel
. ONLY done if there is no restart computation
pulverized_coal example
Local variables to be added
The following local variables need to be defined for the examples in this section:
integer iel, ige, mode, icha
integer ioxy
double precision t1init, h1init, coefe(ngazem)
double precision t2init
double precision f1mc(ncharm), f2mc(ncharm)
double precision dmas, wmco2, wmh2o, wmn2, wmo2
double precision, dimension(:), pointer :: cvar_scalt, cvar_yco2
double precision, dimension(:), pointer :: cvar_hox
Initialization
The following initialization block allows setting some variable values (variables not set here keep their GUI-defined or default values):
do ige = 1, ngazem
enddo
do icha = 1, ncharm
enddo
mode = -1
cvar_scalt(iel) = h1init
enddo
ioxy = 1
cvar_yco2(iel) =
oxyco2(ioxy)*wmco2/dmas
enddo
endif
cvar_hox(iel) = h1init
enddo
endif
9001 format( /,&
' cs_user_initialization: settings for pulverized coal', /,&
/)