--- trunk/libf/phylmd/phystokenc.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/phystokenc.f	2008/03/31 12:24:17	7
@@ -38,7 +38,8 @@
 c
       real pdtphys ! pas d'integration pour la physique (seconde)
 c
-      integer physid, itap
+      integer physid
+      integer, intent(in):: itap
       save physid
       integer ndex2d(iim*(jjm+1)),ndex3d(iim*(jjm+1)*klev)