source: LMDZ6/trunk/libf/phylmd/cospv2/lmdz_cosp_read_outputkeys.f90 @ 5435

Last change on this file since 5435 was 5268, checked in by abarral, 2 months ago

.f90 <-> .F90 depending on cpp key use
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
17module 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
153CONTAINS
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
1717END MODULE lmdz_cosp_read_outputkeys
Note: See TracBrowser for help on using the repository browser.