Changeset 5635 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Apr 30, 2025, 8:10:21 AM (6 weeks ago)

Author:

fhourdin

Message:

Modified subrid wind for SPLA (Fredho4Lamine)

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -81 +81 @@
     USE calwake_mod, ONLY : calwake, calwake_first
     USE lmdz_wake_ini, ONLY : wake_ini
-    USE lmdz_surf_wind_ini, ONLY : surf_wind_ini, iflag_surf_wind
+    USE lmdz_surf_wind_ini, ONLY : surf_wind_ini
     USE lmdz_surf_wind, ONLY : surf_wind
     USE yamada_ini_mod, ONLY : yamada_ini
@@ -3852 +3852 @@
     !===================================================================
     ! Computation of subrgid scale near-surface wind distribution
-    call surf_wind(klon,nsurfwind,u10m,v10m,wake_s,wake_Cstar,ustar,wstar,surf_wind_value,surf_wind_proba)
+    ! Developed for dust lifting. Could be extended to coupling with ocean and others
+    ! by default : 1 bin equal to the mean wind
+
+     call surf_wind(klon,nsurfwind,zu10m,zv10m,wake_s,wake_Cstar,zustar,ale_bl,surf_wind_value,surf_wind_proba)
 
     !===================================================================
@@ -5399 +5402 @@
                       beta_prec_fisrt,beta_prec, & !I
                       zu10m,zv10m,wstar,ale_bl,ale_wake,               &  ! I
+                      nsurfwind,surf_wind_value, surf_wind_proba,      & ! I
                       d_tr_dyn,tr_seri)