Changeset 5614 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

Apr 14, 2025, 9:21:07 PM (8 weeks ago)

Author:

evignon

Message:

Commission liée à un update majeur de la routine de condensation grande echelle suite au travail
de Lea, Audran et Etienne
Elle inclue une restructuration des routines pour clarifier le role "moniteur" de la routine lscp_main,
une mise à jour de la parametrisation de partitionnement de phase de Lea pour inclure les nuages de couche limite,
ainsi que des corrections des routines de precipitations "poprecip".
Convergence numerique verifiee en prod et debug pour les physiques NPv6.3 et 7.0.1c

File:

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

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -75 +75 @@
     USE write_field_phy
     use wxios_mod, ONLY: g_ctx, wxios_set_context
-    USE lmdz_lscp, ONLY : lscp
+    USE lmdz_lscp_main, ONLY : lscp
     USE lmdz_call_cloud_optics_prop, ONLY : call_cloud_optics_prop
     USE lmdz_lscp_old, ONLY : fisrtilp
@@ -365 +365 @@
        rneblsvol, &
        pfraclr, pfracld, cldfraliq, sigma2_icefracturb, mean_icefracturb,  &
+       cldfraliqth, sigma2_icefracturbth, mean_icefracturbth,  &
        distcltop, temp_cltop,  &
        !-- LSCP - condensation and ice supersaturation variables
@@ -5081 +5082 @@
          t_seri, q_seri, ql_seri_lscp, qi_seri_lscp, ptconv, ratqs, sigma_qtherm, &
          d_t_lsc, d_q_lsc, d_ql_lsc, d_qi_lsc, rneb, rneblsvol, &
-         pfraclr, pfracld, cldfraliq, sigma2_icefracturb, mean_icefracturb,  &
+         pfraclr, pfracld, cldfraliq, cldfraliqth, &
+         sigma2_icefracturb, sigma2_icefracturbth, &
+         mean_icefracturb, mean_icefracturbth,     &
          radocond, picefra, rain_lsc, snow_lsc, &
          frac_impa, frac_nucl, beta_prec_fisrt, &
          prfl, psfl, rhcl,  &
-         zqasc, fraca,ztv,zpspsk,ztla,zthl,iflag_cld_th, &
+         zqasc, fraca,ztv,zpspsk,ztla,zthl,zw2,iflag_cld_th, &
          iflag_ice_thermo, distcltop, temp_cltop,   &
          pbl_tke(:,:,is_ave), pbl_eps(:,:,is_ave), &
+         entr_therm, detr_therm, &
          cell_area, &
          cf_seri, rvc_seri, u_seri, v_seri, &