--- trunk/dyn3d/wrgrads.f	2014/09/04 10:05:52	104
+++ trunk/dyn3d/wrgrads.f	2014/09/04 10:40:24	105
@@ -18,8 +18,8 @@
   INTEGER, INTENT(IN):: i_f
   integer nl
   REAL, INTENT(IN):: field(imx*jmx*lmx)
-  CHARACTER *10 name, file
-  CHARACTER *10 titlevar
+  CHARACTER(len=10) name, file
+  CHARACTER(len=10) titlevar
 
   ! local