Changeset 1362 for LMDZ4/trunk/libf

Timestamp:

Apr 15, 2010, 11:35:36 AM (15 years ago)

Author:

Ehouarn Millour

Message:

Bug fix: missing threadprivate OMP instructions

File:

• LMDZ4/trunk/libf/phylmd/phys_state_var_mod.F90 (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -119 +119 @@
 !IM begin
       REAL,ALLOCATABLE,SAVE :: wlevSTD(:,:), ulevSTD(:,:), vlevSTD(:,:)
+!$OMP THREADPRIVATE(wlevSTD,ulevSTD,vlevSTD)
       REAL,ALLOCATABLE,SAVE :: tlevSTD(:,:), qlevSTD(:,:), rhlevSTD(:,:)
+!$OMP THREADPRIVATE(tlevSTD,qlevSTD,rhlevSTD)
       REAL,ALLOCATABLE,SAVE :: philevSTD(:,:)
+!$OMP THREADPRIVATE(philevSTD)
       REAL,ALLOCATABLE,SAVE :: uvSTD(:,:)
+!$OMP THREADPRIVATE(uvSTD)
       REAL,ALLOCATABLE,SAVE :: vqSTD(:,:)
+!$OMP THREADPRIVATE(vqSTD)
       REAL,ALLOCATABLE,SAVE :: vTSTD(:,:)
+!$OMP THREADPRIVATE(vTSTD)
       REAL,ALLOCATABLE,SAVE :: wqSTD(:,:)
+!$OMP THREADPRIVATE(wqSTD)
       REAL,ALLOCATABLE,SAVE :: vphiSTD(:,:)
+!$OMP THREADPRIVATE(vphiSTD)
       REAL,ALLOCATABLE,SAVE :: wTSTD(:,:)
+!$OMP THREADPRIVATE(wTSTD)
       REAL,ALLOCATABLE,SAVE :: u2STD(:,:)
+!$OMP THREADPRIVATE(u2STD)
       REAL,ALLOCATABLE,SAVE :: v2STD(:,:) 
+!$OMP THREADPRIVATE(v2STD)
       REAL,ALLOCATABLE,SAVE :: T2STD(:,:)
+!$OMP THREADPRIVATE(T2STD)
 !IM end
       INTEGER,ALLOCATABLE,SAVE :: seed_old(:,:)