--- trunk/libf/dyn3d/wrgrads.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/wrgrads.f	2010/03/30 10:44:42	29
@@ -15,7 +15,7 @@
 
 c   arguments
       integer if,nl
-      real field(imx*jmx*lmx)
+      real, intent(in):: field(imx*jmx*lmx)
       character*10 name,file
       character*10 titlevar