--- trunk/phylmd/phytrac.f	2014/07/02 18:39:15	99
+++ trunk/phylmd/phytrac.f	2014/09/04 10:05:52	104
@@ -82,7 +82,7 @@
     REAL yv1(klon) ! vents au premier niveau
 
     ! Arguments n\'ecessaires pour les sources et puits de traceur :
-    real ftsol(klon, nbsrf) ! Temperature du sol (surf)(Kelvin)
+    real, intent(in):: ftsol(klon, nbsrf) ! Temperature du sol (surf)(Kelvin)
     real pctsrf(klon, nbsrf) ! Pourcentage de sol f(nature du sol)
 
     ! Lessivage pour le on-line