--- trunk/Sources/phylmd/Radlwsw/lwv.f	2015/07/29 09:52:33	165
+++ trunk/Sources/phylmd/Radlwsw/lwv.f	2015/07/29 14:32:55	166
@@ -10,6 +10,7 @@
     USE dimens_m
     USE dimphy
     use lwvd_m, only: lwvd
+    use lwvn_m, only: lwvn
     USE suphec_m
     USE raddim
     USE raddimlw
@@ -94,8 +95,7 @@
 
     ! * CONTRIBUTION FROM ADJACENT LAYERS
 
-    CALL lwvn(kuaer, ktraer, pabcu, pdbsl, pga, pgb, zadjd, zadju, pcntrb, &
-         zdbdt)
+    CALL lwvn(kuaer, pabcu, pdbsl, pga, pgb, zadjd, zadju, pcntrb, zdbdt)
     ! * CONTRIBUTION FROM DISTANT LAYERS
 
     CALL lwvd(ktraer, pabcu, zdbdt, pga, pgb, pcntrb, zdisd, zdisu)