--- trunk/libf/phylmd/fisrtilp.f	2008/04/18 14:45:53	10
+++ trunk/libf/phylmd/fisrtilp.f	2008/07/21 16:05:07	12
@@ -27,7 +27,7 @@
 c
 c Arguments:
 c
-      REAL dtime ! intervalle du temps (s)
+      REAL, intent(in):: dtime ! intervalle du temps (s)
       REAL, intent(in):: paprs(klon,klev+1) ! pression a inter-couche
       REAL, intent(in):: pplay(klon,klev) ! pression au milieu de couche
       REAL t(klon,klev) ! temperature (K)