--- trunk/libf/phylmd/ustarhb.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/ustarhb.f	2011/01/06 17:52:19	38
@@ -4,8 +4,8 @@
       SUBROUTINE ustarhb(knon,u,v,cd_m, ustar)
       use dimens_m
       use dimphy
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
       use fcttre
       IMPLICIT none
 c======================================================================