--- trunk/bibio/initfluxsto.f	2014/03/05 14:57:53	82
+++ trunk/bibio/initfluxsto.f	2014/03/06 15:12:00	83
@@ -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,11 +116,11 @@
 
   !  Appel a histvert pour la grille verticale                            
 
-  CALL histvert(fileid, 'sig_s', 'Niveaux sigma', 'sigma_level', 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', 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', nivd, &