cloudy  trunk
 All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
cool_vana.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 /*CoolVana compute vanadium cooling */
4 #include "cddefines.h"
5 #include "taulines.h"
6 #include "coolheavy.h"
7 #include "dense.h"
8 #include "lines_service.h"
9 #include "atoms.h"
10 #include "cooling.h"
11 #include "phycon.h"
12 
13 void CoolVana(void)
14 {
15  realnum a21,
16  a31,
17  a32,
18  g1,
19  g2,
20  g3,
21  p2,
22  p3,
23  cs;
24 
25  DEBUG_ENTRY( "CoolVana()" );
26 
27  /* V Vanadium cooling - element 23
28  *
29  * V III 8823 */
30  a21 = 0.05f;
31  a31 = 0.10f;
32  a32 = 0.00;
33  g1 = 28.;
34  g2 = 12.;
35  g3 = 18.;
36 
37  /* [V III] 8823, multiplet average */
38  p3 = (realnum)atom_pop3(g1,g2,g3,g1,g2,g3,a21,a31,a32,16303.,606.,&p2,
39  dense.xIonDense[ipVANADIUM][2], 0.,0.,0.);
40 
41  CoolHeavy.V38830 = p2*a21*2.25e-12;
42  CoolHeavy.V38507 = p3*a31*2.34e-12;
43  CoolAdd("V 3",8823,CoolHeavy.V38830);
44  CoolAdd("V 3",8507,CoolHeavy.V38507);
45 
46  /* V IV */
47  a21 = 0.054f;
48  a31 = 0.039f;
49  a32 = 0.007f;
50  g1 = 21.;
51  g2 = 5.;
52  g3 = 9.;
53  /* POP3(G1,G2,G3,O12,O13,O23,A21,A31,A32,E12,E23,P2,ABUND,GAM2)
54  * energies are in kelvin */
55  p3 = (realnum)atom_pop3(g1,g2,g3,g1,g2,g3,a21,a31,a32,15159.,3437.,&p2,
56  dense.xIonDense[ipVANADIUM][3], 0.,0.,0.);
57  /* 7735 ang - 3=>1 */
58  CoolHeavy.V47741 = p3*a31*2.57e-12;
59  /* 9489 - 2=>1 */
60  CoolHeavy.V49496 = p2*a21*2.09e-12;
61  /* 4.19 microns 3=>2 */
62  CoolHeavy.V44p2m = p3*a32*4.74e-13;
63  CoolAdd("V 4",7735,CoolHeavy.V47741);
64  CoolAdd("V 4",9489,CoolHeavy.V49496);
65  CoolAdd("V 4",42,CoolHeavy.V44p2m);
66 
67  /* [V VII] 1.3038 mic
68  * Y(ik) from
69  * >>refer v7 cs Pelan, J., & Berrington, K.A. 1995, A&A Suppl, 110, 209 */
70  PutCS(2.39,&TauLines[ipVa07130]);
71  atom_level2(&TauLines[ipVa07130]);
72 
73  /* [V 15] 1721.38, cs from
74  * >>referold v15 cs Saraph, H.E. & Tully, J.A. 1994, A&AS, 107, 29 */
75  /* >>refer v15 cs Berrington,K.A.,Saraph, H.E. & Tully, J.A. 1998, A&AS, 129, 161 */
76  /*>>chng 06 jul 19 Changes made-Humeshkar Nemala*/
77  if(phycon.te < 3.566E6)
78  {
80  }
81  else
82  {
83  cs = (realnum)(47.350653/((phycon.te40/phycon.te02)*phycon.te0002));
84  }
85 
86  /*PutCS(0.10,&TauLines[ipVa15172]);*/
87  PutCS(cs,&TauLines[ipVa15172]);
88  atom_level2(&TauLines[ipVa15172]);
89  return;
90 }

Generated for cloudy by doxygen 1.8.3.1