Changeset 3663 for LMDZ6/trunk/libf/phylmd/StratAer/interp_sulf_input.F90

Timestamp:

Apr 16, 2020, 4:59:06 PM (4 years ago)

Author:

oboucher

Message:

adding some missing OMP THREADPRIVATE in StratAer? code

File:

• LMDZ6/trunk/libf/phylmd/StratAer/interp_sulf_input.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/StratAer/interp_sulf_input.F90

@@ -34 +34 @@
   INTEGER n_lon   ! number of longitudes in the input data
   INTEGER, SAVE :: n_lev   ! number of levels in the input data
+!$OMP THREADPRIVATE(n_lev)
   INTEGER n_mth   ! number of months in the input data
   INTEGER, SAVE :: mth_pre