--- trunk/Sources/phylmd/Radlwsw/sw1s.f	2016/03/11 18:47:26	178
+++ trunk/Sources/phylmd/Radlwsw/sw1s.f	2017/03/30 14:25:18	217
@@ -4,9 +4,9 @@
 
 contains
 
-  SUBROUTINE sw1s(knu, flag_aer, tauae, pizae, cgae, palbd, palbp, pcg, &
-       pcld, pclear, pdsig, pomega, poz, prmu, psec, ptau, pud, pfd, &
-       pfu)
+  SUBROUTINE sw1s(knu, flag_aer, palbd, palbp, pcg, pcld, pclear, pdsig, &
+       pomega, poz, prmu, psec, ptau, pud, pfd, pfu)
+    
     USE dimens_m
     USE dimphy
     USE raddim
@@ -47,10 +47,7 @@
 
     INTEGER knu
     ! -OB
-    DOUBLE PRECISION flag_aer
-    DOUBLE PRECISION tauae(kdlon, kflev, 2)
-    DOUBLE PRECISION pizae(kdlon, kflev, 2)
-    DOUBLE PRECISION cgae(kdlon, kflev, 2)
+    logical, intent(in):: flag_aer
     DOUBLE PRECISION palbd(kdlon, 2)
     DOUBLE PRECISION palbp(kdlon, 2)
     DOUBLE PRECISION pcg(kdlon, 2, kflev)
@@ -132,9 +129,8 @@
     ! --------------------------------
 
 
-    CALL swclr(knu, flag_aer, tauae, pizae, cgae, palbp, pdsig, zrayl, &
-         psec, zcgaz, zpizaz, zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, &
-         ztra1, ztra2)
+    CALL swclr(knu, flag_aer, palbp, pdsig, zrayl, psec, zcgaz, zpizaz, &
+         zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2)
 
 
     ! *         2.2   CLOUDY FRACTION OF THE COLUMN