--- trunk/Sources/phylmd/Radlwsw/lwbv.f	2015/09/09 10:41:47	168
+++ trunk/phylmd/Radlwsw/lwbv.f	2018/02/05 10:39:38	254
@@ -80,8 +80,8 @@
     INTEGER nuaer, ntraer
     ! ------------------------------------------------------------------
     ! * COMPUTES PLANCK FUNCTIONS:
-    CALL lwb(pdt0, ptave, ptl, zb, pbint, pbsui, zbsur, zbtop, zdbsl, zga, zgb, &
-         zgasur, zgbsur, zgatop, zgbtop)
+    CALL lwb(pdt0, ptave, ptl, zb, pbint, pbsui, zbsur, zbtop, zdbsl, zga, &
+         zgb, zgasur, zgbsur, zgatop, zgbtop)
     ! ------------------------------------------------------------------
     ! * PERFORMS THE VERTICAL INTEGRATION:
     nuaer = nua