--- trunk/libf/dyn3d/caldyn.f	2008/07/21 16:05:07	12
+++ trunk/libf/dyn3d/caldyn.f	2009/12/14 15:25:16	23
@@ -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