Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/clesphys.h
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/phylmd/clesphys.h	(revision 1258)
+++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/clesphys.h	(revision 1259)
@@ -55,4 +55,5 @@
        REAL freq_ISCCP, ecrit_ISCCP
        REAL freq_COSP
+       LOGICAL :: ok_cosp
        INTEGER :: ip_ebil_phy, iflag_rrtm
        LOGICAL :: ok_strato
@@ -68,5 +69,5 @@
      &     , lev_histhf, lev_histday, lev_histmth                       &
      &     , lev_histins, lev_histLES                                   &
-     &     , type_run, ok_isccp, ok_regdyn                              &
+     &     , type_run, ok_isccp, ok_regdyn, ok_cosp                     &
      &     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
      &     , ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day               &
Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90	(revision 1258)
+++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/conf_phys.F90	(revision 1259)
@@ -135,4 +135,5 @@
   CHARACTER*4, SAVE :: type_run_omp
   LOGICAL,SAVE :: ok_isccp_omp
+  LOGICAL,SAVE :: ok_cosp_omp
   REAL,SAVE :: lonmin_ins_omp, lonmax_ins_omp, latmin_ins_omp, latmax_ins_omp
   REAL,SAVE :: ecrit_hf_omp, ecrit_day_omp, ecrit_mth_omp, ecrit_reg_omp
@@ -1066,4 +1067,13 @@
   ok_isccp_omp = .false.
   call getin('ok_isccp',ok_isccp_omp)
+
+!
+!Config Key  = ok_cosp
+!Config Desc =
+!Config Def  = .false.
+!Config Help =
+!
+  ok_cosp_omp = .false.
+  call getin('ok_cosp',ok_cosp_omp)
 
 !
@@ -1414,4 +1424,5 @@
     type_run = type_run_omp
     ok_isccp = ok_isccp_omp
+    ok_cosp = ok_cosp_omp
     seuil_inversion=seuil_inversion_omp
     lonmin_ins = lonmin_ins_omp
@@ -1554,4 +1565,5 @@
   write(numout,*)' type_run = ',type_run 
   write(numout,*)' ok_isccp = ',ok_isccp 
+  write(numout,*)' ok_cosp = ',ok_cosp
   write(numout,*)' solarlong0 = ', solarlong0
   write(numout,*)' qsol0 = ', qsol0
Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/newmicro.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/phylmd/newmicro.F	(revision 1258)
+++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/newmicro.F	(revision 1259)
@@ -304,9 +304,9 @@
               reliq(i,k)=rel
               reice(i,k)=rei 
-              if (i.eq.1) then
-              print*,'Dans newmicro rel, rei :',rel, rei
-              print*,'Dans newmicro reliq, reice :',
-     $             reliq(i,k),reice(i,k)
-              endif
+!              if (i.eq.1) then
+!              print*,'Dans newmicro rel, rei :',rel, rei
+!              print*,'Dans newmicro reliq, reice :',
+!     $             reliq(i,k),reice(i,k)
+!              endif
 
             ENDDO
Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F	(revision 1258)
+++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F	(revision 1259)
@@ -3178,5 +3178,5 @@
 ! Abderrahmane 24.08.09
 
-!      IF (ok_cosp) THEN
+      IF (ok_cosp) THEN
 ! adeclarer 
 #ifdef CPP_COSP
@@ -3204,8 +3204,8 @@
 !     I          tauisccp,albisccp,meantbisccp,meantbclrisccp)
 
-        ENDIF
-
-!      ENDIF
+         ENDIF
+
 #endif
+       ENDIF  !ok_cosp
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 cAA