--- trunk/Sources/phylmd/Radlwsw/sw2s.f	2016/09/01 10:30:53	207
+++ trunk/Sources/phylmd/Radlwsw/sw2s.f	2017/03/30 15:59:45	219
@@ -4,9 +4,9 @@
 
 contains
 
-  SUBROUTINE sw2s(knu, flag_aer, tauae, pizae, cgae, 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
     USE raddim
@@ -52,11 +52,6 @@
     ! * ARGUMENTS:
 
     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)
     DOUBLE PRECISION paki(kdlon, 2)
     DOUBLE PRECISION palbd(kdlon, 2)
     DOUBLE PRECISION palbp(kdlon, 2)
@@ -167,15 +162,15 @@
     ! --------------------------------
 
 
-    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, 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)