Changeset 2744 for LMDZ5/trunk/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

Timestamp:

Jan 5, 2017, 4:40:31 PM (7 years ago)

Author:

oboucher

Message:

Adding threadprivate for mth_pre variable
This should fix some reproducibility effects for runs longer than 1 months....

File:

• LMDZ5/trunk/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

@@ -41 +41 @@
     REAL, POINTER:: wav(:)
     INTEGER i,k,wave,band
-    INTEGER, SAVE :: mth_pre
+    INTEGER, SAVE :: mth_pre=1
+!$OMP THREADPRIVATE(mth_pre)
 
     REAL, ALLOCATABLE, DIMENSION(:,:,:), SAVE :: tau_aer_strat