Changeset 5009

Timestamp:

Jul 4, 2024, 1:28:51 PM (9 days ago)

Author:

musat

Message:

Correction bug : remplace wake_s sur la grille klon
par ywake_s sur la grille knon.

File:

• LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -1664 +1664 @@
             ycdragm_w, ycdragh_w, zri1_w, pref_w, rain_f, zxtsol, ypplay(:,1) )
 !
-!!!bug !!        zgeo1(:) = wake_s(:)*zgeo1_w(:) + (1.-wake_s(:))*zgeo1_x(:)
-        zgeo1(1:knon) = wake_s(1:knon)*zgeo1_w(1:knon) + (1.-wake_s(1:knon))*zgeo1_x(1:knon)
+        zgeo1(1:knon) = ywake_s(1:knon)*zgeo1_w(1:knon) + (1.-ywake_s(1:knon))*zgeo1_x(1:knon)
 
 ! --- special Dice. JYG+MPL 25112013 puis BOMEX