--- trunk/libf/phylmd/Radlwsw/lwbv.f	2010/03/03 13:23:49	24
+++ trunk/libf/phylmd/Radlwsw/lwbv.f	2011/01/06 17:52:19	38
@@ -2,7 +2,7 @@
      S                PFLUC,PBINT,PBSUI,PCTS,PCNTRB)
       use dimens_m
       use dimphy
-      use YOMCST
+      use SUPHEC_M
       use raddim
             use raddimlw
       IMPLICIT none