--- trunk/libf/phylmd/coefkzmin.f	2010/12/21 15:45:48	37
+++ trunk/libf/phylmd/coefkzmin.f	2011/01/06 17:52:19	38
@@ -6,7 +6,7 @@
 c      SUBROUTINE coefkzmin(ngrid,zlev,teta,ustar,km,kn)
       use dimens_m
       use dimphy
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT NONE