--- trunk/libf/phylmd/screenc.f90	2011/01/06 17:52:19	38
+++ trunk/phylmd/screenc.f	2014/09/16 14:00:41	108
@@ -6,6 +6,7 @@
                          ts, qsurf, rugos, psol, &
                          ustar, testar, qstar, okri, ri1, &
                          pref, delu, delte, delq)
+        use coefcdrag_m, only: coefcdrag
       use SUPHEC_M
       IMPLICIT NONE
 !-----------------------------------------------------------------------