--- trunk/Sources/phylmd/Radlwsw/lwu.f	2015/04/29 15:47:56	134
+++ trunk/Sources/phylmd/Radlwsw/lwu.f	2015/05/26 17:46:03	139
@@ -4,7 +4,7 @@
 
 contains
 
-  SUBROUTINE LWU(PAER, PDP, PPMB, PPSOL, POZ, PTAVE, PVIEW, PWV, PABCU)
+  SUBROUTINE LWU(PAER, PDP, PPMB, POZ, PTAVE, PVIEW, PWV, PABCU)
 
     ! Purpose. Computes absorber amounts including pressure and
     ! temperature effects.
@@ -33,7 +33,6 @@
     DOUBLE PRECISION PAER(KDLON, KFLEV, 5)
     DOUBLE PRECISION PDP(KDLON, KFLEV)
     DOUBLE PRECISION PPMB(KDLON, KFLEV + 1)
-    DOUBLE PRECISION PPSOL(KDLON)
     DOUBLE PRECISION POZ(KDLON, KFLEV)
     DOUBLE PRECISION PTAVE(KDLON, KFLEV)
     DOUBLE PRECISION PVIEW(KDLON)