Changeset 5636

Timestamp:

Apr 30, 2025, 8:48:56 AM (8 weeks ago)

Author:

fhourdin

Message:

Cleaning of SPLA emissions

Location:

LMDZ6/trunk/libf/phylmd/Dust

Files:

• coarsemission.f90 (modified) (1 diff)
• dustemission_mod.f90 (modified) (2 diffs)
• phytracr_spl_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/Dust/coarsemission.f90 ¶

@@ -36 +36 @@
 !!USE paramet_mod_h
 USE yomcst_mod_h
-USE lmdz_surf_wind, ONLY : surf_wind
 IMPLICIT NONE
 

LMDZ6/trunk/libf/phylmd/Dust/dustemission_mod.f90 ¶

@@ -1 +1 @@
 MODULE dustemission_mod
 
-  USE lmdz_surf_wind
   IMPLICIT NONE
   !Parameters   
@@ -1206 +1205 @@
 !*,'zwstar=sqrt(2.*(',flag_wstarBL,'ale_bl+0.01*(',flag_wstar,'-100)*ale_wake))'
   !
-    !CALL surf_wind(klon, nsurfwind, zu10m, zv10m, wstar, param_wstarBL, param_wstarWAKE, ale_bl, wind10ms, probu)
     DO i=1,klon  ! main loop
    !  zwstar(i)=sqrt(2.*(param_wstarBL(i)*ale_bl(i)+param_wstarWAKE(i)*ale_wake(i)))

LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90 ¶

@@ -826 +826 @@
       USE yoethf_mod_h
       USE chem_mod_h
-      USE lmdz_surf_wind, ONLY: surf_wind
       IMPLICIT none
 !