--- trunk/libf/phylmd/conema3.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/conema3.f	2008/07/21 16:05:07	12
@@ -62,7 +62,7 @@
       INTEGER ntra,ntrac !number of tracers; if no tracer transport
                          ! is needed, set ntra = 1 (or 0)
       PARAMETER (ntrac=nqmx-2)
-      REAL dtime
+      REAL, intent(in):: dtime
 c
       REAL d_t2(klon,klev), d_q2(klon,klev) ! sbl
       REAL d_u2(klon,klev), d_v2(klon,klev) ! sbl
@@ -70,7 +70,7 @@
       REAL em_d_u2(klev), em_d_v2(klev)     ! sbl   
 c 
       REAL, intent(in):: paprs(klon,klev+1)
-      real pplay(klon,klev)
+      real, intent(in):: pplay(klon,klev)
       REAL t(klon,klev), q(klon,klev), d_t(klon,klev), d_q(klon,klev)
       REAL u(klon,klev), v(klon,klev), tra(klon,klev,ntra)
       REAL d_u(klon,klev), d_v(klon,klev), d_tra(klon,klev,ntra)
@@ -249,10 +249,6 @@
 
 c -- appel schema de nuages:
 
-c       CALL CLOUDS_SUB_LS(klev,em_q,em_qs,em_t
-c    i          ,em_p,em_ph,dtime,em_qcondc
-c    o          ,em_cldf,em_cldq,em_pradj,em_ftadj,em_fradj,em_ifc)
-
         do k = 1, klev 
          cldf(i,k)  = em_cldf(k)  ! cloud fraction (0-1)
          cldq(i,k)  = em_cldq(k)  ! in-cloud water content (kg/kg)
@@ -356,7 +352,6 @@
             if (ktop(i)-kbas(i).gt.0.and.
      s         l.ge.kbas(i).and.l.le.ktop(i)) then
                qcond_incld(i,l)=rain(i)*8.e4
-c    s         *(pplay(i,l      )-paprs(i,ktop(i)+1))
      s         /(pplay(i,kbas(i))-pplay(i,ktop(i)))
 c    s         **2
             else