OV-GSO-DC / dustem-wrapper_idl

Commit c9b723d91f7bbe8f3453871cb99198d7e01bb0b2

Authored by Ilyes Choubani
2 parents 3ff9cac3 2c7b0963
Exists in master

Merge branch 'master' of https://gitlab.irap.omp.eu/OV-GSO-DC/dustem-wrapper_idl

Showing 6 changed files with 24 additions and 5 deletions   Show diff stats
Inline Side-by-side
Docs/DustemWrap_development_issues.txt
  Diff comments   View file @c9b723d
... ... @@ -9,3 +9,6 @@
9 9 - JPB, April 8th 2022:
10 10 Dustemwrap causes the Fortran to crash if the chrg keyword is not specified in the initial GRAIN.DAT file, but is subsequently added by the (*!dustem_params).grains[0].TYPE_KEYWORDS. A similar error is likely to occur for the spin keyword (untested).
11 11 We must force these pointers to not be empty just after writing our own GRAIN.DAT in /tmp, in the same way this is done in dustem_init.pro with the GRAIN.DAT from the fortran directory.
  12 +- *FOLLOW UP*: IC, May 15th 2022: A SOLUTION HAS BEEN IMPLEMENTED BY INTRODUCING the 'kwords'
  13 +;keyword and specifying the necessary population keywords. IE: kwords=['plaw-ed-chrg-spin'] for the first grain population
  14 +;to enable the use of spinning dust. THIS IS NOT AN ISSUE ANYMORE.
12 15 \ No newline at end of file
... ...
instrument_description.xcat
  Diff comments   View file @c9b723d
... ... @@ -81,8 +81,17 @@ NIKA2 NIKA22 2025.892 MJy/sr nuInu=cste 0.004722222
81 81 IRS IRS_spec -32768. MJy/sr NULL
82 82 \========= S-PASS ==========
83 83 \information taken from Carretti et al. 2019
84   -\flux convention does not really matter (narrow band of 8 MHz for 2.3 GHz)
85   -SPASS SPASS1 130435 MJy/sr NULL 0.14833333 5.0
  84 +\flux convention does not really matter (narrow band of 8 MHz for 2.3 GHz). Resoltion is 8.9' (0.148333 deg)
  85 +\ref frequency is actually 2.303 GHz (130174.74 mic)
  86 +SPASS SPASS1 130174.74 MJy/sr NULL 0.14833333 5.0
  87 +\========= ZOA-FF (free free from Alves, M. I. R., et al, 2015, MNRAS, 450, 2025) ==========
  88 +\information taken from Alves, M. I. R., et al, 2015, MNRAS, 450, 2025
  89 +\flux convention does not really matter (narrow band of ? MHz for 1.4 GHz)
  90 +CHIPASS ZOA_FF1 214286. MJy/sr NULL 0.24 5.0
  91 +\========= CHI-PASS ==========
  92 +\information taken from Calabretta, M. et al. 2014, PASA, 31, 7
  93 +\flux convention does not really matter (narrow band of ? MHz for 1.4 GHz)
  94 +CHIPASS CHIPASS1 214286. MJy/sr NULL 0.24 5.0
86 95 \========= IRAC ==========
87 96 \resolution taken to be 1.7, 1.7, 1.9, 2" (eg Meixner et al)
88 97 IRAC IRAC1 3.55000 MJy/sr IRAC 0.000472222
... ...
src/idl/dustem_init.pro
  Diff comments   View file @c9b723d
... ... @@ -282,6 +282,8 @@ defsysv, '!dustem_model', model
282 282 ENDCASE
283 283 ENDIF
284 284  
  285 +;stop
  286 +
285 287 ;Initialize !dustem_params structure
286 288 IF not keyword_set(dir) THEN BEGIN
287 289 ; CASE getenv('DUSTEM_WHICH') OF
... ...
src/idl/dustem_initialize_sed.pro
  Diff comments   View file @c9b723d
... ... @@ -81,6 +81,7 @@ comments=[comments,'sigmaQU: covariance on Stokes Q and U [(MJy/sr)^2]']
81 81 comments=[comments,'sigma_largep: variance on Polarized Intensity (P) [(MJy/sr)^2]']
82 82 comments=[comments,'sigma_smallp: variance on polarisation fraction (p) []']
83 83 comments=[comments,'sigma_psi: variance on polarisation fraction (psi) [deg^2]']
  84 +comments=[comments,'CAUTION: p, P and psi values are NOT debiased']
84 85  
85 86 sed=replicate(one_st,Nsed)
86 87  
... ...
src/idl/dustem_plot_fit_sed.pro
  Diff comments   View file @c9b723d
... ... @@ -143,8 +143,8 @@ IF keyword_set(ytit) THEN ytit = ytit ELSE ytit = textoidl('Brightness/N_H (MJy/
143 143 ;###############################
144 144 if keyword_set(fpol) then begin
145 145 if !run_lin then begin
146   - cgDisplay, 600, 500
147   - cgplot,(*!dustem_data.sed).wav,(*!dustem_data.sed).values/norm,/nodata,xtit='',ytit=ytit,tit='',/ylog,/xlog,/ys,/xs,position=[0.12,0.25,0.96,0.76],xtickformat='(A1)',_extra=_extra,charsize=1.3,/noerase
  146 + IF !d.name NE 'PS' THEN cgDisplay, 600, 500
  147 + cgplot,(*!dustem_data.sed).wav,(*!dustem_data.sed).values/norm,/nodata,xtit='',ytit=ytit,tit='',/ylog,/xlog,/ys,/xs,position=[0.12,0.25,0.96,0.76],xtickformat='(A1)',_extra=_extra,charsize=1.3,/noerase
148 148 endif
149 149 endif ELSE cgplot,(*!dustem_data.sed).wav,(*!dustem_data.sed).values/norm,/nodata,xtit='',ytit=ytit,tit=title,/ylog,/xlog,/ys,/xs,position=[0.12,0.35,0.96,0.90],xtickformat='(A1)',_extra=_extra,charsize=1.3
150 150 ;###############################
... ...
src/idl/dustem_sed_plot.pro
  Diff comments   View file @c9b723d
... ... @@ -16,7 +16,11 @@ IF not keyword_set(function_name) THEN BEGIN
16 16 st=out_st
17 17 ;dustem_plot_fit_sed,st,dustem_sed,cont,freefree,synchrotron,_extra=_extra,legend_xpos=legend_xpos,legend_ypos=legend_ypos
18 18 win=1;win-act_wins+1
19   - IF keyword_set(ps) THEN dustem_plot_fit_sed,st,dustem_sed,win=win,_extra=_extra,legend_xpos=legend_xpos,legend_ypos=legend_ypos,ps=ps,png=png,use_model=use_model,fpol=fpol ELSE dustem_plot_fit_sed,st,dustem_sed,_extra=_extra,win=win,legend_xpos=legend_xpos,legend_ypos=legend_ypos,use_model=use_model,fpol=fpol
  19 + IF keyword_set(ps) THEN BEGIN
  20 + dustem_plot_fit_sed,st,dustem_sed,win=win,_extra=_extra,legend_xpos=legend_xpos,legend_ypos=legend_ypos,ps=ps,png=png,use_model=use_model,fpol=fpol
  21 + ENDIF ELSE BEGIN
  22 + dustem_plot_fit_sed,st,dustem_sed,_extra=_extra,win=win,legend_xpos=legend_xpos,legend_ypos=legend_ypos,use_model=use_model,fpol=fpol
  23 + ENDELSE
20 24  
21 25 ;I do not understand the reason begind the stop below - either way polarization is handled by other procedures
22 26 IF keyword_set(pol) THEN BEGIN
... ...