--- trunk/libf/phylmd/nuage.f90	2011/09/20 09:14:34	51
+++ trunk/libf/phylmd/nuage.f90	2011/09/23 12:28:01	52
@@ -41,7 +41,7 @@
   !
   REAL, intent(in):: paprs(klon,klev+1)
   real, intent(in):: pplay(klon,klev)
-  REAL t(klon,klev)
+  REAL, intent(in):: t(klon,klev)
   !
   REAL pclc(klon,klev)
   REAL pqlwp(klon,klev)