cloudy
trunk
Main Page
Related Pages
Data Structures
Files
File List
Globals
All
Data Structures
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Pages
source
prt_lines_lv1_na_ar.cpp
Go to the documentation of this file.
1
/* This file is part of Cloudy and is copyright (C)1978-2008 by Gary J. Ferland and
2
* others. For conditions of distribution and use see copyright notice in license.txt */
3
/*lines_lv1_na_ar place lines of elements sodium through argon into lines storage stack */
4
#include "
cddefines.h
"
5
#include "
coolheavy.h
"
6
#include "
sil.h
"
7
#include "
phycon.h
"
8
#include "
embesq.h
"
9
#include "
taulines.h
"
10
#include "
dense.h
"
11
#include "
ionbal.h
"
12
#include "
trace.h
"
13
#include "
lines_service.h
"
14
#include "
lines.h
"
15
16
void
lines_lv1_na_ar
(
void
)
17
{
18
long
int
ipnt;
19
double
drec,
20
fac,
21
rec,
22
sum,
23
t4;
24
25
DEBUG_ENTRY
(
"lines_lv1_na_ar()"
);
26
27
if
(
trace
.
lgTrace
)
28
{
29
fprintf(
ioQQQ
,
" lines_lv1_na_ar called\n"
);
30
}
31
32
t4 =
phycon
.
te
/1e4;
33
34
PutLine
(&
TauLines
[
ipT5895
],
35
" sodium sum of Na D lines"
);
36
37
PutLine
(&
TauLines
[
ipfsNa373
],
38
" [NaIII] 7.319 micron "
);
39
40
PutLine
(&
TauLines
[
ipfsNa490
],
41
" [NaIV] 9.048 micron "
);
42
43
PutLine
(&
TauLines
[
ipfsNa421
],
44
" [NaIV] 21.29 micron "
);
45
46
PntForLine
(1365.,
"Na 5"
,&ipnt);
47
lindst
(
CoolHeavy
.
c1365
,1365,
"Na 5"
,ipnt,
'c'
,
true
,
48
" [NaV] 1365, sum of 1365.1+1365.8; cs only guess "
);
49
50
PntForLine
(2067.,
"Na 5"
,&ipnt);
51
lindst
(
CoolHeavy
.
c2067
,2067,
"Na 5"
,ipnt,
'c'
,
true
,
52
" [NaV] 2067, sum of 2066.9+2068.4; cs only guess "
);
53
54
PntForLine
(4017.,
"Na 5"
,&ipnt);
55
lindst
(
CoolHeavy
.
c4017
,4017,
"Na 5"
,ipnt,
'c'
,
true
,
56
" [NaV] 4017, sum of 4010.9+4016.7+4022.7; cs only guess "
);
57
58
PntForLine
(2569.,
"Na 6"
,&ipnt);
59
lindst
(
CoolHeavy
.
c2569
,2569,
"Na 6"
,ipnt,
'c'
,
true
,
60
" [Na VI] 2568.9 "
);
61
62
PntForLine
(1357.,
"Na 6"
,&ipnt);
63
lindst
(
CoolHeavy
.
c1357
,1357,
"Na 6"
,ipnt,
'c'
,
true
,
64
" [Na VI] 1356.6 "
);
65
66
PntForLine
(2972.,
"Na 6"
,&ipnt);
67
lindst
(
CoolHeavy
.
c2972
/(1.+1./3.02),2972,
"Na 6"
,ipnt,
'c'
,
true
,
68
" [Na VI] 2971.9 "
);
69
70
PntForLine
(2872.,
"Na 6"
,&ipnt);
71
lindst
(
CoolHeavy
.
c2972
/(1.+3.02),2872,
"Na 6"
,ipnt,
'c'
,
true
,
72
" [Na VI] 2872.7 "
);
73
74
PutLine
(&
TauLines
[
ipxNa6143
],
75
" [NaVI] 14.32 micron "
);
76
77
PutLine
(&
TauLines
[
ipxNa6862
],
78
" [NaVI] 8.62 micron "
);
79
80
PutLine
(&
TauLines
[
ipxNa0746
],
81
" [NaVII] 4.675 micron "
);
82
83
PutLine
(&
TauLines
[
ipT4561
],
84
"Magnesium I 4571, O I data for coll strength and trans prob "
);
85
86
PutLine
(&
TauLines
[
ipMgI2853
],
87
" Mg I 2853 "
);
88
89
PutLine
(&
TauLines
[
ipMgI2026
],
90
" Mg I 2026 "
);
91
92
linadd
(
TauLines
[
ipT2796
].Emis->xIntensity+
TauLines
[
ipT2804
].
Emis
->
xIntensity
,2798,
93
"TOTL"
,
'i'
,
"Mg II 2798 add both lines of multiplet together "
);
94
95
/* sum of inward fracs of lines */
96
sum =
TauLines
[
ipT2796
].
Emis
->
xIntensity
*
TauLines
[
ipT2796
].
Emis
->
FracInwd
+
97
TauLines
[
ipT2804
].
Emis
->
xIntensity
*
TauLines
[
ipT2804
].
Emis
->
FracInwd
;
98
99
linadd
(sum,2798,
"Inwd"
,
'i'
,
100
" inward part of Mg II 2798"
);
101
102
PutLine
(&
TauLines
[
ipT2796
],
103
""
);
104
105
PutLine
(&
TauLines
[ipT2804],
106
""
);
107
108
PutLine
(&
TauLines
[
ipTMg4
],
109
" Mg IV 4.5 micron "
);
110
111
PutLine
(&
TauLines
[
ipTMg14
],
112
" Mg V 13.5 micron emission"
);
113
114
PutLine
(&
TauLines
[
ipTMg6
],
115
" Mg V 5.6 micron emission "
);
116
117
PutLine
(&
TauLines
[
ipxMg52855
],
118
" [Mg 5] 2571, 2893 "
);
119
120
PutLine
(&
TauLines
[
ipxMg52417
],
121
" [Mg 5] 2417.5A, 3-2 in model atom"
);
122
123
PutLine
(&
TauLines
[
ipxMg51325
],
124
" [Mg 5] 1324.58A, 3-1 in model atom "
);
125
126
PntForLine
(1806.,
"Mg 6"
,&ipnt);
127
lindst
(
CoolHeavy
.
c1806
,1806,
"Mg 6"
,ipnt,
'c'
,
true
,
128
" MG VI"
);
129
130
PutLine
(&
TauLines
[
ipxMg72569
],
131
" [Mg 7] 2510, 2629, 2-1 transitions, together"
);
132
133
PutLine
(&
TauLines
[
ipxMg72261
],
134
" [Mg 7] 3-2 transition, 2261.5 "
);
135
136
PutLine
(&
TauLines
[
ipxMg71190
],
137
" [Mg 7] 3-1 transition, 1189.82A "
);
138
139
PutLine
(&
TauLines
[
ipfsMg755
] ,
140
" Mg 7 IR line 5.50 microns "
);
141
142
PutLine
(&
TauLines
[
ipfsMg790
],
143
" Mg 7 IR line 9.03 microns "
);
144
145
PutLine
(&
TauLines
[
ipxMg08303
],
146
" [Mg 8] 3.03 micron "
);
147
148
PutLine
(&
TauLines
[
ipT705
],
" Mg 9 704.5 "
);
149
150
linadd
(
TauLines
[
ipTMg610
].Emis->xIntensity+
TauLines
[
ipTMg625
].
Emis
->
xIntensity
,615,
"TOTL"
,
'i'
,
151
" Mg 10 614.9 both of doublet, li seq 2s 2p"
);
152
153
PutLine
(&
TauLines
[
ipTMg610
],
154
""
);
155
PutLine
(&
TauLines
[ipTMg625],
156
""
);
157
158
PutLine
(&
TauLines
[
ipT58
],
159
" part of Mg 10 destroyed by background opacity Mg 10 58 li seq 2s 3p "
);
160
linadd
(
TauLines
[ipTMg610].Emis->ots*
TauLines
[ipTMg610].
EnergyErg
+
161
TauLines
[ipTMg625].
Emis
->
ots
*
TauLines
[ipTMg625].
EnergyErg
,615,
"dest"
,
'i'
,
162
""
);
163
164
PutLine
(&
TauLines
[
ipAlI3957
],
165
" Aluminum Al I 3957 "
);
166
167
PutLine
(&
TauLines
[
ipAlI3090
],
168
" Al I 3090 "
);
169
170
linadd
(
embesq
.
em2669
+
TauLines
[
ipT2670
].
Emis
->
xIntensity
,2665,
"totl"
,
'i'
,
171
"Al II 1671 total emission in Al II] 2669.7, 2660 doublet"
);
172
PutLine
(&
TauLines
[ipT2670],
173
" "
);
174
175
linadd
(
embesq
.
em2669
,2660,
"Al 2"
,
'i'
,
176
"emission in Al II] 2669 alone"
);
177
178
linadd
(
TauLines
[
ipT1855
].Emis->xIntensity+
TauLines
[
ipT1863
].
Emis
->
xIntensity
,1860,
"TOTL"
,
'i'
,
179
" Al III"
);
180
sum =
TauLines
[
ipT1855
].
Emis
->
xIntensity
*
TauLines
[
ipT1855
].
Emis
->
FracInwd
+
181
TauLines
[
ipT1863
].
Emis
->
xIntensity
*
TauLines
[
ipT1863
].
Emis
->
FracInwd
;
182
183
linadd
(sum,1860,
"Inwd"
,
'i'
,
184
" inward part of AlIII line"
);
185
PutLine
(&
TauLines
[
ipT1855
],
186
""
);
187
PutLine
(&
TauLines
[ipT1863],
188
""
);
189
190
PutLine
(&
TauLines
[
ipAl529
],
191
" [Al V] 2.905 micron "
);
192
193
PutLine
(&
TauLines
[
ipAl6366
],
194
" [Al VI] 3.66 micron "
);
195
196
PutLine
(&
TauLines
[
ipAl6912
],
197
" [Al VI] 9.12 micron"
);
198
199
PntForLine
(2428.,
"Al 6"
,&ipnt);
200
lindst
(
CoolHeavy
.
c2428
/(1.+1./3.73),2428,
"Al 6"
,ipnt,
'c'
,
true
,
201
" [Al VI] 2428.4 "
);
202
203
PntForLine
(2601.,
"Al 6"
,&ipnt);
204
lindst
(
CoolHeavy
.
c2428
/(1.+3.73),2601,
"Al 6"
,ipnt,
'c'
,
true
,
205
" [Al VI] 2601.0"
);
206
207
PntForLine
(1170.,
"Al 6"
,&ipnt);
208
lindst
(
CoolHeavy
.
c1170
,1170,
"Al 6"
,ipnt,
'c'
,
true
,
209
" [Al VI] 1169.86 "
);
210
211
PntForLine
(2125.,
"Al 6"
,&ipnt);
212
lindst
(
CoolHeavy
.
c2125
,2125,
"Al 6"
,ipnt,
'c'
,
true
,
213
" [Al VI] 2124.95"
);
214
215
PutLine
(&
TauLines
[
ipAl8575
],
216
" [Al VIII] 5.75 micron "
);
217
218
PutLine
(&
TauLines
[
ipAl8370
],
219
" [Al VIII] 3.70 micron"
);
220
221
PutLine
(&
TauLines
[
ipAl09204
],
222
" [Al IX] 2.04 micron, no collision strength, A NIST "
);
223
224
PutLine
(&
TauLines
[
ipT639
],
" Al X "
);
225
226
linadd
(
TauLines
[
ipTAl550
].Emis->xIntensity+
TauLines
[
ipTAl568
].
Emis
->
xIntensity
,556,
"TOTL"
,
'i'
,
227
" Al 11, Li seq 2s2p"
);
228
229
PutLine
(&
TauLines
[
ipTAl550
],
230
""
);
231
232
PutLine
(&
TauLines
[ipTAl568],
233
""
);
234
235
PutLine
(&
TauLines
[
ipTAl48
],
236
" Al 11, Li seq 2s3p "
);
237
238
PutLine
(&
TauLines
[
ipSi1_130m
],
239
" silicon Silicon Si I 130m "
);
240
241
PutLine
(&
TauLines
[
ipSi1_68m
],
242
" Si I 68m"
);
243
244
PutLine
(&
TauLines
[
ipSii2518
],
245
" Si I 2518A "
);
246
247
PutLine
(&
TauLines
[
ipSii2215
],
248
" Si I 2215A "
);
249
250
PutLine
(&
TauLines
[
ipTSi35
],
251
" Silicon II 35 micron "
);
252
253
linadd
(
254
TauLines
[
ipSi2_2334
].Emis->xIntensity+
255
TauLines
[
ipSi2_2329
].
Emis
->
xIntensity
+
256
TauLines
[
ipSi2_2350
].
Emis
->
xIntensity
+
257
TauLines
[
ipSi2_2344
].
Emis
->
xIntensity
+
258
TauLines
[
ipSi2_2336
].
Emis
->
xIntensity
,
259
2335,
"TOTL"
,
'i'
,
260
"total intensity of S IV] 1406, all lines in the multiplet"
);
261
PutLine
(&
TauLines
[
ipSi2_2334
],
262
" "
);
263
PutLine
(&
TauLines
[
ipSi2_2329
],
264
" "
);
265
PutLine
(&
TauLines
[
ipSi2_2350
],
266
" "
);
267
PutLine
(&
TauLines
[
ipSi2_2344
],
268
" "
);
269
PutLine
(&
TauLines
[ipSi2_2336],
270
" "
);
271
272
PutLine
(&
TauLines
[
ipT1808
],
273
" SI II 1808, permitted resonance line, collisionally excited "
);
274
275
PutLine
(&
TauLines
[
ipT1527
],
276
" SI II 1527, permitted resonance line, collisionally excited "
);
277
278
PutLine
(&
TauLines
[
ipT1305
],
279
" SI II 1305, permitted resonance line, collisionally excited "
);
280
281
PutLine
(&
TauLines
[
ipT1260
],
282
" SI II 1260, permitted resonance line, collisionally excited "
);
283
284
/* SI II 1260, rough guess of dielec contribution */
285
drec =
dense
.
xIonDense
[13][2]*
dense
.
eden
*7.6e-7/
phycon
.
te32
*
286
1.57e-11*
ionbal
.
DielSupprs
[1][2];
287
288
fac =
emit_frac
(&
TauLines
[ipT1260]);
289
PntForLine
(1260.,
"Si 2"
,&ipnt);
290
lindst
(drec*fac,1260,
"diel"
,ipnt,
'i'
,
true
,
291
" fac = (1.-TauLines[ipT1260].ColOvTot);"
);
292
293
294
PntForLine
(1909.,
"Si 2"
,&ipnt);
295
lindst
(drec*1260./1909.,1909,
"diel"
,ipnt,
'i'
,
true
,
296
" dielectronic recombination SiII 1909"
);
297
298
rec = 1e-12*(0.1152/t4 - 0.3082 + 4.4734*t4 + 0.0207*t4*t4)/pow(t4,1.5)*
299
sexp
(0.2981/t4);
300
301
/* >>chng 96 jul 8, added dielectronic recombination contribution to 1207 */
302
/*rec *= dense.xIonDense[13][3]*dense.eden*(1.-TauLines[ipT1207].ColOvTot)**/
303
rec *=
dense
.
xIonDense
[13][3]*
dense
.
eden
*
emit_frac
(&
TauLines
[
ipT1207
])*
304
1.65e-11*
ionbal
.
DielSupprs
[1][2];
305
306
PutExtra
(
MAX2
(0.,rec));
307
308
PutLine
(&
TauLines
[ipT1207],
309
" SI III 1207, collisional excitation and dielectronic recombination "
);
310
311
linadd
(
MAX2
(0.,rec),1207,
"rec "
,
'i'
,
312
" Si III 1207, dielectronic recombination only"
);
313
314
linadd
(
embesq
.
em1895
+
TauLines
[
ipT1895
].
Emis
->
xIntensity
,1888,
"TOTL"
,
'i'
,
315
" Si III] 1892+1883, total intensity of both lines"
);
316
PutLine
(&
TauLines
[ipT1895],
317
" "
);
318
319
PntForLine
(1883.,
"Si 3"
,&ipnt);
320
lindst
(
embesq
.
em1895
,1883,
"Si 3"
,ipnt,
'i'
,
true
,
321
" Si III] 1883 by itself"
);
322
323
/*fac = (1.-TauLines[ipT1895].ColOvTot);*/
324
fac =
emit_frac
(&
TauLines
[ipT1895]);
325
326
double
p1895 =
ionbal
.
PhotoRate_Shell
[
ipSILICON
][1][2][0]*
327
dense
.
xIonDense
[
ipSILICON
][1]*0.85;
328
linadd
( p1895*1.05e-11*fac,1895,
"PHOT"
,
'i'
,
329
" photoproduction by inner shell removal"
);
330
331
linadd
(
TauLines
[
ipT1403
].Emis->xIntensity+
TauLines
[
ipT1394
].
Emis
->
xIntensity
,1397,
"TOTL"
,
'i'
,
332
" Si IV 1397, collisionally excited "
);
333
334
sum =
TauLines
[
ipT1403
].
Emis
->
xIntensity
*
TauLines
[
ipT1403
].
Emis
->
FracInwd
+
335
TauLines
[
ipT1394
].
Emis
->
xIntensity
*
TauLines
[
ipT1394
].
Emis
->
FracInwd
;
336
337
linadd
(sum,1397,
"Inwd"
,
'i'
,
338
" inward part of SiIV 1397"
);
339
PutLine
(&
TauLines
[
ipT1403
],
340
" "
);
341
PutLine
(&
TauLines
[ipT1394],
342
" "
);
343
344
PutLine
(&
TauLines
[
ipSi619
],
345
" SI VI 1.9641 micron "
);
346
347
PntForLine
(2148.,
"Si 7"
,&ipnt);
348
lindst
(
sil
.
c2148
,2148,
"Si 7"
,ipnt,
'c'
,
true
,
349
" SI VII, 2148, O III like, collisionally excited"
);
350
351
PutLine
(&
TauLines
[
ipTSi25
],
352
" Si VII 2.48, 6.49 micron, collisionally excited "
);
353
354
PutLine
(&
TauLines
[
ipTSi65
],
355
" Si VII 2.48, 6.49 micron, collisionally excited "
);
356
357
PntForLine
(1446.,
"Si 8"
,&ipnt);
358
lindst
(
sil
.
c1446
,1446,
"Si 8"
,ipnt,
'c'
,
true
,
359
" SI VIII 1446, OIII like, collisionally excited"
);
360
361
PntForLine
(1985.,
"Si 9"
,&ipnt);
362
lindst
(
sil
.
c1985
,1985,
"Si 9"
,ipnt,
'c'
,
true
,
363
" SI IX 1985, 2150, collisionally excited"
);
364
365
366
PntForLine
(949.,
"Si 9"
,&ipnt);
367
lindst
(
sil
.
c949
,949,
"Si 9"
,ipnt,
'c'
,
true
,
368
" collisionally excited"
);
369
370
PntForLine
(1815.,
"Si 9"
,&ipnt);
371
lindst
(
sil
.
c1815
,1815,
"Si 9"
,ipnt,
'c'
,
true
,
372
" collisionally excited "
);
373
374
PutLine
(&
TauLines
[
ipTSi4
],
375
" SI 9, 3.86, 2.84 3P fine structure lines "
);
376
377
PutLine
(&
TauLines
[
ipTSi3
],
378
" SI 9, 3.86, 2.84 3P fine structure lines "
);
379
380
PntForLine
(691.,
"Si 9"
,&ipnt);
381
lindst
(
sil
.
c691
,691,
"Si 9"
,ipnt,
'c'
,
true
,
382
" both components of 5S-3P doublet"
);
383
384
PutLine
(&
TauLines
[
ipSi10_606
],
385
" SI 10 606A, actually group of 4 intercombination lines "
);
386
387
PutLine
(&
TauLines
[
ipSi10143
],
388
" [Si 10] 1.43 micron, collisionally excited "
);
389
390
PntForLine
(583.,
"Si11"
,&ipnt);
391
lindst
(
sil
.
c583
,581,
"Si11"
,ipnt,
'c'
,
true
,
392
" Si 11 582.9, collisionally excited >>chng 01 may 23, wavelength from 583 to 581"
);
393
394
linadd
(
TauLines
[
ipTSi499
].Emis->xIntensity+
TauLines
[
ipTSi521
].
Emis
->
xIntensity
,506,
"TOTL"
,
'i'
,
395
"emission total Si 12 506 + 499 "
);
396
397
PutLine
(&
TauLines
[
ipTSi499
],
398
" Si 12 506 li seq 2s 2p "
);
399
PutLine
(&
TauLines
[ipTSi521],
400
" "
);
401
402
PutLine
(&
TauLines
[
ipTSi41
],
403
" Si 12 40.9A, li seq 2s 3p "
);
404
405
PutLine
(&
TauLines
[
ipP0260
],
406
" phosphorus [P II] 60.64 micron "
);
407
408
PutLine
(&
TauLines
[
ipP0233
],
409
" [P II] 32.87 micron "
);
410
411
PntForLine
(16400.,
"P 2"
,&ipnt);
412
lindst
(
CoolHeavy
.
p2_32
,16400,
"P 2"
,ipnt,
'c'
,
true
,
413
" 3-2 1.64 micron "
);
414
415
PntForLine
(4669.,
"P 2"
,&ipnt);
416
lindst
(
CoolHeavy
.
p2_31
*0.75,4669,
"P 2"
,ipnt,
'c'
,
true
,
417
" >>chng 01 may 15, add these lines P 2 3-1 4670, 4738 vac wl, 4669, 4737 air"
);
418
419
PntForLine
(4737.,
"P 2"
,&ipnt);
420
lindst
(
CoolHeavy
.
p2_31
*0.25,4737,
"P 2"
,ipnt,
'c'
,
true
,
421
" P 2 3-1 4670, 4738 vac wl, 4737, 4737 air"
);
422
423
PntForLine
(11890.,
"P 2"
,&ipnt);
424
lindst
(
CoolHeavy
.
p2_21
*0.75,11890,
"P 2"
,ipnt,
'c'
,
true
,
425
" 2-1 1.147, 1.189 micron"
);
426
427
PntForLine
(11470.,
"P 2"
,&ipnt);
428
lindst
(
CoolHeavy
.
p2_21
*0.25,11470,
"P 2"
,ipnt,
'c'
,
true
,
429
" [P II] 1.14 micron"
);
430
431
PutLine
(&
TauLines
[
ipP0318
],
432
" [P III] 17.885 micron "
);
433
434
PutLine
(&
TauLines
[
ipP713
],
435
" [P VII] 1.3745 micron "
);
436
437
PutLine
(&
TauLines
[
ipP848
],
438
" [P VIII] 4.85 micron "
);
439
440
PutLine
(&
TauLines
[
ipP817
],
441
" [P VIII] 1.735 microns "
);
442
443
PutLine
(&
TauLines
[
ipP1027
],
444
" [P X] 2.708 micron "
);
445
446
PutLine
(&
TauLines
[
ipP1018
],
447
" [P X] 1.868 microns "
);
448
449
PutLine
(&
TauLines
[
ipS1_25m
],
450
" sulphur S I 25m "
);
451
452
PutLine
(&
TauLines
[
ipS1_56m
],
453
" S I 56m "
);
454
455
linadd
(1.75e-22*
dense
.
eden
*
dense
.
xIonDense
[
ipSULPHUR
][1]/
phycon
.
sqrte
/
456
phycon
.
te10
/
phycon
.
te03
,1807,
"S 1R"
,
'i'
,
457
" guesstimate of Sulphur I triplet excited state recombination rate.this is to check whether photoexcit of S II is ever important S I 1807 recombination "
);
458
459
linadd
(
CoolHeavy
.
c6731
,6720,
"S 2"
,
'c'
,
460
" S II 6731 + 6716 together "
);
461
462
linadd
(
CoolHeavy
.
S4070
+
CoolHeavy
.
S4078
,4074,
463
"S 2"
,
'c'
,
"S II 4070 +4078 together"
);
464
465
PntForLine
(10330.,
"S 2"
,&ipnt);
466
lindst
(
CoolHeavy
.
c10330
,10330,
"S 2"
,ipnt,
'c'
,
true
,
467
" S II N=3 lines, all four lines together "
);
468
469
PntForLine
(6731.,
"S II"
,&ipnt);
470
lindst
(
CoolHeavy
.
S6733
,6731,
"S II"
,ipnt,
'i'
,
true
,
471
" now output the real thing individual line from five level atom"
);
472
473
PntForLine
(6716.,
"S II"
,&ipnt);
474
lindst
(
CoolHeavy
.
S6718
,6716,
"S II"
,ipnt,
'i'
,
true
,
475
" individual line from five level atom"
);
476
477
PntForLine
(4070.,
"S II"
,&ipnt);
478
lindst
(
CoolHeavy
.
S4070
,4070,
"S II"
,ipnt,
'i'
,
true
,
479
" individual line from five level atom "
);
480
481
PntForLine
(4078.,
"S II"
,&ipnt);
482
lindst
(
CoolHeavy
.
S4078
,4078,
"S II"
,ipnt,
'i'
,
true
,
483
" individual line from five level atom"
);
484
485
linadd
(
CoolHeavy
.
S10323
,10323,
"S II"
,
'i'
,
486
" individual line from five level atom "
);
487
488
linadd
(
CoolHeavy
.
S10289
,10289,
"S II"
,
'i'
,
489
" individual line from five level atom"
);
490
491
linadd
(
CoolHeavy
.
S10373
,10373,
"S II"
,
'i'
,
492
" individual line from five level atom "
);
493
494
linadd
(
CoolHeavy
.
S10339
,10339,
"S II"
,
'i'
,
495
" individual line from five level atom "
);
496
497
PutLine
(&
TauLines
[
ipT1256
],
498
" resonance line near NV, collisionally excited "
);
499
500
PutLine
(&
TauLines
[
ipTS19
],
501
" S III fine structure 18.7 "
);
502
503
PutLine
(&
TauLines
[
ipTS34
],
504
" S III fine structure 34 "
);
505
506
PutLine
(&
TauLines
[
ipTS1720
],
507
" S III] 1713.12, 1728.94 "
);
508
509
PntForLine
(9532.,
"S 3"
,&ipnt);
510
lindst
(
CoolHeavy
.
c9532
/(1.+1./2.48),9532,
"S 3"
,ipnt,
'c'
,
true
,
511
" [S III] 9532 alone "
);
512
513
PntForLine
(9069.,
"S 3"
,&ipnt);
514
lindst
(
CoolHeavy
.
c9532
/(1.+2.48),9069,
"S 3"
,ipnt,
'c'
,
true
,
515
" [S III] 9069 alone"
);
516
517
PntForLine
(6312.,
"S 3"
,&ipnt);
518
lindst
(
CoolHeavy
.
c6312
,6312,
"S 3"
,ipnt,
'c'
,
true
,
519
" [S III] 6312, trans-auroral temperature sensitive "
);
520
521
PntForLine
(3722.,
"S 3"
,&ipnt);
522
lindst
(
CoolHeavy
.
c6312
*0.59,3722,
"S 3"
,ipnt,
'c'
,
true
,
523
" [S III] 3722, same upper level as 6312"
);
524
525
PutLine
(&
TauLines
[
ipT1194
],
526
" WL, other data, from Ho + Henry Ap.J. 1984 "
);
527
528
PutLine
(&
TauLines
[
ipTS11
],
529
" S IV 10.5 micron, collisionally excited (label is 105) "
);
530
531
linadd
(
532
TauLines
[
ipS4_1405
].Emis->xIntensity+
533
TauLines
[
ipS4_1398
].
Emis
->
xIntensity
+
534
TauLines
[
ipS4_1424
].
Emis
->
xIntensity
+
535
TauLines
[
ipS4_1417
].
Emis
->
xIntensity
+
536
TauLines
[
ipS4_1407
].
Emis
->
xIntensity
,
537
1406,
"TOTL"
,
'i'
,
538
" total intensity of S IV] 1406, all lines in the multiplet "
);
539
PutLine
(&
TauLines
[
ipS4_1405
],
540
" "
);
541
PutLine
(&
TauLines
[
ipS4_1398
],
542
" "
);
543
PutLine
(&
TauLines
[
ipS4_1424
],
544
" "
);
545
PutLine
(&
TauLines
[
ipS4_1417
],
546
" "
);
547
PutLine
(&
TauLines
[ipS4_1407],
548
" "
);
549
550
linadd
(
embesq
.
em1198
+
TauLines
[
ipT1198
].
Emis
->
xIntensity
,1198,
"TOTL"
,
'i'
,
551
" S V 1198] both lines together "
);
552
553
PutLine
(&
TauLines
[ipT1198],
554
" S V 1198] the stronger transition "
);
555
556
linadd
(
embesq
.
em1198
,1188,
"S 5"
,
'i'
,
557
" Be seq, weaker of the two transitions"
);
558
559
PutLine
(&
TauLines
[
ipT786
],
560
" S V 786.5, collisionally excited "
);
561
562
linadd
(
TauLines
[
ipT944
].Emis->xIntensity+
TauLines
[
ipT933
].
Emis
->
xIntensity
,933,
"TOTL"
,
'i'
,
563
" S VI 933+944, collisionally excited total S VI 933+944 "
);
564
PutLine
(&
TauLines
[
ipT944
],
565
" "
);
566
PutLine
(&
TauLines
[ipT933],
567
" "
);
568
569
PutLine
(&
TauLines
[
ipfsS810
],
570
" S VIII 9913 "
);
571
572
PutLine
(&
TauLines
[
ipfsS912
],
573
" S IX 1.25 microns "
);
574
575
PutLine
(&
TauLines
[
ipfsS938
],
576
" S IX 3.78 microns "
);
577
578
PutLine
(&
TauLines
[
ipfsS1119
],
579
" S XI 1.91 microns "
);
580
581
PutLine
(&
TauLines
[
ipfsS1114
],
582
" S XI 1.40 microns "
);
583
584
PntForLine
(1715.,
"S 9"
,&ipnt);
585
lindst
(
CoolHeavy
.
c1715
,1715,
"S 9"
,ipnt,
'c'
,
true
,
586
" S IX 1715, 1987, collisionally excited"
);
587
588
PntForLine
(1213.,
"S 10"
,&ipnt);
589
lindst
(
CoolHeavy
.
c1213
,1213,
"S 10"
,ipnt,
'c'
,
true
,
590
" S X 1213, 1197, collisionally excited "
);
591
592
PntForLine
(1826.,
"S 11"
,&ipnt);
593
lindst
(
CoolHeavy
.
c1826
,1826,
"S 11"
,ipnt,
'c'
,
true
,
594
" S XI 1615, 1826, collisionally excited"
);
595
596
PutLine
(&
TauLines
[
ipfsS1207
],
597
" S XII 7611.2 "
);
598
599
/* group of four intercombination lines
600
PntForLine(520.,"S 12",&ipnt);
601
lindst(CoolHeavy.c520,520,"S 12",ipnt,'c',true ); */
602
PutLine
(&
TauLines
[
ipS12_520
],
603
" >>chng 03 sep 27, move to atom_level2 from expion"
);
604
605
PntForLine
(488.,
"S 13"
,&ipnt);
606
lindst
(
CoolHeavy
.
c488
,488,
"S 13"
,ipnt,
'c'
,
true
,
607
" S XIII 488.4, 1909 like, collisionally excited"
);
608
609
linadd
(
TauLines
[
ipTSu418
].Emis->xIntensity+
TauLines
[
ipTSu446
].
Emis
->
xIntensity
,427,
"TOTL"
,
'i'
,
610
" S 14 506 li seq 2s2p "
);
611
PutLine
(&
TauLines
[
ipTSu418
],
612
" "
);
613
PutLine
(&
TauLines
[ipTSu446],
614
" "
);
615
616
PutLine
(&
TauLines
[
ipTSu30
],
617
" S 14 30 li seq 2s3p "
);
618
619
PutLine
(&
TauLines
[
ipCl1_11m
],
620
" chlorine lines [Cl I] 11 micron "
);
621
622
PutLine
(&
TauLines
[
ipfsCl233
],
623
" [Cl II] 33.281 micron "
);
624
625
PutLine
(&
TauLines
[
ipfsCl214
],
626
" [Cl II] 14.3678 micron "
);
627
628
PntForLine
(8578.7,
"Cl 2"
,&ipnt);
629
lindst
(
CoolHeavy
.
c8579
*0.791,8579,
"Cl 2"
,ipnt,
'c'
,
true
,
630
" Chlorine II 8578.7, 9123.6 doublet"
);
631
632
PntForLine
(9123.6,
"Cl 2"
,&ipnt);
633
lindst
(
CoolHeavy
.
c8579
*0.209,9124,
"Cl 2"
,ipnt,
'c'
,
true
,
634
" Chlorine II 8578.7, 9123.6 doublet"
);
635
636
PntForLine
(6161.8,
"Cl 2"
,&ipnt);
637
lindst
(
CoolHeavy
.
c6164
,6162,
"Cl 2"
,ipnt,
'c'
,
true
,
638
" Chlorine II 6161.8 auroral line >>chng 03 feb 24, change wavelength from 6164 to correct 6161.8 "
);
639
640
PntForLine
(3677.9,
"Cl 2"
,&ipnt);
641
lindst
(
CoolHeavy
.
c3679
,3678,
"Cl 2"
,ipnt,
'c'
,
true
,
642
" Chlorine II 3677.9 auroral line >>chng 03 feb 24, to correct wavelength "
);
643
644
linadd
(
CoolHeavy
.
c5525
,5525,
"TOTL"
,
'c'
,
645
" Cl III 5519, 5539 doublet, both together "
);
646
647
linadd
(
CoolHeavy
.
c3350
,3350,
"TOTL"
,
'c'
,
648
" Cl III 3354, 3344 doublet, both together "
);
649
650
linadd
(
CoolHeavy
.
c8494
,8494,
"TOTL"
,
'c'
,
651
" Cl III 8504, 8436, 8552, 8483 multiplet, all together "
);
652
653
PntForLine
(5538.,
"Cl 3"
,&ipnt);
654
lindst
(
CoolHeavy
.
Cl5539
,5538,
"Cl 3"
,ipnt,
'i'
,
true
,
655
" Cl III 5538 "
);
656
657
PntForLine
(5518.,
"Cl 3"
,&ipnt);
658
lindst
(
CoolHeavy
.
Cl5519
,5518,
"Cl 3"
,ipnt,
'i'
,
true
,
659
" Cl III 5518"
);
660
661
PntForLine
(3354.,
"Cl 3"
,&ipnt);
662
lindst
(
CoolHeavy
.
Cl3354
,3354,
"Cl 3"
,ipnt,
'i'
,
true
,
663
" Cl III 3354 "
);
664
665
PntForLine
(3344.,
"Cl 3"
,&ipnt);
666
lindst
(
CoolHeavy
.
Cl3344
,3344,
"Cl 3"
,ipnt,
'i'
,
true
,
667
" Cl III 3344 "
);
668
669
PntForLine
(8504.,
"Cl 3"
,&ipnt);
670
lindst
(
CoolHeavy
.
Cl8504
,8504,
"Cl 3"
,ipnt,
'i'
,
true
,
671
" Cl III 8504 "
);
672
673
PntForLine
(8436.,
"Cl 3"
,&ipnt);
674
lindst
(
CoolHeavy
.
Cl8436
,8436,
"Cl 3"
,ipnt,
'i'
,
true
,
675
" Cl III 8436"
);
676
677
PntForLine
(8552.,
"Cl 3"
,&ipnt);
678
lindst
(
CoolHeavy
.
Cl8552
,8552,
"Cl 3"
,ipnt,
'i'
,
true
,
679
" Cl III 8552 "
);
680
681
PntForLine
(8483.,
"Cl 3"
,&ipnt);
682
lindst
(
CoolHeavy
.
Cl8483
,8483,
"Cl 3"
,ipnt,
'i'
,
true
,
683
" Cl III 8483"
);
684
685
PutLine
(&
TauLines
[
ipCl04203
],
686
" [Cl IV] fine structure line 20.354 microns"
);
687
688
PutLine
(&
TauLines
[
ipCl04117
],
689
" [Cl IV] fine structure line 11.741 microns "
);
690
691
PntForLine
(8047.,
"Cl 4"
,&ipnt);
692
lindst
(
CoolHeavy
.
c8047
*0.667,8047,
"Cl 4"
,ipnt,
'c'
,
true
,
693
" ClIV 8047"
);
694
695
PntForLine
(7532.,
"Cl 4"
,&ipnt);
696
lindst
(
CoolHeavy
.
c8047
*0.333,7532,
"Cl 4"
,ipnt,
'c'
,
true
,
697
" ClIV 7532"
);
698
699
PntForLine
(3119.,
"Cl 4"
,&ipnt);
700
lindst
(
CoolHeavy
.
c3119
,3119,
"Cl 4"
,ipnt,
'c'
,
true
,
701
" ClIV 3119"
);
702
703
PntForLine
(5324.,
"Cl 4"
,&ipnt);
704
lindst
(
CoolHeavy
.
c5324
,5324,
"Cl 4"
,ipnt,
'c'
,
true
,
705
" ClIV 5324"
);
706
707
PutLine
(&
TauLines
[
ipCl973
],
708
" Cl IX 7334A "
);
709
710
PutLine
(&
TauLines
[
ipCl1030
],
711
" Cl X 3.05 microns "
);
712
713
PutLine
(&
TauLines
[
ipCl1092
],
714
" Cl X 9223A "
);
715
716
PutLine
(&
TauLines
[
ipTAr7
],
717
" Argon II 7 micron "
);
718
719
PntForLine
(7135.,
"Ar 3"
,&ipnt);
720
lindst
(
CoolHeavy
.
c7136
/(1.+1./4.144),7135,
"Ar 3"
,ipnt,
'c'
,
true
,
721
" Argon III 7135"
);
722
723
PntForLine
(7751.,
"Ar 3"
,&ipnt);
724
lindst
(
CoolHeavy
.
c7136
/(1.+4.144),7751,
"Ar 3"
,ipnt,
'c'
,
true
,
725
" Argon III 7751"
);
726
727
PntForLine
(5192.,
"Ar 3"
,&ipnt);
728
lindst
(
CoolHeavy
.
c5192
,5192,
"Ar 3"
,ipnt,
'c'
,
true
,
729
" Argon III 5192"
);
730
731
PntForLine
(3109.,
"Ar 3"
,&ipnt);
732
lindst
(
CoolHeavy
.
c3109
*0.9894,3109,
"Ar 3"
,ipnt,
'c'
,
true
,
733
" Argon III 3109"
);
734
735
PntForLine
(3005.,
"Ar 3"
,&ipnt);
736
lindst
(
CoolHeavy
.
c3109
*(1.-0.9894),3005,
"Ar 3"
,ipnt,
'c'
,
true
,
737
" Argon III 3005 "
);
738
739
PutLine
(&
TauLines
[
ipTAr22
],
740
" Argon III 21.8, 9 micron lines"
);
741
742
PutLine
(&
TauLines
[
ipTAr9
],
743
" Argon III 21.8, 9 micron lines "
);
744
745
linadd
(
CoolHeavy
.
Ar4740
+
CoolHeavy
.
Ar4711
,4725,
"TOTL"
,
'i'
,
746
" Argon IV 4711 + 4740 together, 4740=90%"
);
747
748
linadd
(
CoolHeavy
.
Ar2868
+
CoolHeavy
.
Ar2854
,2860,
"TOTL"
,
'i'
,
749
" [AvIV] 2868, 2854 together "
);
750
751
linadd
(
CoolHeavy
.
Ar7237
+
CoolHeavy
.
Ar7331
+
CoolHeavy
.
Ar7171
+
CoolHeavy
.
Ar7263
,7250,
"TOTL"
,
'i'
,
752
" [AvIV] auroral lines, 7237, 7331, 7171, 7263 "
);
753
754
PntForLine
(4740.,
"Ar 4"
,&ipnt);
755
lindst
(
CoolHeavy
.
Ar4740
,4740,
"Ar 4"
,ipnt,
'c'
,
true
,
756
" [Ar IV] 4740"
);
757
758
PntForLine
(4711.,
"Ar 4"
,&ipnt);
759
lindst
(
CoolHeavy
.
Ar4711
,4711,
"Ar 4"
,ipnt,
'c'
,
true
,
760
" [Ar IV] 4711"
);
761
762
PntForLine
(2868.,
"Ar 4"
,&ipnt);
763
lindst
(
CoolHeavy
.
Ar2868
,2868,
"Ar 4"
,ipnt,
'c'
,
true
,
764
" [Ar IV] 2868"
);
765
766
PntForLine
(2854.,
"Ar 4"
,&ipnt);
767
lindst
(
CoolHeavy
.
Ar2854
,2854,
"Ar 4"
,ipnt,
'c'
,
true
,
768
" [Ar IV] 2854"
);
769
770
771
PntForLine
(7263.,
"Ar 4"
,&ipnt);
772
lindst
(
CoolHeavy
.
Ar7263
,7263,
"Ar 4"
,ipnt,
'c'
,
true
,
773
" [Ar IV] 7263"
);
774
775
PntForLine
(7171.,
"Ar 4"
,&ipnt);
776
lindst
(
CoolHeavy
.
Ar7171
,7171,
"Ar 4"
,ipnt,
'c'
,
true
,
777
" [Ar IV] 7171"
);
778
779
PntForLine
(7331.,
"Ar 4"
,&ipnt);
780
lindst
(
CoolHeavy
.
Ar7331
,7331,
"Ar 4"
,ipnt,
'c'
,
true
,
781
" [Ar IV] 7331"
);
782
783
PntForLine
(7237.,
"Ar 4"
,&ipnt);
784
lindst
(
CoolHeavy
.
Ar7237
,7237,
"Ar 4"
,ipnt,
'c'
,
true
,
785
" [Ar IV] 7237"
);
786
787
PntForLine
(7005.,
"Ar 5"
,&ipnt);
788
lindst
(
CoolHeavy
.
c7007
/(1.+1./2.143),7005,
"Ar 5"
,ipnt,
'c'
,
true
,
789
" Argon V, 3P lines, 7005, collisionally excited"
);
790
791
PntForLine
(6435.,
"Ar 5"
,&ipnt);
792
lindst
(
CoolHeavy
.
c7007
/(1.+2.143),6435,
"Ar 5"
,ipnt,
'c'
,
true
,
793
" Argon V, 3P lines, 6435, collisionally excited"
);
794
795
PntForLine
(4626.,
"Ar 5"
,&ipnt);
796
lindst
(
CoolHeavy
.
c4626
, 4626 ,
"Ar 5"
,ipnt,
'c'
,
true
,
797
" >>chng 01 mar 10, add following two lines Argon V, 4626"
);
798
799
PntForLine
(2691.,
"Ar 5"
,&ipnt);
800
lindst
(
CoolHeavy
.
c2691
, 2691 ,
"Ar 5"
,ipnt,
'c'
,
true
,
801
" Argon V, 2691"
);
802
803
PutLine
(&
TauLines
[
ipTAr13
],
804
" Argon V fine structure lines, 13.09, 7.903 micron line "
);
805
806
PutLine
(&
TauLines
[
ipTAr8
],
807
" Argon V fine structure lines, 13.09, 7.903 micron line "
);
808
809
PutLine
(&
TauLines
[
ipAr06453
],
810
" [Ar VI] 4.53 micron "
);
811
812
PutLine
(&
TauLines
[
ipAr1055
],
813
" Ar X 5533.4A "
);
814
815
PutLine
(&
TauLines
[
ipAr1126
],
816
" Ar XI 2.60 microns "
);
817
818
PutLine
(&
TauLines
[
ipAr1178
],
819
" Ar XI 6917A "
);
820
821
PntForLine
(4413.,
"Ar14"
,&ipnt);
822
lindst
(
CoolHeavy
.
fs4413
,4413,
"Ar14"
,ipnt,
'c'
,
true
,
823
" Ar XIV 4413, predicted lambda, not observed(?)"
);
824
825
PntForLine
(409.,
"Ar15"
,&ipnt);
826
lindst
(
CoolHeavy
.
c409
,409,
"Ar15"
,ipnt,
'c'
,
true
,
827
" collisionally excited "
);
828
829
PutLine
(&
TauLines
[
ipT354
],
830
" collisionally excited Ar16 354, Li seq 2s-2p"
);
831
832
PutLine
(&
TauLines
[
ipT389
],
833
" collisionally excited Ar16 389, Li seq 2s-2p "
);
834
835
PutLine
(&
TauLines
[
ipT25
],
836
" collisionally excited Ar16 365, Li seq 2s-3p "
);
837
838
if
(
trace
.
lgTrace
)
839
{
840
fprintf(
ioQQQ
,
" lines_lv1_na_ar returns\n"
);
841
}
842
return
;
843
}
Generated for cloudy by
1.8.4