Context Navigation

lmdz_cosp_read_outputkeys.F90 @ 4743

Last change on this file since 4743 was 4743, checked in by Laurent Fairhead, 7 months ago
Merge of ACC branch with 4740 revision from trunk
File size: 64.2 KB

Line
1	!!!=============================================================================
2	!!! AI mars 2018
3	!! Module permettant de controler les cles de sorties cosp
4	!! pour LMDZ
5	!! 1. on initialise les cles au 1er passage a cosp itap de la physique = 1
6	!! 2. on garde la routine de lecture du fichier namelist cosp_out...txt pour le
7	!! cas non XIOS (ioipsl)
8	!! 3. on rajoutte une subroutine qui interoge XIOS si les champs sont demandes
9	!! dans les xml alors on les active et on active les simulateurs
10	!! correspondant
11	!!
12	!!! RG janvier 2019
13	!! Mise a jour pour avoir toutes les sorties de COSPv2
14	!! Changement de nom a "lmdz_cosp_read_outputkeys"
15	!!!=============================================================================
16
17	module lmdz_cosp_read_outputkeys
18
19	USE mod_phys_lmdz_para
20
21	!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22	! TYPE COSP_CONFIG
23	!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24	TYPE COSP_CONFIG
25	logical :: &
26	Lwrite_output, & ! Control for output file
27	Lfracout, & ! Control SCOPS cloud fraction out ?
28	! simulators
29	Lcloudsat, & ! CLOUDSAT simulator on/off switch
30	Lcalipso, & ! CALIPSO simulator on/off switch
31	LgrLidar532, & ! GROUND LIDAR simulator on/off switch
32	Latlid, & ! ATLID simulator on/off switch
33	Lisccp, & ! ISCCP simulator on/off switch
34	Lmodis, & ! MODIS simulatoe on/off switch
35	Lmisr, & ! MISR simulator on/off switch
36	Lrttov, & ! RTTOV simulator on/off switch
37	Lparasol, & ! PARASOL simulator on/off switch
38
39	! diagnostics
40	Lpctisccp, & ! ISCCP mean cloud top pressure
41	Lclisccp, & ! ISCCP cloud area fraction
42	Lboxptopisccp, & ! ISCCP CTP in each column
43	Lboxtauisccp, & ! ISCCP optical epth in each column
44	Ltauisccp, & ! ISCCP mean optical depth
45	Lcltisccp, & ! ISCCP total cloud fraction
46	Lmeantbisccp, & ! ISCCP mean all-sky 10.5micron brightness temperature
47	Lmeantbclrisccp, & ! ISCCP mean clear-sky 10.5micron brightness temperature
48	Lalbisccp, & ! ISCCP mean cloud albedo
49	LclMISR, & ! MISR cloud fraction
50	Lcltmodis, & ! MODIS total cloud fraction
51	Lclwmodis, & ! MODIS liquid cloud fraction
52	Lclimodis, & ! MODIS ice cloud fraction
53	Lclhmodis, & ! MODIS high-level cloud fraction
54	Lclmmodis, & ! MODIS mid-level cloud fraction
55	Lcllmodis, & ! MODIS low-level cloud fraction
56	Ltautmodis, & ! MODIS total cloud optical thicknes
57	Ltauwmodis, & ! MODIS liquid optical thickness
58	Ltauimodis, & ! MODIS ice optical thickness
59	Ltautlogmodis, & ! MODIS total cloud optical thickness (log10 mean)
60	Ltauwlogmodis, & ! MODIS liquid optical thickness (log10 mean)
61	Ltauilogmodis, & ! MODIS ice optical thickness (log10 mean)
62	Lreffclwmodis, & ! MODIS liquid cloud particle size
63	Lreffclimodis, & ! MODIS ice particle size
64	Lpctmodis, & ! MODIS cloud top pressure
65	Llwpmodis, & ! MODIS cloud liquid water path
66	Liwpmodis, & ! MODIS cloud ice water path
67	Lclmodis, & ! MODIS cloud area fraction
68	Latb532, & ! CALIPSO attenuated total backscatter (532nm)
69	Latb532gr, & ! GROUND LIDAR @ 532NM attenuated total backscatter (532nm)
70	Latb355, & ! ATLID attenuated total backscatter (355nm)
71	LlidarBetaMol532, & ! CALIPSO molecular backscatter (532nm)
72	LlidarBetaMol532gr,&! GROUND LIDAR @ 532NM molecular backscatter (532nm)
73	LlidarBetaMol355, & ! ATLID molecular backscatter (355nm)
74	LcfadLidarsr532, & ! CALIPSO scattering ratio CFAD
75	LcfadLidarsr532gr,& ! GROUND LIDAR @ 532NM scattering ratio CFAD
76	LcfadLidarsr355, & ! ATLID scattering ratio CFAD
77	Lclcalipso2, & ! CALIPSO cloud fraction undetected by cloudsat
78	Lclcalipso, & ! CALIPSO cloud area fraction
79	LclgrLidar532, & ! GROUND LIDAR @ 532NM cloud area fraction
80	Lclatlid, & ! ATLID cloud area fraction
81	Lclhcalipso, & ! CALIPSO high-level cloud fraction
82	Lcllcalipso, & ! CALIPSO low-level cloud fraction
83	Lclmcalipso, & ! CALIPSO mid-level cloud fraction
84	Lcltcalipso, & ! CALIPSO total cloud fraction
85	LclhgrLidar532, & ! GROUND LIDAR @ 532NM high-level cloud fraction
86	LcllgrLidar532, & ! GROUND LIDAR @ 532NM low-level cloud fraction
87	LclmgrLidar532, & ! GROUND LIDAR @ 532NM mid-level cloud fraction
88	LcltgrLidar532, & ! GROUND LIDAR @ 532NM total cloud fraction
89	Lclhatlid, & ! ATLID high-level cloud fraction
90	Lcllatlid, & ! ATLID low-level cloud fraction
91	Lclmatlid, & ! ATLID mid-level cloud fraction
92	Lcltatlid, & ! ATLID total cloud fraction
93	Lcltlidarradar, & ! CALIPSO-CLOUDSAT total cloud fraction
94	Lcloudsat_tcc, & !
95	Lcloudsat_tcc2, & !
96	Lclcalipsoliq, & ! CALIPSO liquid cloud area fraction
97	Lclcalipsoice, & ! CALIPSO ice cloud area fraction
98	Lclcalipsoun, & ! CALIPSO undetected cloud area fraction
99	Lclcalipsotmp, & ! CALIPSO undetected cloud area fraction
100	Lclcalipsotmpliq, & ! CALIPSO liquid cloud area fraction
101	Lclcalipsotmpice, & ! CALIPSO ice cloud area fraction
102	Lclcalipsotmpun, & ! CALIPSO undetected cloud area fraction
103	Lcltcalipsoliq, & ! CALIPSO liquid total cloud fraction
104	Lcltcalipsoice, & ! CALIPSO ice total cloud fraction
105	Lcltcalipsoun, & ! CALIPSO undetected total cloud fraction
106	Lclhcalipsoliq, & ! CALIPSO high-level liquid cloud fraction
107	Lclhcalipsoice, & ! CALIPSO high-level ice cloud fraction
108	Lclhcalipsoun, & ! CALIPSO high-level undetected cloud fraction
109	Lclmcalipsoliq, & ! CALIPSO mid-level liquid cloud fraction
110	Lclmcalipsoice, & ! CALIPSO mid-level ice cloud fraction
111	Lclmcalipsoun, & ! CALIPSO mid-level undetected cloud fraction
112	Lcllcalipsoliq, & ! CALIPSO low-level liquid cloud fraction
113	Lcllcalipsoice, & ! CALIPSO low-level ice cloud fraction
114	Lcllcalipsoun, & ! CALIPSO low-level undetected cloud fraction
115	Lclopaquecalipso, & ! CALIPSO opaque cloud cover (2D Map)
116	Lclthincalipso, & ! CALIPSO thin cloud cover (2D Map)
117	Lclzopaquecalipso,& ! CALIPSO z_opaque altitude (opaque clouds only, 2D Map)
118	Lclcalipsoopaque, & ! CALIPSO opaque cloud profiles 3D fraction
119	Lclcalipsothin, & ! CALIPSO thin cloud profiles 3D fraction
120	Lclcalipsozopaque,& ! CALIPSO z_opaque 3D fraction
121	Lclcalipsoopacity,& ! CALIPSO opacity 3D fraction
122	Lclopaquetemp, & ! CALIPSO opaque cloud temperature
123	Lclthintemp, & ! CALIPSO thin cloud temperature
124	Lclzopaquetemp, & ! CALIPSO z_opaque temperature
125	Lclopaquemeanz, & ! CALIPSO opaque cloud altitude
126	Lclthinmeanz, & ! CALIPSO thin cloud altitude
127	Lclthinemis, & ! CALIPSO thin cloud emissivity
128	Lclopaquemeanzse, & ! CALIPSO opaque cloud altitude with respect to SE
129	Lclthinmeanzse, & ! CALIPSO thin cloud altitude with respect to SE
130	Lclzopaquecalipsose,& ! CALIPSO z_opaque altitude with respect to SE
131	LcfadDbze94, & ! CLOUDSAT radar reflectivity CFAD
132	Ldbze94, & ! CLOUDSAT radar reflectivity
133	LparasolRefl, & ! PARASOL reflectance
134	Ltbrttov, & ! RTTOV mean clear-sky brightness temperature
135	Lptradarflag0, & ! CLOUDSAT no precipitation flag
136	Lptradarflag1, & ! CLOUDSAT rain possible flag
137	Lptradarflag2, & ! CLOUDSAT rain probable flag
138	Lptradarflag3, & ! CLOUDSAT rain certain flag
139	Lptradarflag4, & ! CLOUDSAT snow possible flag
140	Lptradarflag5, & ! CLOUDSAT snow certain flag
141	Lptradarflag6, & ! CLOUDSAT mixed-precipitation possible flag
142	Lptradarflag7, & ! CLOUDSAT mixed-precipitation certain flag
143	Lptradarflag8, & ! CLOUDSAT heavy rain flag
144	Lptradarflag9, & ! CLOUDSAT default flag
145	Lradarpia ! CLOUDSAT PIA
146
147
148	! character(len=32),dimension(:),allocatable :: out_list
149	character(len=32) :: out_list(107)
150	END TYPE COSP_CONFIG
151
152
153	CONTAINS
154	!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155	!--------------- SUBROUTINE READ_COSP_OUTPUT_NL -------------------------
156	!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157	SUBROUTINE cosp_outputkeys_init(cfg)
158	implicit none
159	type(cosp_config),intent(inout) :: cfg
160	character(len=32) :: out_list(107)
161	integer :: i
162
163	do i=1,107
164	cfg%out_list(i)=''
165	enddo
166
167
168	cfg%Lcloudsat=.false.
169	cfg%Lcalipso=.false.
170	cfg%LgrLidar532=.false.
171	cfg%Latlid=.false.
172	cfg%Lisccp=.false.
173	cfg%Lmodis=.false.
174	cfg%Lmisr=.false.
175	cfg%Lrttov=.false.
176	cfg%Lparasol=.false.
177	cfg%Lwrite_output=.false.
178	cfg%Lfracout=.false.
179
180
181	cfg%Lpctisccp=.false.
182	cfg%Lclisccp=.false.
183	cfg%Lboxptopisccp=.false.
184	cfg%Lboxtauisccp=.false.
185	cfg%Ltauisccp=.false.
186	cfg%Lcltisccp=.false.
187	cfg%Lmeantbisccp=.false.
188	cfg%Lmeantbclrisccp=.false.
189	cfg%Lalbisccp=.false.
190	cfg%LclMISR=.false.
191	cfg%Lcltmodis=.false.
192	cfg%Lclwmodis=.false.
193	cfg%Lclimodis=.false.
194	cfg%Lclhmodis=.false.
195	cfg%Lclmmodis=.false.
196	cfg%Lcllmodis=.false.
197	cfg%Ltautmodis=.false.
198	cfg%Ltauwmodis=.false.
199	cfg%Ltauimodis=.false.
200	cfg%Ltautlogmodis=.false.
201	cfg%Ltauwlogmodis=.false.
202	cfg%Ltauilogmodis=.false.
203	cfg%Lreffclwmodis=.false.
204	cfg%Lreffclimodis=.false.
205	cfg%Lpctmodis=.false.
206	cfg%Llwpmodis=.false.
207	cfg%Liwpmodis=.false.
208	cfg%Lclmodis=.false.
209	cfg%Latb532=.false.
210	cfg%Latb532gr=.false.
211	cfg%Latb355=.false.
212	cfg%LlidarBetaMol532=.false.
213	cfg%LlidarBetaMol532gr=.false.
214	cfg%LlidarBetaMol355=.false.
215	cfg%LcfadLidarsr532=.false.
216	cfg%LcfadLidarsr532gr=.false.
217	cfg%LcfadLidarsr355 =.false.
218	cfg%Lclcalipso2=.false.
219	cfg%Lclcalipso=.false.
220	cfg%LclgrLidar532=.false.
221	cfg%Lclatlid=.false.
222	cfg%Lclhcalipso=.false.
223	cfg%Lcllcalipso=.false.
224	cfg%Lclmcalipso=.false.
225	cfg%Lcltcalipso=.false.
226	cfg%LclhgrLidar532=.false.
227	cfg%LcllgrLidar532=.false.
228	cfg%LclmgrLidar532 =.false.
229	cfg%LcltgrLidar532=.false.
230	cfg%Lclhatlid=.false.
231	cfg%Lcllatlid=.false.
232	cfg%Lclmatlid=.false.
233	cfg%Lcltatlid=.false.
234	cfg%Lcltlidarradar=.false.
235	cfg%Lcloudsat_tcc=.false.
236	cfg%Lcloudsat_tcc2=.false.
237	cfg%Lclcalipsoliq=.false.
238	cfg%Lclcalipsoice=.false.
239	cfg%Lclcalipsoun=.false.
240	cfg%Lclcalipsotmp=.false.
241	cfg%Lclcalipsotmpliq=.false.
242	cfg%Lclcalipsotmpice=.false.
243	cfg%Lclcalipsotmpun=.false.
244	cfg%Lcltcalipsoliq=.false.
245	cfg%Lcltcalipsoice=.false.
246	cfg%Lcltcalipsoun=.false.
247	cfg%Lclhcalipsoliq=.false.
248	cfg%Lclhcalipsoice=.false.
249	cfg%Lclhcalipsoun=.false.
250	cfg%Lclmcalipsoliq=.false.
251	cfg%Lclmcalipsoice=.false.
252	cfg%Lclmcalipsoun=.false.
253	cfg%Lcllcalipsoliq=.false.
254	cfg%Lcllcalipsoice=.false.
255	cfg%Lcllcalipsoun =.false.
256	cfg%Lclopaquecalipso=.false.
257	cfg%Lclthincalipso=.false.
258	cfg%Lclzopaquecalipso=.false.
259	cfg%Lclcalipsoopaque=.false.
260	cfg%Lclcalipsothin=.false.
261	cfg%Lclcalipsozopaque=.false.
262	cfg%Lclcalipsoopacity=.false.
263	cfg%Lclopaquetemp=.false.
264	cfg%Lclthintemp=.false.
265	cfg%Lclzopaquetemp=.false.
266	cfg%Lclopaquemeanz=.false.
267	cfg%Lclthinmeanz=.false.
268	cfg%Lclthinemis=.false.
269	cfg%Lclopaquemeanzse=.false.
270	cfg%Lclthinmeanzse=.false.
271	cfg%Lclzopaquecalipsose=.false.
272	cfg%LcfadDbze94=.false.
273	cfg%Ldbze94=.false.
274	cfg%Lparasolrefl=.false.
275	cfg%Ltbrttov=.false.
276	cfg%Lptradarflag0=.false.
277	cfg%Lptradarflag1=.false.
278	cfg%Lptradarflag2=.false.
279	cfg%Lptradarflag3=.false.
280	cfg%Lptradarflag4=.false.
281	cfg%Lptradarflag5=.false.
282	cfg%Lptradarflag6=.false.
283	cfg%Lptradarflag7=.false.
284	cfg%Lptradarflag8=.false.
285	cfg%Lptradarflag9=.false.
286	cfg%Lradarpia=.false.
287
288	end subroutine cosp_outputkeys_init
289
290
291	SUBROUTINE cosp_outputkeys_test(cfg)
292	implicit none
293	type(cosp_config),intent(out) :: cfg
294	character(len=32) :: out_list(107)
295	integer :: i
296
297	do i=1,107
298	cfg%out_list(i)=''
299	enddo
300
301	cfg%Lcloudsat=.false.
302	cfg%Lcalipso=.true.
303	cfg%LgrLidar532=.false.
304	cfg%Latlid=.false.
305	cfg%Lisccp=.false.
306	cfg%Lmodis=.false.
307	cfg%Lmisr=.false.
308	cfg%Lrttov=.false.
309	cfg%Lparasol=.false.
310	cfg%Lwrite_output=.false.
311	! cfg%Lfracout=.false.
312
313	cfg%Lpctisccp=.false.
314	cfg%Lclisccp=.false.
315	cfg%Lboxptopisccp=.false.
316	cfg%Lboxtauisccp=.false.
317	cfg%Ltauisccp=.false.
318	cfg%Lcltisccp=.false.
319	cfg%Lmeantbisccp=.false.
320	cfg%Lmeantbclrisccp=.false.
321	cfg%Lalbisccp=.false.
322	cfg%LclMISR=.false.
323	cfg%Lcltmodis=.false.
324	cfg%Lclwmodis=.false.
325	cfg%Lclimodis=.false.
326	cfg%Lclhmodis=.false.
327	cfg%Lclmmodis=.false.
328	cfg%Lcllmodis=.false.
329	cfg%Ltautmodis=.false.
330	cfg%Ltauwmodis=.false.
331	cfg%Ltauimodis=.false.
332	cfg%Ltautlogmodis=.false.
333	cfg%Ltauwlogmodis=.false.
334	cfg%Ltauilogmodis=.false.
335	cfg%Lreffclwmodis=.false.
336	cfg%Lreffclimodis=.false.
337	cfg%Lpctmodis=.false.
338	cfg%Llwpmodis=.false.
339	cfg%Liwpmodis=.false.
340	cfg%Lclmodis=.false.
341	cfg%Latb532=.false.
342	cfg%Latb532gr=.false.
343	cfg%Latb355=.false.
344	cfg%LlidarBetaMol532=.false.
345	cfg%LlidarBetaMol532gr=.false.
346	cfg%LlidarBetaMol355=.false.
347	cfg%LcfadLidarsr532=.false.
348	cfg%LcfadLidarsr532gr=.false.
349	cfg%LcfadLidarsr355 =.false.
350	cfg%Lclcalipso2=.false.
351	cfg%Lclcalipso=.false.
352	cfg%LclgrLidar532=.false.
353	cfg%Lclatlid=.false.
354	cfg%Lclhcalipso=.true.
355	cfg%Lcllcalipso=.true.
356	cfg%Lclmcalipso=.true.
357	cfg%Lcltcalipso=.true.
358	cfg%LclhgrLidar532=.false.
359	cfg%LcllgrLidar532=.false.
360	cfg%LclmgrLidar532 =.false.
361	cfg%LcltgrLidar532=.false.
362	cfg%Lclhatlid=.false.
363	cfg%Lcllatlid=.false.
364	cfg%Lclmatlid=.false.
365	cfg%Lcltatlid=.false.
366	cfg%Lcltlidarradar=.false.
367	cfg%Lcloudsat_tcc=.false.
368	cfg%Lcloudsat_tcc2=.false.
369	cfg%Lclcalipsoliq=.false.
370	cfg%Lclcalipsoice=.false.
371	cfg%Lclcalipsoun=.false.
372	cfg%Lclcalipsotmp=.false.
373	cfg%Lclcalipsotmpliq=.false.
374	cfg%Lclcalipsotmpice=.false.
375	cfg%Lclcalipsotmpun=.false.
376	cfg%Lcltcalipsoliq=.false.
377	cfg%Lcltcalipsoice=.false.
378	cfg%Lcltcalipsoun=.false.
379	cfg%Lclhcalipsoliq=.false.
380	cfg%Lclhcalipsoice=.false.
381	cfg%Lclhcalipsoun=.false.
382	cfg%Lclmcalipsoliq=.false.
383	cfg%Lclmcalipsoice=.false.
384	cfg%Lclmcalipsoun=.false.
385	cfg%Lcllcalipsoliq=.false.
386	cfg%Lcllcalipsoice=.false.
387	cfg%Lcllcalipsoun =.false.
388	cfg%Lclopaquecalipso=.false.
389	cfg%Lclthincalipso=.false.
390	cfg%Lclzopaquecalipso=.false.
391	cfg%Lclcalipsoopaque=.false.
392	cfg%Lclcalipsothin=.false.
393	cfg%Lclcalipsozopaque=.false.
394	cfg%Lclcalipsoopacity=.false.
395	cfg%Lclopaquetemp=.false.
396	cfg%Lclthintemp=.false.
397	cfg%Lclzopaquetemp=.false.
398	cfg%Lclopaquemeanz=.false.
399	cfg%Lclthinmeanz=.false.
400	cfg%Lclthinemis=.false.
401	cfg%Lclopaquemeanzse=.false.
402	cfg%Lclthinmeanzse=.false.
403	cfg%Lclzopaquecalipsose=.false.
404	cfg%LcfadDbze94=.false.
405	cfg%Ldbze94=.false.
406	cfg%Lparasolrefl=.false.
407	cfg%Ltbrttov=.false.
408	cfg%Lptradarflag0=.false.
409	cfg%Lptradarflag1=.false.
410	cfg%Lptradarflag2=.false.
411	cfg%Lptradarflag3=.false.
412	cfg%Lptradarflag4=.false.
413	cfg%Lptradarflag5=.false.
414	cfg%Lptradarflag6=.false.
415	cfg%Lptradarflag7=.false.
416	cfg%Lptradarflag8=.false.
417	cfg%Lptradarflag9=.false.
418	cfg%Lradarpia=.false.
419
420	end subroutine cosp_outputkeys_test
421
422
423	SUBROUTINE READ_COSP_OUTPUT_NL(itap,cosp_nl,cfg)
424	USE lmdz_xios, ONLY: xios_field_is_active, using_xios
425	implicit none
426	character(len=*),intent(in) :: cosp_nl
427	type(cosp_config),intent(inout) :: cfg
428	! Local variables
429	integer :: i, itap
430
431	!COSPv2
432	logical, save :: &
433	Lisccp = .false. ,& ! Local on/off switch for simulators
434	Lmodis = .false., & !
435	Lmisr = .false., & !
436	Lcalipso = .false., & !
437	LgrLidar532 = .false., & !
438	Latlid = .false., & !
439	Lcloudsat = .false., & !
440	Lrttov = .false., & !
441	Lparasol = .false. !
442
443
444	logical, save :: Lcfaddbze94,Ldbze94,Latb532,LcfadLidarsr532,Lclcalipso,Lclhcalipso, &
445	Lcllcalipso,Lclmcalipso,Lcltcalipso,LparasolRefl,Lclcalipsoliq, &
446	Lclcalipsoice,Lclcalipsoun,Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice, &
447	Lclcalipsotmpun,Lclhcalipsoliq,Lcllcalipsoliq,Lclmcalipsoliq,Lcltcalipsoliq,&
448	Lclhcalipsoice,Lcllcalipsoice,Lclmcalipsoice,Lcltcalipsoice,Lclhcalipsoun, &
449	Lcllcalipsoun,Lclmcalipsoun,Lcltcalipsoun,Lclopaquecalipso,Lclthincalipso, &
450	Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin,Lclcalipsozopaque, &
451	Lclcalipsoopacity,Lclopaquetemp,Lclthintemp,Lclzopaquetemp,Lclopaquemeanz, &
452	Lclthinmeanz,Lclthinemis,Lclopaquemeanzse,Lclthinmeanzse,Lclzopaquecalipsose,&
453	LlidarBetaMol532gr,LcfadLidarsr532gr,Latb532gr,LclgrLidar532,LclhgrLidar532,&
454	LcllgrLidar532,LclmgrLidar532,LcltgrLidar532,LlidarBetaMol355, &
455	LcfadLidarsr355,Latb355,Lclatlid,Lclhatlid,Lcllatlid,Lclmatlid,Lcltatlid, &
456	Lalbisccp,Lboxptopisccp,Lboxtauisccp,Lpctisccp,Lclisccp,Ltauisccp,Lcltisccp,&
457	Lmeantbisccp,Lmeantbclrisccp,LclMISR,Lclcalipso2,Lcltlidarradar, &
458	Lcloudsat_tcc, Lcloudsat_tcc2,Lfracout, &
459	LlidarBetaMol532,Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis, &
460	Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis,Ltauwlogmodis, &
461	Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis,Liwpmodis, &
462	Lclmodis,Ltbrttov,Lptradarflag0,Lptradarflag1,Lptradarflag2,Lptradarflag3, &
463	Lptradarflag4,Lptradarflag5,Lptradarflag6,Lptradarflag7,Lptradarflag8, &
464	Lptradarflag9,Lradarpia
465
466	namelist/COSP_OUTPUT/Lcfaddbze94,Ldbze94,Latb532,LcfadLidarsr532,Lclcalipso, &
467	Lclhcalipso,Lcllcalipso,Lclmcalipso,Lcltcalipso,LparasolRefl, &
468	Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun,Lclcalipsotmp, &
469	Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun,Lclhcalipsoliq, &
470	Lcllcalipsoliq,Lclmcalipsoliq,Lcltcalipsoliq,Lclhcalipsoice, &
471	Lcllcalipsoice,Lclmcalipsoice,Lcltcalipsoice,Lclhcalipsoun, &
472	Lcllcalipsoun,Lclmcalipsoun,Lcltcalipsoun,Lclopaquecalipso, &
473	Lclthincalipso,Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin, &
474	Lclcalipsozopaque,Lclcalipsoopacity,Lclopaquetemp,Lclthintemp, &
475	Lclzopaquetemp,Lclopaquemeanz,Lclthinmeanz,Lclthinemis, &
476	Lclopaquemeanzse,Lclthinmeanzse,Lclzopaquecalipsose, &
477	LlidarBetaMol532gr,LcfadLidarsr532gr,Latb532gr,LclgrLidar532, &
478	LclhgrLidar532,LcllgrLidar532,LclmgrLidar532,LcltgrLidar532, &
479	LlidarBetaMol355,LcfadLidarsr355,Latb355,Lclatlid, &
480	Lclhatlid,Lcllatlid,Lclmatlid,Lcltatlid,Lalbisccp,Lboxptopisccp, &
481	Lboxtauisccp,Lpctisccp,Lclisccp,Ltauisccp,Lcltisccp,Lmeantbisccp, &
482	Lmeantbclrisccp,LclMISR,Lclcalipso2,Lcltlidarradar, &
483	Lcloudsat_tcc, Lcloudsat_tcc2, Lfracout, &
484	LlidarBetaMol532,Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis, &
485	Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis, &
486	Ltautlogmodis,Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis, &
487	Lreffclimodis,Lpctmodis,Llwpmodis,Liwpmodis,Lclmodis,Ltbrttov, &
488	Lptradarflag0,Lptradarflag1,Lptradarflag2,Lptradarflag3, &
489	Lptradarflag4,Lptradarflag5,Lptradarflag6,Lptradarflag7, &
490	Lptradarflag8,Lptradarflag9,Lradarpia
491
492	do i=1,107
493	cfg%out_list(i)=''
494	enddo
495
496	! Lecture du fichier namelist
497	IF (is_master) THEN
498	open(10,file=cosp_nl,status='old')
499	read(10,nml=cosp_output)
500	close(10)
501	ENDIF
502
503	!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
504	! Which simulators need to be run? Look at which outputs are requested.
505	!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
506	if (Lpctisccp .or. Lclisccp .or. Lboxptopisccp .or. Lboxtauisccp .or. Ltauisccp .or. &
507	Lcltisccp .or. Lmeantbisccp .or. Lmeantbclrisccp .or. Lalbisccp) Lisccp = .true.
508	if (LclMISR) Lmisr = .true.
509	if (Lcltmodis .or. Lclwmodis .or. Lclimodis .or. Lclhmodis .or. Lclmmodis .or. &
510	Lcllmodis .or. Ltautmodis .or. Ltauwmodis .or. Ltauimodis .or. Ltautlogmodis .or. &
511	Ltauwlogmodis .or. Ltauilogmodis .or. Lreffclwmodis .or. Lreffclimodis .or. &
512	Lpctmodis .or. Llwpmodis .or. Liwpmodis .or. Lclmodis) Lmodis = .true.
513	if (Lclcalipso2 .or. Lclcalipso .or. Lclhcalipso .or. Lcllcalipso .or. Lclmcalipso &
514	.or. Lcltcalipso .or. Lcltlidarradar .or. Lclcalipsoliq .or. Lclcalipsoice .or. &
515	Lclcalipsoun .or. Lclcalipsotmp .or. Lclcalipsotmpliq .or. Lclcalipsotmpice .or. &
516	Lclcalipsotmpun .or. Lcltcalipsoliq .or. Lcltcalipsoice .or. Lcltcalipsoun .or. &
517	Lclhcalipsoliq .or. Lclhcalipsoice .or. Lclhcalipsoun .or. Lclmcalipsoliq .or. &
518	Lclmcalipsoice .or. Lclmcalipsoun .or. Lcllcalipsoliq .or. Lcllcalipsoice .or. &
519	Lcllcalipsoun .or. LlidarBetaMol532 .or. LcfadLidarsr532 .or. Lcltlidarradar .or. &
520	Lcltlidarradar .or. Lclopaquecalipso .or. Lclthincalipso .or. Lclzopaquecalipso &
521	.or. Lclcalipsoopaque .or. Lclcalipsothin .or. Lclcalipsozopaque .or. &
522	Lclcalipsoopacity .or. Lclopaquetemp .or. Lclthintemp .or. Lclzopaquetemp .or. &
523	Lclopaquemeanz .or. Lclthinmeanz .or. Lclthinemis .or. Lclopaquemeanzse .or. &
524	Lclthinmeanzse .or. Lclzopaquecalipsose) Lcalipso = .true.
525
526	if (LlidarBetaMol532gr .or. LcfadLidarsr532gr .or. Latb532gr .or. LclgrLidar532 .or. &
527	LclhgrLidar532 .or. LcllgrLidar532 .or. LclmgrLidar532 .or. LcltgrLidar532) &
528	LgrLidar532 = .true.
529
530	if (LlidarBetaMol355 .or. LcfadLidarsr355 .or. Latb355 .or. Lclatlid .or. &
531	Lclhatlid .or. Lcllatlid .or. Lclmatlid .or. Lcltatlid) &
532	Latlid = .true.
533
534	if (LcfadDbze94 .or. Ldbze94 .or. Lcltlidarradar .or. Lptradarflag0 .or. Lptradarflag1 &
535	.or. Lptradarflag2 .or. Lptradarflag3 .or. Lptradarflag4 .or. Lptradarflag5 .or. &
536	Lptradarflag6 .or. Lptradarflag7 .or. Lptradarflag8 .or. Lptradarflag9 .or. &
537	Lradarpia) Lcloudsat = .true.
538	if (Lparasolrefl) Lparasol = .true.
539	if (Ltbrttov) Lrttov = .true.
540
541	CALL bcast(Lcloudsat)
542	CALL bcast(Lcalipso)
543	CALL bcast(LgrLidar532)
544	CALL bcast(Latlid)
545	CALL bcast(Lparasol)
546	CALL bcast(Lisccp)
547	CALL bcast(Lmodis)
548	CALL bcast(Lmisr)
549	CALL bcast(Lrttov)
550
551	CALL bcast(Lcfaddbze94)
552	CALL bcast(Ldbze94)
553	CALL bcast(Latb532)
554	CALL bcast(LcfadLidarsr532)
555	CALL bcast(Lclcalipso)
556	CALL bcast(Lclhcalipso)
557	CALL bcast(Lcllcalipso)
558	CALL bcast(Lclmcalipso)
559	CALL bcast(Lcltcalipso)
560	CALL bcast(LparasolRefl)
561	CALL bcast(Lclcalipsoliq)
562	CALL bcast(Lclcalipsoice)
563	CALL bcast(Lclcalipsoun)
564	CALL bcast(Lclcalipsotmp)
565	CALL bcast(Lclcalipsotmpliq)
566	CALL bcast(Lclcalipsotmpice)
567	CALL bcast(Lclcalipsotmpun)
568	CALL bcast(Lclhcalipsoliq)
569	CALL bcast(Lcllcalipsoliq)
570	CALL bcast(Lclmcalipsoliq)
571	CALL bcast(Lcltcalipsoliq)
572	CALL bcast(Lclhcalipsoice)
573	CALL bcast(Lcllcalipsoice)
574	CALL bcast(Lclmcalipsoice)
575	CALL bcast(Lcltcalipsoice)
576	CALL bcast(Lclhcalipsoun)
577	CALL bcast(Lcllcalipsoun)
578	CALL bcast(Lclmcalipsoun)
579	CALL bcast(Lcltcalipsoun)
580	CALL bcast(Lclopaquecalipso)
581	CALL bcast(Lclthincalipso)
582	CALL bcast(Lclzopaquecalipso)
583	CALL bcast(Lclcalipsoopaque)
584	CALL bcast(Lclcalipsothin)
585	CALL bcast(Lclcalipsozopaque)
586	CALL bcast(Lclcalipsoopacity)
587	CALL bcast(Lclopaquetemp)
588	CALL bcast(Lclthintemp)
589	CALL bcast(Lclzopaquetemp)
590	CALL bcast(Lclopaquemeanz)
591	CALL bcast(Lclthinmeanz)
592	CALL bcast(Lclthinemis)
593	CALL bcast(Lclopaquemeanzse)
594	CALL bcast(Lclthinmeanzse)
595	CALL bcast(Lclzopaquecalipsose)
596	CALL bcast(LlidarBetaMol532gr)
597	CALL bcast(LcfadLidarsr532gr)
598	CALL bcast(Latb532gr)
599	CALL bcast(LclgrLidar532)
600	CALL bcast(LclhgrLidar532)
601	CALL bcast(LcllgrLidar532)
602	CALL bcast(LclmgrLidar532)
603	CALL bcast(LcltgrLidar532)
604	CALL bcast(LlidarBetaMol355)
605	CALL bcast(LcfadLidarsr355)
606	CALL bcast(Latb355)
607	CALL bcast(Lclatlid)
608	CALL bcast(Lclhatlid)
609	CALL bcast(Lcllatlid)
610	CALL bcast(Lclmatlid)
611	CALL bcast(Lcltatlid)
612	CALL bcast(Lalbisccp)
613	CALL bcast(Lboxptopisccp)
614	CALL bcast(Lboxtauisccp)
615	CALL bcast(Lpctisccp)
616	CALL bcast(Lclisccp)
617	CALL bcast(Ltauisccp)
618	CALL bcast(Lcltisccp)
619	CALL bcast(Lmeantbisccp)
620	CALL bcast(Lmeantbclrisccp)
621	CALL bcast(LclMISR)
622	CALL bcast(Lclcalipso2)
623	CALL bcast(Lcltlidarradar)
624	CALL bcast(Lcloudsat_tcc)
625	CALL bcast(Lcloudsat_tcc2)
626	CALL bcast(Lfracout)
627	CALL bcast(LlidarBetaMol532)
628	CALL bcast(Lcltmodis)
629	CALL bcast(Lclwmodis)
630	CALL bcast(Lclimodis)
631	CALL bcast(Lclhmodis)
632	CALL bcast(Lclmmodis)
633	CALL bcast(Lcllmodis)
634	CALL bcast(Ltautmodis)
635	CALL bcast(Ltauwmodis)
636	CALL bcast(Ltauimodis)
637	CALL bcast(Ltautlogmodis)
638	CALL bcast(Ltauwlogmodis)
639	CALL bcast(Ltauilogmodis)
640	CALL bcast(Lreffclwmodis)
641	CALL bcast(Lreffclimodis)
642	CALL bcast(Lpctmodis)
643	CALL bcast(Llwpmodis)
644	CALL bcast(Liwpmodis)
645	CALL bcast(Lclmodis)
646	CALL bcast(Ltbrttov)
647	CALL bcast(Lptradarflag0)
648	CALL bcast(Lptradarflag1)
649	CALL bcast(Lptradarflag2)
650	CALL bcast(Lptradarflag3)
651	CALL bcast(Lptradarflag4)
652	CALL bcast(Lptradarflag5)
653	CALL bcast(Lptradarflag6)
654	CALL bcast(Lptradarflag7)
655	CALL bcast(Lptradarflag8)
656	CALL bcast(Lptradarflag9)
657	CALL bcast(Lradarpia)
658
659	!$OMP BARRIER
660
661	! Copy instrument flags to cfg structure
662	cfg%Lcloudsat = Lcloudsat
663	cfg%Lcalipso = Lcalipso
664	cfg%LgrLidar532 = LgrLidar532
665	cfg%Latlid = Latlid
666	cfg%Lisccp = Lisccp
667	cfg%Lmodis = Lmodis
668	cfg%Lmisr = Lmisr
669	cfg%Lrttov = Lrttov
670	cfg%Lparasol = Lparasol
671
672	print*,' cfg%Lcloudsat = ',cfg%Lcloudsat
673
674	! Flag to control output to file
675	cfg%Lwrite_output = .false.
676	if (cfg%Lcloudsat .or. cfg%Lcalipso .or. cfg%LgrLidar532 .or. cfg%Latlid .or. cfg%Lisccp .or. cfg%Lmodis .or. cfg%Lmisr .or. cfg%Lrttov .or. cfg%Lparasol .or. Lfracout) then
677	cfg%Lwrite_output = .true.
678	endif
679
680	! Output diagnostics
681	i = 1
682
683	if (Lcfaddbze94) cfg%out_list(i) = 'cfaddbze94'
684	i = i+1
685	if (Ldbze94) cfg%out_list(i) = 'dbze94'
686	i = i+1
687	if (Latb532) cfg%out_list(i) = 'atb532'
688	i = i+1
689	if (LcfadLidarsr532) cfg%out_list(i) = 'cfadLidarsr532'
690	i = i+1
691	if (Lclcalipso) cfg%out_list(i) = 'clcalipso'
692	i = i+1
693	if (Lclhcalipso) cfg%out_list(i) = 'clhcalipso'
694	i = i+1
695	if (Lcllcalipso) cfg%out_list(i) = 'cllcalipso'
696	i = i+1
697	if (Lclmcalipso) cfg%out_list(i) = 'clmcalipso'
698	i = i+1
699	if (Lcltcalipso) cfg%out_list(i) = 'cltcalipso'
700	i = i+1
701	if (LparasolRefl) cfg%out_list(i) = 'parasolRefl'
702	i = i+1
703	if (Lclcalipsoliq) cfg%out_list(i) = 'clcalipsoliq'
704	i = i+1
705	if (Lclcalipsoice) cfg%out_list(i) = 'clcalipsoice'
706	i = i+1
707	if (Lclcalipsoun) cfg%out_list(i) = 'clcalipsoun'
708	i = i+1
709	if (Lclcalipsotmp) cfg%out_list(i) = 'clcalipsotmp'
710	i = i+1
711	if (Lclcalipsotmpliq) cfg%out_list(i) = 'clcalipsotmpliq'
712	i = i+1
713	if (Lclcalipsotmpice) cfg%out_list(i) = 'clcalipsotmpice'
714	i = i+1
715	if (Lclcalipsotmpun) cfg%out_list(i) = 'clcalipsotmpun'
716	i = i+1
717	if (Lclhcalipsoliq) cfg%out_list(i) = 'clhcalipsoliq'
718	i = i+1
719	if (Lcllcalipsoliq) cfg%out_list(i) = 'cllcalipsoliq'
720	i = i+1
721	if (Lclmcalipsoliq) cfg%out_list(i) = 'clmcalipsoliq'
722	i = i+1
723	if (Lcltcalipsoliq) cfg%out_list(i) = 'cltcalipsoliq'
724	i = i+1
725	if (Lclhcalipsoice) cfg%out_list(i) = 'clhcalipsoice'
726	i = i+1
727	if (Lcllcalipsoice) cfg%out_list(i) = 'cllcalipsoice'
728	i = i+1
729	if (Lclmcalipsoice) cfg%out_list(i) = 'clmcalipsoice'
730	i = i+1
731	if (Lcltcalipsoice) cfg%out_list(i) = 'cltcalipsoice'
732	i = i+1
733	if (Lclhcalipsoun) cfg%out_list(i) = 'clhcalipsoun'
734	i = i+1
735	if (Lcllcalipsoun) cfg%out_list(i) = 'cllcalipsoun'
736	i = i+1
737	if (Lclmcalipsoun) cfg%out_list(i) = 'clmcalipsoun'
738	i = i+1
739	if (Lcltcalipsoun) cfg%out_list(i) = 'cltcalipsoun'
740	i = i+1
741	if (Lclopaquecalipso) cfg%out_list(i) = 'clopaquecalipso'
742	i = i+1
743	if (Lclthincalipso) cfg%out_list(i) = 'clthincalipso'
744	i = i+1
745	if (Lclzopaquecalipso) cfg%out_list(i) = 'clzopaquecalipso'
746	i = i+1
747	if (Lclcalipsoopaque) cfg%out_list(i) = 'clcalipsoopaque'
748	i = i+1
749	if (Lclcalipsothin) cfg%out_list(i) = 'clcalipsothin'
750	i = i+1
751	if (Lclcalipsozopaque) cfg%out_list(i) = 'clcalipsozopaque'
752	i = i+1
753	if (Lclcalipsoopacity) cfg%out_list(i) = 'clcalipsoopacity'
754	i = i+1
755	if (Lclopaquetemp) cfg%out_list(i) = 'clopaquetemp'
756	i = i+1
757	if (Lclthintemp) cfg%out_list(i) = 'clthintemp'
758	i = i+1
759	if (Lclzopaquetemp) cfg%out_list(i) = 'clzopaquetemp'
760	i = i+1
761	if (Lclopaquemeanz) cfg%out_list(i) = 'clopaquemeanz'
762	i = i+1
763	if (Lclthinmeanz) cfg%out_list(i) = 'clthinmeanz'
764	i = i+1
765	if (Lclthinemis) cfg%out_list(i) = 'clthinemis'
766	i = i+1
767	if (Lclopaquemeanzse) cfg%out_list(i) = 'clopaquemeanzse'
768	i = i+1
769	if (Lclthinmeanzse) cfg%out_list(i) = 'clthinmeanzse'
770	i = i+1
771	if (Lclzopaquecalipsose) cfg%out_list(i) = 'clzopaquecalipsose'
772	i = i+1
773	if (LlidarBetaMol532gr) cfg%out_list(i) = 'lidarBetaMol532gr'
774	i = i+1
775	if (LcfadLidarsr532gr) cfg%out_list(i) = 'cfadLidarsr532gr'
776	i = i+1
777	if (Latb532gr) cfg%out_list(i) = 'atb532gr'
778	i = i+1
779	if (LclgrLidar532) cfg%out_list(i) = 'clgrLidar532'
780	i = i+1
781	if (LclhgrLidar532) cfg%out_list(i) = 'clhgrLidar532'
782	i = i+1
783	if (LcllgrLidar532) cfg%out_list(i) = 'cllgrLidar532'
784	i = i+1
785	if (LclmgrLidar532) cfg%out_list(i) = 'clmgrLidar532'
786	i = i+1
787	if (LcltgrLidar532) cfg%out_list(i) = 'cltgrLidar532'
788	i = i+1
789	if (LlidarBetaMol355) cfg%out_list(i) = 'lidarBetaMol355'
790	i = i+1
791	if (LcfadLidarsr355) cfg%out_list(i) = 'cfadLidarsr355'
792	i = i+1
793	if (Latb355) cfg%out_list(i) = 'atb355'
794	i = i+1
795	if (Lclatlid) cfg%out_list(i) = 'clatlid'
796	i = i+1
797	if (Lclhatlid) cfg%out_list(i) = 'clhatlid'
798	i = i+1
799	if (Lcllatlid) cfg%out_list(i) = 'cllatlid'
800	i = i+1
801	if (Lclmatlid) cfg%out_list(i) = 'clmatlid'
802	i = i+1
803	if (Lcltatlid) cfg%out_list(i) = 'cltatlid'
804	i = i+1
805	if (Lalbisccp) cfg%out_list(i) = 'albisccp'
806	i = i+1
807	if (Lboxptopisccp) cfg%out_list(i) = 'boxptopisccp'
808	i = i+1
809	if (Lboxtauisccp) cfg%out_list(i) = 'boxtauisccp'
810	i = i+1
811	if (Lpctisccp) cfg%out_list(i) = 'pctisccp'
812	i = i+1
813	if (Lclisccp) cfg%out_list(i) = 'clisccp'
814	i = i+1
815	if (Ltauisccp) cfg%out_list(i) = 'tauisccp'
816	i = i+1
817	if (Lcltisccp) cfg%out_list(i) = 'cltisccp'
818	i = i+1
819	if (Lmeantbisccp) cfg%out_list(i) = 'meantbisccp'
820	i = i+1
821	if (Lmeantbclrisccp) cfg%out_list(i) = 'meantbclrisccp'
822	i = i+1
823	if (LclMISR) cfg%out_list(i) = 'clMISR'
824	i = i+1
825	if (Lclcalipso2) cfg%out_list(i) = 'clcalipso2'
826	i = i+1
827	if (Lcltlidarradar) cfg%out_list(i) = 'cltlidarradar'
828	i = i+1
829	if (Lcloudsat_tcc) cfg%out_list(i) = 'cloudsat_tcc'
830	i = i+1
831	if (Lcloudsat_tcc2) cfg%out_list(i) = 'cloudsat_tcc2'
832	i = i+1
833	if (Lfracout) cfg%out_list(i) = 'fracout'
834	i = i+1
835	if (LlidarBetaMol532) cfg%out_list(i) = 'lidarBetaMol532'
836	i = i+1
837	if (Lcltmodis) cfg%out_list(i) = 'cltmodis'
838	i = i+1
839	if (Lclwmodis) cfg%out_list(i) = 'clwmodis'
840	i = i+1
841	if (Lclimodis) cfg%out_list(i) = 'climodis'
842	i = i+1
843	if (Lclhmodis) cfg%out_list(i) = 'clhmodis'
844	i = i+1
845	if (Lclmmodis) cfg%out_list(i) = 'clmmodis'
846	i = i+1
847	if (Lcllmodis) cfg%out_list(i) = 'cllmodis'
848	i = i+1
849	if (Ltautmodis) cfg%out_list(i) = 'tautmodis'
850	i = i+1
851	if (Ltauwmodis) cfg%out_list(i) = 'tauwmodis'
852	i = i+1
853	if (Ltauimodis) cfg%out_list(i) = 'tauimodis'
854	i = i+1
855	if (Ltautlogmodis) cfg%out_list(i) = 'tautlogmodis'
856	i = i+1
857	if (Ltauwlogmodis) cfg%out_list(i) = 'tauwlogmodis'
858	i = i+1
859	if (Ltauilogmodis) cfg%out_list(i) = 'tauilogmodis'
860	i = i+1
861	if (Lreffclwmodis) cfg%out_list(i) = 'reffclwmodis'
862	i = i+1
863	if (Lreffclimodis) cfg%out_list(i) = 'reffclimodis'
864	i = i+1
865	if (Lpctmodis) cfg%out_list(i) = 'pctmodis'
866	i = i+1
867	if (Llwpmodis) cfg%out_list(i) = 'lwpmodis'
868	i = i+1
869	if (Liwpmodis) cfg%out_list(i) = 'iwpmodis'
870	i = i+1
871	if (Lclmodis) cfg%out_list(i) = 'clmodis'
872	i = i+1
873	if (Ltbrttov) cfg%out_list(i) = 'tbrttov'
874	i = i+1
875	if (Lptradarflag0) cfg%out_list(i) = 'ptradarflag0'
876	i = i+1
877	if (Lptradarflag1) cfg%out_list(i) = 'ptradarflag1'
878	i = i+1
879	if (Lptradarflag2) cfg%out_list(i) = 'ptradarflag2'
880	i = i+1
881	if (Lptradarflag3) cfg%out_list(i) = 'ptradarflag3'
882	i = i+1
883	if (Lptradarflag4) cfg%out_list(i) = 'ptradarflag4'
884	i = i+1
885	if (Lptradarflag5) cfg%out_list(i) = 'ptradarflag5'
886	i = i+1
887	if (Lptradarflag6) cfg%out_list(i) = 'ptradarflag6'
888	i = i+1
889	if (Lptradarflag7) cfg%out_list(i) = 'ptradarflag7'
890	i = i+1
891	if (Lptradarflag8) cfg%out_list(i) = 'ptradarflag8'
892	i = i+1
893	if (Lptradarflag9) cfg%out_list(i) = 'ptradarflag9'
894	i = i+1
895	if (Lradarpia) cfg%out_list(i) = 'radarpia'
896	! i = i+1 !si on laisse, 108 au lieu de 107
897
898	if (i.gt.107) then
899	print *, 'COSP_IO: wrong number of output diagnostics'
900	print *, i,107
901	stop
902	endif
903
904
905	! Copy diagnostic flags to cfg structure
906
907	cfg%Lpctisccp = Lpctisccp
908	cfg%Lclisccp = Lclisccp
909	cfg%Lboxptopisccp = Lboxptopisccp
910	cfg%Lboxtauisccp = Lboxtauisccp
911	cfg%Ltauisccp = Ltauisccp
912	cfg%Lcltisccp = Lcltisccp
913	cfg%Lmeantbisccp = Lmeantbisccp
914	cfg%Lmeantbclrisccp = Lmeantbclrisccp
915	cfg%Lalbisccp = Lalbisccp
916	cfg%LclMISR = LclMISR
917	cfg%Lcltmodis = Lcltmodis
918	cfg%Lclwmodis = Lclwmodis
919	cfg%Lclimodis = Lclimodis
920	cfg%Lclhmodis = Lclhmodis
921	cfg%Lclmmodis = Lclmmodis
922	cfg%Lcllmodis = Lcllmodis
923	cfg%Ltautmodis = Ltautmodis
924	cfg%Ltauwmodis = Ltauwmodis
925	cfg%Ltauimodis = Ltauimodis
926	cfg%Ltautlogmodis = Ltautlogmodis
927	cfg%Ltauwlogmodis = Ltauwlogmodis
928	cfg%Ltauilogmodis = Ltauilogmodis
929	cfg%Lreffclwmodis = Lreffclwmodis
930	cfg%Lreffclimodis = Lreffclimodis
931	cfg%Lpctmodis = Lpctmodis
932	cfg%Llwpmodis = Llwpmodis
933	cfg%Liwpmodis = Liwpmodis
934	cfg%Lclmodis = Lclmodis
935	cfg%Latb532 = Latb532
936	cfg%Latb532gr = Latb532gr
937	cfg%Latb355 = Latb355
938	cfg%LlidarBetaMol532 = LlidarBetaMol532
939	cfg%LlidarBetaMol532gr = LlidarBetaMol532gr
940	cfg%LlidarBetaMol355 = LlidarBetaMol355
941	cfg%LcfadLidarsr532 = LcfadLidarsr532
942	cfg%LcfadLidarsr532gr = LcfadLidarsr532gr
943	cfg%LcfadLidarsr355 = LcfadLidarsr355
944	cfg%Lclcalipso2 = Lclcalipso2
945	cfg%Lclcalipso = Lclcalipso
946	cfg%LclgrLidar532 = LclgrLidar532
947	cfg%Lclatlid = Lclatlid
948	cfg%Lclhcalipso = Lclhcalipso
949	cfg%Lcllcalipso = Lcllcalipso
950	cfg%Lclmcalipso = Lclmcalipso
951	cfg%Lcltcalipso = Lcltcalipso
952	cfg%LclhgrLidar532 = LclhgrLidar532
953	cfg%LcllgrLidar532 = LcllgrLidar532
954	cfg%LclmgrLidar532 = LclmgrLidar532
955	cfg%LcltgrLidar532 = LcltgrLidar532
956	cfg%Lclhatlid = Lclhatlid
957	cfg%Lcllatlid = Lcllatlid
958	cfg%Lclmatlid = Lclmatlid
959	cfg%Lcltatlid = Lcltatlid
960	cfg%Lcltlidarradar = Lcltlidarradar
961	cfg%Lcloudsat_tcc = Lcloudsat_tcc
962	cfg%Lcloudsat_tcc2 = Lcloudsat_tcc2
963	cfg%Lclcalipsoliq = Lclcalipsoliq
964	cfg%Lclcalipsoice = Lclcalipsoice
965	cfg%Lclcalipsoun = Lclcalipsoun
966	cfg%Lclcalipsotmp = Lclcalipsotmp
967	cfg%Lclcalipsotmpliq = Lclcalipsotmpliq
968	cfg%Lclcalipsotmpice = Lclcalipsotmpice
969	cfg%Lclcalipsotmpun = Lclcalipsotmpun
970	cfg%Lcltcalipsoliq = Lcltcalipsoliq
971	cfg%Lcltcalipsoice = Lcltcalipsoice
972	cfg%Lcltcalipsoun = Lcltcalipsoun
973	cfg%Lclhcalipsoliq = Lclhcalipsoliq
974	cfg%Lclhcalipsoice = Lclhcalipsoice
975	cfg%Lclhcalipsoun = Lclhcalipsoun
976	cfg%Lclmcalipsoliq = Lclmcalipsoliq
977	cfg%Lclmcalipsoice = Lclmcalipsoice
978	cfg%Lclmcalipsoun = Lclmcalipsoun
979	cfg%Lcllcalipsoliq = Lcllcalipsoliq
980	cfg%Lcllcalipsoice = Lcllcalipsoice
981	cfg%Lcllcalipsoun = Lcllcalipsoun
982	cfg%Lclopaquecalipso = Lclopaquecalipso
983	cfg%Lclthincalipso = Lclthincalipso
984	cfg%Lclzopaquecalipso = Lclzopaquecalipso
985	cfg%Lclcalipsoopaque = Lclcalipsoopaque
986	cfg%Lclcalipsothin = Lclcalipsothin
987	cfg%Lclcalipsozopaque = Lclcalipsozopaque
988	cfg%Lclcalipsoopacity = Lclcalipsoopacity
989	cfg%Lclopaquetemp = Lclopaquetemp
990	cfg%Lclthintemp = Lclthintemp
991	cfg%Lclzopaquetemp = Lclzopaquetemp
992	cfg%Lclopaquemeanz = Lclopaquemeanz
993	cfg%Lclthinmeanz = Lclthinmeanz
994	cfg%Lclthinemis = Lclthinemis
995	cfg%Lclopaquemeanzse = Lclopaquemeanzse
996	cfg%Lclthinmeanzse = Lclthinmeanzse
997	cfg%Lclzopaquecalipsose = Lclzopaquecalipsose
998	cfg%LcfadDbze94 = LcfadDbze94
999	cfg%Ldbze94 = Ldbze94
1000	cfg%Lparasolrefl = Lparasolrefl
1001	cfg%Ltbrttov = Ltbrttov
1002	cfg%Lptradarflag0 = Lptradarflag0
1003	cfg%Lptradarflag1 = Lptradarflag1
1004	cfg%Lptradarflag2 = Lptradarflag2
1005	cfg%Lptradarflag3 = Lptradarflag3
1006	cfg%Lptradarflag4 = Lptradarflag4
1007	cfg%Lptradarflag5 = Lptradarflag5
1008	cfg%Lptradarflag6 = Lptradarflag6
1009	cfg%Lptradarflag7 = Lptradarflag7
1010	cfg%Lptradarflag8 = Lptradarflag8
1011	cfg%Lptradarflag9 = Lptradarflag9
1012	cfg%Lradarpia = Lradarpia
1013	cfg%Lfracout = Lfracout
1014
1015	END SUBROUTINE READ_COSP_OUTPUT_NL
1016
1017
1018	SUBROUTINE read_xiosfieldactive(cfg)
1019	USE lmdz_xios, ONLY: xios_field_is_active, using_xios
1020	implicit none
1021	type(cosp_config),intent(inout) :: cfg
1022	integer :: i
1023
1024	!COSPv2 local variables
1025	logical :: &
1026	Lisccp = .false., & ! Local on/off switch for simulators
1027	Lmodis = .false., & !
1028	Lmisr = .false., & !
1029	Lcalipso = .false., & !
1030	LgrLidar532 = .false., & !
1031	Latlid = .false., & !
1032	Lcloudsat = .false., & !
1033	Lrttov = .false., & !
1034	Lparasol = .false., & !
1035	Lwrite_output=.false. ! ecrire un fichier de sortie COSP ! RG voir si on garde
1036
1037	logical :: Lcfaddbze94,Ldbze94,Latb532,LcfadLidarsr532,Lclcalipso,Lclhcalipso, &
1038	Lcllcalipso,Lclmcalipso,Lcltcalipso,LparasolRefl,Lclcalipsoliq, &
1039	Lclcalipsoice,Lclcalipsoun,Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice, &
1040	Lclcalipsotmpun,Lclhcalipsoliq,Lcllcalipsoliq,Lclmcalipsoliq,Lcltcalipsoliq,&
1041	Lclhcalipsoice,Lcllcalipsoice,Lclmcalipsoice,Lcltcalipsoice,Lclhcalipsoun, &
1042	Lcllcalipsoun,Lclmcalipsoun,Lcltcalipsoun,Lclopaquecalipso,Lclthincalipso, &
1043	Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin,Lclcalipsozopaque, &
1044	Lclcalipsoopacity,Lclopaquetemp,Lclthintemp,Lclzopaquetemp,Lclopaquemeanz, &
1045	Lclthinmeanz,Lclthinemis,Lclopaquemeanzse,Lclthinmeanzse,Lclzopaquecalipsose,&
1046	LlidarBetaMol532gr,LcfadLidarsr532gr,Latb532gr,LclgrLidar532,LclhgrLidar532,&
1047	LcllgrLidar532,LclmgrLidar532,LcltgrLidar532,LlidarBetaMol355, &
1048	LcfadLidarsr355,Latb355,Lclatlid,Lclhatlid,Lcllatlid,Lclmatlid,Lcltatlid, &
1049	Lalbisccp,Lboxptopisccp,Lboxtauisccp,Lpctisccp,Lclisccp,Ltauisccp,Lcltisccp,&
1050	Lmeantbisccp,Lmeantbclrisccp,LclMISR,Lclcalipso2,Lcltlidarradar, &
1051	Lcloudsat_tcc, Lcloudsat_tcc2,Lfracout, &
1052	LlidarBetaMol532,Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis, &
1053	Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis,Ltauwlogmodis, &
1054	Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis,Liwpmodis, &
1055	Lclmodis,Ltbrttov,Lptradarflag0,Lptradarflag1,Lptradarflag2,Lptradarflag3, &
1056	Lptradarflag4,Lptradarflag5,Lptradarflag6,Lptradarflag7,Lptradarflag8, &
1057	Lptradarflag9,Lradarpia
1058
1059
1060	character(len=32) :: out_list(107)
1061
1062	IF (using_xios) THEN
1063
1064	do i=1,107
1065	cfg%out_list(i)=''
1066	enddo
1067
1068	! diagnostics
1069	Lpctisccp=.false.
1070	Lclisccp=.false.
1071	Lboxptopisccp=.false.
1072	Lboxtauisccp=.false.
1073	Ltauisccp=.false.
1074	Lcltisccp=.false.
1075	Lmeantbisccp=.false.
1076	Lmeantbclrisccp=.false.
1077	Lalbisccp=.false.
1078	LclMISR=.false.
1079	Lcltmodis=.false.
1080	Lclwmodis=.false.
1081	Lclimodis=.false.
1082	Lclhmodis=.false.
1083	Lclmmodis=.false.
1084	Lcllmodis=.false.
1085	Ltautmodis=.false.
1086	Ltauwmodis=.false.
1087	Ltauimodis=.false.
1088	Ltautlogmodis=.false.
1089	Ltauwlogmodis=.false.
1090	Ltauilogmodis=.false.
1091	Lreffclwmodis=.false.
1092	Lreffclimodis=.false.
1093	Lpctmodis=.false.
1094	Llwpmodis=.false.
1095	Liwpmodis=.false.
1096	Lclmodis=.false.
1097	Latb532=.false.
1098	Latb532gr=.false.
1099	Latb355=.false.
1100	LlidarBetaMol532=.false.
1101	LlidarBetaMol532gr=.false.
1102	LlidarBetaMol355=.false.
1103	LcfadLidarsr532=.false.
1104	LcfadLidarsr532gr=.false.
1105	LcfadLidarsr355 =.false.
1106	Lclcalipso2=.false.
1107	Lclcalipso=.false.
1108	LclgrLidar532=.false.
1109	Lclatlid=.false.
1110	Lclhcalipso=.false.
1111	Lcllcalipso=.false.
1112	Lclmcalipso=.false.
1113	Lcltcalipso=.false.
1114	LclhgrLidar532=.false.
1115	LcllgrLidar532=.false.
1116	LclmgrLidar532 =.false.
1117	LcltgrLidar532=.false.
1118	Lclhatlid=.false.
1119	Lcllatlid=.false.
1120	Lclmatlid=.false.
1121	Lcltatlid=.false.
1122	Lcltlidarradar=.false.
1123	Lcloudsat_tcc=.false.
1124	Lcloudsat_tcc2=.false.
1125	Lclcalipsoliq=.false.
1126	Lclcalipsoice=.false.
1127	Lclcalipsoun=.false.
1128	Lclcalipsotmp=.false.
1129	Lclcalipsotmpliq=.false.
1130	Lclcalipsotmpice=.false.
1131	Lclcalipsotmpun=.false.
1132	Lcltcalipsoliq=.false.
1133	Lcltcalipsoice=.false.
1134	Lcltcalipsoun=.false.
1135	Lclhcalipsoliq=.false.
1136	Lclhcalipsoice=.false.
1137	Lclhcalipsoun=.false.
1138	Lclmcalipsoliq=.false.
1139	Lclmcalipsoice=.false.
1140	Lclmcalipsoun=.false.
1141	Lcllcalipsoliq=.false.
1142	Lcllcalipsoice=.false.
1143	Lcllcalipsoun =.false.
1144	Lclopaquecalipso=.false.
1145	Lclthincalipso=.false.
1146	Lclzopaquecalipso=.false.
1147	Lclcalipsoopaque=.false.
1148	Lclcalipsothin=.false.
1149	Lclcalipsozopaque=.false.
1150	Lclcalipsoopacity=.false.
1151	Lclopaquetemp=.false.
1152	Lclthintemp=.false.
1153	Lclzopaquetemp=.false.
1154	Lclopaquemeanz=.false.
1155	Lclthinmeanz=.false.
1156	Lclthinemis=.false.
1157	Lclopaquemeanzse=.false.
1158	Lclthinmeanzse=.false.
1159	Lclzopaquecalipsose=.false.
1160	LcfadDbze94=.false.
1161	Ldbze94=.false.
1162	Lparasolrefl=.false.
1163	Ltbrttov=.false.
1164	Lptradarflag0=.false.
1165	Lptradarflag1=.false.
1166	Lptradarflag2=.false.
1167	Lptradarflag3=.false.
1168	Lptradarflag4=.false.
1169	Lptradarflag5=.false.
1170	Lptradarflag6=.false.
1171	Lptradarflag7=.false.
1172	Lptradarflag8=.false.
1173	Lptradarflag9=.false.
1174	Lradarpia=.false.
1175	Lfracout=.false.
1176
1177
1178	IF (is_master) THEN
1179	! VEREFIER LES CHAMPS DEMANDES DANS .XML
1180	! 2. Si champs active dans .xml alors mettre la cles de sortie en true
1181	IF (xios_field_is_active("cllcalipso")) Lcllcalipso=.TRUE.
1182	IF (xios_field_is_active("clmcalipso")) Lclmcalipso=.TRUE.
1183	IF (xios_field_is_active("clhcalipso")) Lclhcalipso=.TRUE.
1184	IF (xios_field_is_active("cltcalipso")) Lcltcalipso=.TRUE.
1185	IF (xios_field_is_active("cllcalipsoice")) Lcllcalipsoice=.TRUE.
1186	IF (xios_field_is_active("clmcalipsoice")) Lclmcalipsoice=.TRUE.
1187	IF (xios_field_is_active("clhcalipsoice")) Lclhcalipsoice=.TRUE.
1188	IF (xios_field_is_active("cltcalipsoice")) Lcltcalipsoice=.TRUE.
1189	IF (xios_field_is_active("cllcalipsoliq")) Lcllcalipsoliq=.TRUE.
1190	IF (xios_field_is_active("clmcalipsoliq")) Lclmcalipsoliq=.TRUE.
1191	IF (xios_field_is_active("clhcalipsoliq")) Lclhcalipsoliq=.TRUE.
1192	IF (xios_field_is_active("cltcalipsoliq")) Lcltcalipsoliq=.TRUE.
1193	IF (xios_field_is_active("cllcalipsoun")) Lcllcalipsoun=.TRUE.
1194	IF (xios_field_is_active("clmcalipsoun")) Lclmcalipsoun=.TRUE.
1195	IF (xios_field_is_active("clhcalipsoun")) Lclhcalipsoun=.TRUE.
1196	IF (xios_field_is_active("cltcalipsoun")) Lcltcalipsoun=.TRUE.
1197	IF (xios_field_is_active("clcalipso")) Lclcalipso=.TRUE.
1198	IF (xios_field_is_active("clcalipsoice")) Lclcalipsoice=.TRUE.
1199	IF (xios_field_is_active("clcalipsoliq")) Lclcalipsoliq=.TRUE.
1200	IF (xios_field_is_active("clcalipsoun")) Lclcalipsoun=.TRUE.
1201	IF (xios_field_is_active("clcalipsotmp")) Lclcalipsotmp=.TRUE.
1202	IF (xios_field_is_active("clcalipsotmpice")) Lclcalipsotmpice=.TRUE.
1203	IF (xios_field_is_active("clcalipsotmpliq")) Lclcalipsotmpliq=.TRUE.
1204	IF (xios_field_is_active("clcalipsotmpun")) Lclcalipsotmpun=.TRUE.
1205	! IF (xios_field_is_active("parasol_crefl")) cfg%LparasolRefl=.TRUE.
1206	! IF (xios_field_is_active("Ncrefl")) cfg%LparasolRefl=.TRUE.
1207	IF (xios_field_is_active("cfadLidarsr532")) LcfadLidarsr532=.TRUE.
1208	IF (xios_field_is_active("atb532")) Latb532=.TRUE.
1209	IF (xios_field_is_active("lidarBetaMol532")) LlidarBetaMol532=.TRUE.
1210	IF (xios_field_is_active("clopaquecalipso")) Lclopaquecalipso=.TRUE.
1211	IF (xios_field_is_active("clthincalipso")) Lclthincalipso=.TRUE.
1212	IF (xios_field_is_active("clzopaquecalipso")) Lclzopaquecalipso=.TRUE.
1213	IF (xios_field_is_active("clcalipsoopaque")) Lclcalipsoopaque=.TRUE.
1214	IF (xios_field_is_active("clcalipsothin")) Lclcalipsothin=.TRUE.
1215	IF (xios_field_is_active("clcalipsozopaque")) Lclcalipsozopaque=.TRUE.
1216	IF (xios_field_is_active("clcalipsoopacity")) Lclcalipsoopacity=.TRUE.
1217	IF (xios_field_is_active("clopaquetemp")) Lclopaquetemp=.TRUE.
1218	IF (xios_field_is_active("clthintemp")) Lclthintemp=.TRUE.
1219	IF (xios_field_is_active("clzopaquetemp")) Lclzopaquetemp=.TRUE.
1220	IF (xios_field_is_active("clopaquemeanz")) Lclopaquemeanz=.TRUE.
1221	IF (xios_field_is_active("clthinmeanz")) Lclthinmeanz=.TRUE.
1222	IF (xios_field_is_active("clthinemis")) Lclthinemis=.TRUE.
1223	IF (xios_field_is_active("clopaquemeanzse")) Lclopaquemeanzse=.TRUE.
1224	IF (xios_field_is_active("clthinmeanzse")) Lclthinmeanzse=.TRUE.
1225	IF (xios_field_is_active("clzopaquecalipsose")) Lclzopaquecalipsose=.TRUE.
1226	!!!! 43 champs CALIPSO
1227
1228	IF (xios_field_is_active("parasolGrid_refl")) LparasolRefl=.TRUE.
1229	IF (xios_field_is_active("parasolPix_refl")) LparasolRefl=.TRUE.
1230	!!!! 2 champs PARASOL controles par une seule clef logique
1231
1232	IF (xios_field_is_active("lidarBetaMol532gr")) LlidarBetaMol532gr=.TRUE.
1233	IF (xios_field_is_active("cfadLidarsr532gr")) LcfadLidarsr532gr=.TRUE.
1234	IF (xios_field_is_active("atb532gr")) Latb532gr=.TRUE.
1235	IF (xios_field_is_active("clgrLidar532")) LclgrLidar532=.TRUE.
1236	IF (xios_field_is_active("clhgrLidar532")) LclhgrLidar532=.TRUE.
1237	IF (xios_field_is_active("cllgrLidar532")) LcllgrLidar532=.TRUE.
1238	IF (xios_field_is_active("clmgrLidar532")) LclmgrLidar532=.TRUE.
1239	IF (xios_field_is_active("cltgrLidar532")) LcltgrLidar532=.TRUE.
1240	!!!! 8 champs GROUND LIDAR 532 nm
1241
1242	IF (xios_field_is_active("lidarBetaMol355")) LlidarBetaMol355=.TRUE.
1243	IF (xios_field_is_active("cfadLidarsr355")) LcfadLidarsr355=.TRUE.
1244	IF (xios_field_is_active("atb355")) Latb355=.TRUE.
1245	IF (xios_field_is_active("clatlid")) Lclatlid=.TRUE.
1246	IF (xios_field_is_active("clhatlid")) Lclhatlid=.TRUE.
1247	IF (xios_field_is_active("cllatlid")) Lcllatlid=.TRUE.
1248	IF (xios_field_is_active("clmatlid")) Lclmatlid=.TRUE.
1249	IF (xios_field_is_active("cltatlid")) Lcltatlid=.TRUE.
1250	!!!! 8 champs ATLID
1251
1252	IF (xios_field_is_active("cfadDbze94")) LcfadDbze94=.TRUE.
1253	IF (xios_field_is_active("dbze94")) Ldbze94=.TRUE.
1254	IF (xios_field_is_active("ptradarflag0")) Lptradarflag0=.TRUE.
1255	IF (xios_field_is_active("ptradarflag1")) Lptradarflag1=.TRUE.
1256	IF (xios_field_is_active("ptradarflag2")) Lptradarflag2=.TRUE.
1257	IF (xios_field_is_active("ptradarflag3")) Lptradarflag3=.TRUE.
1258	IF (xios_field_is_active("ptradarflag4")) Lptradarflag4=.TRUE.
1259	IF (xios_field_is_active("ptradarflag5")) Lptradarflag5=.TRUE.
1260	IF (xios_field_is_active("ptradarflag6")) Lptradarflag6=.TRUE.
1261	IF (xios_field_is_active("ptradarflag7")) Lptradarflag7=.TRUE.
1262	IF (xios_field_is_active("ptradarflag8")) Lptradarflag8=.TRUE.
1263	IF (xios_field_is_active("ptradarflag9")) Lptradarflag9=.TRUE.
1264	IF (xios_field_is_active("radarpia")) Lradarpia=.TRUE.
1265	!!! 13 champs CLOUDSAT
1266
1267	IF (xios_field_is_active("cltlidarradar")) Lcltlidarradar=.TRUE.
1268	IF (xios_field_is_active("clcalipso2")) Lclcalipso2=.TRUE.
1269	IF (xios_field_is_active("cloudsat_tcc")) Lcloudsat_tcc=.TRUE. !COSPv2
1270	IF (xios_field_is_active("cloudsat_tcc2")) Lcloudsat_tcc2=.TRUE. !COSPv2
1271	!!! 4 champs CLOUDSAT et CALIPSO
1272
1273	IF (xios_field_is_active("clisccp")) Lclisccp=.TRUE.
1274	IF (xios_field_is_active("boxtauisccp")) Lboxtauisccp=.TRUE.
1275	IF (xios_field_is_active("boxptopisccp")) Lboxptopisccp=.TRUE.
1276	IF (xios_field_is_active("cltisccp")) Lcltisccp=.TRUE.
1277	IF (xios_field_is_active("pctisccp")) Lpctisccp=.TRUE.
1278	IF (xios_field_is_active("tauisccp")) Ltauisccp=.TRUE.
1279	IF (xios_field_is_active("albisccp")) Lalbisccp=.TRUE.
1280	IF (xios_field_is_active("meantbisccp")) Lmeantbisccp=.TRUE.
1281	IF (xios_field_is_active("meantbclrisccp")) Lmeantbclrisccp=.TRUE.
1282	!!! 9 champs ISCCP
1283
1284	IF (xios_field_is_active("misr_fq")) LclMISR=.TRUE.
1285	IF (xios_field_is_active("misr_meanztop")) LclMISR=.TRUE.
1286	IF (xios_field_is_active("misr_cldarea")) LclMISR=.TRUE.
1287	!!! 3 champs MISR controles par une seule clef logique
1288
1289	IF (xios_field_is_active("cllmodis")) Lcllmodis=.TRUE.
1290	IF (xios_field_is_active("clmmodis")) Lclmmodis=.TRUE.
1291	IF (xios_field_is_active("clhmodis")) Lclhmodis=.TRUE.
1292	IF (xios_field_is_active("cltmodis")) Lcltmodis=.TRUE.
1293	IF (xios_field_is_active("clwmodis")) Lclwmodis=.TRUE.
1294	IF (xios_field_is_active("climodis")) Lclimodis=.TRUE.
1295	IF (xios_field_is_active("tautmodis")) Ltautmodis=.TRUE.
1296	IF (xios_field_is_active("tauwmodis")) Ltauwmodis=.TRUE.
1297	IF (xios_field_is_active("tauimodis")) Ltauimodis=.TRUE.
1298	IF (xios_field_is_active("tautlogmodis")) Ltautlogmodis=.TRUE.
1299	IF (xios_field_is_active("tauilogmodis")) Ltauilogmodis=.TRUE.
1300	IF (xios_field_is_active("tauwlogmodis")) Ltauwlogmodis=.TRUE.
1301	IF (xios_field_is_active("reffclwmodis")) Lreffclwmodis=.TRUE.
1302	IF (xios_field_is_active("reffclimodis")) Lreffclimodis=.TRUE.
1303	IF (xios_field_is_active("pctmodis")) Lpctmodis=.TRUE.
1304	IF (xios_field_is_active("lwpmodis")) Llwpmodis=.TRUE.
1305	IF (xios_field_is_active("iwpmodis")) Liwpmodis=.TRUE.
1306	IF (xios_field_is_active("modis_ot_vs_ctp")) Lclmodis=.TRUE.
1307	IF (xios_field_is_active("modis_ot_vs_reffice")) Lclmodis=.TRUE.
1308	IF (xios_field_is_active("modis_ot_vs_reffliq")) Lclmodis=.TRUE.
1309	! IF (xios_field_is_active("crimodis")) Lcrimodis=.TRUE. !COSPv2
1310	! IF (xios_field_is_active("crlmodis")) Lcrlmodis=.TRUE. !COSPv2
1311	!!! 20 champs MODIS dont 3 champs controles par la clef logique "clmodis"
1312
1313	! IF (xios_field_is_active("tbrttov")) cfg%Ltbrttov=.TRUE.
1314	! IF (xios_field_is_active("fracout")) Lfracout=.TRUE.
1315
1316	!!! 106 diagnostics en tout dans COSPv2 + fracout (107)
1317
1318
1319	! 2. si champs demande alors activer le simulateur correspondant
1320	IF (xios_field_is_active("cllcalipso").OR. &
1321	xios_field_is_active("clmcalipso").OR. &
1322	xios_field_is_active("clhcalipso").OR. &
1323	xios_field_is_active("cltcalipso").OR. &
1324	xios_field_is_active("cllcalipsoice").OR. &
1325	xios_field_is_active("clmcalipsoice").OR. &
1326	xios_field_is_active("clhcalipsoice").OR. &
1327	xios_field_is_active("cltcalipsoice").OR. &
1328	xios_field_is_active("cllcalipsoliq").OR. &
1329	xios_field_is_active("clmcalipsoliq").OR. &
1330	xios_field_is_active("clhcalipsoliq").OR. &
1331	xios_field_is_active("cltcalipsoliq").OR. &
1332	xios_field_is_active("cllcalipsoun").OR. &
1333	xios_field_is_active("clmcalipsoun").OR. &
1334	xios_field_is_active("clhcalipsoun").OR. &
1335	xios_field_is_active("cltcalipsoun").OR. &
1336	xios_field_is_active("clcalipso").OR. &
1337	xios_field_is_active("clcalipsoice").OR. &
1338	xios_field_is_active("clcalipsoliq").OR. &
1339	xios_field_is_active("clcalipsoun").OR. &
1340	xios_field_is_active("clcalipsotmp").OR. &
1341	xios_field_is_active("clcalipsotmpice").OR. &
1342	xios_field_is_active("clcalipsotmpliq").OR. &
1343	xios_field_is_active("clcalipsotmpun").OR. &
1344	xios_field_is_active("cfadLidarsr532").OR. &
1345	xios_field_is_active("atb532").OR. &
1346	xios_field_is_active("lidarBetaMol532").OR. &
1347	xios_field_is_active("clopaquecalipso").OR. &
1348	xios_field_is_active("clthincalipso").OR. &
1349	xios_field_is_active("clzopaquecalipso").OR. &
1350	xios_field_is_active("clcalipsoopaque").OR. &
1351	xios_field_is_active("clcalipsothin").OR. &
1352	xios_field_is_active("clcalipsozopaque").OR. &
1353	xios_field_is_active("clcalipsoopacity").OR. &
1354	xios_field_is_active("clopaquetemp").OR. &
1355	xios_field_is_active("clthintemp").OR. &
1356	xios_field_is_active("clzopaquetemp").OR. &
1357	xios_field_is_active("clopaquemeanz").OR. &
1358	xios_field_is_active("clthinmeanz").OR. &
1359	xios_field_is_active("clthinemis").OR. &
1360	xios_field_is_active("clopaquemeanzse").OR. &
1361	xios_field_is_active("clthinmeanzse").OR. &
1362	xios_field_is_active("clzopaquecalipsose")) Lcalipso=.TRUE.
1363
1364	IF (xios_field_is_active("parasolGrid_refl").OR. &
1365	xios_field_is_active("parasolPix_refl")) Lparasol=.TRUE.
1366
1367	IF (xios_field_is_active("lidarBetaMol532gr").OR. &
1368	xios_field_is_active("cfadLidarsr532gr").OR. &
1369	xios_field_is_active("atb532gr").OR. &
1370	xios_field_is_active("clgrLidar532").OR. &
1371	xios_field_is_active("clhgrLidar532").OR. &
1372	xios_field_is_active("cllgrLidar532").OR. &
1373	xios_field_is_active("clmgrLidar532").OR. &
1374	xios_field_is_active("cltgrLidar532")) LgrLidar532=.TRUE.
1375
1376	IF (xios_field_is_active("lidarBetaMol355").OR. &
1377	xios_field_is_active("cfadLidarsr355").OR. &
1378	xios_field_is_active("atb355").OR. &
1379	xios_field_is_active("clatlid").OR. &
1380	xios_field_is_active("clhatlid").OR. &
1381	xios_field_is_active("cllatlid").OR. &
1382	xios_field_is_active("clmatlid").OR. &
1383	xios_field_is_active("cltatlid")) Latlid=.TRUE.
1384
1385	IF (xios_field_is_active("cfadDbze94").OR. &
1386	xios_field_is_active("dbze94").OR. &
1387	xios_field_is_active("ptradarflag0").OR. &
1388	xios_field_is_active("ptradarflag1").OR. &
1389	xios_field_is_active("ptradarflag2").OR. &
1390	xios_field_is_active("ptradarflag3").OR. &
1391	xios_field_is_active("ptradarflag4").OR. &
1392	xios_field_is_active("ptradarflag5").OR. &
1393	xios_field_is_active("ptradarflag6").OR. &
1394	xios_field_is_active("ptradarflag7").OR. &
1395	xios_field_is_active("ptradarflag8").OR. &
1396	xios_field_is_active("ptradarflag9").OR. &
1397	xios_field_is_active("radarpia")) Lcloudsat=.TRUE.
1398
1399	IF (xios_field_is_active("cltlidarradar").OR. &
1400	xios_field_is_active("clcalipso2").OR. &
1401	xios_field_is_active("cloudsat_tcc").OR. &
1402	xios_field_is_active("cloudsat_tcc2")) THEN
1403	Lcloudsat=.TRUE.
1404	Lcalipso=.TRUE.
1405	ENDIF
1406
1407	IF (xios_field_is_active("clisccp").OR. & !COSPv2 nouveau nom
1408	xios_field_is_active("boxtauisccp").OR. &
1409	xios_field_is_active("boxptopisccp").OR. &
1410	xios_field_is_active("cltisccp").OR. & !COSPv2 nouveau nom
1411	xios_field_is_active("pctisccp").OR. & !COSPv2 nouveau nom
1412	xios_field_is_active("tauisccp").OR. &
1413	xios_field_is_active("albisccp").OR. &
1414	xios_field_is_active("meantbisccp").OR. &
1415	xios_field_is_active("meantbclrisccp")) Lisccp=.TRUE.
1416
1417	IF (xios_field_is_active("misr_fq").OR. &
1418	xios_field_is_active("misr_meanztop").OR. &
1419	xios_field_is_active("misr_cldarea")) Lmisr=.TRUE.
1420
1421	IF (xios_field_is_active("cllmodis").OR. &
1422	xios_field_is_active("clmmodis").OR. &
1423	xios_field_is_active("clhmodis").OR. &
1424	xios_field_is_active("cltmodis").OR. &
1425	xios_field_is_active("clwmodis").OR. &
1426	xios_field_is_active("climodis").OR. &
1427	xios_field_is_active("tautmodis").OR. &
1428	xios_field_is_active("tauwmodis").OR. &
1429	xios_field_is_active("tauimodis").OR. &
1430	xios_field_is_active("tautlogmodis").OR. &
1431	xios_field_is_active("tauilogmodis").OR. &
1432	xios_field_is_active("tauwlogmodis").OR. &
1433	xios_field_is_active("reffclwmodis").OR. &
1434	xios_field_is_active("reffclimodis").OR. &
1435	xios_field_is_active("pctmodis").OR. &
1436	xios_field_is_active("lwpmodis").OR. &
1437	xios_field_is_active("iwpmodis").OR. &
1438	xios_field_is_active("modis_ot_vs_ctp").OR. &
1439	xios_field_is_active("modis_ot_vs_reffice").OR. &
1440	xios_field_is_active("modis_ot_vs_reffliq")) Lmodis=.TRUE.
1441	! xios_field_is_active("crimodis").OR. & !COSPv2 n'existe plus
1442	! xios_field_is_active("crlmodis")) Lmodis_sim=.TRUE. !COSPv2 n'existe plus
1443
1444	ENDIF ! (is_master)
1445
1446	!$OMP BARRIER
1447
1448	CALL bcast(Lcloudsat)
1449	CALL bcast(Lcalipso)
1450	CALL bcast(LgrLidar532)
1451	CALL bcast(Latlid)
1452	CALL bcast(Lisccp)
1453	CALL bcast(Lmodis)
1454	CALL bcast(Lmisr)
1455	CALL bcast(Lparasol)
1456	CALL bcast(Lrttov)
1457
1458	CALL bcast(Lcfaddbze94)
1459	CALL bcast(Ldbze94)
1460	CALL bcast(Latb532)
1461	CALL bcast(LcfadLidarsr532)
1462	CALL bcast(Lclcalipso)
1463	CALL bcast(Lclhcalipso)
1464	CALL bcast(Lcllcalipso)
1465	CALL bcast(Lclmcalipso)
1466	CALL bcast(Lcltcalipso)
1467	CALL bcast(LparasolRefl)
1468	CALL bcast(Lclcalipsoliq)
1469	CALL bcast(Lclcalipsoice)
1470	CALL bcast(Lclcalipsoun)
1471	CALL bcast(Lclcalipsotmp)
1472	CALL bcast(Lclcalipsotmpliq)
1473	CALL bcast(Lclcalipsotmpice)
1474	CALL bcast(Lclcalipsotmpun)
1475	CALL bcast(Lclhcalipsoliq)
1476	CALL bcast(Lcllcalipsoliq)
1477	CALL bcast(Lclmcalipsoliq)
1478	CALL bcast(Lcltcalipsoliq)
1479	CALL bcast(Lclhcalipsoice)
1480	CALL bcast(Lcllcalipsoice)
1481	CALL bcast(Lclmcalipsoice)
1482	CALL bcast(Lcltcalipsoice)
1483	CALL bcast(Lclhcalipsoun)
1484	CALL bcast(Lcllcalipsoun)
1485	CALL bcast(Lclmcalipsoun)
1486	CALL bcast(Lcltcalipsoun)
1487	CALL bcast(Lclopaquecalipso)
1488	CALL bcast(Lclthincalipso)
1489	CALL bcast(Lclzopaquecalipso)
1490	CALL bcast(Lclcalipsoopaque)
1491	CALL bcast(Lclcalipsothin)
1492	CALL bcast(Lclcalipsozopaque)
1493	CALL bcast(Lclcalipsoopacity)
1494	CALL bcast(Lclopaquetemp)
1495	CALL bcast(Lclthintemp)
1496	CALL bcast(Lclzopaquetemp)
1497	CALL bcast(Lclopaquemeanz)
1498	CALL bcast(Lclthinmeanz)
1499	CALL bcast(Lclthinemis)
1500	CALL bcast(Lclopaquemeanzse)
1501	CALL bcast(Lclthinmeanzse)
1502	CALL bcast(Lclzopaquecalipsose)
1503	CALL bcast(LlidarBetaMol532gr)
1504	CALL bcast(LcfadLidarsr532gr)
1505	CALL bcast(Latb532gr)
1506	CALL bcast(LclgrLidar532)
1507	CALL bcast(LclhgrLidar532)
1508	CALL bcast(LcllgrLidar532)
1509	CALL bcast(LclmgrLidar532)
1510	CALL bcast(LcltgrLidar532)
1511	CALL bcast(LlidarBetaMol355)
1512	CALL bcast(LcfadLidarsr355)
1513	CALL bcast(Latb355)
1514	CALL bcast(Lclatlid)
1515	CALL bcast(Lclhatlid)
1516	CALL bcast(Lcllatlid)
1517	CALL bcast(Lclmatlid)
1518	CALL bcast(Lcltatlid)
1519	CALL bcast(Lalbisccp)
1520	CALL bcast(Lboxptopisccp)
1521	CALL bcast(Lboxtauisccp)
1522	CALL bcast(Lpctisccp)
1523	CALL bcast(Lclisccp)
1524	CALL bcast(Ltauisccp)
1525	CALL bcast(Lcltisccp)
1526	CALL bcast(Lmeantbisccp)
1527	CALL bcast(Lmeantbclrisccp)
1528	CALL bcast(LclMISR)
1529	CALL bcast(Lclcalipso2)
1530	CALL bcast(Lcltlidarradar)
1531	CALL bcast(Lcloudsat_tcc)
1532	CALL bcast(Lcloudsat_tcc2)
1533	CALL bcast(Lfracout)
1534	CALL bcast(LlidarBetaMol532)
1535	CALL bcast(Lcltmodis)
1536	CALL bcast(Lclwmodis)
1537	CALL bcast(Lclimodis)
1538	CALL bcast(Lclhmodis)
1539	CALL bcast(Lclmmodis)
1540	CALL bcast(Lcllmodis)
1541	CALL bcast(Ltautmodis)
1542	CALL bcast(Ltauwmodis)
1543	CALL bcast(Ltauimodis)
1544	CALL bcast(Ltautlogmodis)
1545	CALL bcast(Ltauwlogmodis)
1546	CALL bcast(Ltauilogmodis)
1547	CALL bcast(Lreffclwmodis)
1548	CALL bcast(Lreffclimodis)
1549	CALL bcast(Lpctmodis)
1550	CALL bcast(Llwpmodis)
1551	CALL bcast(Liwpmodis)
1552	CALL bcast(Lclmodis)
1553	CALL bcast(Ltbrttov)
1554	CALL bcast(Lptradarflag0)
1555	CALL bcast(Lptradarflag1)
1556	CALL bcast(Lptradarflag2)
1557	CALL bcast(Lptradarflag3)
1558	CALL bcast(Lptradarflag4)
1559	CALL bcast(Lptradarflag5)
1560	CALL bcast(Lptradarflag6)
1561	CALL bcast(Lptradarflag7)
1562	CALL bcast(Lptradarflag8)
1563	CALL bcast(Lptradarflag9)
1564	CALL bcast(Lradarpia)
1565
1566	! IF (xios_field_is_active("tbrttov")) cfg%Lrttov_sim=.TRUE.
1567
1568
1569	! Copy diagnostic flags to cfg structure
1570	! ISCCP simulator (9 diagnostics)
1571	cfg%Lpctisccp = Lpctisccp
1572	cfg%Lclisccp = Lclisccp
1573	cfg%Lboxptopisccp = Lboxptopisccp
1574	cfg%Lboxtauisccp = Lboxtauisccp
1575	cfg%Ltauisccp = Ltauisccp
1576	cfg%Lcltisccp = Lcltisccp
1577	cfg%Lmeantbisccp = Lmeantbisccp
1578	cfg%Lmeantbclrisccp = Lmeantbclrisccp
1579	cfg%Lalbisccp = Lalbisccp
1580
1581	! CloudSat simulator (13 diagnostics)
1582	cfg%Ldbze94 = Ldbze94
1583	cfg%LcfadDbze94 = LcfadDbze94
1584	cfg%Lptradarflag0 = Lptradarflag0
1585	cfg%Lptradarflag1 = Lptradarflag1
1586	cfg%Lptradarflag2 = Lptradarflag2
1587	cfg%Lptradarflag3 = Lptradarflag3
1588	cfg%Lptradarflag4 = Lptradarflag4
1589	cfg%Lptradarflag5 = Lptradarflag5
1590	cfg%Lptradarflag6 = Lptradarflag6
1591	cfg%Lptradarflag7 = Lptradarflag7
1592	cfg%Lptradarflag8 = Lptradarflag8
1593	cfg%Lptradarflag9 = Lptradarflag9
1594	cfg%Lradarpia = Lradarpia
1595
1596	! Cloudsat et Calipso (4 diagnostics)
1597	cfg%Lclcalipso2 = Lclcalipso2
1598	cfg%Lcltlidarradar = Lcltlidarradar
1599	cfg%Lcloudsat_tcc = Lcloudsat_tcc
1600	cfg%Lcloudsat_tcc2 = Lcloudsat_tcc2
1601
1602	! CALIPSO simulator (43 diagnostics)
1603	cfg%Latb532 = Latb532
1604	cfg%LlidarBetaMol532 = LlidarBetaMol532
1605	cfg%LcfadLidarsr532 = LcfadLidarsr532
1606	cfg%Lclcalipso = Lclcalipso
1607	cfg%Lclhcalipso = Lclhcalipso
1608	cfg%Lcllcalipso = Lcllcalipso
1609	cfg%Lclmcalipso = Lclmcalipso
1610	cfg%Lcltcalipso = Lcltcalipso
1611	cfg%Lclcalipsoliq = Lclcalipsoliq
1612	cfg%Lclcalipsoice = Lclcalipsoice
1613	cfg%Lclcalipsoun = Lclcalipsoun
1614	cfg%Lclcalipsotmp = Lclcalipsotmp
1615	cfg%Lclcalipsotmpliq = Lclcalipsotmpliq
1616	cfg%Lclcalipsotmpice = Lclcalipsotmpice
1617	cfg%Lclcalipsotmpun = Lclcalipsotmpun
1618	cfg%Lcltcalipsoliq = Lcltcalipsoliq
1619	cfg%Lcltcalipsoice = Lcltcalipsoice
1620	cfg%Lcltcalipsoun = Lcltcalipsoun
1621	cfg%Lclhcalipsoliq = Lclhcalipsoliq
1622	cfg%Lclhcalipsoice = Lclhcalipsoice
1623	cfg%Lclhcalipsoun = Lclhcalipsoun
1624	cfg%Lclmcalipsoliq = Lclmcalipsoliq
1625	cfg%Lclmcalipsoice = Lclmcalipsoice
1626	cfg%Lclmcalipsoun = Lclmcalipsoun
1627	cfg%Lcllcalipsoliq = Lcllcalipsoliq
1628	cfg%Lcllcalipsoice = Lcllcalipsoice
1629	cfg%Lcllcalipsoun = Lcllcalipsoun
1630	cfg%Lclopaquecalipso = Lclopaquecalipso
1631	cfg%Lclthincalipso = Lclthincalipso
1632	cfg%Lclzopaquecalipso = Lclzopaquecalipso
1633	cfg%Lclcalipsoopaque = Lclcalipsoopaque
1634	cfg%Lclcalipsothin = Lclcalipsothin
1635	cfg%Lclcalipsozopaque = Lclcalipsozopaque
1636	cfg%Lclcalipsoopacity = Lclcalipsoopacity
1637	cfg%Lclopaquetemp = Lclopaquetemp
1638	cfg%Lclthintemp = Lclthintemp
1639	cfg%Lclzopaquetemp = Lclzopaquetemp
1640	cfg%Lclopaquemeanz = Lclopaquemeanz
1641	cfg%Lclthinmeanz = Lclthinmeanz
1642	cfg%Lclthinemis = Lclthinemis
1643	cfg%Lclopaquemeanzse = Lclopaquemeanzse
1644	cfg%Lclthinmeanzse = Lclthinmeanzse
1645	cfg%Lclzopaquecalipsose = Lclzopaquecalipsose
1646
1647	! PARASOL simulator (2 diagnostics, 1 clef)
1648	cfg%Lparasolrefl = Lparasolrefl
1649
1650	! GROUND LIDAR 532 nm simulator (8 diagnostics)
1651	cfg%Latb532gr = Latb532gr
1652	cfg%LlidarBetaMol532gr = LlidarBetaMol532gr
1653	cfg%LcfadLidarsr532gr = LcfadLidarsr532gr
1654	cfg%LclgrLidar532 = LclgrLidar532
1655	cfg%LclhgrLidar532 = LclhgrLidar532
1656	cfg%LcllgrLidar532 = LcllgrLidar532
1657	cfg%LclmgrLidar532 = LclmgrLidar532
1658	cfg%LcltgrLidar532 = LcltgrLidar532
1659
1660	! ATLID simulator (8 diagnostics)
1661	cfg%Latb355 = Latb355
1662	cfg%LlidarBetaMol355 = LlidarBetaMol355
1663	cfg%LcfadLidarsr355 = LcfadLidarsr355
1664	cfg%Lclatlid = Lclatlid
1665	cfg%Lclhatlid = Lclhatlid
1666	cfg%Lcllatlid = Lcllatlid
1667	cfg%Lclmatlid = Lclmatlid
1668	cfg%Lcltatlid = Lcltatlid
1669
1670	! MISR simulator (3 diagnostics, 1 clef)
1671	cfg%LclMISR = LclMISR
1672
1673	! RTTOV (1 diagnostic)
1674	cfg%Ltbrttov = Ltbrttov
1675
1676	! MODIS simulator (20 diagnostics, 18 clefs)
1677	cfg%Lcltmodis=Lcltmodis
1678	cfg%Lclwmodis=Lclwmodis
1679	cfg%Lclimodis=Lclimodis
1680	cfg%Lclhmodis=Lclhmodis
1681	cfg%Lclmmodis=Lclmmodis
1682	cfg%Lcllmodis=Lcllmodis
1683	cfg%Ltautmodis=Ltautmodis
1684	cfg%Ltauwmodis=Ltauwmodis
1685	cfg%Ltauimodis=Ltauimodis
1686	cfg%Ltautlogmodis=Ltautlogmodis
1687	cfg%Ltauwlogmodis=Ltauwlogmodis
1688	cfg%Ltauilogmodis=Ltauilogmodis
1689	cfg%Lreffclwmodis=Lreffclwmodis
1690	cfg%Lreffclimodis=Lreffclimodis
1691	cfg%Lpctmodis=Lpctmodis
1692	cfg%Llwpmodis=Llwpmodis
1693	cfg%Liwpmodis=Liwpmodis
1694	cfg%Lclmodis=Lclmodis
1695
1696	! Others
1697	cfg%Lfracout=Lfracout
1698
1699	! Copy instrument flags to cfg structure
1700	cfg%Lcloudsat = Lcloudsat
1701	cfg%Lcalipso = Lcalipso
1702	cfg%LgrLidar532 = LgrLidar532
1703	cfg%Latlid = Latlid
1704	cfg%Lparasol = Lparasol
1705	cfg%Lisccp = Lisccp
1706	cfg%Lmodis = Lmodis
1707	cfg%Lmisr = Lmisr
1708	cfg%Lrttov = Lrttov
1709	if (cfg%Lcloudsat .or. cfg%Lcalipso .or. cfg%LgrLidar532 .or. cfg%Latlid .or. cfg%Lisccp .or. cfg%Lmodis .or. cfg%Lmisr .or. cfg%Lrttov .or. cfg%Lparasol .or. cfg%Lfracout) then
1710	cfg%Lwrite_output=.TRUE.
1711	endif
1712
1713	ENDIF !using_xios
1714
1715	END SUBROUTINE read_xiosfieldactive
1716
1717	END MODULE lmdz_cosp_read_outputkeys

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format