--- trunk/Sources/phylmd/Radlwsw/lwbv.f	2015/09/09 10:41:47	168
+++ trunk/phylmd/Radlwsw/lwbv.f	2018/03/20 09:35:59	265
@@ -7,7 +7,7 @@
   SUBROUTINE lwbv(klim, pdt0, pemis, ppmb, ptl, ptave, pabcu, pfluc, &
        pbint, pbsui, pcts, pcntrb)
 
-    USE dimens_m
+    USE dimensions
     USE dimphy
     use lwv_m, only: lwv
     USE suphec_m
@@ -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