00001
00002
00003
00004 #include "cddefines.h"
00005 #include "taulines.h"
00006 #include "coolheavy.h"
00007 #include "dense.h"
00008 #include "lines_service.h"
00009 #include "atoms.h"
00010 #include "cooling.h"
00011
00012 void CoolTita(void)
00013 {
00014 realnum a21,
00015 a31,
00016 a32,
00017 p2,
00018 p3;
00019
00020 DEBUG_ENTRY( "CoolTita()" );
00021
00022
00023
00024
00025
00026 a21 = 0.015f;
00027 a31 = 0.032f;
00028 a32 = 0.002f;
00029
00030
00031
00032 p3 = (realnum)atom_pop3(21.,5.,9.,21.,5.0,9.0,a21,a31,a32,11844.,3148.4,&p2,
00033 dense.xIonDense[ipTITANIUM][2],0.,0.,0.);
00034
00035
00036 CoolHeavy.Ti3l31 = p3*a31*2.07e-12;
00037
00038
00039 CoolHeavy.Ti3l32 = p3*a32*4.35e-13;
00040
00041
00042 CoolHeavy.Ti3l21 = p2*a21*1.64e-12;
00043 CoolAdd("Ti 3",9594,CoolHeavy.Ti3l31);
00044 CoolAdd("Ti 3",4,CoolHeavy.Ti3l32);
00045 CoolAdd("Ti 3",1,CoolHeavy.Ti3l21);
00046
00047
00048
00049
00050 PutCS(3.48,&TauLines[ipTi06172]);
00051 atom_level2(&TauLines[ipTi06172]);
00052
00053
00054
00055 PutCS(0.23,&TauLines[ipTi14212]);
00056 atom_level2(&TauLines[ipTi14212]);
00057 return;
00058 }