--- trunk/libf/dyn3d/bilan_dyn.f	2008/08/01 15:24:12	15
+++ trunk/libf/dyn3d/bilan_dyn.f	2010/03/25 14:29:07	27
@@ -141,8 +141,6 @@
 c   Initialisation du fichier contenant les moyennes zonales.
 c   ---------------------------------------------------------
 
-      character*10 infile
-
       integer fileid
       integer thoriid, zvertiid
       save fileid
@@ -151,7 +149,6 @@
 
 C   Variables locales
 C
-      integer tau0
       real zjulian
       character*3 str
       character*10 ctrac
@@ -187,10 +184,8 @@
 
         if (i_sortie.eq.1) then
          file='dynzon'
-         call inigrads(ifile
-     s  ,(/0./),180./pi,0.,0.,rlatv,-90.,90.,180./pi
-     s  ,presnivs,1.
-     s  ,dt_cum,file,'dyn_zon ')
+         call inigrads(ifile ,(/0./),180./pi,0.,0.,rlatv,-90.,90.,
+     $        180./pi ,presnivs,1. ,dt_cum,file,'dyn_zon ')
         endif
 
         nom(itemp)='T'
@@ -213,19 +208,16 @@
 c   Initialisation du fichier contenant les moyennes zonales.
 c   ---------------------------------------------------------
 
-      infile='dynzon'
-
       zan = annee_ref
       dayref = day_ref
       CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)
-      tau0 = itau_dyn
       
       rlong=0.
       rlatg=rlatv*180./pi
        
-      call histbeg_totreg(infile, rlong(:1), rlatg,
+      call histbeg_totreg('dynzon', rlong(:1), rlatg,
      .             1, 1, 1, jjm,
-     .             tau0, zjulian, dt_cum, thoriid, fileid)
+     .             itau_dyn, zjulian, dt_cum, thoriid, fileid)
 
 C
 C  Appel a histvert pour la grille verticale