--- trunk/libf/bibio/inithist.f90	2012/04/20 14:58:43	61
+++ trunk/bibio/inithist.f90	2013/11/15 18:45:49	76
@@ -20,7 +20,7 @@
     USE histvert_m, ONLY : histvert
     USE dimens_m, ONLY: jjm, llm
     USE paramet_m, ONLY: iip1, jjp1
-    USE comvert, ONLY: presnivs
+    USE disvert_m, ONLY: presnivs
     USE comgeom, ONLY: rlatu, rlatv, rlonu, rlonv
     USE temps, ONLY: itau_dyn
     USE iniadvtrac_m, ONLY: ttext
@@ -82,11 +82,11 @@
 
     ! Appel a histvert pour la grille verticale
 
-    call histvert(histid, '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(histvid, 'presnivs', 'Niveaux pression','mb', llm, &
-         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