Index: LMDZ6/trunk/libf/phylmd/cosp/cosp_read_otputkeys.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cosp/cosp_read_otputkeys.F90	(revision 3346)
+++ LMDZ6/trunk/libf/phylmd/cosp/cosp_read_otputkeys.F90	(revision 3347)
@@ -282,4 +282,5 @@
     close(10)
   ENDIF
+!$OMP BARRIER
   
   CALL bcast(Lradar_sim)
@@ -365,6 +366,4 @@
   CALL bcast(LprofSR)           !TIBO
   CALL bcast(Lproftemp)         !TIBO
-
-!$OMP BARRIER
 
 !  print*,' Cles sorties cosp :'
@@ -756,5 +755,5 @@
 #ifdef CPP_XIOS
 
- logical, save :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
+ logical :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
              Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
              LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
@@ -775,23 +774,4 @@
              LprofSR,Lproftemp
         
-!!$OMP THREADPRIVATE(Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim)
-!!$OMP THREADPRIVATE(Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94)
-!!$OMP THREADPRIVATE(LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso)
-!!$OMP THREADPRIVATE(Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp,Lcltisccp)
-!!$OMP THREADPRIVATE(Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun)
-!!$OMP THREADPRIVATE(Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun)
-!!$OMP THREADPRIVATE(Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun)
-!!$OMP THREADPRIVATE(Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun)
-!!$OMP THREADPRIVATE(Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun)
-!!$OMP THREADPRIVATE(Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun)
-!!$OMP THREADPRIVATE(Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp)
-!!$OMP THREADPRIVATE(Lfracout,LlidarBetaMol532,Ltbrttov)
-!!$OMP THREADPRIVATE(Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis)
-!!$OMP THREADPRIVATE(Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis)
-!!$OMP THREADPRIVATE(Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis)
-!!$OMP THREADPRIVATE(Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis,Lclopaquecalipso,Lclthincalipso)
-!!$OMP THREADPRIVATE(Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin,Lclcalipsozopaque,Lclcalipsoopacity)
-!!$OMP THREADPRIVATE(LprofSR,Lproftemp) 
-
   character(len=32) :: out_list(N_OUT_LIST)
 
@@ -1062,4 +1042,5 @@
 
   ENDIF !   (is_master) 
+!$OMP BARRIER
 
   CALL bcast(Lradar_sim)
@@ -1146,6 +1127,4 @@
   CALL bcast(Lproftemp)         !TIBO
 
-!$OMP BARRIER
-
     if (Lmodis_sim) Lisccp_sim = .true.
     if ((Lradar_sim).or.(Llidar_sim).or.(Lisccp_sim)) Lstats = .true.
Index: LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90	(revision 3346)
+++ LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90	(revision 3347)
@@ -343,5 +343,5 @@
 
 !+++++++++++++ Open output files and define output files axis !+++++++++++++
-!    if (debut_cosp) then
+    if (debut_cosp) then
 
       !$OMP MASTER
@@ -353,5 +353,5 @@
       !$OMP BARRIER
         debut_cosp=.false.
-!      endif ! debut_cosp
+      endif ! debut_cosp
 !    else
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -408,4 +408,5 @@
       CLOSE(10)
     ENDIF
+!$OMP BARRIER
     CALL bcast(overlap)
     CALL bcast(isccp_topheight)
@@ -440,5 +441,5 @@
     CALL bcast(n2o)
     CALL bcast(co)
-!$OMP BARRIER  
+
   END SUBROUTINE read_cosp_input