--- trunk/libf/phylmd/screenc.f90	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/screenc.f90	2011/01/06 17:52:19	38
@@ -6,7 +6,7 @@
                          ts, qsurf, rugos, psol, &
                          ustar, testar, qstar, okri, ri1, &
                          pref, delu, delte, delq)
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT NONE
 !-----------------------------------------------------------------------
 !