--- trunk/libf/dyn3d/grad.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/grad.f	2011/12/12 13:25:01	55
@@ -16,7 +16,7 @@
       use paramet_m
       IMPLICIT NONE
 c
-      INTEGER klevel
+      INTEGER, intent(in):: klevel
       REAL  pg( ip1jmp1,klevel )
       REAL pgx( ip1jmp1,klevel ) , pgy( ip1jm,klevel )
       INTEGER  l,ij