Changeset 4672 for LMDZ6/trunk/libf/phylmd/blowing_snow_ini_mod.F90

Timestamp:

Sep 4, 2023, 4:35:35 PM (11 months ago)

Author:

evignon

Message:

inclusion des recents developpements sur la neige soufflee

File:

• LMDZ6/trunk/libf/phylmd/blowing_snow_ini_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/blowing_snow_ini_mod.F90

@@ -8 +8 @@
    real coef_eva_bs, expo_eva_bs, fallv_bs, zeta_bs
    real prt_bs, pbst_bs, qbst_bs
-   integer :: niter_bs, iflag_saltation_bs
+   integer :: iflag_saltation_bs
 
    !$OMP THREADPRIVATE(prt_level, lunout)
@@ -14 +14 @@
    !$OMP THREADPRIVATE(coef_eva_bs, expo_eva_bs, fallv_bs, zeta_bs)
    !$OMP THREADPRIVATE(pbst_bs, prt_bs, qbst_bs)
-   !$OMP THREADPRIVATE(niter_bs, iflag_saltation_bs)
+   !$OMP THREADPRIVATE(iflag_saltation_bs)
 
       contains
@@ -45 +45 @@
          CALL getin_p('qbst_bs',qbst_bs)
 
-         pbst_bs= 0.01
+         pbst_bs= 0.0003
          CALL getin_p('pbst_bs',pbst_bs)
 
@@ -64 +64 @@
          CALL getin_p('expo_eva_bs',expo_eva_bs)
 
-         niter_bs = 5
-         CALL getin_p('niter_bs',niter_bs)
-
          iflag_saltation_bs=0
          CALL getin_p('iflag_saltation_bs',iflag_saltation_bs)