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

Timestamp:

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

Author:

oboucher

Message:

Adding some missing OMP THREADPRIVATE in StratAer? code

File:

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

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)