Changeset 5400 for LMDZ6/trunk/libf/phylmd/lmdz_blowing_snow_ini.f90

Timestamp:

Dec 10, 2024, 11:35:28 AM (3 days ago)

Author:

evignon

Message:

ajout de omp threadprivate manquants

File:

• LMDZ6/trunk/libf/phylmd/lmdz_blowing_snow_ini.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/lmdz_blowing_snow_ini.f90

@@ -11 +11 @@
    !$OMP THREADPRIVATE(coef_sub_bs, fallv_bs, r_bs, zeta_bs, c_esalt_bs)
    !$OMP THREADPRIVATE(pbst_bs, prt_bs, qbst_bs)
-   !$OMP THREADPRIVATE(iflag_sedim_bs, iflag_sublim_bs)
+   !$OMP THREADPRIVATE(iflag_saltation_bs,iflag_sedim_bs, iflag_sublim_bs)
 
    real, save, protected :: tbsmelt=278.15    ! parameter to calculate melting fraction of BS sedimentation