Context Navigation

cosp_read_otputkeys.F90 @ 4203

Last change on this file since 4203 was 3396, checked in by idelkadi, 6 years ago

Corrections dans la nouvelle version du simulateur Cosp (cosp2) :

Rajout de directives OpenMP pour tourner en mod MPI-OpenMP
Correction pour tourner avec Ioipsl

File size: 41.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
13	module cosp_read_otputkeys
14
15	! USE MOD_COSP_CONSTANTS
16	! USE MOD_COSP_TYPES
17	use MOD_COSP_INTERFACE_v1p4
18	USE mod_phys_lmdz_para
19
20	CONTAINS
21	!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
22	!--------------- SUBROUTINE READ_COSP_OUTPUT_NL -------------------------
23	!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24	SUBROUTINE cosp_outputkeys_init(cfg)
25	implicit none
26	type(cosp_config),intent(out) :: cfg
27	character(len=32) :: out_list(78)
28	integer :: i
29
30
31	do i=1,78
32	cfg%out_list(i)=''
33	enddo
34
35	cfg%Llidar_sim=.false.
36	cfg%Lradar_sim=.false.
37	cfg%Lparasol_sim=.false.
38	cfg%Lisccp_sim=.false.
39	cfg%Lmodis_sim=.false.
40	cfg%Lmisr_sim=.false.
41	cfg%Lrttov_sim=.false.
42	cfg%Lstats=.false.
43	cfg%Lwrite_output=.false.
44	cfg%Ltoffset=.false.
45	cfg%Lfracout=.false.
46
47	cfg%Lcllcalipso=.FALSE.
48	cfg%Lclmcalipso=.FALSE.
49	cfg%Lclhcalipso=.FALSE.
50	cfg%Lcltcalipso=.FALSE.
51	cfg%Lcllcalipsoice=.FALSE.
52	cfg%Lclmcalipsoice=.FALSE.
53	cfg%Lclhcalipsoice=.FALSE.
54	cfg%Lcltcalipsoice=.FALSE.
55	cfg%Lcllcalipsoliq=.FALSE.
56	cfg%Lclmcalipsoliq=.FALSE.
57	cfg%Lclhcalipsoliq=.FALSE.
58	cfg%Lcltcalipsoliq=.FALSE.
59	cfg%Lcllcalipsoun=.FALSE.
60	cfg%Lclmcalipsoun=.FALSE.
61	cfg%Lclhcalipsoun=.FALSE.
62	cfg%Lcltcalipsoun=.FALSE.
63	cfg%Lclcalipso=.FALSE.
64	cfg%Lclcalipsoice=.FALSE.
65	cfg%Lclcalipsoliq=.FALSE.
66	cfg%Lclcalipsoun=.FALSE.
67	cfg%Lclcalipsotmp=.FALSE.
68	cfg%Lclcalipsotmpice=.FALSE.
69	cfg%Lclcalipsotmpliq=.FALSE.
70	cfg%Lclcalipsotmpun=.FALSE.
71	cfg%LparasolRefl=.FALSE.
72	cfg%LcfadLidarsr532=.FALSE.
73	cfg%Latb532=.FALSE.
74	cfg%LlidarBetaMol532=.FALSE.
75	! cfg%Lclopaquecalipso=.FALSE.
76	! cfg%Lclthincalipso=.FALSE.
77	! cfg%Lclzopaquecalipso=.FALSE.
78	! cfg%Lclcalipsoopaque=.FALSE.
79	! cfg%Lclcalipsothin=.FALSE.
80	! cfg%Lclcalipsozopaque=.FALSE.
81	! cfg%Lclcalipsoopacity=.FALSE.
82	! cfg%Lproftemp=.FALSE.
83	! cfg%LprofSR=.FALSE.
84
85	cfg%LcfadDbze94=.FALSE.
86	cfg%Ldbze94=.FALSE.
87	cfg%Lcltlidarradar=.FALSE.
88	cfg%Lclcalipso2=.FALSE.
89
90	cfg%Lclisccp=.FALSE.
91	cfg%Lboxtauisccp=.FALSE.
92	cfg%Lboxptopisccp=.FALSE.
93	cfg%Lcltisccp=.FALSE.
94	cfg%Lpctisccp=.FALSE.
95	cfg%Ltauisccp=.FALSE.
96	cfg%Lalbisccp=.FALSE.
97	cfg%Lmeantbisccp=.FALSE.
98	cfg%Lmeantbclrisccp=.FALSE.
99
100	cfg%LclMISR=.FALSE.
101
102	cfg%Lcllmodis=.FALSE.
103	cfg%Lclmmodis=.FALSE.
104	cfg%Lclhmodis=.FALSE.
105	cfg%Lcltmodis=.FALSE.
106	cfg%Lclwmodis=.FALSE.
107	cfg%Lclimodis=.FALSE.
108	cfg%Ltautmodis=.FALSE.
109	cfg%Ltauwmodis=.FALSE.
110	cfg%Ltauimodis=.FALSE.
111	cfg%Ltautlogmodis=.FALSE.
112	cfg%Ltauilogmodis=.FALSE.
113	cfg%Ltauwlogmodis=.FALSE.
114	cfg%Lreffclwmodis=.FALSE.
115	cfg%Lreffclimodis=.FALSE.
116	cfg%Lpctmodis=.FALSE.
117	cfg%Llwpmodis=.FALSE.
118	cfg%Liwpmodis=.FALSE.
119	cfg%Lclmodis=.FALSE.
120	! cfg%Lcrimodis=.FALSE.
121	! cfg%Lcrlmodis=.FALSE.
122
123	cfg%Ltbrttov=.FALSE.
124
125	end subroutine cosp_outputkeys_init
126
127	SUBROUTINE cosp_outputkeys_test(cfg)
128	implicit none
129	type(cosp_config),intent(out) :: cfg
130	character(len=32) :: out_list(78)
131	integer :: i
132
133
134	do i=1,78
135	cfg%out_list(i)=''
136	enddo
137
138	cfg%Llidar_sim=.true.
139	cfg%Lradar_sim=.false.
140	cfg%Lisccp_sim=.false.
141	cfg%Lmodis_sim=.false.
142	cfg%Lmisr_sim=.false.
143	cfg%Lrttov_sim=.false.
144	cfg%Lstats=.false.
145	cfg%Lwrite_output=.false.
146	cfg%Ltoffset=.false.
147	cfg%Lfracout=.false.
148
149	cfg%Lcllcalipso=.TRUE.
150	cfg%Lclmcalipso=.TRUE.
151	cfg%Lclhcalipso=.TRUE.
152	cfg%Lcltcalipso=.TRUE.
153	cfg%Lcllcalipsoice=.FALSE.
154	cfg%Lclmcalipsoice=.FALSE.
155	cfg%Lclhcalipsoice=.FALSE.
156	cfg%Lcltcalipsoice=.FALSE.
157	cfg%Lcllcalipsoliq=.FALSE.
158	cfg%Lclmcalipsoliq=.FALSE.
159	cfg%Lclhcalipsoliq=.FALSE.
160	cfg%Lcltcalipsoliq=.FALSE.
161	cfg%Lcllcalipsoun=.FALSE.
162	cfg%Lclmcalipsoun=.FALSE.
163	cfg%Lclhcalipsoun=.FALSE.
164	cfg%Lcltcalipsoun=.FALSE.
165	cfg%Lclcalipso=.FALSE.
166	cfg%Lclcalipsoice=.FALSE.
167	cfg%Lclcalipsoliq=.FALSE.
168	cfg%Lclcalipsoun=.FALSE.
169	cfg%Lclcalipsotmp=.FALSE.
170	cfg%Lclcalipsotmpice=.FALSE.
171	cfg%Lclcalipsotmpliq=.FALSE.
172	cfg%Lclcalipsotmpun=.FALSE.
173	cfg%LparasolRefl=.FALSE.
174	cfg%LcfadLidarsr532=.FALSE.
175	cfg%Latb532=.FALSE.
176	cfg%LlidarBetaMol532=.FALSE.
177	! cfg%Lclopaquecalipso=.FALSE.
178	! cfg%Lclthincalipso=.FALSE.
179	! cfg%Lclzopaquecalipso=.FALSE.
180	! cfg%Lclcalipsoopaque=.FALSE.
181	! cfg%Lclcalipsothin=.FALSE.
182	! cfg%Lclcalipsozopaque=.FALSE.
183	! cfg%Lclcalipsoopacity=.FALSE.
184	! cfg%Lproftemp=.FALSE.
185	! cfg%LprofSR=.FALSE.
186
187	cfg%LcfadDbze94=.FALSE.
188	cfg%Ldbze94=.FALSE.
189	cfg%Lcltlidarradar=.FALSE.
190	cfg%Lclcalipso2=.FALSE.
191
192	cfg%Lclisccp=.FALSE.
193	cfg%Lboxtauisccp=.FALSE.
194	cfg%Lboxptopisccp=.FALSE.
195	cfg%Lcltisccp=.FALSE.
196	cfg%Lpctisccp=.FALSE.
197	cfg%Ltauisccp=.FALSE.
198	cfg%Lalbisccp=.FALSE.
199	cfg%Lmeantbisccp=.FALSE.
200	cfg%Lmeantbclrisccp=.FALSE.
201
202	cfg%LclMISR=.FALSE.
203
204	cfg%Lcllmodis=.FALSE.
205	cfg%Lclmmodis=.FALSE.
206	cfg%Lclhmodis=.FALSE.
207	cfg%Lcltmodis=.FALSE.
208	cfg%Lclwmodis=.FALSE.
209	cfg%Lclimodis=.FALSE.
210	cfg%Ltautmodis=.FALSE.
211	cfg%Ltauwmodis=.FALSE.
212	cfg%Ltauimodis=.FALSE.
213	cfg%Ltautlogmodis=.FALSE.
214	cfg%Ltauilogmodis=.FALSE.
215	cfg%Ltauwlogmodis=.FALSE.
216	cfg%Lreffclwmodis=.FALSE.
217	cfg%Lreffclimodis=.FALSE.
218	cfg%Lpctmodis=.FALSE.
219	cfg%Llwpmodis=.FALSE.
220	cfg%Liwpmodis=.FALSE.
221	cfg%Lclmodis=.FALSE.
222	! cfg%Lcrimodis=.FALSE.
223	! cfg%Lcrlmodis=.FALSE.
224
225	cfg%Ltbrttov=.FALSE.
226
227	end subroutine cosp_outputkeys_test
228
229	SUBROUTINE READ_COSP_OUTPUT_NL(itap,cosp_nl,cfg)
230
231	#ifdef CPP_XIOS
232	USE xios, ONLY: xios_field_is_active
233	#endif
234	implicit none
235	character(len=*),intent(in) :: cosp_nl
236	type(cosp_config),intent(out) :: cfg
237	! Local variables
238	integer :: i, itap
239
240	logical, save :: Lradar_sim,Llidar_sim,Lparasol_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
241	Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
242	LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
243	Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp,Lcltisccp, &
244	Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun, &
245	Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun, &
246	Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun, &
247	Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun, &
248	Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun, &
249	Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun, &
250	Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
251	Lfracout,LlidarBetaMol532,Ltbrttov, &
252	Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
253	Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
254	Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis,Lclopaquecalipso,Lclthincalipso, & !OPAQ (2)
255	Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin,Lclcalipsozopaque,Lclcalipsoopacity, & !OPAQ (5)
256	LprofSR,Lproftemp !TIBO (2)
257
258	namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lparasol_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
259	Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
260	LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp, &
261	Lcllcalipso,Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp, &
262	Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun, &
263	Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun, &
264	Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun, &
265	Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun, &
266	Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun, &
267	Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun, &
268	Lcltisccp,Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
269	Lfracout,LlidarBetaMol532,Ltbrttov, &
270	Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
271	Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
272	Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis,Lclopaquecalipso,Lclthincalipso, & !OPAQ (2)
273	Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin,Lclcalipsozopaque,Lclcalipsoopacity, & !OPAQ (5)
274	LprofSR,Lproftemp !TIBO (2)
275
276	do i=1,78
277	cfg%out_list(i)=''
278	enddo
279
280	! Lecture du fichier namelist
281	IF (is_master) THEN
282	open(10,file=cosp_nl,status='old')
283	read(10,nml=cosp_output)
284	close(10)
285	ENDIF
286
287	CALL bcast(Lradar_sim)
288	CALL bcast(Lparasol_sim)
289	CALL bcast(Llidar_sim)
290	CALL bcast(Lisccp_sim)
291	CALL bcast(Lmodis_sim)
292	CALL bcast(Lmisr_sim)
293	CALL bcast(Lrttov_sim)
294
295	CALL bcast(Lstats)
296
297	CALL bcast(Lalbisccp)
298	CALL bcast(Latb532)
299	CALL bcast(Lboxptopisccp)
300	CALL bcast(Lboxtauisccp)
301	CALL bcast(LcfadDbze94)
302	CALL bcast(LcfadLidarsr532)
303	CALL bcast(Lclcalipso2)
304	CALL bcast(Lclcalipso)
305	CALL bcast(Lclhcalipso)
306	CALL bcast(Lclcalipsoliq)
307	CALL bcast(Lclcalipsoice)
308	CALL bcast(Lclcalipsoun)
309	CALL bcast(Lclcalipsotmp)
310	CALL bcast(Lclcalipsotmpliq)
311	CALL bcast(Lclcalipsotmpice)
312	CALL bcast(Lclcalipsotmpun)
313	CALL bcast(Lcltcalipsoliq)
314	CALL bcast(Lcltcalipsoice)
315	CALL bcast(Lcltcalipsoun)
316	CALL bcast(Lclhcalipsoliq)
317	CALL bcast(Lclhcalipsoice)
318	CALL bcast(Lclhcalipsoun)
319	CALL bcast(Lclmcalipsoliq)
320	CALL bcast(Lclmcalipsoice)
321	CALL bcast(Lclmcalipsoun)
322	CALL bcast(Lcllcalipsoliq)
323	CALL bcast(Lcllcalipsoice)
324	CALL bcast(Lcllcalipsoun)
325	CALL bcast(Lclisccp)
326	CALL bcast(Lcllcalipso)
327	CALL bcast(Lclmcalipso)
328	CALL bcast(Lcltcalipso)
329	CALL bcast(Lcltlidarradar)
330	CALL bcast(Lpctisccp)
331	CALL bcast(Ldbze94)
332	CALL bcast(Ltauisccp)
333	CALL bcast(Lcltisccp)
334	CALL bcast(LparasolRefl)
335	CALL bcast(LclMISR)
336	CALL bcast(Lmeantbisccp)
337	CALL bcast(Lmeantbclrisccp)
338	CALL bcast(Lfracout)
339	CALL bcast(LlidarBetaMol532)
340	CALL bcast(Lcltmodis)
341	CALL bcast(Lclwmodis)
342	CALL bcast(Lclimodis)
343	CALL bcast(Lclhmodis)
344	CALL bcast(Lclmmodis)
345	CALL bcast(Lcllmodis)
346	CALL bcast(Ltautmodis)
347	CALL bcast(Ltauwmodis)
348	CALL bcast(Ltauimodis)
349	CALL bcast(Ltautlogmodis)
350	CALL bcast(Ltauwlogmodis)
351	CALL bcast(Ltauilogmodis)
352	CALL bcast(Lreffclwmodis)
353	CALL bcast(Lreffclimodis)
354	CALL bcast(Lpctmodis)
355	CALL bcast(Llwpmodis)
356	CALL bcast(Liwpmodis)
357	CALL bcast(Lclmodis)
358	CALL bcast(Ltbrttov)
359	CALL bcast(Lcrimodis)
360	CALL bcast(Lcrlmodis)
361	CALL bcast(Lclopaquecalipso) !OPAQ
362	CALL bcast(Lclthincalipso) !OPAQ
363	CALL bcast(Lclzopaquecalipso) !OPAQ
364	CALL bcast(Lclcalipsoopaque) !OPAQ
365	CALL bcast(Lclcalipsothin) !OPAQ
366	CALL bcast(Lclcalipsozopaque) !OPAQ
367	CALL bcast(Lclcalipsoopacity) !OPAQ
368	CALL bcast(LprofSR) !TIBO
369	CALL bcast(Lproftemp) !TIBO
370
371	!$OMP BARRIER
372
373	! print*,' Cles sorties cosp :'
374	! print*,' Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim', &
375	! Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim
376
377
378	! Deal with dependencies
379	if (.not.Lradar_sim) then
380	LcfadDbze94 = .false.
381	Lclcalipso2 = .false.
382	Lcltlidarradar = .false. ! Needs radar & lidar
383	Ldbze94 = .false.
384	Lclcalipso2 = .false. ! Needs radar & lidar
385	endif
386
387	if (.not.Lparasol_sim) then
388	LparasolRefl = .false.
389	endif
390
391	if (.not.Llidar_sim) then
392	Latb532 = .false.
393	LcfadLidarsr532 = .false.
394	Lclcalipso2 = .false.
395	Lclcalipso = .false.
396	Lclhcalipso = .false.
397	Lcllcalipso = .false.
398	Lclmcalipso = .false.
399	Lcltcalipso = .false.
400	Lcltlidarradar = .false. ! Needs radar & lidar
401	LparasolRefl = .false.
402	LlidarBetaMol532 = .false.
403	!! AI
404	Lclcalipsoliq = .false.
405	Lclcalipsoice = .false.
406	Lclcalipsoun = .false.
407	Lclcalipsotmp = .false.
408	Lclcalipsotmpun = .false.
409	Lclcalipsotmpliq = .false.
410	Lclcalipsotmpice = .false.
411	Lclhcalipsoliq = .false.
412	Lcllcalipsoliq = .false.
413	Lclmcalipsoliq = .false.
414	Lcltcalipsoliq = .false.
415	Lclhcalipsoice = .false.
416	Lcllcalipsoice = .false.
417	Lclmcalipsoice = .false.
418	Lcltcalipsoice = .false.
419	Lclhcalipsoun = .false.
420	Lcllcalipsoun = .false.
421	Lclmcalipsoun = .false.
422	Lcltcalipsoun = .false.
423	Lclopaquecalipso = .false. !OPAQ
424	Lclthincalipso = .false. !OPAQ
425	Lclzopaquecalipso = .false. !OPAQ
426	Lclcalipsoopaque = .false. !OPAQ
427	Lclcalipsothin = .false. !OPAQ
428	Lclcalipsozopaque = .false. !OPAQ
429	Lclcalipsoopacity = .false. !OPAQ
430	LprofSR = .false. !TIBO
431	Lproftemp = .false. !TIBO
432	endif
433
434	if (.not.Lisccp_sim) then
435	Lalbisccp = .false.
436	Lboxptopisccp = .false.
437	Lboxtauisccp = .false.
438	Lclisccp = .false.
439	Lpctisccp = .false.
440	Ltauisccp = .false.
441	Lcltisccp = .false.
442	Lmeantbisccp = .false.
443	Lmeantbclrisccp = .false.
444	endif
445
446	if (.not.Lmisr_sim) then
447	LclMISR = .false.
448	endif
449	if (.not.Lrttov_sim) then
450	Ltbrttov = .false.
451	endif
452	if ((.not.Lradar_sim).and.(.not.Llidar_sim).and. &
453	(.not.Lisccp_sim).and.(.not.Lmisr_sim)) then
454	Lfracout = .false.
455	Lstats = .false.
456	endif
457	if (.not.Lmodis_sim) then
458	Lcltmodis=.false.
459	Lclwmodis=.false.
460	Lclimodis=.false.
461	Lclhmodis=.false.
462	Lclmmodis=.false.
463	Lcllmodis=.false.
464	Ltautmodis=.false.
465	Ltauwmodis=.false.
466	Ltauimodis=.false.
467	Ltautlogmodis=.false.
468	Ltauwlogmodis=.false.
469	Ltauilogmodis=.false.
470	Lreffclwmodis=.false.
471	Lreffclimodis=.false.
472	Lpctmodis=.false.
473	Llwpmodis=.false.
474	Liwpmodis=.false.
475	Lclmodis=.false.
476	Lcrimodis=.false.
477	Lcrlmodis=.false.
478	endif
479	if (Lmodis_sim) Lisccp_sim = .true.
480
481	! Diagnostics that use Radar and Lidar
482	if (((Lclcalipso2).or.(Lcltlidarradar)).and.((Lradar_sim).or.(Llidar_sim))) then
483	Lclcalipso2 = .true.
484	Lcltlidarradar = .true.
485	Llidar_sim = .true.
486	Lradar_sim = .true.
487	endif
488
489	if ((Lradar_sim).or.(Llidar_sim).or.(Lisccp_sim)) Lstats = .true.
490
491	! Copy instrument flags to cfg structure
492	cfg%Lradar_sim = Lradar_sim
493	cfg%Llidar_sim = Llidar_sim
494	cfg%Lisccp_sim = Lisccp_sim
495	cfg%Lmodis_sim = Lmodis_sim
496	cfg%Lmisr_sim = Lmisr_sim
497	cfg%Lrttov_sim = Lrttov_sim
498	cfg%Lparasol_sim = Lparasol_sim
499
500	cfg%Lstats = Lstats
501
502	! Flag to control output to file
503	cfg%Lwrite_output = .false.
504	if (cfg%Lstats.or.cfg%Lmisr_sim.or.cfg%Lrttov_sim) then
505	cfg%Lwrite_output = .true.
506	endif
507
508	! Output diagnostics
509	i = 1
510	if (Lalbisccp) cfg%out_list(i) = 'albisccp'
511	i = i+1
512	if (Latb532) cfg%out_list(i) = 'atb532'
513	i = i+1
514	if (Lboxptopisccp) cfg%out_list(i) = 'boxptopisccp'
515	i = i+1
516	if (Lboxtauisccp) cfg%out_list(i) = 'boxtauisccp'
517	i = i+1
518	if (LcfadDbze94) cfg%out_list(i) = 'cfadDbze94'
519	i = i+1
520	if (LcfadLidarsr532) cfg%out_list(i) = 'cfadLidarsr532'
521	i = i+1
522	if (Lclcalipso2) cfg%out_list(i) = 'clcalipso2'
523	i = i+1
524	if (Lclcalipso) cfg%out_list(i) = 'clcalipso'
525	i = i+1
526	if (Lclhcalipso) cfg%out_list(i) = 'clhcalipso'
527	i = i+1
528	if (Lclisccp) cfg%out_list(i) = 'clisccp'
529	i = i+1
530	if (Lcllcalipso) cfg%out_list(i) = 'cllcalipso'
531	i = i+1
532	if (Lclmcalipso) cfg%out_list(i) = 'clmcalipso'
533	i = i+1
534	if (Lcltcalipso) cfg%out_list(i) = 'cltcalipso'
535	i = i+1
536
537	if (Lcllcalipsoice) cfg%out_list(i) = 'cllcalipsoice'
538	i = i+1
539	if (Lclmcalipsoice) cfg%out_list(i) = 'clmcalipsoice'
540	i = i+1
541	if (Lclhcalipsoice) cfg%out_list(i) = 'clhcalipsoice'
542	i = i+1
543	if (Lcltcalipsoice) cfg%out_list(i) = 'cltcalipsoice'
544	i = i+1
545	if (Lcllcalipsoliq) cfg%out_list(i) = 'cllcalipsoliq'
546	i = i+1
547	if (Lclmcalipsoliq) cfg%out_list(i) = 'clmcalipsoliq'
548	i = i+1
549	if (Lclhcalipsoliq) cfg%out_list(i) = 'clhcalipsoliq'
550	i = i+1
551	if (Lcltcalipsoliq) cfg%out_list(i) = 'cltcalipsoliq'
552	i = i+1
553	if (Lcllcalipsoun) cfg%out_list(i) = 'cllcalipsoun'
554	i = i+1
555	if (Lclmcalipsoun) cfg%out_list(i) = 'clmcalipsoun'
556	i = i+1
557	if (Lclhcalipsoun) cfg%out_list(i) = 'clhcalipsoun'
558	i = i+1
559	if (Lcltcalipsoun) cfg%out_list(i) = 'cltcalipsoun'
560	i = i+1
561
562	if (Lclcalipsoice) cfg%out_list(i) = 'clcalipsoice'
563	i = i+1
564	if (Lclcalipsoliq) cfg%out_list(i) = 'clcalipsoliq'
565	i = i+1
566	if (Lclcalipsoun) cfg%out_list(i) = 'clcalipsoun'
567	i = i+1
568
569	if (Lclcalipsotmp) cfg%out_list(i) = 'clcalipsotmp'
570	i = i+1
571	if (Lclcalipsotmpice) cfg%out_list(i) = 'clcalipsotmpice'
572	i = i+1
573	if (Lclcalipsotmpliq) cfg%out_list(i) = 'clcalipsotmpliq'
574	i = i+1
575	if (Lclcalipsotmpun) cfg%out_list(i) = 'clcalipsotmpun'
576	i = i+1
577	if (Lcltlidarradar) cfg%out_list(i) = 'cltlidarradar'
578	i = i+1
579	if (Lpctisccp) cfg%out_list(i) = 'pctisccp'
580	i = i+1
581	if (Ldbze94) cfg%out_list(i) = 'dbze94'
582	i = i+1
583	if (Ltauisccp) cfg%out_list(i) = 'tauisccp'
584	i = i+1
585	if (Lcltisccp) cfg%out_list(i) = 'cltisccp'
586	i = i+1
587	if (Ltoffset) cfg%out_list(i) = 'toffset'
588	i = i+1
589	if (LparasolRefl) cfg%out_list(i) = 'parasolRefl'
590	i = i+1
591	if (LclMISR) cfg%out_list(i) = 'clMISR'
592	i = i+1
593	if (Lmeantbisccp) cfg%out_list(i) = 'meantbisccp'
594	i = i+1
595	if (Lmeantbclrisccp) cfg%out_list(i) = 'meantbclrisccp'
596	i = i+1
597	if (Lfracout) cfg%out_list(i) = 'fracout'
598	i = i+1
599	if (LlidarBetaMol532) cfg%out_list(i) = 'lidarBetaMol532'
600	i = i+1
601	if (Ltbrttov) cfg%out_list(i) = 'tbrttov'
602	i = i+1
603	if (Lcltmodis) cfg%out_list(i) = 'cltmodis'
604	i = i+1
605	if (Lclwmodis) cfg%out_list(i) = 'clwmodis'
606	i = i+1
607	if (Lclimodis) cfg%out_list(i) = 'climodis'
608	i = i+1
609	if (Lclhmodis) cfg%out_list(i) = 'clhmodis'
610	i = i+1
611	if (Lclmmodis) cfg%out_list(i) = 'clmmodis'
612	i = i+1
613	if (Lcllmodis) cfg%out_list(i) = 'cllmodis'
614	i = i+1
615	if (Ltautmodis) cfg%out_list(i) = 'tautmodis'
616	i = i+1
617	if (Ltauwmodis) cfg%out_list(i) = 'tauwmodis'
618	i = i+1
619	if (Ltauimodis) cfg%out_list(i) = 'tauimodis'
620	i = i+1
621	if (Ltautlogmodis) cfg%out_list(i) = 'tautlogmodis'
622	i = i+1
623	if (Ltauwlogmodis) cfg%out_list(i) = 'tauwlogmodis'
624	i = i+1
625	if (Ltauilogmodis) cfg%out_list(i) = 'tauilogmodis'
626	i = i+1
627	if (Lreffclwmodis) cfg%out_list(i) = 'reffclwmodis'
628	i = i+1
629	if (Lreffclimodis) cfg%out_list(i) = 'reffclimodis'
630	i = i+1
631	if (Lpctmodis) cfg%out_list(i) = 'pctmodis'
632	i = i+1
633	if (Llwpmodis) cfg%out_list(i) = 'lwpmodis'
634	i = i+1
635	if (Liwpmodis) cfg%out_list(i) = 'iwpmodis'
636	i = i+1
637	if (Lclmodis) cfg%out_list(i) = 'clmodis'
638	i = i+1
639	if (Lcrimodis) cfg%out_list(i) = 'crimodis'
640	i = i+1
641	if (Lcrlmodis) cfg%out_list(i) = 'crlmodis'
642
643	i = i+1 !OPAQ
644	if (Lclopaquecalipso) cfg%out_list(i) = 'clopaquecalipso' !OPAQ
645	i = i+1 !OPAQ
646	if (Lclthincalipso) cfg%out_list(i) = 'clthincalipso' !OPAQ
647	i = i+1 !OPAQ
648	if (Lclzopaquecalipso) cfg%out_list(i) = 'clzopaquecalipso' !OPAQ
649	i = i+1 !OPAQ
650	if (Lclcalipsoopaque) cfg%out_list(i) = 'clcalipsoopaque' !OPAQ
651	i = i+1 !OPAQ
652	if (Lclcalipsothin) cfg%out_list(i) = 'clcalipsothin' !OPAQ
653	i = i+1 !OPAQ
654	if (Lclcalipsozopaque) cfg%out_list(i) = 'clcalipsozopaque' !OPAQ
655	i = i+1 !OPAQ
656	if (Lclcalipsoopacity) cfg%out_list(i) = 'clcalipsoopacity' !OPAQ
657	i = i+1 !TIBO
658	if (LprofSR) cfg%out_list(i) = 'profSR' !TIBO
659	i = i+1 !TIBO
660	if (Lproftemp) cfg%out_list(i) = 'proftemp' !TIBO
661
662	if (i.gt.78) then
663	print *, 'COSP_IO: wrong number of output diagnostics'
664	print *, i,78
665	stop
666	endif
667
668	! Copy diagnostic flags to cfg structure
669	! ISCCP simulator
670	cfg%Lalbisccp = Lalbisccp
671	cfg%Latb532 = Latb532
672	cfg%Lboxptopisccp = Lboxptopisccp
673	cfg%Lboxtauisccp = Lboxtauisccp
674	cfg%Lmeantbisccp = Lmeantbisccp
675	cfg%Lmeantbclrisccp = Lmeantbclrisccp
676	cfg%Lclisccp = Lclisccp
677	cfg%Lpctisccp = Lpctisccp
678	cfg%Ltauisccp = Ltauisccp
679	cfg%Lcltisccp = Lcltisccp
680	! CloudSat simulator
681	cfg%Ldbze94 = Ldbze94
682	cfg%LcfadDbze94 = LcfadDbze94
683	! CALIPSO/PARASOL simulator
684	cfg%LcfadLidarsr532 = LcfadLidarsr532
685	cfg%Lclcalipso2 = Lclcalipso2
686	cfg%Lclcalipso = Lclcalipso
687	cfg%Lclhcalipso = Lclhcalipso
688	cfg%Lcllcalipso = Lcllcalipso
689	cfg%Lclmcalipso = Lclmcalipso
690	cfg%Lcltcalipso = Lcltcalipso
691	cfg%Lclhcalipsoice = Lclhcalipsoice
692	cfg%Lcllcalipsoice = Lcllcalipsoice
693	cfg%Lclmcalipsoice = Lclmcalipsoice
694	cfg%Lcltcalipsoice = Lcltcalipsoice
695	cfg%Lclhcalipsoliq = Lclhcalipsoliq
696	cfg%Lcllcalipsoliq = Lcllcalipsoliq
697	cfg%Lclmcalipsoliq = Lclmcalipsoliq
698	cfg%Lcltcalipsoliq = Lcltcalipsoliq
699	cfg%Lclhcalipsoun = Lclhcalipsoun
700	cfg%Lcllcalipsoun = Lcllcalipsoun
701	cfg%Lclmcalipsoun = Lclmcalipsoun
702	cfg%Lcltcalipsoun = Lcltcalipsoun
703	cfg%Lclcalipsoice = Lclcalipsoice
704	cfg%Lclcalipsoliq = Lclcalipsoliq
705	cfg%Lclcalipsoun = Lclcalipsoun
706	cfg%Lclcalipsotmp = Lclcalipsotmp
707	cfg%Lclcalipsotmpice = Lclcalipsotmpice
708	cfg%Lclcalipsotmpliq = Lclcalipsotmpliq
709	cfg%Lclcalipsotmpun = Lclcalipsotmpun
710	cfg%Lcltlidarradar = Lcltlidarradar
711	cfg%LparasolRefl = LparasolRefl
712	! cfg%Lclopaquecalipso = Lclopaquecalipso !OPAQ
713	! cfg%Lclthincalipso = Lclthincalipso !OPAQ
714	! cfg%Lclzopaquecalipso = Lclzopaquecalipso !OPAQ
715	! cfg%Lclcalipsoopaque = Lclcalipsoopaque !OPAQ
716	! cfg%Lclcalipsothin = Lclcalipsothin !OPAQ
717	! cfg%Lclcalipsozopaque = Lclcalipsozopaque !OPAQ
718	! cfg%Lclcalipsoopacity = Lclcalipsoopacity !OPAQ
719	! cfg%LprofSR = LprofSR !TIBO
720	! cfg%Lproftemp = Lproftemp !TIBO
721	! MISR simulator
722	cfg%LclMISR = LclMISR
723	! Other
724	cfg%Ltoffset = Ltoffset
725	cfg%Lfracout = Lfracout
726	cfg%LlidarBetaMol532 = LlidarBetaMol532
727	! RTTOV
728	cfg%Ltbrttov = Ltbrttov
729	! MODIS simulator
730	cfg%Lcltmodis=Lcltmodis
731	cfg%Lclwmodis=Lclwmodis
732	cfg%Lclimodis=Lclimodis
733	cfg%Lclhmodis=Lclhmodis
734	cfg%Lclmmodis=Lclmmodis
735	cfg%Lcllmodis=Lcllmodis
736	cfg%Ltautmodis=Ltautmodis
737	cfg%Ltauwmodis=Ltauwmodis
738	cfg%Ltauimodis=Ltauimodis
739	cfg%Ltautlogmodis=Ltautlogmodis
740	cfg%Ltauwlogmodis=Ltauwlogmodis
741	cfg%Ltauilogmodis=Ltauilogmodis
742	cfg%Lreffclwmodis=Lreffclwmodis
743	cfg%Lreffclimodis=Lreffclimodis
744	cfg%Lpctmodis=Lpctmodis
745	cfg%Llwpmodis=Llwpmodis
746	cfg%Liwpmodis=Liwpmodis
747	cfg%Lclmodis=Lclmodis
748	! cfg%Lcrimodis=Lcrimodis
749	! cfg%Lcrlmodis=Lcrlmodis
750
751	END SUBROUTINE READ_COSP_OUTPUT_NL
752
753	SUBROUTINE read_xiosfieldactive(cfg)
754
755	! USE MOD_COSP_CONSTANTS
756	! USE MOD_COSP_TYPES
757	#ifdef CPP_XIOS
758	USE xios, ONLY: xios_field_is_active
759	#endif
760	implicit none
761	type(cosp_config),intent(out) :: cfg
762	integer :: i
763
764	#ifdef CPP_XIOS
765
766	logical :: Lradar_sim,Llidar_sim,Lparasol_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
767	Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
768	LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
769	Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp,Lcltisccp, &
770	Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun, &
771	Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun, &
772	Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun, &
773	Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun, &
774	Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun, &
775	Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun, &
776	Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
777	Lfracout,LlidarBetaMol532,Ltbrttov, &
778	Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis, &
779	Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
780	Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
781	Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis,Lclopaquecalipso,Lclthincalipso, &
782	Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin,Lclcalipsozopaque,Lclcalipsoopacity, &
783	LprofSR,Lproftemp
784
785	character(len=32) :: out_list(78)
786
787	do i=1,78
788	cfg%out_list(i)=''
789	enddo
790
791	LcfadDbze94 = .false.
792	Lclcalipso2 = .false.
793	Lcltlidarradar = .false. ! Needs radar & lidar
794	Ldbze94 = .false.
795	Lclcalipso2 = .false. ! Needs radar & lidar
796
797	Latb532 = .false.
798	LcfadLidarsr532 = .false.
799	Lclcalipso = .false.
800	Lclhcalipso = .false.
801	Lcllcalipso = .false.
802	Lclmcalipso = .false.
803	Lcltcalipso = .false.
804	LparasolRefl = .false.
805	LlidarBetaMol532 = .false.
806	Lclcalipsoliq = .false.
807	Lclcalipsoice = .false.
808	Lclcalipsoun = .false.
809	Lclcalipsotmp = .false.
810	Lclcalipsotmpun = .false.
811	Lclcalipsotmpliq = .false.
812	Lclcalipsotmpice = .false.
813	Lclhcalipsoliq = .false.
814	Lcllcalipsoliq = .false.
815	Lclmcalipsoliq = .false.
816	Lcltcalipsoliq = .false.
817	Lclhcalipsoice = .false.
818	Lcllcalipsoice = .false.
819	Lclmcalipsoice = .false.
820	Lcltcalipsoice = .false.
821	Lclhcalipsoun = .false.
822	Lcllcalipsoun = .false.
823	Lclmcalipsoun = .false.
824	Lcltcalipsoun = .false.
825	Lclopaquecalipso = .false. !OPAQ
826	Lclthincalipso = .false. !OPAQ
827	Lclzopaquecalipso = .false. !OPAQ
828	Lclcalipsoopaque = .false. !OPAQ
829	Lclcalipsothin = .false. !OPAQ
830	Lclcalipsozopaque = .false. !OPAQ
831	Lclcalipsoopacity = .false. !OPAQ
832	LprofSR = .false. !TIBO
833	Lproftemp = .false. !TIBO
834
835	Lalbisccp = .false.
836	Lboxptopisccp = .false.
837	Lboxtauisccp = .false.
838	Lclisccp = .false.
839	Lpctisccp = .false.
840	Ltauisccp = .false.
841	Lcltisccp = .false.
842	Lmeantbisccp = .false.
843	Lmeantbclrisccp = .false.
844
845	LclMISR = .false.
846
847	Ltbrttov = .false.
848
849	Lcltmodis=.false.
850	Lclwmodis=.false.
851	Lclimodis=.false.
852	Lclhmodis=.false.
853	Lclmmodis=.false.
854	Lcllmodis=.false.
855	Ltautmodis=.false.
856	Ltauwmodis=.false.
857	Ltauimodis=.false.
858	Ltautlogmodis=.false.
859	Ltauwlogmodis=.false.
860	Ltauilogmodis=.false.
861	Lreffclwmodis=.false.
862	Lreffclimodis=.false.
863	Lpctmodis=.false.
864	Llwpmodis=.false.
865	Liwpmodis=.false.
866	Lclmodis=.false.
867	Lcrimodis=.false.
868	Lcrlmodis=.false.
869
870	Lradar_sim=.false.
871	Llidar_sim=.false.
872	Lparasol_sim=.false.
873	Lisccp_sim=.false.
874	Lmodis_sim=.false.
875	Lmisr_sim=.false.
876	Lrttov_sim=.false.
877
878	Lstats=.false.
879	! Ltoffset=.false.
880	! Lfracout=.false.
881	! Lwrite_output=.false.
882
883	IF (is_master) THEN
884	! VEREFIER LES CHAMPS DEMANDES DANS .XML
885	! 2. Si champs active dans .xml alors mettre la cles de sortie en true
886	IF (xios_field_is_active("cllcalipso")) Lcllcalipso=.TRUE.
887	IF (xios_field_is_active("clmcalipso")) Lclmcalipso=.TRUE.
888	IF (xios_field_is_active("clhcalipso")) Lclhcalipso=.TRUE.
889	IF (xios_field_is_active("cltcalipso")) Lcltcalipso=.TRUE.
890	IF (xios_field_is_active("cllcalipsoice")) Lcllcalipsoice=.TRUE.
891	IF (xios_field_is_active("clmcalipsoice")) Lclmcalipsoice=.TRUE.
892	IF (xios_field_is_active("clhcalipsoice")) Lclhcalipsoice=.TRUE.
893	IF (xios_field_is_active("cltcalipsoice")) Lcltcalipsoice=.TRUE.
894	IF (xios_field_is_active("cllcalipsoliq")) Lcllcalipsoliq=.TRUE.
895	IF (xios_field_is_active("clmcalipsoliq")) Lclmcalipsoliq=.TRUE.
896	IF (xios_field_is_active("clhcalipsoliq")) Lclhcalipsoliq=.TRUE.
897	IF (xios_field_is_active("cltcalipsoliq")) Lcltcalipsoliq=.TRUE.
898	IF (xios_field_is_active("cllcalipsoun")) Lcllcalipsoun=.TRUE.
899	IF (xios_field_is_active("clmcalipsoun")) Lclmcalipsoun=.TRUE.
900	IF (xios_field_is_active("clhcalipsoun")) Lclhcalipsoun=.TRUE.
901	IF (xios_field_is_active("cltcalipsoun")) Lcltcalipsoun=.TRUE.
902	IF (xios_field_is_active("clcalipso")) Lclcalipso=.TRUE.
903	IF (xios_field_is_active("clcalipsoice")) Lclcalipsoice=.TRUE.
904	IF (xios_field_is_active("clcalipsoliq")) Lclcalipsoliq=.TRUE.
905	IF (xios_field_is_active("clcalipsoun")) Lclcalipsoun=.TRUE.
906	IF (xios_field_is_active("clcalipsotmp")) Lclcalipsotmp=.TRUE.
907	IF (xios_field_is_active("clcalipsotmpice")) Lclcalipsotmpice=.TRUE.
908	IF (xios_field_is_active("clcalipsotmpliq")) Lclcalipsotmpliq=.TRUE.
909	IF (xios_field_is_active("clcalipsotmpun")) Lclcalipsotmpun=.TRUE.
910	IF (xios_field_is_active("parasol_refl")) LparasolRefl=.TRUE.
911	! IF (xios_field_is_active("parasol_crefl")) cfg%LparasolRefl=.TRUE.
912	! IF (xios_field_is_active("Ncrefl")) cfg%LparasolRefl=.TRUE.
913	IF (xios_field_is_active("cfad_lidarsr532")) LcfadLidarsr532=.TRUE.
914	IF (xios_field_is_active("atb532")) Latb532=.TRUE.
915	IF (xios_field_is_active("beta_mol532")) LlidarBetaMol532=.TRUE.
916	IF (xios_field_is_active("clopaquecalipso")) Lclopaquecalipso=.TRUE.
917	IF (xios_field_is_active("clthincalipso")) Lclthincalipso=.TRUE.
918	IF (xios_field_is_active("clzopaquecalipso")) Lclzopaquecalipso=.TRUE.
919	IF (xios_field_is_active("clcalipsoopaque")) Lclcalipsoopaque=.TRUE.
920	IF (xios_field_is_active("clcalipsothin")) Lclcalipsothin=.TRUE.
921	IF (xios_field_is_active("clcalipsozopaque")) Lclcalipsozopaque=.TRUE.
922	IF (xios_field_is_active("clcalipsoopacity")) Lclcalipsoopacity=.TRUE.
923	IF (xios_field_is_active("proftemp")) Lproftemp=.TRUE.
924	IF (xios_field_is_active("profSR")) LprofSR=.TRUE.
925	!!!! 38 champ Calipso
926
927	IF (xios_field_is_active("cfadDbze94")) LcfadDbze94=.TRUE.
928	IF (xios_field_is_active("dbze94")) Ldbze94=.TRUE.
929	!!! 2 champs CLOUDSAT
930
931	IF (xios_field_is_active("cltlidarradar")) Lcltlidarradar=.TRUE.
932	IF (xios_field_is_active("clcalipso2")) Lclcalipso2=.TRUE.
933	!!! 2 champs CLOUDSAT et CALIPSO
934
935	IF (xios_field_is_active("clisccp2")) Lclisccp=.TRUE.
936	IF (xios_field_is_active("boxtauisccp")) Lboxtauisccp=.TRUE.
937	IF (xios_field_is_active("boxptopisccp")) Lboxptopisccp=.TRUE.
938	IF (xios_field_is_active("tclisccp")) Lcltisccp=.TRUE.
939	IF (xios_field_is_active("ctpisccp")) Lpctisccp=.TRUE.
940	IF (xios_field_is_active("tauisccp")) Ltauisccp=.TRUE.
941	IF (xios_field_is_active("albisccp")) Lalbisccp=.TRUE.
942	IF (xios_field_is_active("meantbisccp")) Lmeantbisccp=.TRUE.
943	IF (xios_field_is_active("meantbclrisccp")) Lmeantbclrisccp=.TRUE.
944	!!! 9 champs ISCCP
945
946	IF (xios_field_is_active("clMISR")) LclMISR=.TRUE.
947	!!! 1 champs MISR
948
949	IF (xios_field_is_active("cllmodis")) Lcllmodis=.TRUE.
950	IF (xios_field_is_active("clmmodis")) Lclmmodis=.TRUE.
951	IF (xios_field_is_active("clhmodis")) Lclhmodis=.TRUE.
952	IF (xios_field_is_active("cltmodis")) Lcltmodis=.TRUE.
953	IF (xios_field_is_active("clwmodis")) Lclwmodis=.TRUE.
954	IF (xios_field_is_active("climodis")) Lclimodis=.TRUE.
955	IF (xios_field_is_active("tautmodis")) Ltautmodis=.TRUE.
956	IF (xios_field_is_active("tauwmodis")) Ltauwmodis=.TRUE.
957	IF (xios_field_is_active("tauimodis")) Ltauimodis=.TRUE.
958	IF (xios_field_is_active("tautlogmodis")) Ltautlogmodis=.TRUE.
959	IF (xios_field_is_active("tauilogmodis")) Ltauilogmodis=.TRUE.
960	IF (xios_field_is_active("tauwlogmodis")) Ltauwlogmodis=.TRUE.
961	IF (xios_field_is_active("reffclwmodis")) Lreffclwmodis=.TRUE.
962	IF (xios_field_is_active("reffclimodis")) Lreffclimodis=.TRUE.
963	IF (xios_field_is_active("pctmodis")) Lpctmodis=.TRUE.
964	IF (xios_field_is_active("lwpmodis")) Llwpmodis=.TRUE.
965	IF (xios_field_is_active("iwpmodis")) Liwpmodis=.TRUE.
966	IF (xios_field_is_active("clmodis")) Lclmodis=.TRUE.
967	IF (xios_field_is_active("crimodis")) Lcrimodis=.TRUE.
968	IF (xios_field_is_active("crlmodis")) Lcrlmodis=.TRUE.
969	!!! 20 champs MODIS
970	! IF (xios_field_is_active("tbrttov")) cfg%Ltbrttov=.TRUE.
971
972	! 2. si champs demande alors activer le simulateur correspondant
973	IF (xios_field_is_active("cllcalipso").OR. &
974	xios_field_is_active("clmcalipso").OR. &
975	xios_field_is_active("clhcalipso").OR. &
976	xios_field_is_active("cltcalipso").OR. &
977	xios_field_is_active("cllcalipsoice").OR. &
978	xios_field_is_active("clmcalipsoice").OR. &
979	xios_field_is_active("clhcalipsoice").OR. &
980	xios_field_is_active("cltcalipsoice").OR. &
981	xios_field_is_active("cllcalipsoliq").OR. &
982	xios_field_is_active("clmcalipsoliq").OR. &
983	xios_field_is_active("clhcalipsoliq").OR. &
984	xios_field_is_active("cltcalipsoliq").OR. &
985	xios_field_is_active("cllcalipsoun").OR. &
986	xios_field_is_active("clmcalipsoun").OR. &
987	xios_field_is_active("clhcalipsoun").OR. &
988	xios_field_is_active("cltcalipsoun").OR. &
989	xios_field_is_active("clcalipso").OR. &
990	xios_field_is_active("clcalipsoice").OR. &
991	xios_field_is_active("clcalipsoliq").OR. &
992	xios_field_is_active("clcalipsoun").OR. &
993	xios_field_is_active("clcalipsotmp").OR. &
994	xios_field_is_active("clcalipsotmpice").OR. &
995	xios_field_is_active("clcalipsotmpliq").OR. &
996	xios_field_is_active("clcalipsotmpun").OR. &
997	xios_field_is_active("cfad_lidarsr532").OR. &
998	xios_field_is_active("atb532").OR. &
999	xios_field_is_active("beta_mol532").OR. &
1000	xios_field_is_active("clopaquecalipso").OR. &
1001	xios_field_is_active("clthincalipso").OR. &
1002	xios_field_is_active("clzopaquecalipso").OR. &
1003	xios_field_is_active("clcalipsoopaque").OR. &
1004	xios_field_is_active("clcalipsothin").OR. &
1005	xios_field_is_active("clcalipsozopaque").OR. &
1006	xios_field_is_active("clcalipsoopacity").OR. &
1007	xios_field_is_active("proftemp").OR. &
1008	xios_field_is_active("profSR")) Llidar_sim=.TRUE.
1009
1010	IF (xios_field_is_active("parasol_refl")) Lparasol_sim=.TRUE.
1011
1012	IF (xios_field_is_active("cfadDbze94").OR. &
1013	xios_field_is_active("dbze94")) & Lradar_sim=.TRUE.
1014
1015	IF (xios_field_is_active("cltlidarradar").OR. &
1016	xios_field_is_active("clcalipso2")) THEN
1017	Lradar_sim=.TRUE.
1018	Llidar_sim=.TRUE.
1019	ENDIF
1020
1021	IF (xios_field_is_active("clisccp2").OR. &
1022	xios_field_is_active("boxtauisccp").OR. &
1023	xios_field_is_active("boxptopisccp").OR. &
1024	xios_field_is_active("tclisccp").OR. &
1025	xios_field_is_active("ctpisccp").OR. &
1026	xios_field_is_active("tauisccp").OR. &
1027	xios_field_is_active("albisccp").OR. &
1028	xios_field_is_active("meantbisccp").OR. &
1029	xios_field_is_active("meantbclrisccp")) Lisccp_sim=.TRUE.
1030
1031	IF (xios_field_is_active("clMISR")) Lmisr_sim=.TRUE.
1032
1033	IF (xios_field_is_active("cllmodis").OR. &
1034	xios_field_is_active("clmmodis").OR. &
1035	xios_field_is_active("clhmodis").OR. &
1036	xios_field_is_active("cltmodis").OR. &
1037	xios_field_is_active("clwmodis").OR. &
1038	xios_field_is_active("climodis").OR. &
1039	xios_field_is_active("tautmodis").OR. &
1040	xios_field_is_active("tauwmodis").OR. &
1041	xios_field_is_active("tauimodis").OR. &
1042	xios_field_is_active("tautlogmodis").OR. &
1043	xios_field_is_active("tauilogmodis").OR. &
1044	xios_field_is_active("tauwlogmodis").OR. &
1045	xios_field_is_active("reffclwmodis").OR. &
1046	xios_field_is_active("reffclimodis").OR. &
1047	xios_field_is_active("pctmodis").OR. &
1048	xios_field_is_active("lwpmodis").OR. &
1049	xios_field_is_active("iwpmodis").OR. &
1050	xios_field_is_active("clmodis").OR. &
1051	xios_field_is_active("crimodis").OR. &
1052	xios_field_is_active("crlmodis")) Lmodis_sim=.TRUE.
1053
1054	ENDIF ! (is_master)
1055
1056	!$OMP BARRIER
1057
1058	CALL bcast(Lradar_sim)
1059	CALL bcast(Llidar_sim)
1060	CALL bcast(Lisccp_sim)
1061	CALL bcast(Lmodis_sim)
1062	CALL bcast(Lmisr_sim)
1063	CALL bcast(Lparasol_sim)
1064	CALL bcast(Lrttov_sim)
1065
1066	CALL bcast(Lstats)
1067
1068	CALL bcast(Lalbisccp)
1069	CALL bcast(Latb532)
1070	CALL bcast(Lboxptopisccp)
1071	CALL bcast(Lboxtauisccp)
1072	CALL bcast(LcfadDbze94)
1073	CALL bcast(LcfadLidarsr532)
1074	CALL bcast(Lclcalipso2)
1075	CALL bcast(Lclcalipso)
1076	CALL bcast(Lclhcalipso)
1077	CALL bcast(Lclcalipsoliq)
1078	CALL bcast(Lclcalipsoice)
1079	CALL bcast(Lclcalipsoun)
1080	CALL bcast(Lclcalipsotmp)
1081	CALL bcast(Lclcalipsotmpliq)
1082	CALL bcast(Lclcalipsotmpice)
1083	CALL bcast(Lclcalipsotmpun)
1084	CALL bcast(Lcltcalipsoliq)
1085	CALL bcast(Lcltcalipsoice)
1086	CALL bcast(Lcltcalipsoun)
1087	CALL bcast(Lclhcalipsoliq)
1088	CALL bcast(Lclhcalipsoice)
1089	CALL bcast(Lclhcalipsoun)
1090	CALL bcast(Lclmcalipsoliq)
1091	CALL bcast(Lclmcalipsoice)
1092	CALL bcast(Lclmcalipsoun)
1093	CALL bcast(Lcllcalipsoliq)
1094	CALL bcast(Lcllcalipsoice)
1095	CALL bcast(Lcllcalipsoun)
1096	CALL bcast(Lclisccp)
1097	CALL bcast(Lcllcalipso)
1098	CALL bcast(Lclmcalipso)
1099	CALL bcast(Lcltcalipso)
1100	CALL bcast(Lcltlidarradar)
1101	CALL bcast(Lpctisccp)
1102	CALL bcast(Ldbze94)
1103	CALL bcast(Ltauisccp)
1104	CALL bcast(Lcltisccp)
1105	CALL bcast(LparasolRefl)
1106	CALL bcast(LclMISR)
1107	CALL bcast(Lmeantbisccp)
1108	CALL bcast(Lmeantbclrisccp)
1109	CALL bcast(Lfracout)
1110	CALL bcast(LlidarBetaMol532)
1111	CALL bcast(Lcltmodis)
1112	CALL bcast(Lclwmodis)
1113	CALL bcast(Lclimodis)
1114	CALL bcast(Lclhmodis)
1115	CALL bcast(Lclmmodis)
1116	CALL bcast(Lcllmodis)
1117	CALL bcast(Ltautmodis)
1118	CALL bcast(Ltauwmodis)
1119	CALL bcast(Ltauimodis)
1120	CALL bcast(Ltautlogmodis)
1121	CALL bcast(Ltauwlogmodis)
1122	CALL bcast(Ltauilogmodis)
1123	CALL bcast(Lreffclwmodis)
1124	CALL bcast(Lreffclimodis)
1125	CALL bcast(Lpctmodis)
1126	CALL bcast(Llwpmodis)
1127	CALL bcast(Liwpmodis)
1128	CALL bcast(Lclmodis)
1129	CALL bcast(Ltbrttov)
1130	CALL bcast(Lcrimodis)
1131	CALL bcast(Lcrlmodis)
1132	CALL bcast(Lclopaquecalipso) !OPAQ
1133	CALL bcast(Lclthincalipso) !OPAQ
1134	CALL bcast(Lclzopaquecalipso) !OPAQ
1135	CALL bcast(Lclcalipsoopaque) !OPAQ
1136	CALL bcast(Lclcalipsothin) !OPAQ
1137	CALL bcast(Lclcalipsozopaque) !OPAQ
1138	CALL bcast(Lclcalipsoopacity) !OPAQ
1139	CALL bcast(LprofSR) !TIBO
1140	CALL bcast(Lproftemp) !TIBO
1141
1142	if (Lmodis_sim) Lisccp_sim = .true.
1143	if ((Lradar_sim).or.(Llidar_sim).or.(Lisccp_sim)) Lstats = .true.
1144	! IF (xios_field_is_active("tbrttov")) cfg%Lrttov_sim=.TRUE.
1145
1146	! Copy diagnostic flags to cfg structure
1147	! ISCCP simulator
1148	cfg%Lalbisccp = Lalbisccp
1149	cfg%Latb532 = Latb532
1150	cfg%Lboxptopisccp = Lboxptopisccp
1151	cfg%Lboxtauisccp = Lboxtauisccp
1152	cfg%Lmeantbisccp = Lmeantbisccp
1153	cfg%Lmeantbclrisccp = Lmeantbclrisccp
1154	cfg%Lclisccp = Lclisccp
1155	cfg%Lpctisccp = Lpctisccp
1156	cfg%Ltauisccp = Ltauisccp
1157	cfg%Lcltisccp = Lcltisccp
1158
1159	! CloudSat simulator
1160	cfg%Ldbze94 = Ldbze94
1161	cfg%LcfadDbze94 = LcfadDbze94
1162
1163	! Cloudsat et Calipso
1164	cfg%Lclcalipso2 = Lclcalipso2
1165	cfg%Lcltlidarradar = Lcltlidarradar
1166
1167	! CALIPSO/PARASOL simulator
1168	cfg%LcfadLidarsr532 = LcfadLidarsr532
1169	cfg%Lclcalipso = Lclcalipso
1170	cfg%Lclhcalipso = Lclhcalipso
1171	cfg%Lcllcalipso = Lcllcalipso
1172	cfg%Lclmcalipso = Lclmcalipso
1173	cfg%Lcltcalipso = Lcltcalipso
1174	cfg%Lclhcalipsoice = Lclhcalipsoice
1175	cfg%Lcllcalipsoice = Lcllcalipsoice
1176	cfg%Lclmcalipsoice = Lclmcalipsoice
1177	cfg%Lcltcalipsoice = Lcltcalipsoice
1178	cfg%Lclhcalipsoliq = Lclhcalipsoliq
1179	cfg%Lcllcalipsoliq = Lcllcalipsoliq
1180	cfg%Lclmcalipsoliq = Lclmcalipsoliq
1181	cfg%Lcltcalipsoliq = Lcltcalipsoliq
1182	cfg%Lclhcalipsoun = Lclhcalipsoun
1183	cfg%Lcllcalipsoun = Lcllcalipsoun
1184	cfg%Lclmcalipsoun = Lclmcalipsoun
1185	cfg%Lcltcalipsoun = Lcltcalipsoun
1186	cfg%Lclcalipsoice = Lclcalipsoice
1187	cfg%Lclcalipsoliq = Lclcalipsoliq
1188	cfg%Lclcalipsoun = Lclcalipsoun
1189	cfg%Lclcalipsotmp = Lclcalipsotmp
1190	cfg%Lclcalipsotmpice = Lclcalipsotmpice
1191	cfg%Lclcalipsotmpliq = Lclcalipsotmpliq
1192	cfg%Lclcalipsotmpun = Lclcalipsotmpun
1193	cfg%LparasolRefl = LparasolRefl
1194	! cfg%Lclopaquecalipso = Lclopaquecalipso !OPAQ
1195	! cfg%Lclthincalipso = Lclthincalipso !OPAQ
1196	! cfg%Lclzopaquecalipso = Lclzopaquecalipso !OPAQ
1197	! cfg%Lclcalipsoopaque = Lclcalipsoopaque !OPAQ
1198	! cfg%Lclcalipsothin = Lclcalipsothin !OPAQ
1199	! cfg%Lclcalipsozopaque = Lclcalipsozopaque !OPAQ
1200	! cfg%Lclcalipsoopacity = Lclcalipsoopacity !OPAQ
1201	! cfg%LprofSR = LprofSR !TIBO
1202	! cfg%Lproftemp = Lproftemp !TIBO
1203	cfg%LlidarBetaMol532 = LlidarBetaMol532
1204
1205	! MISR simulator
1206	cfg%LclMISR = LclMISR
1207
1208	! RTTOV
1209	cfg%Ltbrttov = Ltbrttov
1210
1211	! MODIS simulator
1212	cfg%Lcltmodis=Lcltmodis
1213	cfg%Lclwmodis=Lclwmodis
1214	cfg%Lclimodis=Lclimodis
1215	cfg%Lclhmodis=Lclhmodis
1216	cfg%Lclmmodis=Lclmmodis
1217	cfg%Lcllmodis=Lcllmodis
1218	cfg%Ltautmodis=Ltautmodis
1219	cfg%Ltauwmodis=Ltauwmodis
1220	cfg%Ltauimodis=Ltauimodis
1221	cfg%Ltautlogmodis=Ltautlogmodis
1222	cfg%Ltauwlogmodis=Ltauwlogmodis
1223	cfg%Ltauilogmodis=Ltauilogmodis
1224	cfg%Lreffclwmodis=Lreffclwmodis
1225	cfg%Lreffclimodis=Lreffclimodis
1226	cfg%Lpctmodis=Lpctmodis
1227	cfg%Llwpmodis=Llwpmodis
1228	cfg%Liwpmodis=Liwpmodis
1229	cfg%Lclmodis=Lclmodis
1230	! cfg%Lcrimodis=Lcrimodis
1231	! cfg%Lcrlmodis=Lcrlmodis
1232
1233	! Others
1234	! cfg%Lwrite_output=Lwrite_output
1235	! cfg%Ltoffset=Ltoffset
1236	! cfg%Lfracout=Lfracout
1237	cfg%Lstats = Lstats
1238
1239	! Copy instrument flags to cfg structure
1240	cfg%Lradar_sim = Lradar_sim
1241	cfg%Llidar_sim = Llidar_sim
1242	cfg%Lparasol_sim = Lparasol_sim
1243	cfg%Lisccp_sim = Lisccp_sim
1244	cfg%Lmodis_sim = Lmodis_sim
1245	cfg%Lmisr_sim = Lmisr_sim
1246	cfg%Lrttov_sim = Lrttov_sim
1247	if (cfg%Lradar_sim.or.cfg%Llidar_sim.or.cfg%Lisccp_sim.or.cfg%Lmodis_sim.or.cfg%Lmisr_sim) then
1248	cfg%Lwrite_output=.TRUE.
1249	endif
1250
1251	#endif
1252
1253	END SUBROUTINE read_xiosfieldactive
1254
1255	END MODULE cosp_read_otputkeys

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

Download in other formats:

Original Format