--- trunk/libf/phylmd/vdif_kcay.f	2008/07/21 16:05:07	12
+++ trunk/libf/phylmd/vdif_kcay.f	2008/08/05 13:31:32	17
@@ -32,7 +32,8 @@
 c 
 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),snstable
       REAL zlev(klon,klev+1)