--- trunk/libf/dyn3d/advx.f	2008/02/27 13:16:39	3
+++ trunk/dyn3d/advx.f	2013/11/15 18:45:49	76
@@ -6,7 +6,7 @@
       use dimens_m
       use paramet_m
       use comconst
-      use comvert
+      use disvert_m
       IMPLICIT NONE
 
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
@@ -39,7 +39,7 @@
 C           possible dans l'avenir.
 
       REAL dtx
-      REAL pbaru ( iip1,jjp1,llm )
+      REAL, intent(in):: pbaru ( iip1,jjp1,llm )
 
 C  moments: SM  total mass in each grid box
 C           S0  mass of tracer in each grid box
@@ -448,24 +448,6 @@
 C
  1    CONTINUE
 C
-C ----------- AA Test en fin de ADVX ------ Controle des S*
-c OK
-c      DO 9998 l = 1, llm
-c      DO 9998 j = 1, jjp1
-c      DO 9998 i = 1, iip1
-c         IF (S0(i,j,l,ntra).lt.0..and.LIMIT) THEN 
-c            PRINT*, '-------------------'
-c            PRINT*, 'En fin de ADVX'
-c            PRINT*,'SM(',i,j,l,')=',SM(i,j,l)
-c            PRINT*,'S0(',i,j,l,')=',S0(i,j,l,ntra)
-c            print*, 'sx(',i,j,l,')=',sx(i,j,l,ntra)
-c            print*, 'sy(',i,j,l,')=',sy(i,j,l,ntra)
-c            print*, 'sz(',i,j,l,')=',sz(i,j,l,ntra)
-c            WRITE (*,*) 'On arrete !! - pbl en fin de ADVX1'
-cc            STOP
-c         ENDIF
-c 9998 CONTINUE
-c
 C ---------- bouclage cyclique 
       DO itrac=1,ntra
       DO l = 1,llm