--- trunk/Sources/phylmd/Radlwsw/swclr.f	2016/03/11 18:47:26	178
+++ trunk/Sources/phylmd/Radlwsw/swclr.f	2016/12/07 16:44:53	208
@@ -4,14 +4,13 @@
 
 contains
 
-  SUBROUTINE swclr(knu, flag_aer, tauae, pizae, cgae, palbp, pdsig, &
-       prayl, psec, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmu0, ptauaz, &
+  SUBROUTINE swclr(knu, flag_aer, tauae, pizae, cgae, palbp, pdsig, prayl, &
+       psec, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmu0, ptauaz, &
        ptra1, ptra2)
-    USE dimens_m
-    USE dimphy
-    USE raddim
-    USE radepsi
-    USE radopt
+    
+    USE raddim, only: kdlon, kflev
+    USE radepsi, only: repsct, zepsec
+    USE radopt, only: novlp
 
     ! ------------------------------------------------------------------
     ! PURPOSE.