--- trunk/phylmd/ini_histins.f	2018/09/18 15:14:40	308
+++ trunk/phylmd/ini_histins.f	2018/09/27 14:58:10	309
@@ -141,10 +141,6 @@
             jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout)
 
        DO nsrf = 1, nbsrf
-          call histdef(nid_ins, "pourc_"//clnsurf(nsrf),  &
-               "% "//clnsurf(nsrf), "%",   &
-               iim, jjm + 1, nhori, 1, 1, 1, -99, &
-               "inst(X)", zsto, zout)
           call histdef(nid_ins, "fract_"//clnsurf(nsrf),  &
                "Fraction "//clnsurf(nsrf), "1",   &
                iim, jjm + 1, nhori, 1, 1, 1, -99, &