Index: trunk/LMDZ.PLUTO/libf/phypluto/dyn1d/kcm1d.F90
===================================================================
--- trunk/LMDZ.PLUTO/libf/phypluto/dyn1d/kcm1d.F90	(revision 3542)
+++ trunk/LMDZ.PLUTO/libf/phypluto/dyn1d/kcm1d.F90	(revision 3572)
@@ -75,6 +75,4 @@
 
   ! not used
-  real cloudfrac(1,llm)
-  real totcloudfrac(1)
   real tau_col(1)
 
@@ -104,8 +102,4 @@
 
   pi=2.E+0*asin(1.E+0)
-
-  cloudfrac(1,:)  = 0.0
-  totcloudfrac(1)  = 0.0
-
 
   nlayer=llm
@@ -385,6 +379,5 @@
           fluxabs_sw,fluxtop_dn,OLR_nu,OSR_nu,GSR_nu,     &
           int_dtaui,int_dtauv,                            &
-          tau_col,cloudfrac,totcloudfrac,                 &
-          .false.,firstcall,lastcall)
+          tau_col,firstcall,lastcall)
 
      !write(*,*) 'BASE 3'
@@ -396,5 +389,5 @@
      !     fluxsurfabs_sw,'T',fluxtop_lw,'U',                      &
      !     fluxabs_sw,'V',fluxtop_dn,'W',OLR_nu,'X',OSR_nu,'Y',tau_col,'Z',    &
-     !     cloudfrac,'A1',totcloudfrac,'A2',.false.,'A3',firstcall,'A4',lastcall
+     !     .false.,'A3',firstcall,'A4',lastcall
 
 
@@ -437,6 +430,5 @@
        fluxtop_lw, fluxabs_sw,fluxtop_dn,OLR_nu,OSR_nu,GSR_nu, &
        int_dtaui,int_dtauv,                                    &
-       tau_col,cloudfrac,totcloudfrac,                         &
-       .false.,firstcall,lastcall)
+       tau_col,firstcall,lastcall)
 
 
@@ -449,5 +441,5 @@
      !     fluxsurfabs_sw,'T',fluxtop_lw,'U',                      &
      !     fluxabs_sw,'V',fluxtop_dn,'W',OLR_nu,'X',OSR_nu,'Y',tau_col,'Z',    &
-     !     cloudfrac,'A1',totcloudfrac,'A2',.false.,'A3',firstcall,'A4',lastcall
+     !     .false.,'A3',firstcall,'A4',lastcall