Index: LMDZ5/trunk/libf/phylmd/iophy.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/iophy.F90	(revision 2136)
+++ LMDZ5/trunk/libf/phylmd/iophy.F90	(revision 2137)
@@ -1117,5 +1117,5 @@
                              trim(var%name)                       
           endif
-          CALL xios_send_field(var%name, Field3d)
+          CALL xios_send_field(var%name, Field3d(:,:,1:nlevx))
 #else
         CALL abort_gcm ('iophy','cannot have ok_all_xml = .T. without CPP_XIOS defined' ,1)
Index: LMDZ5/trunk/libf/phylmd/physiq.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/physiq.F90	(revision 2136)
+++ LMDZ5/trunk/libf/phylmd/physiq.F90	(revision 2137)
@@ -3512,5 +3512,5 @@
      ! adeclarer 
 #ifdef CPP_COSP
-     IF (MOD(itap,NINT(freq_cosp/dtime)).EQ.0) THEN
+     IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/dtime)).EQ.0) THEN
 
         print*,'freq_cosp',freq_cosp
@@ -3520,5 +3520,5 @@
         call phys_cosp(itap,dtime,freq_cosp, &
              ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-             ecrit_mth,ecrit_day,ecrit_hf, &
+             ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, &
              klon,klev,rlon,rlat,presnivs,overlap, &
              fract,ref_liq,ref_ice, &