--- trunk/Sources/phylmd/Radlwsw/sw2s.f	2017/03/30 14:25:18	217
+++ trunk/Sources/phylmd/Radlwsw/sw2s.f	2017/03/30 15:59:45	219
@@ -4,8 +4,8 @@
 
 contains
 
-  SUBROUTINE sw2s(knu, flag_aer, paki, palbd, palbp, pcg, pcld, pclear, &
-       pdsig, pomega, poz, prmu, psec, ptau, pud, pwv, pqs, pfdown, pfup)
+  SUBROUTINE sw2s(knu, paki, palbd, palbp, pcg, pcld, pclear, pdsig, pomega, &
+       poz, prmu, psec, ptau, pud, pwv, pqs, pfdown, pfup)
     
     USE dimens_m
     USE dimphy
@@ -52,8 +52,6 @@
     ! * ARGUMENTS:
 
     INTEGER knu
-    ! -OB
-    logical, intent(in):: flag_aer
     DOUBLE PRECISION paki(kdlon, 2)
     DOUBLE PRECISION palbd(kdlon, 2)
     DOUBLE PRECISION palbp(kdlon, 2)
@@ -164,14 +162,15 @@
     ! --------------------------------
 
 
-    CALL swclr(knu, flag_aer, palbp, pdsig, zrayl, psec, zcgaz, zpizaz, &
-         zray1, zray2, zrefz, zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2)
+    CALL swclr(knu, palbp, pdsig, zrayl, psec, zpizaz, zray1, zray2, zrefz, &
+         zrj0, zrk0, zrmu0, ztauaz, ztra1, ztra2)
 
 
     ! *         2.2   CLOUDY FRACTION OF THE COLUMN
     ! -----------------------------
 
 
+    zcgaz = 0d0
     CALL swr(knu, palbd, pcg, pcld, pomega, psec, ptau, zcgaz, &
          zpizaz, zray1, zray2, zrefz, zrj, zrk, zrmue, ztauaz, ztra1, ztra2)