--- trunk/libf/dyn3d/sortvarc.f90	2012/01/10 19:02:02	56
+++ trunk/libf/dyn3d/sortvarc.f90	2012/01/30 12:54:02	57
@@ -44,6 +44,8 @@
 
     !-----------------------------------------------------------------------
 
+    print *, "Call sequence information: sortvarc"
+
     time = real(itau) / day_step + time_0
     dtvrs1j = dtvr/daysec
     rjour = real(int(itau*dtvrs1j))