--- trunk/libf/bibio/inithist.f90	2012/04/20 14:58:43	61
+++ trunk/Sources/dyn3d/inithist.f	2015/06/10 16:46:46	144
@@ -4,7 +4,7 @@
 
 contains
 
-  subroutine inithist(day0, anne0, tstep, nq, t_ops, t_wrt)
+  subroutine inithist(tstep, nq, t_ops, t_wrt)
 
     ! From inithist.F, version 1.1.1.1 2004/05/19 12:53:05
     ! L. Fairhead, LMD, 03/99
@@ -12,21 +12,20 @@
     ! Routine d'initialisation des écritures des fichiers histoires
     ! LMDZ au format IOIPSL.
 
-    USE calendar, ONLY: ymds2ju
     USE com_io_dyn, ONLY: histid, histuid, histvid
+    USE dimens_m, ONLY: jjm, llm
+    USE disvert_m, ONLY: presnivs
+    use dynetat0_m, only: day_ref, annee_ref, rlatu, rlatv, rlonu, rlonv
     USE histbeg_totreg_m, ONLY : histbeg_totreg
     USE histdef_m, ONLY : histdef
     USE histend_m, ONLY : histend
     USE histvert_m, ONLY : histvert
-    USE dimens_m, ONLY: jjm, llm
-    USE paramet_m, ONLY: iip1, jjp1
-    USE comvert, ONLY: presnivs
-    USE comgeom, ONLY: rlatu, rlatv, rlonu, rlonv
-    USE temps, ONLY: itau_dyn
     USE iniadvtrac_m, ONLY: ttext
     USE nr_util, ONLY: pi
+    USE paramet_m, ONLY: iip1, jjp1
+    USE temps, ONLY: itau_dyn
+    USE ymds2ju_m, ONLY: ymds2ju
 
-    integer, intent(in):: day0, anne0 ! date de référence
     real, intent(in):: tstep ! durée du pas de temps en secondes
     integer, intent(in):: nq ! nombre de traceurs
     real, intent(in):: t_ops ! fréquence de l'opération pour IOIPSL
@@ -38,13 +37,10 @@
     real rlong(iip1, jjp1), rlat(iip1, jjp1)
     integer uhoriid, vhoriid, thoriid, zvertiid
     integer ii, jj
-    integer zan, dayref
 
     !-----------------------------------------------------------------------
 
-    zan = anne0
-    dayref = day0
-    CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
+    CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
 
     do jj = 1, jjp1
        do ii = 1, iip1
@@ -82,11 +78,11 @@
 
     ! Appel a histvert pour la grille verticale
 
-    call histvert(histid, 'presnivs', 'Niveaux pression','mb', llm, &
-         presnivs/100., zvertiid,'down')
-    call histvert(histvid, 'presnivs', 'Niveaux pression','mb', llm, &
+    call histvert(histid, 'presnivs', 'Niveaux pression','mb', presnivs/100., &
+         zvertiid,'down')
+    call histvert(histvid, 'presnivs', 'Niveaux pression','mb', &
          presnivs/100., zvertiid,'down')
-    call histvert(histuid, 'presnivs', 'Niveaux pression','mb', llm, &
+    call histvert(histuid, 'presnivs', 'Niveaux pression','mb', &
          presnivs/100., zvertiid,'down')
 
     ! Appels a histdef pour la definition des variables a sauvegarder