--- trunk/libf/phylmd/phytrac.f90	2011/07/01 15:00:48	47
+++ trunk/libf/phylmd/phytrac.f90	2011/09/20 09:14:34	51
@@ -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