OV-GSO-DC / dustem-wrapper_idl

Commit 1e69909cad823a91ba4e81e06c9aa8247b640818

Authored by Annie Hughes
1 parent 0fc2c233
Exists in master

remove redundant spec keyword

Showing 1 changed file with 10 additions and 7 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_plugin_dl07_isrf_model.pro
  Diff comments   View file @1e69909
1   -FUNCTION dustem_plugin_dl07_isrf_model, key=key, val=val, scope=scope, paramtag=paramtag,help=help,spec=spec,Umean=Umean
  1 +FUNCTION dustem_plugin_dl07_isrf_model, key=key, val=val, scope=scope, paramtag=paramtag, help=help, Umean=Umean
2 2  
3 3 ;+
4 4 ; NAME:
5 5 ; dustem_plugin_dl07_isrf_model
6 6 ;
7 7 ; PURPOSE:
8   -;
9   -;
  8 +; Returns the dust spectrum after heating by a Draine-like ISRF
  9 +; with Umin, Umax, gamma, alpha parameters described by the val keyword
  10 +;
10 11 ; CATEGORY:
11   -; DUSTEM Wrapper
  12 +; DUSTEM Wrapper, Plugin
12 13 ;
13 14 ; CALLING SEQUENCE:
14   -; sed=dustem_plugin_dl07_isrf_model(key=,val=,/paramtag][,/scope][,/help])
  15 +; sed=dustem_plugin_dl07_isrf_model(key=,val=,Umean=,/paramtag][,/scope][,/help])
15 16 ;
16 17 ; INPUTS:
17 18 ; None
... ... @@ -28,8 +29,8 @@ FUNCTION dustem_plugin_dl07_isrf_model, key=key, val=val, scope=scope, paramtag=
28 29 ; None
29 30 ;
30 31 ; OPTIONAL OUTPUT PARAMETERS:
31   -; None
32   -;
  32 +; Umean = the average radiation field
  33 +;
33 34 ; ACCEPTED KEY-WORDS:
34 35 ; help = if set, print this help
35 36 ;
... ... @@ -100,6 +101,7 @@ ENDIF
100 101 Umean=(1.-gamma)*Umin+gamma*Umin*alog(Umax/Umin)/(1.-Umin/Umax)
101 102  
102 103 lambir=dustem_get_wavelengths()
  104 +
103 105 Nwavs=n_elements(lambir)
104 106 spec=fltarr(Nwavs,3)
105 107 spec2=fltarr(Nwavs,3)
... ... @@ -107,6 +109,7 @@ spec2=fltarr(Nwavs,3)
107 109 ;==== Run dustem with G0(a.k.a. U)=1.
108 110 param_desc=['(*!dustem_params).G0']
109 111 param_values=[Umin]
  112 +
110 113 dustem_init_params,!dustem_model,param_desc,param_values
111 114 st=dustem_run(param_values)
112 115 spec1=st.sed.em_tot
... ...