Changeset 1820 for LMDZ5


Ignore:
Timestamp:
Jul 30, 2013, 12:23:40 PM (11 years ago)
Author:
Ehouarn Millour
Message:

Correction d'un bug dans phytrac affectant la compilation en openmp.
Attention à l'heure actuelle il n'y a plus convergence entre la version séquentielle et la version omp.
UG
.....................
Bug correction in phytrac, no compiling in openmp as well as in sequential. Be warned that convergence have been lost between sequential and openmp versions.
UG

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/phytrac_mod.F90

    r1813 r1820  
    260260  INTEGER                   :: itau_w      ! pas de temps ecriture = nstep + itau_phy
    261261  LOGICAL,PARAMETER         :: ok_sync=.TRUE.
    262 !$OMP THREADPRIVATE(chtratimestep)
     262
    263263!
    264264! Nature du traceur
     
    291291!---------
    292292  INTEGER,SAVE :: iflag_vdf_trac,iflag_con_trac,iflag_the_trac
    293   INTEGER :: iflag_con_trac_omp, iflag_vdf_trac_omp,iflag_the_trac_omp
    294 !$OMP THREADPRIVATE(iflag_lscav,convscav,iflag_the_trac)
     293  INTEGER,SAVE :: iflag_con_trac_omp, iflag_vdf_trac_omp,iflag_the_trac_omp
     294!$OMP THREADPRIVATE(iflag_vdf_trac,iflag_con_trac,iflag_the_trac)
    295295
    296296  LOGICAL,SAVE :: lessivage
     
    301301  INTEGER,SAVE  :: iflag_lscav_omp,iflag_lscav
    302302  LOGICAL,SAVE  :: convscav_omp,convscav
    303 !$OMP THREADPRIVATE(iflag_lscav,convscav)
     303!$OMP THREADPRIVATE(iflag_lscav_omp,iflag_lscav)
     304!$OMP THREADPRIVATE(convscav_omp,convscav)
    304305!RomP <<<
    305306!######################################################################
Note: See TracChangeset for help on using the changeset viewer.