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

Module for pulverized coal combustion. More...

Modules

module  cpincl

Functions/Subroutines

subroutine cp_models_init
 Initialize Fortran combustion models properties API. This maps Fortran pointers to global C variables.
subroutine cp_models_bc_map
 Map Fortran physical models boundary condition info. This maps Fortran pointers to global C variables.

Variables

double precision epsicp
integer(c_int), pointer, save ncharb
 Number of coals.
integer(c_int), dimension(:), pointer, save nclpch
 Number of classes per coal.
double precision, dimension(ncharm), save cch
double precision, dimension(ncharm), save hch
double precision, dimension(ncharm), save och
double precision, dimension(ncharm), save sch
double precision, dimension(ncharm), save nch
double precision, dimension(ncharm), save alpha
double precision, dimension(ncharm), save beta
double precision, dimension(ncharm), save teta
double precision, dimension(ncharm), save omega
double precision, dimension(ncharm), save pcich
double precision, dimension(ncharm), save rho0ch
double precision, dimension(ncharm), save thcdch
double precision, dimension(ncharm), save cck
double precision, dimension(ncharm), save hck
double precision, dimension(ncharm), save ock
double precision, dimension(ncharm), save sck
double precision, dimension(ncharm), save nck
double precision, dimension(ncharm), save gamma
double precision, dimension(ncharm), save delta
double precision, dimension(ncharm), save kappa
double precision, dimension(ncharm), save zeta
double precision, dimension(ncharm), save rhock
double precision, dimension(ncharm), save pcick
double precision, dimension(ncharm), save cpashc
double precision, dimension(ncharm), save h0ashc
double precision, dimension(ncharm), save h02ch
double precision, dimension(ncharm), save cp2ch
double precision, dimension(ncharm), save xwatch
double precision, dimension(ncharm), save cp2wat
double precision, dimension(2, ncharm), save crepn1
double precision, dimension(2, ncharm), save crepn2
real(c_double), dimension(:), pointer, save xashch
integer, dimension(ncharm), save iy1ch
integer, dimension(ncharm), save iy2ch
integer, dimension(ncharm), save iochet
integer, dimension(ncharm), save ioetc2
integer, dimension(ncharm), save ioetwt
double precision, dimension(ncharm), save y1ch
double precision, dimension(ncharm), save a1ch
double precision, dimension(ncharm), save e1ch
double precision, dimension(ncharm), save y2ch
double precision, dimension(ncharm), save a2ch
double precision, dimension(ncharm), save e2ch
double precision, dimension(ncharm), save ahetch
double precision, dimension(ncharm), save ehetch
double precision, dimension(ncharm), save ahetc2
double precision, dimension(ncharm), save ehetc2
double precision, dimension(ncharm), save ahetwt
double precision, dimension(ncharm), save ehetwt
integer nsolim
integer, save nsolid
integer, dimension(ncharm), save ich
integer, dimension(ncharm), save ick
integer, dimension(ncharm), save iash
integer, dimension(ncharm), save iwat
double precision, dimension(nsolim, npot), save ehsoli
double precision, dimension(nsolim), save wmols
double precision, dimension(nsolim), 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, dimension(ncharm), save ichx1c
integer, dimension(ncharm), save ichx2c
integer, save ichx1
integer, save ichx2
integer, 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
double precision, dimension(ncharm), save chx1
double precision, dimension(ncharm), save chx2
double precision, dimension(ncharm), save a1
double precision, dimension(ncharm), save b1
double precision, dimension(ncharm), save c1
double precision, dimension(ncharm), save d1
double precision, dimension(ncharm), save e1
double precision, dimension(ncharm), save f1
double precision, dimension(ncharm), save a2
double precision, dimension(ncharm), save b2
double precision, dimension(ncharm), save c2
double precision, dimension(ncharm), save d2
double precision, dimension(ncharm), save e2
double precision, dimension(ncharm), save f2
integer, dimension(nozppm), save ientat
integer, dimension(nozppm), save ientcp
double precision, dimension(nozppm), save timpat
double precision, dimension(nozppm, nclcpm), save x20
integer, dimension(ncharm), save if1mc
integer, dimension(ncharm), save if2mc
integer, save ix1mc
integer, save ix2mc
integer, save ichx1f1
integer, save ichx2f2
integer, save icof1
integer, save icof2
integer, save ih2of1
integer, save ih2of2
integer, save ih2sf1
integer, save ih2sf2
integer, save ihcnf1
integer, save ihcnf2
real(c_double), dimension(:), pointer, save qimpat
double precision, dimension(nozppm, ncharm), save qimpcp
double precision, dimension(nozppm, ncharm), save timpcp
double precision, dimension(nozppm, ncharm, ncpcmx), save distch
double precision, dimension(npot), save thc
integer, save npoc

Detailed Description

Module for pulverized coal combustion.