--- trunk/libf/bibio/initfluxsto.f90	2012/04/20 14:58:43	61
+++ trunk/bibio/initfluxsto.f	2014/03/26 18:16:05	92
@@ -23,23 +23,23 @@
 
   !   L. Fairhead, 03/99                                             
 
-  USE calendar
+  USE comconst
+  USE comgeom
+  use conf_gcm_m
+  USE dimens_m
+  USE disvert_m
+  USE ener
   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 nr_util, ONLY : pi
   USE paramet_m
-  USE comconst
-  USE comvert
-  use conf_gcm_m
-  USE comgeom
   USE serre
   USE temps, ONLY : annee_ref, day_ref, itau_dyn
-  USE ener
-  USE nr_util, ONLY : pi
+  use ymds2ju_m, only: ymds2ju
 
   IMPLICIT NONE
 
@@ -58,7 +58,7 @@
   INTEGER iq
   REAL rlong(iip1, jjp1), rlat(iip1, jjp1)
   INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid
-  INTEGER ii, jj
+  INTEGER ii, jj, l
   INTEGER zan, idayref
   LOGICAL ok_sync
 
@@ -116,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', &
+       (/(real(l), l = 1, llm)/), 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', &
+       (/(real(l), l = 1, llm)/), 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