Changeset 3835 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/regular_lonlat_mod.f90

Timestamp:

Jun 18, 2015, 1:53:21 PM (9 years ago)

Author:

ymipsl

Message:

Some missing threadprivate...

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/regular_lonlat_mod.f90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/regular_lonlat_mod.f90

@@ -11 +11 @@
   INTEGER, PARAMETER :: south=2          ! boundaries of regular lontlat
 
+! Global definition, shared by all threads
+! Do not set threadprivate directives
+
   REAL,SAVE,ALLOCATABLE :: lon_reg(:)      ! value of longitude cell (rad)
-!$OMP THREADPRIVATE(lon_reg)
 
   REAL,SAVE,ALLOCATABLE :: lat_reg(:)      ! value of longitude cell (rad)
-!$OMP THREADPRIVATE(lat_reg)
 
   REAL,SAVE,ALLOCATABLE :: boundslon_reg(:,:)      ! value of boundaries cell (1=>east, 2=>west)(rad)
-!$OMP THREADPRIVATE(boundslon_reg)
 
   REAL,SAVE,ALLOCATABLE :: boundslat_reg(:,:)      ! value of longitude cell (1=>north, 2=>south)(rad)
-!$OMP THREADPRIVATE(boundslat_reg)