Index: LMDZ6/trunk/libf/phylmdiso/lmdz_cloud_optics_prop.F90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/lmdz_cloud_optics_prop.F90	(revision 4685)
+++ LMDZ6/trunk/libf/phylmdiso/lmdz_cloud_optics_prop.F90	(revision 4685)
@@ -0,0 +1,1 @@
+link ../phylmd/lmdz_cloud_optics_prop.F90
Index: LMDZ6/trunk/libf/phylmdiso/newmicro.F90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/newmicro.F90	(revision 4684)
+++ 	(revision )
@@ -1,1 +1,0 @@
-link ../phylmd/newmicro.F90
Index: LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90	(revision 4684)
+++ LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90	(revision 4685)
@@ -77,4 +77,5 @@
     USE write_field_phy
     USE wxios, ONLY: g_ctx, wxios_set_context, using_xios
+    USE lmdz_cloud_optics_prop, ONLY : cloud_optics_prop
     USE lmdz_lscp, ONLY : lscp
     USE lmdz_lscp_old, ONLY : fisrtilp
@@ -5573,5 +5574,5 @@
 #endif
           ENDIF
-          CALL newmicro (flag_aerosol, ok_cdnc, bl95_b0, bl95_b1, &
+          CALL cloud_optics_prop(flag_aerosol, ok_cdnc, bl95_b0, bl95_b1, &
                paprs, pplay, t_seri, radocond, picefra, cldfra, &
                cldtau, cldemi, cldh, cldl, cldm, cldt, cldq, &