--- trunk/libf/dyn3d/init_dynzon.f90	2012/07/26 14:37:37	62
+++ trunk/dyn3d/init_dynzon.f90	2013/11/15 18:45:49	76
@@ -22,7 +22,7 @@
     USE histvert_m, ONLY: histvert
     USE calendar, ONLY: ymds2ju
     USE dimens_m, ONLY: jjm, llm
-    USE comvert, ONLY: presnivs
+    USE disvert_m, ONLY: presnivs
     USE comgeom, ONLY: rlatv
     USE temps, ONLY: annee_ref, day_ref, itau_dyn
     USE nr_util, ONLY: pi
@@ -73,8 +73,7 @@
 
     ! Appel à histvert pour la grille verticale
 
-    call histvert(fileid, 'presnivs', 'Niveaux sigma', 'mb', llm, presnivs, &
-         vertiid)
+    call histvert(fileid, 'presnivs', 'Niveaux sigma', 'mb', presnivs, vertiid)
 
     ! Appels à histdef pour la définition des variables à sauvegarder
     do iQ = 1, nQ