--- trunk/libf/phylmd/initphysto.f90	2010/04/01 14:59:19	31
+++ trunk/Sources/phylmd/initphysto.f	2015/06/23 15:14:20	151
@@ -25,27 +25,30 @@
 
   !   L. Fairhead, 03/99
 
-  USE calendar
-  USE histcom
+  use dynetat0_m, only: day_ref, annee_ref
+  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
+  USE ymds2ju_m
 
   IMPLICIT NONE
 
   !   Arguments
-  CHARACTER*(*) infile
+  CHARACTER(len=*) infile
   INTEGER nhoriid, i
   REAL, INTENT (IN) :: tstep
   REAL t_ops, t_wrt
-  INTEGER fileid, filevid
+  INTEGER fileid
   INTEGER nq, l
   REAL nivsigs(llm)
 
@@ -53,12 +56,9 @@
 
   INTEGER tau0
   REAL zjulian
-  CHARACTER*3 str
-  CHARACTER*10 ctrac
-  INTEGER iq
+  CHARACTER(len=3) str
+  CHARACTER(len=10) ctrac
   INTEGER uhoriid, vhoriid, thoriid, zvertiid
-  INTEGER ii, jj
-  INTEGER zan, idayref
   LOGICAL ok_sync
   REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)
 
@@ -67,8 +67,6 @@
   !-----------------------------------------------------
 
   !  Initialisations
-
-  pi = 4.*atan(1.)
   str = 'q  '
   ctrac = 'traceur   '
   ok_sync = .TRUE.
@@ -76,9 +74,7 @@
   !  Appel a histbeg: creation du fichier netcdf et initialisations
   !     diverses
 
-  zan = annee_ref
-  idayref = day_ref
-  CALL ymds2ju(zan,1,idayref,0.0,zjulian)
+  CALL ymds2ju(annee_ref,1,day_ref,0.0,zjulian)
   tau0 = 0
 
   CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlon,zx_lon)
@@ -98,7 +94,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