--- trunk/phylmd/readsulfate_preind.f	2014/09/04 10:05:52	104
+++ trunk/phylmd/readsulfate_preind.f	2014/09/04 10:40:24	105
@@ -42,7 +42,7 @@
   INTEGER j, iday, ny, iyr
   parameter (ny=jjm+1)
 
-  INTEGER im, day1, day2, im2, ismaller
+  INTEGER im, day1, day2, im2
   double precision pi_so4_1(iim, jjm+1, klev, 12)
 
   double precision pi_so4(klon, klev, 12)  ! SO4 in right dimension
@@ -50,7 +50,7 @@
   double precision pi_so4_out(klon, klev)
   SAVE pi_so4_out
 
-  CHARACTER*4 cyear
+  CHARACTER(len=4) cyear
   LOGICAL lnewday