Index: LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F
===================================================================
--- LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F	(revision 292)
+++ LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F	(revision 293)
@@ -434,4 +434,6 @@
       CALL coefkz2(nsrf, knon, ypaprs, ypplay,yt,
      .                  ycoefm0, ycoefh0)
+      write(*,*)'Cdrag maximal = ',maxval(ycoefh(:,1)),
+     .                               maxval(ycoefh0(:,1))
       DO k = 1, klev
       DO i = 1, knon
@@ -440,4 +442,7 @@
       ENDDO
       ENDDO
+
+      write(*,*)'Cdrag maximal = ',maxloc(ycoefh(:,1)),
+     .                             maxval(ycoefh(:,1))
 c
 c
@@ -586,5 +591,5 @@
      e                delp,radsol,albedo,alblw,snow,qsol, 
      e                precip_rain, precip_snow, fder, taux, tauy,
-     $                sollw, sollwdown, swdown,fluxlat, 
+     $                sollw, sollwdown, swnet,fluxlat, 
      s                pctsrf_new, agesno,
      s                d_t, d_q, d_ts, z0_new, 
@@ -828,5 +833,6 @@
         p1lay(1:knon) = pplay(1:knon,1)
         zlev1(1:knon) = delp(1:knon,1)
-        swnet = swdown * (1. - albedo)
+c        swnet = swdown * (1. - albedo)
+        swdown(1:knon) = swnet(1:knon)
 c      enddo
 c En attendant mieux