--- trunk/libf/phylmd/initphysto.f90	2010/04/01 14:59:19	31
+++ trunk/libf/phylmd/initphysto.f90	2012/01/30 12:54:02	57
@@ -32,11 +32,12 @@
   USE comconst
   USE indicesol
   USE dimphy
-  USE logic
+  use conf_gcm_m
   USE comgeom
   USE serre
   USE temps
   USE ener
+  USE nr_util, ONLY : pi
 
   IMPLICIT NONE
 
@@ -67,8 +68,6 @@
   !-----------------------------------------------------
 
   !  Initialisations
-
-  pi = 4.*atan(1.)
   str = 'q  '
   ctrac = 'traceur   '
   ok_sync = .TRUE.