--- trunk/phylmd/screenc.f90	2013/11/15 18:45:49	76
+++ 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
 !-----------------------------------------------------------------------