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

Timestamp:

May 11, 2023, 10:53:52 AM (17 months ago)

Author:

evignon

Message:

nouvelle formulation du flux d'emission de neige soufflee

File:

• LMDZ6/trunk/libf/phylmd/blowing_snow_ini_mod.F90 (modified) (3 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
+   integer :: niter_bs, 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)
+   !$OMP THREADPRIVATE(niter_bs, iflag_saltation_bs)
 
       contains
@@ -67 +67 @@
          CALL getin_p('niter_bs',niter_bs)
 
+         iflag_saltation_bs=0
+         CALL getin_p('iflag_saltation_bs',iflag_saltation_bs)
+
 
       end subroutine blowing_snow_ini