Index: LMDZ.3.3/trunk/libf/dyn3d/sortvarc0.F
===================================================================
--- LMDZ.3.3/trunk/libf/dyn3d/sortvarc0.F	(revision 5)
+++ LMDZ.3.3/trunk/libf/dyn3d/sortvarc0.F	(revision 6)
@@ -1,4 +1,5 @@
       SUBROUTINE sortvarc0
-     $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time )
+     $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time ,
+     $ vcov)
       IMPLICIT NONE
 
@@ -32,4 +33,5 @@
       INTEGER itau
       REAL ucov(ip1jmp1,llm),teta(ip1jmp1,llm),masse(ip1jmp1,llm)
+      REAL vcov(ip1jm,llm)
       REAL ps(ip1jmp1),phis(ip1jmp1)
       REAL vorpot(ip1jm,llm)