--- trunk/libf/bibio/initfluxsto.f90	2011/01/06 17:52:19	38
+++ trunk/libf/bibio/initfluxsto.f90	2011/01/25 15:11:05	39
@@ -34,6 +34,7 @@
   USE serre
   USE temps, ONLY : annee_ref, day_ref, itau_dyn
   USE ener
+  USE nr_util, ONLY : pi
 
   IMPLICIT NONE
 
@@ -59,8 +60,6 @@
   !---------------------------------------------------------
 
   !  Initialisations                                                      
-
-  pi = 4.*atan(1.)
   str = 'q  '
   ctrac = 'traceur   '
   ok_sync = .TRUE.