Changeset 6062 for LMDZ6

Timestamp:

Feb 1, 2026, 9:48:36 PM (3 days ago)

Author:

evignon

Message:

updatde de freinage dans phylmdiso qui appelait yoegwd

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• freinage.f90 (deleted)
• freinage_mod.f90 (added)
• pbl_surface_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/pbl_surface_mod.F90

@@ -492 +492 @@
     USE dimsoil_mod_h, ONLY : nsoilmx
     USE surf_param_mod, ONLY : eff_surf_param  !AM
-
+    USE freinage_mod, ONLY: freinage
     USE yomcst_mod_h
 
@@ -2615 +2615 @@
 !FC  yveget,ylai,yheight, &
             IF (ifl_pbltree .ge. 1) THEN
-              CALL   freinage(knon, yu, yv, yt, &
+              CALL   freinage(klon, knon, yu, yv, yt, &
 !                yveget,ylai, yheight,ypaprs,ypplay,y_d_u_frein,y_d_v_frein)
                 yveget,ylai, yheight,ypaprs,ypplay,y_treedrg, y_d_u_frein,y_d_v_frein)