Index: /LMDZ5/trunk/libf/phylmd/calcratqs.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/calcratqs.F90	(revision 2533)
+++ /LMDZ5/trunk/libf/phylmd/calcratqs.F90	(revision 2534)
@@ -1,5 +1,6 @@
 SUBROUTINE calcratqs(klon,klev,prt_level,lunout,       &
            iflag_ratqs,iflag_con,iflag_cld_th,pdtphys, &
-           ratqsbas,ratqshaut,tau_ratqs,fact_cldcon,   &
+           ratqsbas,ratqshaut,ratqsp0,ratqsdp, &
+           tau_ratqs,fact_cldcon,   &
            ptconv,ptconvth,clwcon0th, rnebcon0th,      &
            paprs,pplay,q_seri,zqsat,fm_therm,          &
@@ -21,4 +22,5 @@
 integer,intent(in) :: iflag_con,iflag_cld_th,iflag_ratqs
 real,intent(in) :: pdtphys,ratqsbas,ratqshaut,fact_cldcon,tau_ratqs
+real,intent(in) :: ratqsp0, ratqsdp
 real, dimension(klon,klev+1),intent(in) :: paprs
 real, dimension(klon,klev),intent(in) :: pplay,q_seri,zqsat,fm_therm
@@ -125,5 +127,6 @@
          do k=1,klev
            ratqss(:,k)=ratqsbas+0.5*(ratqshaut-ratqsbas) &
-           *( tanh( (50000.-pplay(:,k))/20000.) + 1.)
+!          *( tanh( (50000.-pplay(:,k))/20000.) + 1.)
+           *( tanh( (ratqsp0-pplay(:,k))/ratqsdp) + 1.)
          enddo
 
Index: /LMDZ5/trunk/libf/phylmd/physiq_mod.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/physiq_mod.F90	(revision 2533)
+++ /LMDZ5/trunk/libf/phylmd/physiq_mod.F90	(revision 2534)
@@ -679,4 +679,6 @@
     save ratqsbas,ratqshaut,tau_ratqs
     !$OMP THREADPRIVATE(ratqsbas,ratqshaut,tau_ratqs)
+    REAL, SAVE :: ratqsp0=50000., ratqsdp=20000.
+    !$OMP THREADPRIVATE(ratqsp0, ratqsdp)
 
     ! Parametres lies au nouveau schema de nuages (SB, PDF)
@@ -1051,4 +1053,6 @@
        CALL getin_p('random_notrig_max',random_notrig_max)
        CALL getin_p('ok_adjwk',ok_adjwk)
+       CALL getin_p('ratqsp0',ratqsp0)
+       CALL getin_p('ratqsdp',ratqsdp)
     ENDIF
 
@@ -2851,5 +2855,6 @@
     CALL  calcratqs(klon,klev,prt_level,lunout,        &
          iflag_ratqs,iflag_con,iflag_cld_th,pdtphys,  &
-         ratqsbas,ratqshaut,tau_ratqs,fact_cldcon,   &
+         ratqsbas,ratqshaut,ratqsp0, ratqsdp, &
+         tau_ratqs,fact_cldcon,   &
          ptconv,ptconvth,clwcon0th, rnebcon0th,     &
          paprs,pplay,q_seri,zqsat,fm_therm, &