8.3
general documentation
Loading...
Searching...
No Matches
cpincl.f90 File Reference

Module for pulverized coal combustion. More...

Modules

module  cpincl

Functions/Subroutines

subroutine cp_model_map_coal ()
 Initialize Fortran combustion models properties API. This maps Fortran pointers to global C variables.

Variables

double precision epsicp
integer npotcp
 maximal number of tabulation points
integer(c_int), pointer, save ncharb
 Number of coals.
integer(c_int), pointer, save i_comb_drift
 coal with drift (0: without drift (default), 1: with)
integer(c_int), dimension(:), pointer, save nclpch
 Number of classes per coal.
real(c_double), dimension(:), pointer, save cch
real(c_double), dimension(:), pointer, save hch
real(c_double), dimension(:), pointer, save och
real(c_double), dimension(:), pointer, save sch
real(c_double), dimension(:), pointer, save nch
real(c_double), dimension(:), pointer, save pcich
real(c_double), dimension(:), pointer, save rho0ch
real(c_double), dimension(:), pointer, save thcdch
real(c_double), dimension(:), pointer, save cck
real(c_double), dimension(:), pointer, save hck
real(c_double), dimension(:), pointer, save ock
real(c_double), dimension(:), pointer, save sck
real(c_double), dimension(:), pointer, save nck
real(c_double), dimension(:), pointer, save rhock
real(c_double), dimension(:), pointer, save pcick
real(c_double), dimension(:), pointer, save cpashc
real(c_double), dimension(:), pointer, save h0ashc
real(c_double), dimension(:), pointer, save h02ch
real(c_double), dimension(:,:), pointer, save crepn1
real(c_double), dimension(:,:), pointer, save crepn2
real(c_double), dimension(:), pointer, save cp2ch
real(c_double), dimension(:), pointer, save xashsec
real(c_double), dimension(:), pointer, save xashch
real(c_double), dimension(:), pointer, save xwatch
integer(c_int), dimension(:), pointer, save iy1ch
integer(c_int), dimension(:), pointer, save iy2ch
integer(c_int), dimension(:), pointer, save iochet
integer(c_int), dimension(:), pointer, save ioetc2
integer(c_int), dimension(:), pointer, save ioetwt
real(c_double), dimension(:), pointer, save y1ch
real(c_double), dimension(:), pointer, save a1ch
real(c_double), dimension(:), pointer, save e1ch
real(c_double), dimension(:), pointer, save y2ch
real(c_double), dimension(:), pointer, save a2ch
real(c_double), dimension(:), pointer, save e2ch
real(c_double), dimension(:), pointer, save ahetch
real(c_double), dimension(:), pointer, save ehetch
real(c_double), dimension(:), pointer, save ahetc2
real(c_double), dimension(:), pointer, save ehetc2
real(c_double), dimension(:), pointer, save ahetwt
real(c_double), dimension(:), pointer, save ehetwt
integer nsolim
integer(c_int), pointer, save nsolid
integer(c_int), dimension(:), pointer, save ich
integer(c_int), dimension(:), pointer, save ick
integer(c_int), dimension(:), pointer, save iash
integer(c_int), dimension(:), pointer, save iwat
real(c_double), dimension(:,:), pointer, save ehsoli
real(c_double), dimension(:), pointer, save wmols
real(c_double), dimension(:), pointer, save eh0sol
integer(c_int), pointer, save nclacp
integer(c_int), dimension(:), pointer, save ichcor
real(c_double), dimension(:), pointer, save diam20
real(c_double), dimension(:), pointer, save dia2mn
real(c_double), dimension(:), pointer, save rho20
real(c_double), dimension(:), pointer, save rho2mn
real(c_double), dimension(:), pointer, save xmp0
real(c_double), dimension(:), pointer, save xmash
integer(c_int), pointer, save ico
integer(c_int), pointer, save ico2
integer(c_int), pointer, save ih2o
integer(c_int), pointer, save io2
integer(c_int), pointer, save in2
integer(c_int), dimension(:), pointer, save ichx1c
integer(c_int), dimension(:), pointer, save ichx2c
integer(c_int), pointer, save ichx1
integer(c_int), pointer, save ichx2
real(c_double), dimension(:), pointer, save chx1
real(c_double), dimension(:), pointer, save chx2
real(c_double), dimension(:), pointer, save a1
real(c_double), dimension(:), pointer, save b1
real(c_double), dimension(:), pointer, save c1
real(c_double), dimension(:), pointer, save d1
real(c_double), dimension(:), pointer, save e1
real(c_double), dimension(:), pointer, save f1
real(c_double), dimension(:), pointer, save a2
real(c_double), dimension(:), pointer, save b2
real(c_double), dimension(:), pointer, save c2
real(c_double), dimension(:), pointer, save d2
real(c_double), dimension(:), pointer, save e2
real(c_double), dimension(:), pointer, save f2
integer(c_int), pointer, save ihgas
integer(c_int), dimension(:), pointer, save if1m
integer(c_int), dimension(:), pointer, save if2m
integer(c_int), pointer, save if4m
integer(c_int), pointer, save if5m
integer(c_int), pointer, save if6m
integer(c_int), pointer, save if7m
integer(c_int), pointer, save if8m
integer(c_int), pointer, save if9m
integer(c_int), pointer, save ifvp2m
integer(c_int), dimension(:), pointer, save ixck
integer(c_int), dimension(:), pointer, save ixch
integer(c_int), dimension(:), pointer, save inp
integer(c_int), dimension(:), pointer, save ih2
integer(c_int), dimension(:), pointer, save ixwt
integer(c_int), dimension(:), pointer, save iym1
integer(c_int), pointer, save irom1
integer(c_int), pointer, save immel
integer(c_int), dimension(:), pointer, save itemp2
integer(c_int), dimension(:), pointer, save irom2
integer(c_int), dimension(:), pointer, save idiam2
integer(c_int), dimension(:), pointer, save ix2
integer(c_int), dimension(:), pointer, save igmdch
integer(c_int), dimension(:), pointer, save igmhet
integer(c_int), dimension(:), pointer, save igmtr
integer(c_int), dimension(:), pointer, save ighco2
integer(c_int), dimension(:), pointer, save igmdv1
integer(c_int), dimension(:), pointer, save igmdv2
integer(c_int), dimension(:), pointer, save igmsec
integer(c_int), pointer, save ibcarbone
integer(c_int), pointer, save iboxygen
integer(c_int), pointer, save ibhydrogen
real(c_double), dimension(:,:), pointer, save ehgaze
 engaze(ij) is the massic enthalpy (J/kg) of the i-th elementary gas component at temperature th[j]
integer(c_int), pointer, save ihy
integer(c_int), pointer, save ih2s
integer(c_int), pointer, save iso2
integer(c_int), pointer, save ihcn
integer(c_int), pointer, save inh3
integer(c_int), pointer, save noxyd
real(c_double), dimension(:), pointer, save af3
real(c_double), dimension(:), pointer, save af4
real(c_double), dimension(:), pointer, save af5
real(c_double), dimension(:), pointer, save af6
real(c_double), dimension(:), pointer, save af7
real(c_double), dimension(:), pointer, save af8
real(c_double), dimension(:), pointer, save af9
integer(c_int), pointer, save ieqnox
integer(c_int), pointer, save imdnox
integer(c_int), pointer, save irb
integer(c_int), pointer, save ihtco2
integer(c_int), pointer, save ieqco2
integer(c_int), pointer, save iyco2
integer(c_int), pointer, save iyhcn
integer(c_int), pointer, save iyno
integer(c_int), pointer, save iynh3
integer(c_int), pointer, save ihox
integer(c_int), pointer, save ighcn1
integer(c_int), pointer, save ighcn2
integer(c_int), pointer, save ignoth
integer(c_int), pointer, save ignh31
integer(c_int), pointer, save ignh32
integer(c_int), pointer, save ifhcnd
integer(c_int), pointer, save ifhcnc
integer(c_int), pointer, save ifnh3d
integer(c_int), pointer, save ifnh3c
integer(c_int), pointer, save ifnohc
integer(c_int), pointer, save ifnonh
integer(c_int), pointer, save ifnoch
integer(c_int), pointer, save ifnoth
integer(c_int), pointer, save ifhcnr
integer(c_int), pointer, save icnohc
integer(c_int), pointer, save icnonh
integer(c_int), pointer, save icnorb
integer(c_int), pointer, save igrb

Detailed Description

Module for pulverized coal combustion.