--- trunk/libf/bibio/initfluxsto.f90	2012/01/30 12:54:02	57
+++ trunk/bibio/initfluxsto.f90	2013/11/15 18:45:49	76
@@ -24,11 +24,16 @@
   !   L. Fairhead, 03/99                                             
 
   USE calendar
-  USE histcom
+  USE histbeg_totreg_m, ONLY : histbeg_totreg
+  USE histdef_m, ONLY : histdef
+  USE histend_m, ONLY : histend
+  use histhori_regular_m, only: histhori_regular
+  use histsync_m, only: histsync
+  USE histvert_m, ONLY : histvert
   USE dimens_m
   USE paramet_m
   USE comconst
-  USE comvert
+  USE disvert_m
   use conf_gcm_m
   USE comgeom
   USE serre
@@ -111,14 +116,14 @@
 
   !  Appel a histvert pour la grille verticale                            
 
-  CALL histvert(fileid, 'sig_s', 'Niveaux sigma', 'sigma_level', llm, &
-       nivsigs, zvertiid)
+  CALL histvert(fileid, 'sig_s', 'Niveaux sigma', 'sigma_level', nivsigs, &
+       zvertiid)
   ! Pour le fichier V                                                     
-  CALL histvert(filevid, 'sig_s', 'Niveaux sigma', 'sigma_level', llm, &
-       nivsigs, zvertiid)
+  CALL histvert(filevid, 'sig_s', 'Niveaux sigma', 'sigma_level', nivsigs, &
+       zvertiid)
   ! pour le fichier def                                                   
   nivd(1) = 1
-  CALL histvert(filedid, 'sig_s', 'Niveaux sigma', 'sigma_level', 1, nivd, &
+  CALL histvert(filedid, 'sig_s', 'Niveaux sigma', 'sigma_level', nivd, &
        dvertiid)
 
   !  Appels a histdef pour la definition des variables a sauvegarder