--- trunk/Sources/phylmd/Radlwsw/lw.f	2015/04/29 15:47:56	134
+++ trunk/Sources/phylmd/Radlwsw/lw.f	2015/06/16 15:23:29	145
@@ -4,8 +4,8 @@
 
 contains
 
-  SUBROUTINE LW(PPMB, PDP, PPSOL, PDT0, PEMIS, PTL, PTAVE, PWV, POZON, PAER, &
-       PCLDLD, PCLDLU, PVIEW, PCOLR, PCOLR0, PTOPLW, PSOLLW, PTOPLW0, PSOLLW0, &
+  SUBROUTINE LW(PPMB, PDP, PDT0, PEMIS, PTL, PTAVE, PWV, POZON, PAER, PCLDLD, &
+       PCLDLU, PVIEW, PCOLR, PCOLR0, PTOPLW, PSOLLW, PTOPLW0, PSOLLW0, &
        psollwdown, plwup, plwdn, plwup0, plwdn0)
 
     use LWU_m, only: LWU
@@ -43,7 +43,6 @@
     DOUBLE PRECISION PDT0(KDLON) ! SURFACE TEMPERATURE DISCONTINUITY (K)
     DOUBLE PRECISION PEMIS(KDLON) ! SURFACE EMISSIVITY
     DOUBLE PRECISION PPMB(KDLON, KFLEV+1) ! HALF LEVEL PRESSURE (mb)
-    DOUBLE PRECISION PPSOL(KDLON) ! SURFACE PRESSURE (Pa)
     DOUBLE PRECISION POZON(KDLON, KFLEV) ! O3 CONCENTRATION (kg/kg)
     DOUBLE PRECISION PTL(KDLON, KFLEV+1) ! HALF LEVEL TEMPERATURE (K)
     DOUBLE PRECISION PAER(KDLON, KFLEV, 5) ! OPTICAL THICKNESS OF THE AEROSOLS
@@ -93,7 +92,7 @@
              ZOZ(i, k) = POZON(i, k)*PDP(i, k) * MD/RMO3
           ENDDO
        ENDDO
-       CALL LWU(PAER, PDP, PPMB, PPSOL, ZOZ, PTAVE, PVIEW, PWV, ZABCU)
+       CALL LWU(PAER, PDP, PPMB, ZOZ, PTAVE, PVIEW, PWV, ZABCU)
        CALL LWBV(ILIM, PDP, PDT0, PEMIS, PPMB, PTL, PTAVE, ZABCU, &
             ZFLUC, ZBINT, ZBSUI, ZCTS, ZCNTRB)
        itaplw0 = 0