| 169 | | /*>>chng 04 feb 20, add this, had always been in for destruction for H- */ |
|---|
| 170 | | /* charge transfer recombination of first ion to neutral, by reaction with H- |
|---|
| 171 | | * the ion==0 is right, the first array element is the */ |
|---|
| 172 | | if( ion==0 && nelem>ipHELIUM && atmdat.lgCTOn ) |
|---|
| 173 | | { |
|---|
| 174 | | char react[32],element[3],*s; |
|---|
| 175 | | strncpy( element,elementnames.chElementSym[nelem], 3 ); |
|---|
| 176 | | s = strchr(element,' '); |
|---|
| 177 | | if (s) |
|---|
| 178 | | *s = '\0'; |
|---|
| 179 | | sprintf(react,"H-,%s+=>H,%s",element,element); |
|---|
| 180 | | ChargeTransfer[ion] += CO_findrk(react) * findspecies("H-")->hevmol; |
|---|
| 181 | | } |
|---|
| 182 | | |
|---|
