--- trunk/libf/phylmd/initphysto.f90	2012/04/20 14:58:43	61
+++ trunk/phylmd/initphysto.f	2014/09/16 14:00:41	108
@@ -25,7 +25,6 @@
 
   !   L. Fairhead, 03/99
 
-  USE calendar
   USE histbeg_totreg_m, ONLY : histbeg_totreg
   USE histdef_m, ONLY : histdef
   USE histend_m, ONLY : histend
@@ -40,13 +39,13 @@
   USE comgeom
   USE serre
   USE temps
-  USE ener
   USE nr_util, ONLY : pi
+  USE ymds2ju_m
 
   IMPLICIT NONE
 
   !   Arguments
-  CHARACTER*(*) infile
+  CHARACTER(len=*) infile
   INTEGER nhoriid, i
   REAL, INTENT (IN) :: tstep
   REAL t_ops, t_wrt
@@ -58,8 +57,8 @@
 
   INTEGER tau0
   REAL zjulian
-  CHARACTER*3 str
-  CHARACTER*10 ctrac
+  CHARACTER(len=3) str
+  CHARACTER(len=10) ctrac
   INTEGER iq
   INTEGER uhoriid, vhoriid, thoriid, zvertiid
   INTEGER ii, jj
@@ -101,7 +100,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