Changeset 6028 for LMDZ6/trunk/libf/phylmdiso/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/phylmdiso/physiq_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -97 +97 @@
     USE lmdz_call_cloud_optics_prop, ONLY : call_cloud_optics_prop, call_cloud_optics_prop_post
     USE lmdz_lscp_old, ONLY : fisrtilp, fisrtilp_first
-    !USE lmdz_call_blowing_snow, ONLY : call_blowing_snow
     USE calwake_mod, ONLY : calwake, calwake_first
     USE lmdz_wake_ini, ONLY : wake_ini
@@ -107 +106 @@
     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_lscp_subgridvarq, ONLY : ratqs_main, ratqs_main_first
@@ -2024 +2023 @@
        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, &
-                             RVTMP2, RTT,RD,RG, RV, RPI)
+       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
        IF (ok_newmicro) then
@@ -3617 +3617 @@
     !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)