--- trunk/libf/phylmd/phystokenc.f90	2010/04/06 17:52:58	32
+++ trunk/libf/phylmd/phystokenc.f90	2012/04/20 14:58:43	61
@@ -13,7 +13,7 @@
     ! Objet: moniteur général des tendances traceurs                        
 
     USE histwrite_m, ONLY : histwrite
-    USE histcom, ONLY : histsync
+    USE histsync_m, ONLY : histsync
     USE dimens_m, ONLY : iim, jjm, nqmx
     USE indicesol, ONLY : nbsrf
     USE dimphy, ONLY : klev, klon
@@ -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