Index: LMDZ5/trunk/libf/dynlonlat_phylonlat/grid_atob_m.F90
===================================================================
--- LMDZ5/trunk/libf/dynlonlat_phylonlat/grid_atob_m.F90	(revision 2293)
+++ LMDZ5/trunk/libf/dynlonlat_phylonlat/grid_atob_m.F90	(revision 2294)
@@ -83,5 +83,5 @@
     RETURN
   END IF
-  nn=COUNT(found/=0); IF(nn==0) RETURN
+  nn=COUNT(found); IF(nn==0) RETURN
 
 !--- MISSING POINTS ; USE DISTANCE ON THE SPHERE TO FIND NEAREST POINT nr(2)
@@ -136,5 +136,6 @@
   DOUBLE PRECISION  :: out(SIZE(x),SIZE(y))
 !-------------------------------------------------------------------------------
-  CALL fine2coarse(xdata,ydata,x,y,out,DBLE(entree))
+!  CALL fine2coarse(xdata,ydata,x,y,out,DBLE(entree))
+  CALL fine2coarse(xdata,ydata,x,y,out,entree)
   sortie=REAL(out)
 
Index: LMDZ5/trunk/libf/phylmd/physiq.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/physiq.F90	(revision 2293)
+++ LMDZ5/trunk/libf/phylmd/physiq.F90	(revision 2294)
@@ -60,4 +60,6 @@
   USE YOERAD   , ONLY : NRADLP
 #endif
+  USE ioipsl_getin_p_mod, ONLY : getin_p
+
 
   !IM stations CFMIP
@@ -440,4 +442,7 @@
   integer :: tau_trig(klon)
 
+  REAL,SAVE :: random_notrig_max=1.01
+  !$OMP THREADPRIVATE(random_notrig_max) 
+
   !--------Statistical Boundary Layer Closure: ALP_BL--------
   !---Profils de TKE dans et hors du thermique
@@ -993,4 +998,5 @@
   IF (debut) THEN
      CALL suphel ! initialiser constantes et parametres phys.
+     CALL getin_p('random_notrig_max',random_notrig_max)
   ENDIF
 
@@ -2734,4 +2740,5 @@
               proba_notrig(i)=1.
               random_notrig(i)=1e6*ale_bl_stat(i)-int(1e6*ale_bl_stat(i))
+              if ( random_notrig(i) > random_notrig_max ) random_notrig(i)=1.1
               if ( ale_bl_trig(i) .lt. abs(cin(i))+1.e-10 ) then 
                  tau_trig(i)=tau_trig_shallow