Changeset 3663

Timestamp:

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

Author:

oboucher

Message:

adding some missing OMP THREADPRIVATE in StratAer? code

Location:

LMDZ6/trunk/libf/phylmd/StratAer

Files:

• interp_sulf_input.F90 (modified) (1 diff)
• sulfate_aer_mod.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

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

@@ -50 +50 @@
 !
     SAVE INSTEP,F,XC,YC,XC1,XC16,YC1,YC28
+!$OMP THREADPRIVATE(INSTEP,F,XC,YC,XC1,XC16,YC1,YC28)
 
 ! convert pplay (in Pa) to PMB (in mb)