Commit 78d57d5ad5c32f7acef77ba9d51493e8fdb6ebd4
1 parent
2c698fe3
Exists in
master
unknown changes
Showing
2 changed files
with
5 additions
and
10 deletions
Show diff stats
src/idl/dustem_compute_stokes.pro
| ... | ... | @@ -80,17 +80,12 @@ frac(tes)=0. |
| 80 | 80 | |
| 81 | 81 | scopes=tag_names((*!dustem_plugin)) |
| 82 | 82 | IF scopes[0] NE 'NONE' THEN BEGIN |
| 83 | - FOR i=0L,n_tags(*!dustem_plugin)-1 DO BEGIN | |
| 84 | - | |
| 83 | + FOR i=0L,n_tags(*!dustem_plugin)-1 DO BEGIN | |
| 85 | 84 | IF total(strsplit((*(*!dustem_plugin).(i).scope),'+',/extract) EQ 'REPLACE_POLSED') THEN BEGIN |
| 86 | - | |
| 87 | 85 | Q_spec = (*(*!dustem_plugin).(i).spec)[*,1] |
| 88 | 86 | U_spec = (*(*!dustem_plugin).(i).spec)[*,2] |
| 89 | - | |
| 90 | 87 | ENDIF |
| 91 | - | |
| 92 | 88 | ENDFOR |
| 93 | - | |
| 94 | 89 | ENDIF |
| 95 | 90 | |
| 96 | 91 | IF ~isa(Q_spec) && ~isa(U_spec) THEN BEGIN | ... | ... |
src/idl/dustem_compute_stokext.pro
| ... | ... | @@ -12,7 +12,7 @@ FUNCTION dustem_compute_stokext,p_dim,$ |
| 12 | 12 | ; dustem_compute_stokext |
| 13 | 13 | ; |
| 14 | 14 | ; PURPOSE: |
| 15 | -; Computes Stokes Parmeters extinction in units of optical depth for a given Dustem spectrum | |
| 15 | +; Computes Stokes Parameters for extinction in units of optical depth for a given Dustem spectrum | |
| 16 | 16 | ; |
| 17 | 17 | ; CATEGORY: |
| 18 | 18 | ; Dustem |
| ... | ... | @@ -48,7 +48,8 @@ FUNCTION dustem_compute_stokext,p_dim,$ |
| 48 | 48 | ; None |
| 49 | 49 | ; |
| 50 | 50 | ; RESTRICTIONS: |
| 51 | -; The dustem idl wrapper must be installed | |
| 51 | +; The DustEM fortran code must be installed | |
| 52 | +; The DustEMWrap IDL code must be installed | |
| 52 | 53 | ; |
| 53 | 54 | ; PROCEDURE: |
| 54 | 55 | ; None |
| ... | ... | @@ -56,7 +57,7 @@ FUNCTION dustem_compute_stokext,p_dim,$ |
| 56 | 57 | ; EXAMPLES |
| 57 | 58 | ; |
| 58 | 59 | ; MODIFICATION HISTORY: |
| 59 | -; Written by J.-Ph. Bernard | |
| 60 | +; Written by J.-Ph. Bernard 2022 | |
| 60 | 61 | ; Evolution details on the DustEMWrap gitlab. |
| 61 | 62 | ; See http://dustemwrap.irap.omp.eu/ for FAQ and help. |
| 62 | 63 | ;- |
| ... | ... | @@ -81,7 +82,6 @@ degtorad = !pi/180 |
| 81 | 82 | |
| 82 | 83 | |
| 83 | 84 | EXT_spec = st.ext.ext_tot * (*!dustem_HCD)/1.e21 ;This is Total extinction (for a default value of 10^20 NH/cm^2) |
| 84 | -;stop | |
| 85 | 85 | POLEXT_spec = st.polext.ext_tot * (*!dustem_HCD)/1.e21 ;This is Polarized extinction |
| 86 | 86 | |
| 87 | 87 | ;Hard-coded test to set to zero potential negative values in the polarized extinction arrays: | ... | ... |