--- trunk/libf/phylmd/Interface_surf/interfsurf_hq.f90	2011/12/06 15:07:04	54
+++ trunk/libf/phylmd/Interface_surf/interfsurf_hq.f90	2012/07/26 14:37:37	62
@@ -100,7 +100,7 @@
     integer, intent(IN) :: nisurf
     integer, intent(IN) :: knon
     integer, dimension(klon), intent(in) :: knindex
-    real, dimension(klon, nbsrf), intent(IN) :: pctsrf
+    real, intent(IN):: pctsrf(klon, nbsrf)
     logical, intent(IN) :: debut, lafin, ok_veget
     real, dimension(klon), intent(IN) :: rlon, rlat
     real, dimension(klon), intent(IN) :: cufi, cvfi