--- trunk/libf/phylmd/readsulfate.f90	2013/02/18 16:33:12	69
+++ trunk/phylmd/readsulfate.f	2015/02/13 18:22:38	129
@@ -28,8 +28,8 @@
 
     USE dimens_m, ONLY: iim, jjm
     USE dimphy, ONLY: klev, klon
+    USE dynetat0_m, ONLY: annee_ref
     use getso4fromfile_m, only: getso4fromfile
-    USE temps, ONLY: annee_ref
 
     ! Input:
 
@@ -48,9 +48,7 @@
     INTEGER j, iday, ny, iyr, iyr1, iyr2
     parameter (ny=jjm+1)
 
-    INTEGER ismaller
-    !JLD      INTEGER idec1, idec2 ! The two decadal data read ini
-    CHARACTER*4 cyear
+    CHARACTER(len=4) cyear
 
     INTEGER im, day1, day2, im2
     double precision so4_1(iim, jjm+1, klev, 12)