Changeset 3664 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/StratAer/interp_sulf_input.F90

Timestamp:

Apr 16, 2020, 5:01:21 PM (5 years ago)

Author:

oboucher

Message:

Adding some missing OMP THREADPRIVATE in StratAer? code

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/StratAer/interp_sulf_input.F90 (modified) (1 diff)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/StratAer/interp_sulf_input.F90

@@ -31 +31 @@
   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