Index: LMDZ6/trunk/libf/phylmd/cosp2/cosp_output_write_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cosp2/cosp_output_write_mod.F90	(revision 3396)
+++ LMDZ6/trunk/libf/phylmd/cosp2/cosp_output_write_mod.F90	(revision 3397)
@@ -197,7 +197,7 @@
     do k=1,PARASOL_NREFL
      do ip=1, Npoints
-      if (stlidar%cldlayer(ip,4).gt.0.01.and.stlidar%parasolrefl(ip,k).ne.missing_val) then
-        parasolcrefl(ip,k)=(stlidar%parasolrefl(ip,k)-0.03*(1.-stlidar%cldlayer(ip,4)))/ &
-                             stlidar%cldlayer(ip,4)
+      if (stlidar%cldlayer(ip,4).gt.1.and.stlidar%parasolrefl(ip,k).ne.missing_val) then
+        parasolcrefl(ip,k)=(stlidar%parasolrefl(ip,k)-0.03*(1.-stlidar%cldlayer(ip,4)/100.))/ &
+                             stlidar%cldlayer(ip,4)/100.
          Ncref(ip,k) = 1.
       else