--- trunk/libf/phylmd/clmain.f	2008/03/04 14:00:42	6
+++ trunk/libf/phylmd/clmain.f	2008/03/31 12:24:17	7
@@ -118,7 +118,7 @@
 c
       REAL dtime
       real date0
-      integer itap
+      integer, intent(in):: itap
       REAL t(klon,klev), q(klon,klev)
       REAL u(klon,klev), v(klon,klev)
 cIM 230604 BAD  REAL radsol(klon) ???