Changeset 5505 for LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90

Timestamp:

Jan 23, 2025, 5:37:12 PM (2 weeks ago)

Author:

fhourdin

Message:

Modification SPLA pour résoudre redondance INCA

File:

• LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90

@@ -16 +16 @@
         source_tr,flux_tr,tr_seri)
 
+USE lmdz_spla_nightingale, ONLY: spla_nightingale
 USE chem_spla_mod_h
   USE chem_mod_h
@@ -84 +85 @@
   REAL :: lmt_h2sbio(klon)        ! emissions de h2s bio
 
-  EXTERNAL condsurfs, liss, nightingale
+  EXTERNAL condsurfs, liss
   !=========================================================================
   ! Modifications introduced by NHL
@@ -96 +97 @@
   !=========================================================================
 
-     CALL nightingale(u_seri, v_seri, u10m_ec, v10m_ec, paprs, &
+     CALL spla_nightingale(klon,klev,nbsrf,u_seri, v_seri, u10m_ec, v10m_ec, paprs, &
            pplay, cdragh, cdragm, t_seri, q_seri, ftsol, &
            tsol, pctsrf, lmt_dmsconc, lmt_dms)