Changeset 1252


Ignore:
Timestamp:
Oct 30, 2009, 12:19:59 PM (15 years ago)
Author:
Ehouarn Millour
Message:

OpenMP fix: threadprivate() instructions for nonexistent variables are syntax errors for some compilers (e.g. xlf)


File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/radiation_AR4.F

    r1251 r1252  
    34203420c     REAL*8 TINTP(11)
    34213421c     SAVE TINTP
    3422 c$OMP THREADPRIVATE(TINTP)
     3422cc$OMP THREADPRIVATE(TINTP)
    34233423c     REAL*8 GA(11,16,3), GB(11,16,3)
    34243424c     SAVE GA, GB
    3425 c$OMP THREADPRIVATE(GA, GB)
     3425cc$OMP THREADPRIVATE(GA, GB)
    34263426c     REAL*8 XP(6,6)
    34273427c     SAVE XP
    3428 c$OMP THREADPRIVATE(XP)
     3428cc$OMP THREADPRIVATE(XP)
    34293429c
    34303430c     DATA TINTP / 187.5, 200., 212.5, 225., 237.5, 250.,
Note: See TracChangeset for help on using the changeset viewer.