programmer's documentation
Functions/Subroutines
rafsck.f90 File Reference

This subroutine is part of the FSCK radiation model. More...

Functions/Subroutines

subroutine rafsck (pco2, ph2o, fv, teloc, kloc, aloc, alocbo)
 
subroutine interpolation4d (trad, t, xco2, xh2o, gi, kmfs, interp_method, gdb, kdb)
 
subroutine gridposnbsg1 (trad, t, xco2, xh2o, interp_method, itx)
 
double precision function seval (n, u, x, y, b, c, d)
 
subroutine splmi (n, x, y, b, c, d)
 
subroutine simple_interpg (nxy, xx, yy, ni, xi, yi)
 

Detailed Description

This subroutine is part of the FSCK radiation model.

Determination of the radiation coeffcients of the FSCK model as well as the corresponding weights.

Function/Subroutine Documentation

subroutine rafsck::gridposnbsg1 ( double precision  trad,
double precision  t,
double precision  xco2,
double precision  xh2o,
integer  interp_method,
integer, dimension(4,4)  itx 
)
Parameters
[in]tradReference temperature
[in]tLocal Temperature
[in]xco2CO2 volume fraction
[in]xh2oH2O volume fraction
[in]interp_methodInterpolation method
[in]itxitx(1,:): TPlanck; iTx(2,:): Tloc; iTx(3,:): xCO2; iTx(4,:) = xH2O
subroutine rafsck::interpolation4d ( double precision  trad,
double precision  t,
double precision  xco2,
double precision  xh2o,
double precision, dimension(ng)  gi,
double precision, dimension(nconc,nconc,nt,nt,ng)  kmfs,
integer  interp_method,
double precision, dimension(ng)  gdb,
double precision, dimension(ng)  kdb 
)
Parameters
[in]tradReference temperature
[in]tLocal temperature
[in]xco2Reference CO2 volume fraction
[in]xh2oReference H2O volume fraction
[in]gi
[in]kmfs
[in]interp_methodInterpolation method
[out]gdb
[out]kdb
subroutine rafsck ( double precision, dimension(ncelet)  pco2,
double precision, dimension(ncelet)  ph2o,
double precision, dimension(ncelet)  fv,
double precision, dimension(ncelet)  teloc,
double precision, dimension(ncelet,nwsgg)  kloc,
double precision, dimension(ncelet,nwsgg)  aloc,
double precision, dimension(nfabor,nwsgg)  alocbo 
)
Parameters
[in]pco2CO2 volume fraction
[in]ph2oH2O volume fraction
[in]fvSoot volume fraction
[in]telocGas temperature
[out]klocRadiation coeffcient of the i different gases
[out]alocWeights of the i different gases in cells
[out]alocboWeights of the i different gases at boundaries
double precision function rafsck::seval ( integer  n,
double precision  u,
double precision, dimension(n)  x,
double precision, dimension(n)  y,
double precision, dimension(n)  b,
double precision, dimension(n)  c,
double precision, dimension(n)  d 
)
Parameters
[in]nNumber of data points
[in]uAbscissa at which the spline is to be evaluated
[in]x,yArrays of data abscissas and ordinates
[in]b,c,dArrays of spline coefficients computed by spline
subroutine rafsck::simple_interpg ( integer  nxy,
double precision, dimension(nxy)  xx,
double precision, dimension(nxy)  yy,
integer  ni,
double precision, dimension(ni)  xi,
double precision, dimension(ni)  yi 
)
Parameters
[in]nxy
[in]xx
[in]yy
[in]ni
[in]xi
[out]yi
subroutine rafsck::splmi ( integer  n,
double precision, dimension(n)  x,
double precision, dimension(n)  y,
double precision, dimension(n)  b,
double precision, dimension(n)  c,
double precision, dimension(n)  d 
)
Parameters
[in]nNumber of data points or knots (n.ge.2)
[in]xAbscissa of the knots in strictly increasing order
[in]yOrdinates of the knots
[out]b,c,dArrays of spline coefficients as defined above