--- trunk/libf/dyn3d/sortvarc.f90	2010/04/09 10:56:14	33
+++ trunk/libf/dyn3d/sortvarc.f90	2011/05/16 14:52:30	46
@@ -22,9 +22,10 @@
     use filtreg_m, only: filtreg
 
     ! Arguments:
-    INTEGER, INTENT (IN) :: itau
-    REAL :: ucov(ip1jmp1, llm), teta(ip1jmp1, llm), masse(ip1jmp1, llm)
-    REAL :: ps(ip1jmp1), phis(ip1jmp1)
+    INTEGER, INTENT(IN) :: itau
+    REAL :: ucov(ip1jmp1, llm), masse(ip1jmp1, llm)
+    real, intent(in):: teta(ip1jmp1, llm)
+    REAL, INTENT(IN):: ps(ip1jmp1), phis(ip1jmp1)
     REAL :: vorpot(ip1jm, llm)
     REAL :: phi(ip1jmp1, llm), bern(ip1jmp1, llm)
     REAL :: dp(ip1jmp1)