--- trunk/libf/phylmd/phystokenc.f	2008/08/01 15:24:12	15
+++ trunk/libf/phylmd/phystokenc.f	2010/04/01 09:07:28	30
@@ -10,7 +10,8 @@
      I                   pcoefh,yu1,yv1,ftsol,pctsrf,
      I                   frac_impa,frac_nucl,
      I                   pphis,paire,dtime,itap)
-      USE ioipsl
+      USE histwrite_m
+      use histcom
       use dimens_m
       use indicesol
       use dimphy