--- trunk/phylmd/phytrac.f	2014/05/13 17:23:16	98
+++ 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
@@ -103,7 +103,7 @@
     REAL prfl(klon, llm+1), psfl(klon, llm+1) !--lessivage large-scale
 
     ! Kerry Emanuel
-    real da(klon, llm), phi(klon, llm, llm), mp(klon, llm)
+    real, intent(in):: da(klon, llm), phi(klon, llm, llm), mp(klon, llm)
     REAL, intent(in):: upwd(klon, llm) ! saturated updraft mass flux
     REAL, intent(in):: dnwd(klon, llm) ! saturated downdraft mass flux