--- trunk/libf/phylmd/stdlevvar.f90	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/stdlevvar.f90	2011/01/06 17:52:19	38
@@ -5,8 +5,8 @@
                            u1, v1, t1, q1, z1, &
                            ts1, qsurf, rugos, psol, pat1, &
                            t_2m, q_2m, t_10m, q_10m, u_10m, ustar)
-      use YOMCST
-            use yoethf
+      use SUPHEC_M
+            use yoethf_m
       IMPLICIT NONE
 !-------------------------------------------------------------------------
 !