--- trunk/libf/dyn3d/caldyn.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/caldyn.f	2009/12/14 15:25:16	23
@@ -60,7 +60,6 @@
       REAL bern(ip1jmp1,llm)
       REAL massebxy(ip1jm,llm)
     
-
       INTEGER   ij,l
 
 c-----------------------------------------------------------------------
@@ -96,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 
@@ -117,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