--- trunk/libf/dyn3d/sortvarc.f90	2012/01/30 12:54:02	57
+++ trunk/libf/dyn3d/sortvarc.f90	2012/11/14 16:59:30	68
@@ -27,7 +27,8 @@
     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, intent(in):: phi(ip1jmp1, llm)
+    real bern(ip1jmp1, llm)
     REAL :: dp(ip1jmp1)
     REAL, INTENT (IN):: time_0
     REAL, INTENT (IN):: pk(ip1jmp1, llm)
@@ -60,7 +61,7 @@
     rmsdpdt = ssum(ip1jmp1, ge, 1) - ssum(jjp1, ge, iip1)
     rmsdpdt = daysec*1.E-2*sqrt(rmsdpdt/imjmp1)
     CALL scopy(ijp1llm, bern, 1, bernf, 1)
-    CALL filtreg(bernf, jjp1, llm, -2, 2, .TRUE., 1)
+    CALL filtreg(bernf, jjp1, llm, -2, 2, .TRUE.)
 
     ! Calcul du moment  angulaire
     radsg = rad/g