--- trunk/libf/phylmd/yamada4.f	2008/08/01 15:37:00	16
+++ trunk/libf/phylmd/yamada4.f	2008/08/05 13:31:32	17
@@ -39,7 +39,8 @@
 
 c.......................................................................
       REAL, intent(in):: dt
-      real g,rconst
+      real, intent(in):: g
+      real rconst
       real plev(klon,klev+1),temp(klon,klev)
       real ustar(klon)
       real kmin,qmin,pblhmin(klon),coriol(klon)