OV-GSO-DC / dustem-wrapper_idl

Blame view

src/idl/dustem_write_all.pro 2.58 KB
Edit Raw Normal View History
427f1205   Jean-Michel Glorian   version 4.2 merged 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
PRO dustem_write_all,st,dir_out,help=help

;+
; NAME:
;    dustem_write_all
; PURPOSE:
;    Write all Dustem input data
; CATEGORY:
;    Dustem
; CALLING SEQUENCE:
;    dustem_write_all,st,dir_out[,/help]
; INPUTS:
;    st: Dustem input structure
;    dir_out: output directory
; OPTIONAL INPUT PARAMETERS:
;    None
; OUTPUTS:
;    None
; OPTIONAL OUTPUT PARAMETERS:
;    None
; ACCEPTED KEY-WORDS:
;    help      = If set, print this help
; COMMON BLOCKS:
;    None
; SIDE EFFECTS:
;    None
; RESTRICTIONS:
;    The dustem idl wrapper must be installed
; PROCEDURE:
;    None
; EXAMPLES
;    dustem_init
;    dir=getenv('DUSTEM_SOFT_DIR')+'/src/dustem3.8_web/'
;    st=dustem_read_all(dir)
;    dirout=getenv('DUSTEM_DAT')
;    dustem_write_all,st,dirout
; MODIFICATION HISTORY:
;    Written by J.-Ph. Bernard
;    see evolution details on the dustem cvs maintained at CESR
;    Contact J.-Ph. Bernard (Jean-Philippe.Bernard@cesr.fr) in case of problems.
;-

IF keyword_set(help) THEN BEGIN
  doc_library,'dustem_write_all'
  goto,sortie
ENDIF

;IF getenv('DUSTEM_WHICH') EQ 'VERSTRAETE' THEN BEGIN
IF !dustem_which EQ 'VERSTRAETE' THEN BEGIN
  dustem_write_all_lv,st,dir_out
  goto,sortie
ENDIF

;IF getenv('DUSTEM_WHICH') EQ 'WEB3p8' THEN BEGIN
f882e687   Ilyes Choubani   improved 
55
 
IF !dustem_which EQ 'WEB3p8' THEN BEGIN
427f1205   Jean-Michel Glorian   version 4.2 merged 
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
 
  dustem_write_all_web3p8,st,dir_out
  goto,sortie
ENDIF

file_out=dir_out+'GRAIN.DAT'
dustem_write_grain,file_out,st.grains

file_out=dir_out+'TAILLE.DAT'
dustem_write_taille,file_out,st.grains

file_out=dir_out+'PROPMASS.DAT'
dustem_write_propmass,file_out,st.grains

;IF getenv('DUSTEM_WHICH') EQ 'DESERT' THEN BEGIN
IF !dustem_which EQ 'DESERT' THEN BEGIN
  file_out=dir_out+'GEMISSIV.DAT'
  dustem_write_gemissiv,file_out,st.gemissiv
ENDIF

file_out=dir_out+'ISRF.DAT'
dustem_write_isrf,file_out,st.isrf

;stop
;IF getenv('DUSTEM_WHICH') EQ 'COMPIEGNE' THEN BEGIN
IF !dustem_which EQ 'COMPIEGNE' THEN BEGIN
  file_out=dir_out
  dustem_write_qabs,file_out,st.qabs
ENDIF
;IF getenv('DUSTEM_WHICH') EQ 'DESERT' THEN BEGIN
IF !dustem_which EQ 'DESERT' THEN BEGIN
  file_out=dir_out+'QABS.DAT'
  dustem_write_qabs_desert,file_out,st.qabs
ENDIF

file_out=dir_out+'SPECEM.DAT'
dustem_write_specem,file_out,st.specem

file_out=dir_out+'CALOR.DAT'
dustem_write_calor,file_out,st.calor

;IF getenv('DUSTEM_WHICH') EQ 'COMPIEGNE' THEN BEGIN
IF !dustem_which EQ 'COMPIEGNE' THEN BEGIN
  file_out=dir_out+'LAMBDA.DAT'
  dustem_write_lambda,file_out,st.lambda
ENDIF

;IF getenv('DUSTEM_WHICH') EQ 'DESERT' THEN BEGIN
IF !dustem_which EQ 'DESERT' THEN BEGIN
  file_out=dir_out+'IONFRAC.DAT'
  dustem_write_ionfrac,file_out,st.ionfrac
ENDIF

sortie:

END