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

Timestamp:

Jan 9, 2026, 9:14:13 PM (5 days ago)

Author:

evignon

Message:

mise en place d'une interface bien claire entre physiq_mod et les routines lscp et de neige soufflee
creation de la routine lmdz_call_lscp

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (3 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_sublim_sedim
+    !USE lmdz_call_blowing_snow, ONLY : call_blowing_snow
     USE calwake_mod, ONLY : calwake, calwake_first
     USE lmdz_wake_ini, ONLY : wake_ini
@@ -3608 +3608 @@
     ! ==================================================================
     ! Blowing snow sublimation and sedimentation
+    ! cannot be activated with isotopes so far
 
     d_t_bsss(:,:)=0.
@@ -3614 +3615 @@
     bsfl(:,:)=0.
     bs_fall(:)=0.
-    IF (ok_bs) THEN
-
-     CALL call_blowing_snow_sublim_sedim(klon,klev,phys_tstep,zustar,t_seri,q_seri,qbs_seri,pplay,paprs, &
-                                         d_t_bsss,d_q_bsss,d_qbs_bsss,bsfl,bs_fall)
-
-     CALL add_phys_tend &
-               (du0,dv0,d_t_bsss,d_q_bsss,dql0,dqi0,d_qbs_bsss,paprs,&
-               'bsss',abortphy,flag_inhib_tend,itap,0 &
-#ifdef ISO
-       &       ,dxt0,dxtl0,dxti0 &
-#endif
-       &       )
-
-    ENDIF
+    !IF (ok_bs) THEN
+
+    ! CALL call_blowing_snow(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)
+
+    !ENDIF
 
     ! =================================================================== c