Changeset 3664

Timestamp:

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

Author:

oboucher

Message:

Adding some missing OMP THREADPRIVATE in StratAer? code

Location:

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

Files:

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

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

@@ -47 +47 @@
 !
     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)