--- trunk/libf/dyn3d/grid_change.f90	2010/04/06 17:52:58	32
+++ trunk/dyn3d/grid_change.f90	2013/11/15 18:45:49	76
@@ -32,7 +32,7 @@
 
     use dimphy, only: klon
 
-    REAL, intent(in):: pfi(:)
+    REAL, intent(in):: pfi(:) ! (klon)
     real gr_fi_dyn(iim + 1, jjm + 1)
 
     ! Variable local to the procedure: