--- trunk/phylmd/Interface_surf/pbl_surface.f	2019/02/06 15:58:03	324
+++ trunk/phylmd/Interface_surf/pbl_surface.f	2019/06/10 00:29:10	326
@@ -39,7 +39,7 @@
     USE suphec_m, ONLY: rd, rg, rsigma
     use time_phylmdz, only: itap
 
-    REAL, INTENT(inout):: pctsrf(klon, nbsrf)
+    REAL, INTENT(inout):: pctsrf(:, :) ! (klon, nbsrf)
     ! pourcentages de surface de chaque maille
 
     REAL, INTENT(IN):: t(klon, klev) ! temperature (K)