--- trunk/phylmd/ini_histins.f	2018/09/11 12:23:47	306
+++ trunk/phylmd/ini_histins.f	2018/12/10 15:54:30	313
@@ -15,7 +15,8 @@
     use comconst, only: dtphys
     use dimensions, only: iim, jjm, llm, nqmx
     use disvert_m, only: presnivs
-    use dynetat0_m, only: day_ref, annee_ref, rlatu, rlonv
+    use dynetat0_m, only: rlatu, rlonv
+    use dynetat0_chosen_m, only: day_ref, annee_ref
     USE histbeg_totreg_m, ONLY : histbeg_totreg
     USE histdef_m, ONLY : histdef
     USE histend_m, ONLY : histend
@@ -104,9 +105,8 @@
        CALL histdef(nid_ins, "sols", "Solar rad. at surf.", "W/m2", &
             iim, jjm + 1, nhori, 1, 1, 1, -99,  &
             "inst(X)", zsto, zout)
-       CALL histdef(nid_ins, "soll", "IR rad. at surface", "W/m2", &
-            iim, jjm + 1, nhori, 1, 1, 1, -99,  &
-            "inst(X)", zsto, zout)
+       CALL histdef(nid_ins, "rls", "surface net downward longwave flux", &
+            "W/m2", iim, jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout)
        CALL histdef(nid_ins, "solldown", "Down. IR rad. at surface",  &
             "W/m2", iim, jjm + 1, nhori, 1, 1, 1, -99,  &
             "inst(X)", zsto, zout)
@@ -142,10 +142,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, &