--- trunk/dyn3d/inithist.f	2018/03/20 09:35:59	265
+++ trunk/dyn3d/inithist.f	2018/12/11 22:48:09	321
@@ -17,15 +17,15 @@
     use comconst, only: dtvr
     USE dimensions, ONLY: jjm, llm, nqmx
     USE disvert_m, ONLY: presnivs
-    use dynetat0_m, only: day_ref, annee_ref, rlatu, rlatv, rlonu, rlonv
+    use dynetat0_m, only: itau_dyn, rlatu, rlatv, rlonu, 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
     USE histvert_m, ONLY: histvert
-    USE iniadvtrac_m, ONLY: ttext
+    USE infotrac_init_m, ONLY: ttext
     USE nr_util, ONLY: pi
     USE paramet_m, ONLY: iip1, jjp1
-    USE temps, ONLY: itau_dyn
     use ymds2ju_m, ONLY: ymds2ju
 
     real, intent(in):: t_ops ! fréquence de l'opération pour IOIPSL
@@ -69,7 +69,7 @@
          thoriid, llm, 1, llm, zvertiid, 'inst(X)', t_ops, t_wrt)
     call histdef(histid, 'theta', 'temperature potentielle', 'K', iip1, jjp1, &
          thoriid, llm, 1, llm, zvertiid, 'inst(X)', t_ops, t_wrt)
-    call histdef(histid, 'phi', 'geopotentiel', '-', iip1, jjp1, thoriid, &
+    call histdef(histid, 'phi', 'geopotential', 'm2 s-2', iip1, jjp1, thoriid, &
          llm, 1, llm, zvertiid, 'inst(X)', t_ops, t_wrt)
 
     ! Traceurs