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

Timestamp:

Jan 14, 2026, 8:26:28 PM (8 days ago)

Author:

evignon

Message:

changement de nom des routines et module de neige soufflee par coherence avec
la nomenclature de replayisation
+ passage de deux flags dans lmdz_lscp_ini

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -95 +95 @@
     use wxios_mod, ONLY: g_ctx, wxios_set_context
     USE lmdz_call_cloud_optics_prop, ONLY : call_cloud_optics_prop, call_cloud_optics_prop_post
-    USE lmdz_call_blowing_snow, ONLY : call_blowing_snow
+    USE lmdz_call_blosno, ONLY : call_blosno
     USE lmdz_call_lscp, ONLY: call_lscp
     USE lmdz_call_reevap, ONLY : call_reevap
@@ -109 +109 @@
     USE calltherm_mod, ONLY : calltherm
     USE lmdz_thermcell_dtke, ONLY : thermcell_dtke
-    USE lmdz_blowing_snow_ini, ONLY : blowing_snow_ini , qbst_bs
+    USE lmdz_blosno_ini, ONLY : blosno_ini , qbst_bs
     USE lmdz_lscp_ini, ONLY : lscp_ini, ratqsbas
     USE lmdz_cloud_optics_prop_ini, ONLY : cloud_optics_prop_ini
@@ -1873 +1873 @@
        CALL thermcell_ini(iflag_thermals,prt_level,tau_thermals,lunout, &
             &    RG,RD,RCPD,RKAPPA,RLVTT,RETV)
-       CALL lscp_ini(pdtphys,klon,klev,iflag_thermals,lunout,prt_level,       &
-                     ok_ice_supersat,fl_cor_ebil,                             &
-                     RCPD,RLSTT,RLVTT,RLMLT,RVTMP2,RTT,RD,RV,RG,RPI,EPS_W)
-       CALL blowing_snow_ini(RCPD, RLSTT, RLVTT, RLMLT, &
+        CALL lscp_ini(pdtphys,klon,klev,iflag_thermals,iflag_cld_th,iflag_ice_thermo, & 
+                  lunout,prt_level,ok_ice_supersat,fl_cor_ebil,                       &
+                  RCPD,RLSTT,RLVTT,RLMLT,RVTMP2,RTT,RD,RV,RG,RPI,EPS_W)
+       CALL blosno_ini(RCPD, RLSTT, RLVTT, RLMLT, &
             RVTMP2, RTT,RD,RG, RV, RPI)
        ! Test de coherence sur oc_cdnc utilisé uniquement par cloud_optics_prop
@@ -3083 +3083 @@
     IF (ok_bs) THEN
 
-       CALL call_blowing_snow(klon,klev,abortphy,flag_inhib_tend,itap,phys_tstep,zustar, &
+       CALL call_blosno(klon,klev,abortphy,flag_inhib_tend,itap,phys_tstep,zustar, &
                               t_seri,q_seri,qbs_seri,pplay,paprs, &
                                d_t_bsss,d_q_bsss,d_qbs_bsss,bsfl,bs_fall)
@@ -3974 +3974 @@
      pfrac_impa, pfrac_nucl, pfrac_1nucl,               &
      prfl, psfl, rhcl, zqasc, fraca,                    &
-     ztv, zpspsk, ztla, zthl, zw2, iflag_cld_th,        &
-     iflag_ice_thermo, distcltop, temp_cltop,           &
+     ztv, zpspsk, ztla, zthl, zw2,                      &
+     distcltop, temp_cltop,                             &
      pbl_tke(:,:,is_ave), pbl_eps(:,:,is_ave),          &
      fm_therm, entr_therm, detr_therm,                  &