/[lmdze]/trunk/phylmd/pbl_surface.f
ViewVC logotype

Diff of /trunk/phylmd/pbl_surface.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 274 by guez, Wed Jul 11 14:51:28 2018 UTC revision 275 by guez, Wed Jul 11 17:06:09 2018 UTC
# Line 20  contains Line 20  contains
20      ! ne tient pas compte de la diff\'erentiation des sous-fractions      ! ne tient pas compte de la diff\'erentiation des sous-fractions
21      ! de sol.      ! de sol.
22    
23      use clcdrag_m, only: clcdrag      use cdrag_m, only: cdrag
24      use clqh_m, only: clqh      use clqh_m, only: clqh
25      use clvent_m, only: clvent      use clvent_m, only: clvent
26      use coef_diff_turb_m, only: coef_diff_turb      use coef_diff_turb_m, only: coef_diff_turb
# Line 305  contains Line 305  contains
305                    * (ypplay(:knon, k - 1) - ypplay(:knon, k))                    * (ypplay(:knon, k - 1) - ypplay(:knon, k))
306            ENDDO            ENDDO
307    
308            CALL clcdrag(nsrf, sqrt(yu(:knon, 1)**2 + yv(:knon, 1)**2), &            CALL cdrag(nsrf, sqrt(yu(:knon, 1)**2 + yv(:knon, 1)**2), &
309                 yt(:knon, 1), yq(:knon, 1), zgeop(:knon, 1), ypaprs(:knon, 1), &                 yt(:knon, 1), yq(:knon, 1), zgeop(:knon, 1), ypaprs(:knon, 1), &
310                 yts(:knon), yqsurf(:knon), yrugos(:knon), ycdragm(:knon), &                 yts(:knon), yqsurf(:knon), yrugos(:knon), ycdragm(:knon), &
311                 ycdragh(:knon))                 ycdragh(:knon))
Legend:
Removed from v.274  
changed lines
  Added in v.275
  ViewVC Help
Powered by ViewVC 1.1.21