Commit d764beaa90cefe3a9aa17160693afc23cec838ce

Authored by Annie Hughes
1 parent d976d1bb
Exists in master

fixed the 199 vs 200 ISRF grid error

Showing 1 changed file with 6 additions and 14 deletions   Show diff stats
src/idl/dustem_read_isrf.pro
... ... @@ -60,23 +60,15 @@ nlines=n_elements(lambisrf)
60 60  
61 61 one_st={lambisrf:0.,isrf:0.}
62 62 st=replicate(one_st,Nlines)
63   -
64 63 st.lambisrf=lambisrf
65 64 st.isrf=isrf
66 65  
67   -
68   -;IF getenv('DUSTEM_WHICH') EQ 'VERSTRAETE' THEN BEGIN
69   -IF !dustem_which EQ 'VERSTRAETE' THEN BEGIN
70   - st=st(1:*)
71   - Nisrf=n_elements(st)
72   -ENDIF
73   -;IF getenv('DUSTEM_WHICH') EQ 'WEB3p8' THEN BEGIN
74   -IF !dustem_which EQ 'RELEASE' THEN BEGIN
75   - st=st(1:*)
76   - Nisrf=n_elements(st)
77   -ENDIF
78   -
79   -;stop
  66 +; following lines are no longer needed because readcol format requirements
  67 +; now enforce that we drop the line with the number of grid points
  68 +;IF !dustem_which EQ 'RELEASE' THEN BEGIN
  69 +; st=st(1:*)
  70 +; Nisrf=n_elements(st)
  71 +;ENDIF
80 72  
81 73 the_end:
82 74 return,st
... ...