--- trunk/Sources/phylmd/initphysto.f	2015/07/08 17:03:45	155
+++ trunk/Sources/phylmd/initphysto.f	2016/03/11 18:47:26	178
@@ -43,7 +43,6 @@
     USE dimphy
     use conf_gcm_m
     USE comgeom
-    USE nr_util, ONLY : pi
     USE ymds2ju_m
 
     !   Arguments
@@ -59,8 +58,6 @@
 
     INTEGER tau0
     REAL zjulian
-    CHARACTER(len=3) str
-    CHARACTER(len=10) ctrac
     INTEGER zvertiid
     LOGICAL ok_sync
     REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)
@@ -70,8 +67,6 @@
     !-----------------------------------------------------
 
     !  Initialisations
-    str = 'q  '
-    ctrac = 'traceur   '
     ok_sync = .TRUE.
 
     !  Appel a histbeg: creation du fichier netcdf et initialisations