--- trunk/libf/dyn3d/caldyn.f	2008/04/18 14:45:53	10
+++ trunk/libf/dyn3d/caldyn.f	2009/12/14 15:25:16	23
@@ -95,7 +95,8 @@
       ENDDO
 
 
-      CALL advect( ang, vcov, teta, w, massebx, masseby, du, dv,dteta ) 
+      CALL advect( ang, vcov, teta, w, massebx, masseby, du, dv,dteta,
+     $     conser ) 
 
 C  WARNING probleme de peridocite de dv sur les PC/linux. Pb d'arrondi 
 C          probablement. Observe sur le code compile avec pgf90 3.0-1 
@@ -116,7 +117,7 @@
 
       IF( conser )  THEN
         CALL sortvarc
-     $ ( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time,vcov )
+     $ ( itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time)
 
       ENDIF