Changeset 1822 for LMDZ5


Ignore:
Timestamp:
Jul 31, 2013, 10:46:12 AM (11 years ago)
Author:
Ehouarn Millour
Message:

Retour à la convergence SEQ/OMP.
UG
..................................
Sequential and OpenMP versions converge again.
UG

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/phytrac_mod.F90

    r1820 r1822  
    301301  INTEGER,SAVE  :: iflag_lscav_omp,iflag_lscav
    302302  LOGICAL,SAVE  :: convscav_omp,convscav
    303 !$OMP THREADPRIVATE(iflag_lscav_omp,iflag_lscav)
    304 !$OMP THREADPRIVATE(convscav_omp,convscav)
     303!$OMP THREADPRIVATE(iflag_lscav)
     304!$OMP THREADPRIVATE(convscav)
    305305!RomP <<<
    306306!######################################################################
Note: See TracChangeset for help on using the changeset viewer.