Index: LMDZ6/trunk/libf/phylmd/physiq_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 6124)
+++ LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 6125)
@@ -1641,7 +1641,5 @@
                   mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0)
 
-             CALL phys_cosp(itap,phys_tstep,freq_cosp, &
-                  ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-                  ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
+             CALL phys_cosp(itap,phys_tstep,missing_val, &
                   klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
                   JrNt_cosp0,ref_liq_cosp0,ref_ice_cosp0, &
@@ -1661,7 +1659,5 @@
                   mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0)
 
-             CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, &
-                  ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-                  ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
+             CALL lmdz_cosp_interface(itap,phys_tstep,missing_val, &
                   klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
                   JrNt_cosp0,ref_liq_cosp0,ref_ice_cosp0, &
@@ -4786,7 +4782,5 @@
              !       print*,'Dans physiq.F avant appel cosp ref_liq,ref_ice=',
              !     s        ref_liq,ref_ice
-             CALL phys_cosp(itap,phys_tstep,freq_cosp, &
-                  ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-                  ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
+             CALL phys_cosp(itap,phys_tstep,missing_val, &
                   klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
                   JrNt,ref_liq,ref_ice, &
@@ -4823,7 +4817,5 @@
              print*,'Dans physiq.F avant appel '
              !     s        ref_liq,ref_ice
-             CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, &
-                  ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-                  ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
+             CALL lmdz_cosp_interface(itap,phys_tstep,missing_val, &
                   klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
                   JrNt,ref_liq,ref_ice, &