Index: LMDZ5/trunk/libf/dyn3d/inigrads.F
===================================================================
--- LMDZ5/trunk/libf/dyn3d/inigrads.F	(revision 1825)
+++ LMDZ5/trunk/libf/dyn3d/inigrads.F	(revision 1885)
@@ -13,5 +13,6 @@
       real xmin,xmax,ymin,ymax
 
-      character file*10,titlel*40
+      character(len=*),intent(in) :: file
+      character(len=*),intent(in) :: titlel
 
 #include "gradsdef.h"