--- trunk/libf/phylmd/phystokenc.f90	2011/08/24 13:33:28	50
+++ trunk/libf/phylmd/phystokenc.f90	2011/09/20 09:14:34	51
@@ -36,7 +36,7 @@
     REAL pde_u(klon, klev) ! flux detraine dans le panache montant
     REAL pen_d(klon, klev) ! flux entraine dans le panache descendant
     REAL pde_d(klon, klev) ! flux detraine dans le panache descendant
-    REAL pt(klon, klev)
+    REAL, intent(in):: pt(klon, klev)
 
     REAL, INTENT (IN) :: rlon(klon), rlat(klon)
     REAL, INTENT (IN) :: dtime
@@ -48,7 +48,8 @@
     !   Couche limite:                                                      
 
     REAL yv1(klon)
-    REAL yu1(klon), pphis(klon), paire(klon)
+    REAL yu1(klon), paire(klon)
+    REAL, INTENT(IN):: pphis(klon)
     REAL pcoefh(klon, klev) ! coeff melange Couche limite
 
     ! Arguments necessaires pour les sources et puits de traceur