--- trunk/Sources/phylmd/Radlwsw/lwvn.f	2015/07/29 14:32:55	166
+++ trunk/Sources/phylmd/Radlwsw/lwvn.f	2015/09/09 10:41:47	168
@@ -186,7 +186,6 @@
           pcntrb(jl, jk+1, jk) = zglayu(jl)
           pcntrb(jl, jk, jk) = 0.0
        END DO
-
     END DO
 
     DO jk = 1, kflev
@@ -199,8 +198,6 @@
        END DO
     END DO
 
-    RETURN
-
   END SUBROUTINE lwvn
 
 end module lwvn_m