--- trunk/libf/phylmd/coefcdrag.f90	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/coefcdrag.f90	2011/01/06 17:52:19	38
@@ -9,8 +9,8 @@
                             ts, qsurf, rugos, okri, ri1, &
                             cdram, cdrah, cdran, zri1, pref)
       use indicesol
-      use YOMCST
-      use yoethf
+      use SUPHEC_M
+      use yoethf_m
       IMPLICIT none
 !-------------------------------------------------------------------------
 ! Objet : calcul des cdrags pour le moment (cdram) et les flux de chaleur