Changeset 2406 for LMDZ5/trunk/libf/phylmd/thermcell_plume.F90

Timestamp:

Dec 10, 2015, 6:55:45 PM (8 years ago)

Author:

fhourdin

Message:

Small corrections

File:

• LMDZ5/trunk/libf/phylmd/thermcell_plume.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/thermcell_plume.F90

@@ -106 +106 @@
       REAL,SAVE :: mix0,mix0_omp=0.
       INTEGER,SAVE :: thermals_flag_alim,thermals_flag_alim_omp=0
+
+!$OMP THREADPRIVATE(fact_epsilon, betalpha, afact, fact_shell)
+!$OMP THREADPRIVATE(detr_min, entr_min, detr_q_coef, detr_q_power)
+!$OMP THREADPRIVATE( mix0, thermals_flag_alim)
 
       LOGICAL, SAVE :: first=.true.
@@ -144 +148 @@
      mix0=mix0_omp
      thermals_flag_alim=thermals_flag_alim_omp
+
       first=.false.
       ENDIF