--- trunk/libf/phylmd/clcdrag.f90	2010/12/21 15:45:48	37
+++ trunk/libf/phylmd/clcdrag.f90	2011/01/06 17:52:19	38
@@ -6,8 +6,8 @@
                          ts, qsurf, rugos, &
                          pcfm, pcfh)
       use indicesol
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
       IMPLICIT NONE
 ! ================================================================= c
 !