Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90	(revision 2461)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90	(revision 2462)
@@ -383,5 +383,5 @@
 !       & (1.0_JPRB - Z_CLDFRAC(I_LEV-1))   
 !    ENDIF
-     if(istcld(i_lev).ne.1) then
+     if(istcld(i_lev).ne.1.and.i_lev.ne.1) then
         z_faccmb1(i_lev+1) = max(0.,min(z_cldfrac(i_lev+1)-z_cldfrac(i_lev), &
                z_cldfrac(i_lev-1)-z_cldfrac(i_lev)))
@@ -496,5 +496,5 @@
 !    Z_FACCMB2D(I_LEV-1) = Z_FACCLD1D(I_LEV-1) * Z_FACCLR2D(I_LEV) *&
 !     & (1.0_JPRB - Z_CLDFRAC(I_LEV+1))  
-    if (istcldd(i_lev).ne.1.and.i_lev.ne.0) then
+    if (istcldd(i_lev).ne.1.and.i_lev.ne.1) then
        z_faccmb1d(i_lev-1) = max(0.,min(z_cldfrac(i_lev+1)-z_cldfrac(i_lev), &
                             z_cldfrac(i_lev-1)-z_cldfrac(i_lev)))