--- trunk/libf/phylmd/phystokenc.f	2008/03/31 12:24:17	7
+++ trunk/libf/phylmd/phystokenc.f	2008/07/21 16:05:07	12
@@ -11,8 +11,6 @@
      I                   frac_impa,frac_nucl,
      I                   pphis,paire,dtime,itap)
       USE ioipsl
-      USE histcom
-
       use dimens_m
       use indicesol
       use dimphy
@@ -36,7 +34,7 @@
 c   divers:
 c   -------
 c
-      real pdtphys ! pas d'integration pour la physique (seconde)
+      real, intent(in):: pdtphys ! pas d'integration pour la physique (seconde)
 c
       integer physid
       integer, intent(in):: itap
@@ -55,7 +53,7 @@
 	real pt(klon,klev),t(klon,klev)
 c
       REAL, intent(in):: rlon(klon), rlat(klon)
-      real dtime
+      real, intent(in):: dtime
       REAL zx_tmp_3d(iim,jjm+1,klev),zx_tmp_2d(iim,jjm+1)
 
 c   Couche limite: