Changeset 2909 for LMDZ5/trunk/libf/phylmd

Timestamp:

Jun 13, 2017, 3:27:01 PM (7 years ago)

Author:

jbmadeleine

Message:

Added THREADPRIVATE for firstcall and alpha_vert.

File:

• LMDZ5/trunk/libf/phylmd/cloudth_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/cloudth_mod.F90

@@ -311 +311 @@
       ! (J Jouhaud, JL Dufresne, JB Madeleine)
       REAL,SAVE :: vert_alpha
+      !$OMP THREADPRIVATE(vert_alpha)
       LOGICAL, SAVE :: firstcall = .TRUE.
+      !$OMP THREADPRIVATE(firstcall)
       
       REAL zpdf_sig(ngrid),zpdf_k(ngrid),zpdf_delta(ngrid)