--- trunk/phylmd/screenc.f	2014/03/05 14:57:53	82
+++ trunk/Sources/phylmd/screenc.f	2015/04/29 15:47:56	134
@@ -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
 !-----------------------------------------------------------------------