--- trunk/phylmd/pbl_surface.f	2018/07/11 16:50:27	274
+++ trunk/phylmd/pbl_surface.f	2018/07/11 17:06:09	275
@@ -20,7 +20,7 @@
     ! ne tient pas compte de la diff\'erentiation des sous-fractions
     ! de sol.
 
-    use clcdrag_m, only: clcdrag
+    use cdrag_m, only: cdrag
     use clqh_m, only: clqh
     use clvent_m, only: clvent
     use coef_diff_turb_m, only: coef_diff_turb
@@ -305,7 +305,7 @@
                   * (ypplay(:knon, k - 1) - ypplay(:knon, k))
           ENDDO
 
-          CALL clcdrag(nsrf, sqrt(yu(:knon, 1)**2 + yv(:knon, 1)**2), &
+          CALL cdrag(nsrf, sqrt(yu(:knon, 1)**2 + yv(:knon, 1)**2), &
                yt(:knon, 1), yq(:knon, 1), zgeop(:knon, 1), ypaprs(:knon, 1), &
                yts(:knon), yqsurf(:knon), yrugos(:knon), ycdragm(:knon), &
                ycdragh(:knon))