--- trunk/dyn3d/advtrac.f	2014/03/05 14:57:53	82
+++ trunk/dyn3d/advtrac.f	2014/09/04 10:05:52	104
@@ -13,6 +13,7 @@
     USE conf_gcm_m, ONLY : iapp_tracvl
     USE dimens_m, ONLY : iim, jjm, llm, nqmx
     USE iniadvtrac_m, ONLY : iadv
+    use massbar_m, only: massbar
     USE paramet_m, ONLY : iip1, iip2, ijmllm, ijp1llm, ip1jm, ip1jmp1, jjp1, &
          llmp1
 
@@ -31,7 +32,6 @@
     REAL, save:: massem(ip1jmp1, llm)
     real zdp(ip1jmp1)
     REAL pbarug(ip1jmp1, llm), pbarvg(ip1jm, llm), wg(ip1jmp1, llm)
-    REAL cpuadv(nqmx)
 
     INTEGER:: iadvtr = 0
     INTEGER ij, l, iq
@@ -123,7 +123,7 @@
              ! Schema de Frederic Hourdin
           ELSE IF (iadv(iq)==12) THEN
              ! Pas de temps adaptatif
-             CALL adaptdt(iadv(iq), dtbon, n, pbarug, massem)
+             CALL adaptdt(dtbon, n, pbarug, massem)
              IF (n>1) THEN
                 WRITE (*, *) 'WARNING horizontal dt=', dtbon, 'dtvr=', dtvr, &
                      'n=', n
@@ -133,7 +133,7 @@
              END DO
           ELSE IF (iadv(iq)==13) THEN
              ! Pas de temps adaptatif
-             CALL adaptdt(iadv(iq), dtbon, n, pbarug, massem)
+             CALL adaptdt(dtbon, n, pbarug, massem)
              IF (n>1) THEN
                 WRITE (*, *) 'WARNING horizontal dt=', dtbon, 'dtvr=', dtvr, &
                      'n=', n
@@ -147,7 +147,7 @@
              ! Schema de Prather
           ELSE IF (iadv(iq)==30) THEN
              ! Pas de temps adaptatif
-             CALL adaptdt(iadv(iq), dtbon, n, pbarug, massem)
+             CALL adaptdt(dtbon, n, pbarug, massem)
              IF (n>1) THEN
                 WRITE (*, *) 'WARNING horizontal dt=', dtbon, 'dtvr=', dtvr, &
                      'n=', n
@@ -157,7 +157,7 @@
           ELSE IF (iadv(iq)==11 .OR. (iadv(iq)>=16 .AND. iadv(iq)<=18)) THEN
              ! Test sur le flux horizontal
              ! Pas de temps adaptatif
-             CALL adaptdt(iadv(iq), dtbon, n, pbarug, massem)
+             CALL adaptdt(dtbon, n, pbarug, massem)
              IF (n>1) THEN
                 WRITE (*, *) 'WARNING horizontal dt=', dtbon, 'dtvr=', dtvr, &
                      'n=', n