OV-GSO-DC / dustem-wrapper_idl

Commit f197ecae2d0deecd693f036fe60b27801abf0657

Authored by Annie Hughes
1 parent 6689d7b7
Exists in master

added Y24/THEMIS2/THEMIS model

Showing 2 changed files with 21 additions and 5 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_init.pro
  Diff comments   View file @f197eca
... ... @@ -346,6 +346,9 @@ CASE use_model OF
346 346 'MC10':BEGIN
347 347 (*!dustem_inputs).grain='GRAIN_MC10.DAT'
348 348 END
  349 + 'C10':BEGIN
  350 + (*!dustem_inputs).grain='GRAIN_MC10.DAT' ; for convenience
  351 + END
349 352 'COMPIEGNE_ETAL10':BEGIN ; for backwards compatibility
350 353 (*!dustem_inputs).grain='GRAIN_MC10.DAT'
351 354 END
... ... @@ -400,11 +403,19 @@ CASE use_model OF
400 403 (*!dustem_inputs).grain='GRAIN_G17_ModelD.DAT'
401 404 (*!dustem_inputs).align='ALIGN_G17_ModelD.DAT'
402 405 END
403   - 'THEMIS':BEGIN ; removed from DUSTEM fortran in Feb2023 release
404   - (*!dustem_inputs).grain='GRAIN_THEMIS.DAT'
405   - (*!dustem_inputs).align='ALIGN_THEMIS.DAT'
  406 + 'Y24':BEGIN ; removed from DUSTEM fortran in Feb2023 release
  407 + (*!dustem_inputs).grain='GRAIN_Y24.DAT'
  408 + (*!dustem_inputs).align='ALIGN_Y24.DAT'
  409 + END
  410 + 'Y24':BEGIN ; removed from DUSTEM fortran in Feb2023 release
  411 + (*!dustem_inputs).grain='GRAIN_Y24.DAT'
  412 + (*!dustem_inputs).align='ALIGN_Y24.DAT'
  413 + END
  414 + 'THEMIS':BEGIN ; removed from DUSTEM fortran in Feb2023 release
  415 + (*!dustem_inputs).grain='GRAIN_Y24.DAT'
  416 + (*!dustem_inputs).align='ALIGN_Y24.DAT'
406 417 END
407   - 'NY_MODELA':BEGIN ; removed from DUSTEM fortran in Feb2023 release
  418 + 'THEMIS2':BEGIN ; removed from DUSTEM fortran in Feb2023 release
408 419 (*!dustem_inputs).grain='GRAIN_NY_ModelA.DAT'
409 420 (*!dustem_inputs).align='ALIGN_G17_ModelA.DAT'
410 421 END
... ...
src/idl/dustem_test_model_exists.pro
  Diff comments   View file @f197eca
... ... @@ -77,7 +77,9 @@ function dustem_test_model_exists,model $
77 77 ,'G17_MODELB' $
78 78 ,'G17_MODELC' $
79 79 ,'G17_MODELD' $
80   -; ,'THEMIS' $ ; removed from DUSTEM fortran in Feb2023 release
  80 + ,'THEMIS' $ ; for convenience
  81 + ,'THEMIS2' $ ; for convenience
  82 + ,'Y24' $
81 83 ; ,'ASTRODUST' $ ; removed from DUSTEM fortran in Feb2023 release
82 84 ; ,'NY_MODELA' $ ; removed from DUSTEM fortran in Feb2023 release
83 85 ,'USER_MODEL']
... ... @@ -102,6 +104,9 @@ function dustem_test_model_exists,model $
102 104 ,'G17_MODELB' $
103 105 ,'G17_MODELC' $
104 106 ,'G17_MODELD' $
  107 + ,'Y24' $
  108 + ,'THEMIS' $
  109 + ,'THEMIS2' $
105 110 ,'USER_MODEL'] ; we assume the USER knows their own model!
106 111  
107 112 if keyword_set(polarisation) then begin
... ...