--- trunk/libf/dyn3d/sortvarc.f90	2010/04/09 10:56:14	33
+++ trunk/libf/dyn3d/sortvarc.f90	2012/01/30 12:54:02	57
@@ -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)
@@ -43,6 +44,8 @@
 
     !-----------------------------------------------------------------------
 
+    print *, "Call sequence information: sortvarc"
+
     time = real(itau) / day_step + time_0
     dtvrs1j = dtvr/daysec
     rjour = real(int(itau*dtvrs1j))