--- trunk/phylmd/Radlwsw/swclr.f	2014/03/05 14:57:53	82
+++ trunk/phylmd/Radlwsw/swclr.f	2014/09/04 10:40:24	105
@@ -65,7 +65,7 @@
   DOUBLE PRECISION zscat(kdlon)
   DOUBLE PRECISION ztr(kdlon, 2, kflev+1)
 
-  INTEGER jl, jk, ja, jae, jkl, jklp1, jaj, jkm1, in
+  INTEGER jl, jk, ja, jkl, jklp1, jaj, jkm1, in
   DOUBLE PRECISION ztray, zgar, zratio, zff, zfacoa, zcorae
   DOUBLE PRECISION zmue, zgap, zww, zto, zden, zmu1, zden1
   DOUBLE PRECISION zbmu0, zbmu1, zre11