Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/concvl.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/phylmd/concvl.F	(revision 1127)
+++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/concvl.F	(revision 1128)
@@ -5,5 +5,5 @@
       SUBROUTINE concvl (iflag_con,iflag_clos,
      .             dtime,paprs,pplay,
-     .             t,q,t_wake,q_wake,u,v,tra,ntra,
+     .             t,q,t_wake,q_wake,s_wake,u,v,tra,ntra,
      .             ALE,ALP,work1,work2,
      .             d_t,d_q,d_u,d_v,d_tra,
@@ -25,5 +25,4 @@
 c
       USE dimphy
-      USE infotrac, ONLY : nbtr
       IMPLICIT none
 c======================================================================
@@ -68,4 +67,8 @@
 c
 #include "dimensions.h"
+cccccc#include "dimphy.h"
+c
+      integer NTRAC
+      PARAMETER (NTRAC=nqmx-2)
 c
        INTEGER iflag_con,iflag_clos
@@ -74,5 +77,6 @@
        REAL t(klon,klev),q(klon,klev),u(klon,klev),v(klon,klev)
        REAL t_wake(klon,klev),q_wake(klon,klev)
-       REAL tra(klon,klev,nbtr)
+       Real s_wake(klon)
+       REAL tra(klon,klev,ntrac)
        INTEGER ntra
        REAL work1(klon,klev),work2(klon,klev),ptop2(klon)
@@ -82,5 +86,5 @@
        REAL d_t(klon,klev),d_q(klon,klev),d_u(klon,klev),d_v(klon,klev)
        REAL dd_t(klon,klev),dd_q(klon,klev)
-       REAL d_tra(klon,klev,nbtr)
+       REAL d_tra(klon,klev,ntrac)
        REAL rain(klon),snow(klon)
 c
@@ -346,5 +350,5 @@
       CALL cva_driver(klon,klev,klev+1,ntra,nloc,
      $              iflag_con,iflag_mix,iflag_clos,dtime,
-     :              t,q,qs,t_wake,q_wake,qs_wake,u,v,tra,
+     :              t,q,qs,t_wake,q_wake,qs_wake,s_wake,u,v,tra,
      $              em_p,em_ph,
      .              ALE,ALP,