Changeset 1820 for LMDZ5/trunk/libf/phylmd

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:

• LMDZ5/trunk/libf/phylmd/phytrac_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phytrac_mod.F90

@@ -260 +260 @@
   INTEGER                   :: itau_w      ! pas de temps ecriture = nstep + itau_phy
   LOGICAL,PARAMETER         :: ok_sync=.TRUE.
-!$OMP THREADPRIVATE(chtratimestep)
+
 !
 ! Nature du traceur
@@ -291 +291 @@
 !---------
   INTEGER,SAVE :: iflag_vdf_trac,iflag_con_trac,iflag_the_trac
-  INTEGER :: iflag_con_trac_omp, iflag_vdf_trac_omp,iflag_the_trac_omp
-!$OMP THREADPRIVATE(iflag_lscav,convscav,iflag_the_trac)
+  INTEGER,SAVE  :: iflag_con_trac_omp, iflag_vdf_trac_omp,iflag_the_trac_omp
+!$OMP THREADPRIVATE(iflag_vdf_trac,iflag_con_trac,iflag_the_trac)
 
   LOGICAL,SAVE :: lessivage
@@ -301 +301 @@
   INTEGER,SAVE  :: iflag_lscav_omp,iflag_lscav
   LOGICAL,SAVE  :: convscav_omp,convscav
-!$OMP THREADPRIVATE(iflag_lscav,convscav)
+!$OMP THREADPRIVATE(iflag_lscav_omp,iflag_lscav)
+!$OMP THREADPRIVATE(convscav_omp,convscav)
 !RomP <<<
 !######################################################################