OV-GSO-DC / dustem-wrapper_idl

Commit d9ec9405fb9315b1c006edfa9642ec27118f818a

Authored by Annie Hughes
1 parent 279e3f60
Exists in master

updated for release

Showing 1 changed file with 5 additions and 13 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_read_all_release.pro
  Diff comments   View file @d9ec940
1 -FUNCTION dustem_read_all_release,dir_in,silent=silent,help=help,kwords=kwords 1 +FUNCTION dustem_read_all_release,dir_in,silent=silent,help=help
2 2
3 ;+ 3 ;+
4 ; NAME: 4 ; NAME:
@@ -31,9 +31,9 @@ FUNCTION dustem_read_all_release,dir_in,silent=silent,help=help,kwords=kwords @@ -31,9 +31,9 @@ FUNCTION dustem_read_all_release,dir_in,silent=silent,help=help,kwords=kwords
31 ; EXAMPLES 31 ; EXAMPLES
32 ; 32 ;
33 ; MODIFICATION HISTORY: 33 ; MODIFICATION HISTORY:
34 -; Written by J.-Ph. Bernard  
35 -; see evolution details on the dustem cvs maintained at CESR  
36 -; Contact J.-Ph. Bernard (Jean-Philippe.Bernard@cesr.fr) in case of problems. 34 +; Written by JP Bernard
  35 +; Evolution details on the DustEMWrap gitlab.
  36 +; See http://dustemwrap.irap.omp.eu/ for FAQ and help.
37 ;- 37 ;-
38 38
39 IF keyword_set(help) THEN BEGIN 39 IF keyword_set(help) THEN BEGIN
@@ -50,7 +50,6 @@ file=dir_in_dat+(*!dustem_inputs).grain @@ -50,7 +50,6 @@ file=dir_in_dat+(*!dustem_inputs).grain
50 ;st_grains=dustem_read_grain(file,silent=silent) 50 ;st_grains=dustem_read_grain(file,silent=silent)
51 st_grains=dustem_read_grain(file,silent=silent,key_str=key_str,G0=G0) 51 st_grains=dustem_read_grain(file,silent=silent,key_str=key_str,G0=G0)
52 Ngrains=n_elements(st_grains) 52 Ngrains=n_elements(st_grains)
53 -;stop  
54 53
55 file=dir_in_dat+'ISRF.DAT' 54 file=dir_in_dat+'ISRF.DAT'
56 st_isrf=dustem_read_isrf(file,silent=silent,Nisrf=Nisrf) 55 st_isrf=dustem_read_isrf(file,silent=silent,Nisrf=Nisrf)
@@ -70,25 +69,18 @@ FOR i=0L,Ngrains-1 DO BEGIN @@ -70,25 +69,18 @@ FOR i=0L,Ngrains-1 DO BEGIN
70 st=dustem_read_qabs_lv(Qabs_file,silent=silent,read_densities=read_densities) 69 st=dustem_read_qabs_lv(Qabs_file,silent=silent,read_densities=read_densities)
71 st_qabs(i)=ptr_new(st) 70 st_qabs(i)=ptr_new(st)
72 ENDFOR 71 ENDFOR
73 -  
74 ;=== Read heat capacities 72 ;=== Read heat capacities
75 st_calor=ptrarr(Ngrains) 73 st_calor=ptrarr(Ngrains)
76 FOR i=0L,Ngrains-1 DO BEGIN 74 FOR i=0L,Ngrains-1 DO BEGIN
77 Calor_file=dir_in_capa+'C_'+st_grains(i).grain_type+'.DAT' 75 Calor_file=dir_in_capa+'C_'+st_grains(i).grain_type+'.DAT'
78 st=dustem_read_calor_lv(Calor_file,silent=silent) 76 st=dustem_read_calor_lv(Calor_file,silent=silent)
79 - st_calor(i)=ptr_new(st) 77 + st_calor(i)=ptr_new(st)
80 ENDFOR 78 ENDFOR
81 79
82 ;=== Read lambda 80 ;=== Read lambda
83 file=dir_in_qabs+'LAMBDA.DAT' 81 file=dir_in_qabs+'LAMBDA.DAT'
84 st_lambda=dustem_read_lambda(file,silent=silent) 82 st_lambda=dustem_read_lambda(file,silent=silent)
85 83
86 -if keyword_set(kwords) then begin  
87 - FOR i=0L,n_elements(kwords)-1 DO BEGIN  
88 - st_grains(i).type_keywords=kwords(i)  
89 - ENDFOR  
90 -endif  
91 -  
92 ;=== Read size distribution files 84 ;=== Read size distribution files
93 st_size=ptrarr(Ngrains) 85 st_size=ptrarr(Ngrains)
94 FOR i=0L,Ngrains-1 DO BEGIN 86 FOR i=0L,Ngrains-1 DO BEGIN