Changeset 1361 for LMDZ4/branches


Ignore:
Timestamp:
Apr 15, 2010, 11:29:52 AM (15 years ago)
Author:
Ehouarn Millour
Message:

Bug fix: missing threadprivate OMP instructions

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phys_state_var_mod.F90

    r1350 r1361  
    122122!IM begin
    123123      REAL,ALLOCATABLE,SAVE :: wlevSTD(:,:), ulevSTD(:,:), vlevSTD(:,:)
     124!$OMP THREADPRIVATE(wlevSTD,ulevSTD,vlevSTD)
    124125      REAL,ALLOCATABLE,SAVE :: tlevSTD(:,:), qlevSTD(:,:), rhlevSTD(:,:)
     126!$OMP THREADPRIVATE(tlevSTD,qlevSTD,rhlevSTD)
    125127      REAL,ALLOCATABLE,SAVE :: philevSTD(:,:)
     128!$OMP THREADPRIVATE(philevSTD)
    126129      REAL,ALLOCATABLE,SAVE :: uvSTD(:,:)
     130!$OMP THREADPRIVATE(uvSTD)
    127131      REAL,ALLOCATABLE,SAVE :: vqSTD(:,:)
     132!$OMP THREADPRIVATE(vqSTD)
    128133      REAL,ALLOCATABLE,SAVE :: vTSTD(:,:)
     134!$OMP THREADPRIVATE(vTSTD)
    129135      REAL,ALLOCATABLE,SAVE :: wqSTD(:,:)
     136!$OMP THREADPRIVATE(wqSTD)
    130137      REAL,ALLOCATABLE,SAVE :: vphiSTD(:,:)
     138!$OMP THREADPRIVATE(vphiSTD)
    131139      REAL,ALLOCATABLE,SAVE :: wTSTD(:,:)
     140!$OMP THREADPRIVATE(wTSTD)
    132141      REAL,ALLOCATABLE,SAVE :: u2STD(:,:)
     142!$OMP THREADPRIVATE(u2STD)
    133143      REAL,ALLOCATABLE,SAVE :: v2STD(:,:)
     144!$OMP THREADPRIVATE(v2STD)
    134145      REAL,ALLOCATABLE,SAVE :: T2STD(:,:)
     146!$OMP THREADPRIVATE(T2STD)
    135147!IM end
    136148      INTEGER,ALLOCATABLE,SAVE :: seed_old(:,:)
Note: See TracChangeset for help on using the changeset viewer.