--- trunk/libf/phylmd/conema3.f	2008/04/18 14:45:53	10
+++ trunk/libf/phylmd/conema3.f	2008/08/05 13:31:32	17
@@ -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
@@ -72,7 +72,8 @@
       REAL, intent(in):: paprs(klon,klev+1)
       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 u(klon,klev), v(klon,klev)
+      real, intent(in):: tra(klon,klev,ntra)
       REAL d_u(klon,klev), d_v(klon,klev), d_tra(klon,klev,ntra)
       REAL work1(klon,klev), work2(klon,klev)
       REAL upwd(klon,klev), dnwd(klon,klev), dnwdbis(klon,klev)
@@ -249,10 +250,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)