--- trunk/libf/dyn3d/bilan_dyn.f	2008/10/15 16:19:57	20
+++ trunk/libf/dyn3d/bilan_dyn.f	2011/01/25 15:11:05	39
@@ -9,8 +9,9 @@
 c   en faisant Qzon=Cv T + L * ...
 c             vQ..A=Cp T + L * ...
 
-      USE IOIPSL
-
+      USE histcom
+      use calendar
+      use histwrite_m
       use dimens_m
       use paramet_m
       use comconst
@@ -19,6 +20,7 @@
       use temps
       use iniprint
       use inigrads_m, only: inigrads
+      use nr_util, only: pi
 
       IMPLICIT NONE
 
@@ -141,8 +143,6 @@
 c   Initialisation du fichier contenant les moyennes zonales.
 c   ---------------------------------------------------------
 
-      character*10 infile
-
       integer fileid
       integer thoriid, zvertiid
       save fileid
@@ -151,7 +151,6 @@
 
 C   Variables locales
 C
-      integer tau0
       real zjulian
       character*3 str
       character*10 ctrac
@@ -211,19 +210,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