--- trunk/libf/dyn3d/bilan_dyn.f	2010/03/25 14:29:07	27
+++ 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