--- trunk/Sources/phylmd/fisrtilp.f	2016/12/07 16:44:53	208
+++ trunk/Sources/phylmd/fisrtilp.f	2017/04/20 14:44:47	221
@@ -8,9 +8,8 @@
        d_ql, rneb, radliq, rain, snow, pfrac_impa, pfrac_nucl, pfrac_1nucl, &
        frac_impa, frac_nucl, prfl, psfl, rhcl)
 
-    ! From phylmd/fisrtilp.F, version 1.2 2004/11/09 16:55:40
+    ! From phylmd/fisrtilp.F, version 1.2, 2004/11/09 16:55:40
     ! First author: Z. X. Li (LMD/CNRS), 20 mars 1995
-    ! Other authors: Olivier, AA, IM, YM, MAF
 
     ! Objet : condensation et pr\'ecipitation stratiforme, sch\'ema de
     ! nuage, sch\'ema de condensation \`a grande \'echelle (pluie).
@@ -18,13 +17,11 @@
     USE comfisrtilp, ONLY: cld_lc_con, cld_lc_lsc, cld_tau_con, &
          cld_tau_lsc, coef_eva, ffallv_con, ffallv_lsc, iflag_pdf, reevap_ice
     USE dimphy, ONLY: klev, klon
-    USE fcttre, ONLY: dqsatl, dqsats, foede, foeew, qsatl, qsats
+    USE fcttre, ONLY: foede, foeew
     USE numer_rec_95, ONLY: nr_erf
     USE suphec_m, ONLY: rcpd, rd, retv, rg, rlstt, rlvtt, rtt
     USE yoethf_m, ONLY: r2es, r5ies, r5les, rvtmp2
 
-    ! Arguments:
-
     REAL, INTENT (IN):: dtime ! intervalle du temps (s) 
     REAL, INTENT (IN):: paprs(klon, klev+1) ! pression a inter-couche 
     REAL, INTENT (IN):: pplay(klon, klev) ! pression au milieu de couche
@@ -403,8 +400,8 @@
 
        ! Calcul du lessivage stratiforme
        DO i = 1, klon
-          zprec_cond(i) = max(zcond(i)-zoliq(i), 0.0)* &
-               (paprs(i, k)-paprs(i, k+1))/rg
+          zprec_cond(i) = max(zcond(i) - zoliq(i), 0.0) &
+               * (paprs(i, k)-paprs(i, k+1))/rg
           IF (rneb(i, k)>0.0 .AND. zprec_cond(i)>0.) THEN
              ! lessivage nucleation LMD5 dans la couche elle-meme
              IF (t(i, k)>=ztglace) THEN