--- trunk/libf/phylmd/phytrac.f90	2011/07/01 15:00:48	47
+++ trunk/libf/phylmd/phytrac.f90	2012/04/20 14:58:43	61
@@ -76,7 +76,7 @@
     real, intent(in):: pplay(klon, llm)
     ! (pression pour le mileu de chaque couche, en Pa)
 
-    real pphis(klon)
+    real, intent(in):: pphis(klon)
     logical, intent(in):: firstcal ! first call to "calfis"
     logical, intent(in):: lafin ! fin de la physique
 
@@ -455,7 +455,7 @@
       ! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30
 
       use dimens_m, only: iim, jjm, llm
-      use histcom, only: histsync
+      use histsync_m, only: histsync
       use histwrite_m, only: histwrite
       use temps, only: itau_phy
       use iniadvtrac_m, only: tnom