--- trunk/Sources/phylmd/histwrite_phy.f	2016/05/09 19:56:28	191
+++ trunk/Sources/phylmd/histwrite_phy.f	2017/01/12 12:31:31	212
@@ -8,14 +8,12 @@
 
   implicit none
 
-  INTEGER:: itap = 0 ! number of calls to "physiq"
-
   INTERFACE histwrite_phy
      MODULE PROCEDURE histwrite2d_phy, histwrite3d_phy
   end INTERFACE histwrite_phy
 
   private
-  public itap, histwrite_phy
+  public histwrite_phy
 
 contains