--- trunk/libf/dyn3d/grid_change.f90	2010/04/06 17:52:58	32
+++ trunk/libf/dyn3d/grid_change.f90	2011/07/01 15:00:48	47
@@ -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: