--- trunk/libf/phylmd/initphysto.f90	2010/04/01 14:59:19	31
+++ trunk/phylmd/initphysto.f	2014/03/05 14:57:53	82
@@ -26,17 +26,22 @@
   !   L. Fairhead, 03/99
 
   USE calendar
-  USE histcom
+  USE histbeg_totreg_m, ONLY : histbeg_totreg
+  USE histdef_m, ONLY : histdef
+  USE histend_m, ONLY : histend
+  use histsync_m, only: histsync
+  USE histvert_m, ONLY : histvert
   USE dimens_m
   USE paramet_m
   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 +72,6 @@
   !-----------------------------------------------------
 
   !  Initialisations
-
-  pi = 4.*atan(1.)
   str = 'q  '
   ctrac = 'traceur   '
   ok_sync = .TRUE.
@@ -98,7 +101,7 @@
      nivsigs(l) = float(l)
   END DO
 
-  CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',llm,nivsigs, &
+  CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',nivsigs, &
        zvertiid)
 
   !  Appels a histdef pour la definition des variables a sauvegarder