--- trunk/phylmd/cltracrn.f	2014/03/05 14:57:53	82
+++ trunk/Sources/phylmd/cltracrn.f	2015/04/29 15:47:56	134
@@ -50,7 +50,7 @@
     REAL u1lay(klon), v1lay(klon)
     REAL coef(klon, klev)
     REAL, intent(in):: t(klon, klev) ! temperature (K)
-    real ftsol(klon, nbsrf), pctsrf(klon, nbsrf) 
+    real, intent(in):: ftsol(klon, nbsrf), pctsrf(klon, nbsrf) 
     REAL tr(klon, klev), trs(klon)
     REAL, intent(in):: paprs(klon, klev+1)
     real, intent(in):: pplay(klon, klev)