subroutine rayir |
( |
integer |
k1, |
|
|
integer |
kmray, |
|
|
integer |
ico2, |
|
|
double precision |
emis, |
|
|
double precision, dimension(kmx+1) |
qqv, |
|
|
double precision, dimension(kmx+1) |
qqqv, |
|
|
double precision |
qqvinf, |
|
|
double precision, dimension(kmx) |
zqq, |
|
|
double precision, dimension(kmx) |
acinfe, |
|
|
double precision, dimension(kmx) |
dacinfe, |
|
|
double precision, dimension(kmx,kmx) |
aco2, |
|
|
double precision, dimension(kmx,kmx) |
daco2, |
|
|
double precision, dimension(kmx) |
acsup, |
|
|
double precision, dimension(kmx) |
dacsup, |
|
|
double precision, dimension(kmx) |
zray, |
|
|
double precision, dimension(kmx) |
temray, |
|
|
double precision, dimension(kmx) |
qvray, |
|
|
double precision, dimension(kmx) |
qlray, |
|
|
double precision, dimension(kmx) |
fnerir, |
|
|
double precision, dimension(kmx) |
romray, |
|
|
double precision, dimension(kmx) |
preray, |
|
|
double precision, dimension(kmx) |
aeroso, |
|
|
double precision |
foir, |
|
|
double precision, dimension(kmx) |
rayi |
|
) |
| |