Index: LMDZ6/trunk/libf/phylmd/physiq_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 6098)
+++ LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 6099)
@@ -306,5 +306,5 @@
          cldh, cldl,cldm, cldq, cldt,      &
          JrNt,                             &
-         dthmin, evap, snowerosion, icesub_ice, icemelt_ice, fder, plcl, plfc,   &
+         evap, snowerosion, icesub_ice, icemelt_ice, fder, plcl, plfc,   &
 
          prw, prlw, prsw, prbsw, water_budget,         &
@@ -312,5 +312,5 @@
          cdragm, cdragh,                   &
          zustar, zu10m, zv10m, rh2m, qsat2m, &
-         zq2m, zt2m, zn2mout, weak_inversion, &
+         zq2m, zt2m, zn2mout, &
                                 !
          s_pblh_x, s_pblh_w, &
@@ -547,9 +547,4 @@
     PARAMETER (ok_region=.FALSE.)
     !======================================================================
-    REAL seuil_inversion
-    SAVE seuil_inversion
-    !$OMP THREADPRIVATE(seuil_inversion)
-
-
 
     real facteur
@@ -1221,5 +1216,5 @@
     !======================================================================!
     if (debut) then                                                        !
-       print*,'DEBUT PHYSIQ_MOD TRAVAIL DEBUT 1'
+       print*,'DEBUT PHYSIQ_MOD TRAVAIL DEBUT 2'
        iflag_physiq=0
        call getin_p('iflag_physiq', iflag_physiq)                          !
@@ -1309,5 +1304,5 @@
             ok_LES, &
             callstats, &
-            solarlong0,seuil_inversion, &
+            solarlong0, &
             fact_cldcon,facttemps,ok_newmicro,iflag_radia, &
             iflag_cld_th, &
@@ -3568,7 +3563,4 @@
     !===================================================================
     !
-    CALL stratocu_if(klon,klev,pctsrf,paprs, pplay,t_seri &
-         ,seuil_inversion,weak_inversion,dthmin)
-
 
 
@@ -3677,5 +3669,5 @@
           !>jyg
           CALL calltherm(itap, pdtphys &
-               ,pplay,paprs,pphi,weak_inversion &
+               ,pplay,paprs,pphi &
                                 ! ,u_seri,v_seri,t_seri,q_seri,zqsat,debut & !jyg
                ,u_therm,v_therm,t_therm,q_therm,t_env,q_env,zqsat,debut &  !jyg