--- trunk/libf/phylmd/screenc.f90	2008/02/27 13:16:39	3
+++ trunk/phylmd/screenc.f90	2013/11/15 18:45:49	76
@@ -6,7 +6,7 @@
                          ts, qsurf, rugos, psol, &
                          ustar, testar, qstar, okri, ri1, &
                          pref, delu, delte, delq)
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT NONE
 !-----------------------------------------------------------------------
 !