--- trunk/libf/dyn3d/caldyn.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/caldyn.f	2008/07/21 16:05:07	12
@@ -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