--- trunk/dyn3d/inithist.f	2018/12/10 15:54:30	313
+++ trunk/dyn3d/inithist.f90	2019/09/12 21:22:46	335
@@ -23,7 +23,7 @@
     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 ymds2ju_m, ONLY: ymds2ju
@@ -32,7 +32,7 @@
     real, intent(in):: t_wrt ! fréquence d'écriture sur le fichier
 
     ! Local:
-    real julian
+    double precision julian
     integer iq
     integer uhoriid, vhoriid, thoriid, zvertiid