--- trunk/phylmd/ini_histins.f	2014/03/05 14:57:53	82
+++ trunk/Sources/phylmd/ini_histins.f	2015/07/08 17:03:45	155
@@ -8,18 +8,19 @@
 
     ! From phylmd/ini_histins.h, v 1.2 2005/05/25 13:10:09
 
+    use clesphys, only: ecrit_ins
     use dimens_m, only: iim, jjm, llm
     use dimphy, only: klon
-    use temps, only: itau_phy, day_ref, annee_ref
-    use clesphys, only: ecrit_ins
-    use indicesol, only: nbsrf, clnsurf
-    USE calendar, only: ymds2ju
+    use disvert_m, only: presnivs
+    use dynetat0_m, only: day_ref, annee_ref
     USE histbeg_totreg_m, ONLY : histbeg_totreg
     USE histdef_m, ONLY : histdef
     USE histend_m, ONLY : histend
     USE histvert_m, ONLY : histvert
+    use indicesol, only: nbsrf, clnsurf
     use phyetat0_m, only: rlon, rlat
-    use disvert_m, only: presnivs
+    use temps, only: itau_phy
+    USE ymds2ju_m, only: ymds2ju
 
     REAL, intent(in):: dtime ! pas temporel de la physique (s)
     logical, intent(in):: ok_instan
@@ -27,7 +28,7 @@
 
     REAL zx_lon(iim, jjm + 1), zx_lat(iim, jjm + 1)
     real zjulian, zsto, zout
-    integer i, nhori, nvert, idayref, nsrf
+    integer i, nhori, nvert, nsrf
 
     !-------------------------------------------------------------------
 
@@ -36,8 +37,7 @@
        zsto = dtime * ecrit_ins
        zout = dtime * ecrit_ins
 
-       idayref = day_ref
-       CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+       CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
 
        CALL gr_fi_ecrit(1, klon, iim, (jjm + 1), rlon, zx_lon)
        DO i = 1, iim
@@ -217,12 +217,7 @@
        CALL histdef(nid_ins, "albs", "Surface albedo", "-", &
             iim, (jjm + 1), nhori, 1, 1, 1, -99,  &
             "inst(X)", zsto, zout)
-       CALL histdef(nid_ins, "albslw", "Surface albedo LW", "-", &
-            iim, (jjm + 1), nhori, 1, 1, 1, -99,  &
-            "inst(X)", zsto, zout)
 
-       !IM cf. AM 081204 BEG
-       ! HBTM2
        CALL histdef(nid_ins, "s_pblh", "Boundary Layer Height", "m", &
             iim, (jjm + 1), nhori, 1, 1, 1, -99, &
             "inst(X)", zsto, zout)