--- trunk/libf/dyn3d/sortvarc0.f90	2012/08/29 14:47:17	64
+++ trunk/libf/dyn3d/sortvarc0.f90	2013/11/15 17:48:30	73
@@ -16,7 +16,8 @@
   !   Arguments:
 
   REAL, INTENT (IN) :: ucov(ip1jmp1, llm)
-  REAL :: teta(ip1jmp1, llm), masse(ip1jmp1, llm)
+  REAL, INTENT(IN):: teta(ip1jmp1, llm)
+  real masse(ip1jmp1, llm)
   REAL, INTENT (IN) :: ps(ip1jmp1)
   REAL, INTENT (IN) :: phis(ip1jmp1)
   REAL :: vorpot(ip1jm, llm)