--- trunk/libf/phylmd/conema3.f	2008/06/05 12:43:08	11
+++ 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
@@ -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)