--- trunk/libf/phylmd/yamada.f	2008/07/21 16:05:07	12
+++ trunk/libf/phylmd/yamada.f	2008/08/05 13:31:32	17
@@ -30,7 +30,8 @@
 c      (en sortie : la valeur a la fin du pas de temps)
 c
 c.......................................................................
-      REAL g,rconst
+      REAL, intent(in):: g
+      real rconst
       real plev(klon,klev+1),temp(klon,klev)
       real ustar(klon),snstable
       REAL zlev(klon,klev+1)